Which CL program is this

[gregwga50]

Is there a way to retrieve the name of the current CL program that is running?

[Terry Wincheste]

Try this:

             DCL        VAR(&PGMID)      TYPE(*CHAR) LEN(10)
             DCL        VAR(&MSGKEY)     TYPE(*CHAR) LEN(04)
             DCL        VAR(&SENDER)     TYPE(*CHAR) LEN(80)

/* Send a diagnostic message to the current program message queue,   */
/* receive message and extract the program-id from the SENDER data   */

             SNDPGMMSG  MSGID(CPI2401) MSGF(QCPFMSG) MSGTYPE(*DIAG) +  
                          KEYVAR(&MSGKEY)                              
             RCVMSG     PGMQ(*PRV) MSGKEY(&MSGKEY) SENDER(&SENDER)     
             CHGVAR     VAR(&PGMID) VALUE(%SST(&SENDER 27 10))