H DFTNAME(AA_SAMPLE) DATEDIT(*YMD/) BNDDIR('QC2LE')                                            
     F********** AA_SAMPLE *************************************************                        
     FSQLFUNCOL UF A E           K DISK                                                             
     F                                     EXTFILE(SQLFUN_LIB)                                      
     F**********************************************************************                        
                                                                                                    
      * CRTRPGMOD  OBJ(QTEMP/AA_SAMPE)   SRCFILE(R610SRC/QRPGLESRC)                                 
      * DBGVIEW(*SOURCE) AUT(*ALL)                                                                  
      * CRTPGM PGM(ASNET.COM/AA_SAMPLE) MODULE(QTEMP/AA_SAMPLE ACTGRP(*NEW)                         
      *        AUT(*ALL)                                                                            
                                                                                                    
      *-------------------------------------------------------------------*                         
      *  2017/05/01 : 作成                                                                          
      *-------------------------------------------------------------------*                         
      *( 作業変数 )                                                                                 
     D SQLFUN_LIB      S             21    INZ('QUSRTEMP/SQLFUNCOL')                                
     D AR              S              1A   DIM(256)                                                 
     D N               S              4S 0                                                          
     D TRUE            S              1A   DIM(256)                                                 
     D TRUE#           S              4B 0 INZ(0)                                                   
     D FALSE#          S              4B 0 INZ(-1)                                                  
     D QUOT            C                   CONST(X'7D')                                             
     D OE              C                   CONST(X'0E')                                             
     D OF              C                   CONST(X'0F')                                             
     D NULL            C                   CONST(X'00')                                             
                                                                                                    
     D*( プログラム状況データ構造 )                                                                 
     D INFDS_THIS     SDS                                                                           
     D  PROC_NAM         *PROC                                                                      
     D  ROUTINE          *ROUTINE                                                                   
     D                              512A                                                            
     D  PGMINFO                1    512                                                             
     D  LINE_NUM              21     28                                                             
     D  CPFID                 40     46                                                             
     D  CPFDTA                91    170                                                             
     D  ERRMSGID              46     51                                                             
     D  CURUSR               358    367                                                             
                                                                                                    
     D*( WORK 日付 YYMMDD ｺﾞｰn 構造  )                                                              
     D DATEDS          DS                                                                           
     D  CENTURY                1      2  0 INZ(20)                                                  
     D  YYMMDD                 3      8  0                                                          
     D  YY                     3      4                                                             
     D  MM                     5      6                                                             
     D  DD                     7      8                                                             
     D  CYY                    1      4                                                             
                                                                                                    
     C*--------------------------------------------------------------------------                   
     C     USRKEY        KLIST                                                  |                   
     C                   KFLD                    USER                           |                   
     C*--------------------------------------------------------------------------                   
     C                   SETON                                        LR                            
     C                   RETURN                                                                     
     C******************************************************                                        
     C     *INZSR        BEGSR                                                                      
     C******************************************************                                        
     C*  初期 CYCLE のみの実行                                                                      
     C                   ENDSR