H DFTNAME(TESTOPN) DATEDIT(*YMD/) BNDDIR('QC2LE')                                              
     F**********  標識を使わない OPEN 命令 *********************************                        
     FSHOHIN    IF   E           K DISK    USROPN                                                   
     F**********************************************************************                        
                                                                                                    
      * CRTBNDRPG PGM(OBJLIB/TESTOPN) SRCFILE(SRCLIB/QRPGLESRC) DFTACTGRP(*NO)                      
      * ACTGRP(*NEW) DBGVIEW(*SOURCE) AUT(*ALL)                                                     
                                                                                                    
     C                   MOVEL(P)  'NV-CF1'      SHCODE                                             
      *(1) 標識を使った OPEN 命令                                                                   
     C                   OPEN      SHOHIN                               90                          
     C     *IN90         IFEQ      *OFF                                         N90                 
     C                   READ      SHOHIN                                 50                        
     C                   CLOSE     SHOHIN                                                           
     C                   ENDIF                                                  N90                 
                                                                                                    
      *(2) 標識を使わない OPEN 命令                                                                 
     C                   IF        NOT %OPEN(SHOHIN)                                                
     C                   OPEN      SHOHIN                                                           
     C                   READ      SHOHIN                                                           
     C                   CLOSE     SHOHIN                                                           
     C                   ENDIF                                                                      
      /FREE                                                                                         
            IF NOT %OPEN(SHOHIN);                                                                   
               OPEN  SHOHIN;                                                                        
               READ  SHOHIN;                                                                        
               CLOSE SHOHIN;                                                                        
            ENDIF;                                                                                  
      /END-FREE                                                                                     
     C                   SETON                                        LR                            
     C                   RETURN