PGM                                                                
/*-------------------------------------------------------------------*/         
/*   TESTENV    : GETENV の呼出しテスト                              */         
/*                                                                   */         
/*   2020/06/17  作成                                                */         
/*   CRTBNDCL TEST.COM/TESTENV SRCFILE(R610SRC/QCLSRC) AUT(*ALL)     */         
/*-------------------------------------------------------------------*/         
             DCL        VAR(&QRYSTR) TYPE(*CHAR) LEN(128) VALUE('LANG')         
             DCL        VAR(&QRYSTR_P) TYPE(*PTR) ADDRESS(&QRYSTR)              
             DCL        VAR(&STRING_P) TYPE(*PTR)                               
             DCL        VAR(&STRING) TYPE(*CHAR) STG(*BASED) +                  
                          LEN(132) BASPTR(&STRING_P)                            
             DCL        VAR(&NULL) TYPE(*CHAR) LEN(1) VALUE(X'00')              
                                                                                
/*( ｷｵﾎｵﾄﾐ: 環境変数の取得 )*/                                                  
             CHGVAR     VAR(&QRYSTR) VALUE('LANG' *TCAT &NULL)                  
             CALLPRC    PRC('ｷｵﾎｵﾄﾐ') PARM((&QRYSTR)) RTNVAL(&STRING_P)         
             SNDPGMMSG  MSG(&STRING) MSGTYPE(*DIAG)                             
             RETURN                                                             
                                                                                
             ENDPGM