H DFTNAME(TESTRED) DATEDIT(*YMD/) BNDDIR('QC2LE')                                              
     F**********  標識を使わない READ 命令 *********************************                        
     FSHOHIN    IF   E           K DISK                                                             
     F**********************************************************************                        
                                                                                                    
      * CRTBNDRPG PGM(OBJLIB/TESTRED) SRCFILE(SRCLIB/QRPGLESRC) DFTACTGRP(*NO)                      
      * ACTGRP(*NEW) DBGVIEW(*SOURCE) AUT(*ALL)                                                     
                                                                                                    
     C                   MOVEL(P)  'NV-CF1'      SHCODE                                             
      *(1) 標識を使った READ 命令                                                                   
     C     *LOVAL        SETLL     SHOHIN                                                           
     C                   DO        *HIVAL                                       DO-*HIVAL           
     C                   SETOFF                                       50                            
     C                   READ      SHOHIN                                 50                        
     C   50              LEAVE                                                                      
     C                   ENDDO                                                  DO-*HIVAL           
                                                                                                    
      *(2) 標識を使わない READ 命令                                                                 
     C     *LOVAL        SETLL     SHOHIN                                                           
     C                   DO        *HIVAL                                       DO-*HIVAL           
     C                   READ      SHOHIN                                                           
     C                   IF        %EOF(SHOHIN)                                   EOF               
     C                   LEAVE                                                                      
     C                   ENDIF                                                    EOF               
     C                   ENDDO                                                  DO-*HIVAL           
      /FREE                                                                                         
            SETLL *LOVAL SHOHIN;                                                                    
            DOW  *INLR = *OFF;                                                                      
               READ SHOHIN;                                                                         
               IF   %EOF;                                                                           
                  LEAVE;                                                                            
               ENDIF;                                                                               
            ENDDO;                                                                                  
      /END-FREE                                                                                     
     C                   SETON                                        LR                            
     C                   RETURN