Filter
Top Products
Methods for Processing Disk Files
*****************************************************************
* PROGRAM NAME: EMSTUPD *
* RELATED FILES: EMPMST (Physical File) *
* CHANGE (Physical File) *
* DESCRIPTION: This program shows the processing of records *
* using the random-by-key method. The CHAIN *
* operation code is used. *
* The physical file CHANGE contains all the *
* changes made to the EMPMST file. Its record *
* format name is CHGREC. There may be some *
* fields in the CHGREC that are left blank, *
* in that case, no changes are made to those *
* fields. *
*****************************************************************
FCHANGE IP E K DISK
FEMPMST UF E K DISK
* As each record is read from the primary input file, CHANGE,
* the employee number (ENUM) is used as the search argument
* to chain to the corresponding record in the EMPMST file.
* *IN03 will be set on if no corresponding record is found, which
* occurs when an invalid ENUM is entered into the CHGREC record.
C ENUM CHAIN EMPREC 03
C 03 GOTO NEXT
C NNAME IFNE *BLANK
C MOVE NNAME ENAME
C ENDIF
C NTYPE IFNE *BLANK
C MOVE NTYPE ETYPE
C ENDIF
C NDEPT IFNE *ZERO
C MOVE NDEPT EDEPT
C ENDIF
C NNHRS IFNE *ZERO
C MOVE NNHRS ENHRS
C ENDIF
C UPDATE EMPREC
C*
C NEXT TAG
Figure 151. Random-by-Key Processing of an Externally Described File
Sequential-within-Limits Processing
Sequential-within-limits processing by a record-address file is specified by an L in
position 28 of the file description specifications and is valid for a file with a keyed
access.
You can specify sequential-within-limits processing for an input or an update file
that is designated as a primary, secondary, or full-procedural file. The file can be
externally described or program-described (indexed). The file should have keys in
ascending sequence.
To process a file sequentially within limits from a record-address file, the program
reads:
A limits record from the record-address file
Records from the file being processed within limits with keys greater than or
equal to the low-record key and less than or equal to the high-record key in the
300 ILE RPG for AS/400 Programmer's Guide