PGM                                                                
/*---------------------------------------------------------*/                   
/*    TESTWHO   :   CLP の名前を調べる                     */                   
/*---------------------------------------------------------*/                   
             DCL        VAR(&MSG) TYPE(*CHAR) LEN(132)                          
             DCL        VAR(&SENDER) TYPE(*CHAR) LEN(80)                        
             DCL        VAR(&CALPGM) TYPE(*CHAR) LEN(10)                        
             MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR))                 
                                                                                
             SNDPGMMSG  MSG(' ') TOPGMQ(*PRV)                                   
             RCVMSG     PGMQ(*PRV) SENDER(&SENDER)                              
             CHGVAR     VAR(&CALPGM) VALUE(%SST(&SENDER 27 10))                 
             SNDPGMMSG  MSG('PGM NAME IS ' *CAT &CALPGM) +                      
                          MSGTYPE(*DIAG)                                        
             RETURN                                                             
                                                                                
 ERROR:      RCVMSG     RMV(*NO) MSG(&MSG)                                      
 SNDMSG:     SNDPGMMSG  MSG(&MSG) MSGTYPE(*DIAG)                                
             ENDPGM