Ü  CLOSE

·         This op-code is used to explicitly close the file.

Factor 1

OpCode

Factor 2

Result Field

Resulting Indicators

       HI                            LO                      EQ

CLOSE (E)

File name or *ALL

 

 

 

 

 

Example


Columns . . . :    6  80              Browse                                  AMINEM/QRPGLESRC
SEU==>                                                                              E_OP_EXTN2
FMT H  HKeywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
*************** Beginning of data ************************************************************
0001.00 HOPTION(*SRCSTMT)                                                               130122
0002.00 FCUST      UF A E             DISK    USROPN                                    130122
0003.00                                                                                 130121
0004.00 C     1             SETLL     CUSTR                                66           130122
0005.00 C                   EXSR      @ERROR                                            130122
0006.00 C                   EVAL      CSNAME='AMI'                                      130122
0007.00 C                   UPDATE    CUSTR                                66           130122
0008.00 C                   EXSR      @ERROR                                            130122
0008.01 C                   CLOSE     CUST
0009.00 C                   SETON                                        LR             130122
0010.00  *                                                                              130122
0011.00 C     @ERROR        BEGSR                                                       130122
0012.00 C                   IF        *IN66=*ON                                         130122
0013.00 C                   IF        %STATUS(CUST)=1211                                130122
0014.00 C                   OPEN      CUST                                              130122
0015.00 C                   ELSEIF    %STATUS(CUST)=1221                                130122
0016.00 C                   READ(E)   CUST                                              130122
0017.00 C                   EVAL      CSNAME='AMI'                                      130122
0018.00 C                   UPDATE(E) CUSTR                                             130122
0019.00 C                   ENDIF                                                       130122
0020.00 C                   ENDIF                                                       130122
0021.00 C                   ENDSR                                                       130122
****************** End of data ***************************************************************

 











User Comments:



Copyright © www.go4as400.com, 2013-2023. Copyright notice   Terms of services   Privacy policy