PGM                                                                
/*---------------------------------------------------------*/                   
/*   TESTMAT     :  CLP のプログラム名の取得               */                   
/*                                                         */                   
/*   CRTBNDCL  MYLIB/TESTMAT SRCFILE(MYSRCLIB/QCLLESRC)    */                   
/*---------------------------------------------------------*/                   
             DCL        VAR(&PGMNAME) TYPE(*CHAR) LEN(10)                       
             DCL        VAR(&LIBNAME) TYPE(*CHAR) LEN(10)                       
             DCL        VAR(&BUFFER) TYPE(*CHAR) LEN(80)                        
                                                                                
             CHGVAR     VAR(%BIN(&BUFFER 1 4)) VALUE(80)                        
             CHGVAR     VAR(%BIN(&BUFFER 5 4)) VALUE(80)                        
             CHGVAR     VAR(%BIN(&BUFFER 9 4)) VALUE(0)                         
             CHGVAR     VAR(%BIN(&BUFFER 13 4)) VALUE(0)                        
                                                                                
             CALLPRC    PRC('_MATPGMNM') PARM(&BUFFER)                          
                                                                                
             CHGVAR     VAR(&PGMNAME) VALUE(%SST(&BUFFER 51 10))                
             CHGVAR     VAR(&LIBNAME) VALUE(%SST(&BUFFER 19 10))                
                                                                                
             SNDPGMMSG  MSG('PGM = ' *CAT &LIBNAME *TCAT '/' +                  
                          *CAT &PGMNAME) MSGTYPE(*DIAG)                         
             ENDPGM