IBM AS/400 manual Sequential-within-Limits Processing, Methods for Processing Disk Files

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, wh￿ich

*occurs when an invalid ENUM is entered into the CHGREC rec￿ord.

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 position 28 of the file description specifications and is valid for a access.

You can specify sequential-within-limits processing for an input or an up that is designated as a primary, secondary, or full-procedural file. T externally described or program-described (indexed). The file should ascending sequence.

To process a file sequentially within limits from a record-address file reads:

¹ A limits record from the record-address file

¹Records from the file being processed within limits with keys grea equal to the low-record key and less than or equal to the high-rec

300 ILE RPG for AS/400 Programmer's Guide