PGM                                                                             
                                                                                
    DCL VAR(&MSG) TYPE(*CHAR) LEN(256)                                          
    DCL VAR(&MSGID) TYPE(*CHAR) LEN(7)                                          
    DCL        VAR(&MSGDTA) TYPE(*CHAR) LEN(132)                                
             DCL        VAR(&JOB) TYPE(*CHAR) STG(*DEFINED) LEN(10) +           
                          DEFVAR(&MSGDTA 1)                                     
             DCL        VAR(&USER) TYPE(*CHAR) STG(*DEFINED) LEN(10) +          
                          DEFVAR(&MSGDTA 11)                                    
             DCL        VAR(&JOBNBR) TYPE(*CHAR) STG(*DEFINED) +                
                          LEN(6) DEFVAR(&MSGDTA 21)                             
                                                                                
    /*  子ジョブ投入  */                                                        
    SBMJOB CMD(CALL PGM(TEST.COM/CHILDCLP)) JOB(CHILDJOB)                       
                                                                                
    /* SBMJOB  が返すメッセージを受信  */                                       
             RCVMSG     MSGTYPE(*COMP) MSG(&MSG) MSGDTA(&MSGDTA) +              
                          MSGID(&MSGID)                                         
                                                                                
    SNDPGMMSG MSG(' 受信したメッセージ ID=' *CAT &MSGID)                        
    SNDPGMMSG MSG(' メッセージ内容 =' *CAT &MSG)                                
                                                                                
ENDPGM