PGM                                                                
/*-------------------------------------------------------------------*/         
/*   TESTMAT    :   自分自身を具体化する                             */         
/*                                                                   */         
/*   2023/07/08  作成                                                */         
/*-------------------------------------------------------------------*/         
/*( _MATPGMNM の変数 )*/                                                        
             DCL        VAR(&BUFFER) TYPE(*CHAR) LEN(80) +                      
                          VALUE(X'00000050000000500000000000000000')            
             DCL        VAR(&PGM) TYPE(*CHAR) LEN(10)                           
             DCL        VAR(&OBJLIB) TYPE(*CHAR) LEN(10)                        
                                                                                
/*( 自分自身の取得 )*/                                                          
             CALLPRC    PRC('_MATPGMNM') PARM(&BUFFER)                          
             CHGVAR     VAR(&PGM) VALUE(%SST(&BUFFER 51 10))                    
             CHGVAR     VAR(&OBJLIB) VALUE(%SST(&BUFFER 19 10))                 
             SNDPGMMSG  MSG('PGM=' *CAT &PGM *TCAT ' OBJLIB=' +                 
                          *CAT &OBJLIB) MSGTYPE(*DIAG)                          
                                                                                
             ENDPGM