Ü
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 ***************************************************************