H DFTNAME(RPG005) DATEDIT(*YMD/)                                                               
     F********** EXTFILE ƒTƒ“ƒvƒ‹ *************************************                             
     FSHOHIN    IF   E           K DISK    EXTFILE(SHOHIN_LIB)                                      
     F*****************************************************************                             
     D SHOHIN_LIB      S             21A   INZ('QTRFIL/SHOHIN')                                     
     C     *LOVAL        SETLL     SHOHIN                                                           
     C                   DO        *HIVAL                                                           
     C                   SETOFF                                       50                            
     C                   READ      SHOHIN                                 50                        
     C   50              LEAVE                                                                      
     C                   END                                                                        
     C                   SETON                                        LR                            
     C                   RETURN                                                                     
     C     END           TAG