H DATEDIT(*YMD/)                                                                               
     F******** EXTFILE ‚ðŽg‚Á‚½ USROPN *************************************                        
     FSHOHIN    IF   E           K DISK    EXTFILE(MYFILE)                                          
     F                                     USROPN                                                   
     F**********************************************************************                        
     D MYFILE          S             21                                                             
      /FREE                                                                                         
         MYFILE = 'QTRFIL' + '/' + 'SHOHIN';                                                        
         OPEN   SHOHIN;                                                                             
         READ   SHOHIN;                                                                             
         CLOSE  SHOHIN;                                                                             
         *INLR  = *ON;                                                                              
      /END-FREE