© 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