H DFTNAME(TESTREAD2) DATEDIT(*YMD/)                                                            
     F********** 高速外部記述による読取り **********************************                        
     F*                                                                                             
     F**********************************************************************                        
                                                                                                    
      * CRTBNDRPG  OBJ(OBJLIB/TESTREAD2) SRCFILE(MYSRCLIB/QRPGLESRC)                                
      * DFTACTRP(*NO) ACTGRP(*NEW) DBGVIEW(*SOURCE) AUT(*ALL)                                       
                                                                                                    
      *-------------------------------------------------------------------*                         
      *  2021/11/27 : 作成                                                                          
      *-------------------------------------------------------------------*                         
      *( 作業変数 )                                                                                 
     D TRUE#           S              4B 0 INZ(0)                                                   
     D FALSE#          S              4B 0 INZ(-1)                                                  
     D EOF#            S              4B 0 INZ(-1)                                                  
     D DFT             C                   CONST(X'0B000100')                                       
     D OE#             C                   CONST(X'0E')                                             
     D OF#             C                   CONST(X'0F')                                             
                                                                                                    
     D*( _Rﾅﾆｵﾄ  のプロトタイプ宣言 )                                                               
      *ﾗ 例 ﾝ                                                                                       
      *  RFILE = _Rﾅﾆｵﾄ("ASNET.USR/USRLIBL", "ﾈﾈ")                                                  
     D Rﾅﾆｵﾄ           PR              *          EﾒﾎPﾈﾅｳ('_Rﾅﾆｵﾄ')                                 
     D  RFILE                          *   VALUE OPTIONS(*STRING:*TRIM)                             
     D  OPTION                         *   Vｱﾂﾏｵ OPTIONS(*STRING:*TRIM)                             
                                                                                                    
     D*( _Rﾈｵｱｴﾄ のプロトタイプ宣言 )                                                               
      * _RIOFB_T*_Rﾈｵｱｴﾄ(_RFILE *, ﾐﾅｹｴ *, ﾍｹﾔｵ_ﾎ, ｹﾄﾎ);                                            
      *ﾗ 例 ﾝ                                                                                       
     D Rﾈｵｱｴﾄ          PR              *          EﾒﾎPﾈﾅｳ('_Rﾈｵｱｴﾄ')                                
     D  RFILE                          *   Vｱﾂﾏｵ                                                    
     D  RECORD                         *   Vｱﾂﾏｵ                                                    
     D  RCD_LEN                      10I 0 Vｱﾂﾏｵ                                                    
     D  OPT                          10I 0 Vｱﾂﾏｵ                                                    
                                                                                                    
     D*( _Rｳﾂﾅﾍｵ のプロトタイプ宣言 )                                                               
     D Rｳﾂﾅﾍｵ          PR            10I 0        EﾒﾎPﾈﾅｳ('_Rｳﾂﾅﾍｵ')                                
     D  RFILE                          *   Vｱﾂﾏｵ                                                    
                                                                                                    
     D IOFB_P          S               *                                                            
     D RIOFB           DS            64    QUALIFIED                                                
     D                                     BASED(IOFB_P)                                            
     D  KEY                            *                                                            
     D  SYSPRM                         *                                                            
     D  RRN                          10I 0                                                          
     D  NUM_BYTE                     10I 0                                                          
                                                                                                    
     D RFILE           DS           336    QUALIFIED                                                
     D                                     BASED(RFILE_P)                                           
     D  BUF_LENGTH           193    196I 0                                                          
                                                                                                    
     D DATA          E DS          5000    EXTNAME(CODEMST)                                         
     D RCD_LEN         S             10I 0                                                          
     D RFILE_P         S               *                                                            
     D BYTES           S             10I 0                                                          
     D HIVAL           S              1N   INZ(*ON)                                                 
                                                                                                    
      /FREE                                                                                         
         RFILE_P = Rﾅﾆｵﾄ('QTRFIL/CODEMST': 'ﾈﾈ');                                                   
         RCD_LEN = RFILE.BUF_LENGTH;                                                                
         DOW HIVAL;                                                                                 
           IOFB_P = Rﾈｵｱｴﾄ(RFILE_P: %ADDR(DATA): RCD_LEN: DFT);                                     
           IF (RIOFB.NUM_BYTE = EOF#);                                                              
              LEAVE;                                                                                
           ENDIF;                                                                                   
           EXSR  CHECK;                                                                             
      /END-FREE                                                                                     
     C********************************                                                              
     C*  レコードの処理はここから    *                                                              
     C********************************                                                              
     C                   EXSR      PRINT                                                            
     C********************************                                                              
     C*  レコードの処理はここまで    *                                                              
     C********************************                                                              
      /FREE                                                                                         
         ENDDO;                                                                                     
         Rｳﾂﾅﾍｵ(RFILE_P);                                                                           
      /END-FREE                                                                                     
     C                   SETON                                        LR                            
     C                   RETURN                                                                     
     C******************************************************                                        
     C     CHECK         BEGSR                                                                      
     C******************************************************                                        
     C                   ENDSR                                                                      
     C******************************************************                                        
     C     PRINT         BEGSR                                                                      
     C******************************************************                                        
     C                   ENDSR