H DFTNAME(TESTGET) DATEDIT(*YMD/) BNDDIR('QC2LE')                                              
     F********** 環境変数を GETENV *****************************************                        
     F*                                                                                             
     F**********************************************************************                        
                                                                                                    
     D*( GETENV        のプロトタイプ宣言 )                                                         
     D GETENV          PR              *   EﾒﾎPﾈﾅｳ('ｷｵﾎｵﾄﾐ')                                        
     D  ENVVAR                         *   Vｱﾂﾏｵ                                                    
                                                                                                    
     D NULL            S              1A   INZ(X'00')                                               
     D STRING          S             48A                                                            
     D STRING_P        S               *   INZ(%ADDR(STRING))                                       
     D QRY_STRING_P    S               *                                                            
     D QRY_STRING      S            256A   BASED(QRY_STRING_P)                                      
     D FLD40           S             40A                                                            
                                                                                                    
     C*( PUTENV QUERY_STRING=FKEY=CF03 + NULL を実行する )                                          
      /FREE                                                                                         
            STRING       = 'QUERY_STRING' + NULL;                                                   
            QRY_STRING_P = GETENV(STRING_P);                                                        
            FLD40        = %SUBST(QRY_STRING:1:40);                                                 
      /END-FREE                                                                                     
     C     FLD40         DSPLY                   ANS               1                                
     C                   SETON                                        LR                            
     C                   RETURN