Filter
Top Products
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