©
ronaldmacrae@newsgroup
Dieses Programm liest aus den Task-Kontroll-Blöcken die System-ID. Wurde die Routine als Funktion oder Subroutine aufgerufen,
wird das Ergebnis per RETURN zurückgereicht.
Wird das Programm als COMMAND benutzt (Achtung: gilt auch für SELECT CMD(progname)), wird das Ergebnis im Falle TSO-native
per SAY ausgegeben, ansonsten als ISPF-Message präsentiert.
/* rexx
*/
PARSE SOURCE . TYPE .
SYSID = STRIP(STORAGE( D2X(C2D( STORAGE(10,4) ) + 340),8))
IF TYPE = "COMMAND" THEN DO
IF SYSVAR("SYSISPF") = "ACTIVE" THEN DO
ZEDSMSG = "sysid =" sysid
ZEDLMSG = "SYSTEM ID FROM CVT +340 =" SYSID
ADDRESS ISPEXEC "SETMSG MSG(ISRZ001)"
END
ELSE SAY "SYSTEM ID FROM CVT +340 =" SYSID
EXIT 0
END
ELSE RETURN SYSID
zurück zu The Power of REXX