IBM AS/400 manual Compiler Listings, Part 1 of 3. Sample Source Part of the Listing

Compiler Listings

5769RG1 V4R4M0			990521 RN				IBM ILE RPG					MYLIB/MYSRC				AS400S01		98/07/28 14:21:00			Page		2
.1a/
Line	<	----------------------				Source Specifications					----------------------------					><	---- Comments			----> Do Page	Change	Src	Seq
Number	....	1....	+....	2....	+....	3	....+	....4....	+....	5....	+	....6....	+....	7....	+....	8....	+....	9....	+	...10 Num Line	Date	Id	Number
					S o u r c e			L i s t i n g
1	H	DFTACTGRP(*NO) ACTGRP('Srcactgrp') CCSID(*GRAPH:*SRC)																			980727		000100
2	H	OPTION(*NODEBUGIO)																			980727		000200
3	H	BNDDIR('SRCLIB1/BNDDIR1' : 'SRCLIB2/BNDDIR2' : '"ext.nam"')																			971104		000300
4	H	ALTSEQ(*SRC)																			971104		000400
5	H	FIXNBR(*ZONED)																			980728		000500
6	H	TEXT('Text specified on the Control Specification')																			971104		000600

*	--------------------------------------------------------------------									* .2/
* Compiler Options in Effect:										*
*	--------------------------------------------------------------------									*
*	Text 'description' . . .			.	.	. .	:			*
*			Text specified on				the	Control Specification		*
*	Generation severity level				. . . :			10		*
*	Default activation group			.	.	. .	:	*NO		*
*	Compiler options . . . .			.	.	. .	:	*XREF	*GEN	*
*								*SECLVL	*SHOWCPY	*
*								*EXPDDS	*EXT	*
*								*SHOWSKP *NOSRCSTMT		*
*								*NODEBUGIO	*NOEVENTF	*
*	Optimization level . . .			.	.	. .	:	*NONE		*
*	Source listing indentation				.	. .	:	' '		*
*	Type conversion options			. . . . :				*NONE		*
*	Sort sequence			.	.	. .	:	*HEX		*
*	Language identifier . .			.	.	. .	:	*JOBRUN		*
*	User profile		. . . . . .	.	.	. .	:	*USER		*
*	Authority .		. . . . . .	.	.	. .	:	*LIBCRTAUT		*
*	Truncate numeric . . . .			.	.	. .	:	*YES		*
*	Fix numeric		. . . . . .	.	.	. .	:	*ZONED	*INPUTPACKED	*
*	Allow null values . . .			.	.	. .	:	*NO		*
* Binding directory from Command . :								BNDDIRA	BNDDIRB	*
*	Library .		. . . . . .	.	.	. .	:	CMDLIBA	CMDLIBB	*
* Binding directory from Source						. :		BNDDIR1	BNDDIR2	*
*	Library .		. . . . . .	.	.	. .	:	SRCLIB1	SRCLIB2	*
*								"ext.nam"		*
*								*LIBL		*
*	Activation group . . . .			.	.	. .	:	Srcactgrp		*
*	Enable performance collection					. :		*PEP		*
*	Profiling data			.	.	. .	:	*NOCOL		*
*	--------------------------------------------------------------------									*
7 FInFile		IF	E		DISK					971104	000700
*	--------------------------------------------------------------------------------------------									* .3/
*						RPG	name	External name		*
* File name. .			. . . . . .	.	:	INFILE		MYLIB/INFILE		*
* Record format(s) . . . .				.	:	INREC		INREC		*
*	--------------------------------------------------------------------------------------------									*
8 FKEYL6		IF	E	K DISK						971104	000800
*	--------------------------------------------------------------------------------------------									*
*						RPG	name	External name		*
* File name. .			. . . . . .	.	:	KEYL6		MYLIB/KEYL6		*
* Record format(s) . . . .				.	:	REC1		REC1		*
*						REC2		REC2		*
*	--------------------------------------------------------------------------------------------									*
9 FOutfile		O	E		DISK					971104	000900
*	--------------------------------------------------------------------------------------------									*
*						RPG	name	External name		*
* File name. .			. . . . . .	.	:	OUTFILE		MYLIB/OUTFILE		*
* Record format(s) . . . .				.	:	OUTREC		OUTREC		*
*	--------------------------------------------------------------------------------------------									*
10 D Blue			S			4	DIM(5) CTDATA PERRCD(1)			971104	001000
11 D Green			S			2	DIM(5) ALT(Blue)			971104	001100
12 D Red			S			4	DIM(2) CTDATA PERRCD(1)			980727	001200
13 D DSEXT1			E DS		100		PREFIX(BI_) INZ(*EXTDFT)			980727	001300
14 D	FLD3		E				INZ('111')			980727	001400

Figure 217 (Part 1 of 3). Sample Source Part of the Listing

428 ILE RPG for AS/400 Programmer's Guide