Filter
Top Products
Compiler Listings
| *--------------------------------------------------------------------------------------------* 4 1
| * Data structure . . . . . . : DSEXT1 * 1
| * Prefix . . . . . . . . . . : BI_ : 0 * 1
| * External format . . . . . : REC1 : MYLIB/DSEXT1 * 1
| * Format text . . . . . . . : Record format description * 1
| *--------------------------------------------------------------------------------------------* 1
| 5
| 15=D BI_FLD1 5A EXTFLD (FLD1) FLD1 description 1000001
| 16=D INZ (*BLANK) 1000002
| 17=D BI_FLD2 10A EXTFLD (FLD2) FLD2 description 1000003
| 18=D INZ (*BLANK) 1000004
| 19=D BI_FLD3 18A EXTFLD (FLD3) FLD3 description 1000005
| 20=D INZ ('111') 1000006
| 21=IINREC 2000001
| *--------------------------------------------------------------------------------------------* 2
| * RPG record format . . . . : INREC * 2
| * External format . . . . . : INREC : MYLIB/INFILE * 2
| *--------------------------------------------------------------------------------------------* 2
| 22=I A 1 25 FLDA 2000002
| 23=I A 26 90 FLDB 2000003
| 24=I 13488 *VAR C 91 112 UCS2FLD 2000004
| 25=IREC1 3000001
| *--------------------------------------------------------------------------------------------* 3
| * RPG record format . . . . : REC1 * 3
| * External format . . . . . : REC1 : MYLIB/KEYL6 * 3
| *--------------------------------------------------------------------------------------------* 3
| 26=I *ISO-D 1 10 FLD12 3000002
| 27=I A 11 13 FLD13 3000003
| 28=I A 14 17 FLD14 3000004
| 29=I A 18 22 FLD15 3000005
| 30=I 13488 C 23 32 FLDC 3000006
| 31=I 13488 *VAR C 33 44 FLDCV 3000007
| 32=I 835 G 45 54 FLDG 3000008
| 33=IREC2 4000001
| *--------------------------------------------------------------------------------------------* 4
| * RPG record format . . . . : REC2 * 4
| * External format . . . . . : REC2 : MYLIB/KEYL6 * 4
| *--------------------------------------------------------------------------------------------* 4
| 34=I *ISO-D 1 10 FLD22 4000002
| 35=I A 11 13 FLD23 4000003
| 36=I A 14 17 FLD24 4000004
| 37=I A 18 22 FLD25 4000005
| Line <--------------------- Source Specifications ----------------------------------------------><---- Comments ----> Src Seq
| Number ....1....+....2....+<-------- 26 - 35 -------->....4....+....5....+....6....+....7....+....8....+....9....+...10 Id Number
| 38 C MOVE '123' BI_FLD1 001500
| 39 C/COPY MYCPY 971104 001600
| *--------------------------------------------------------------------------------------------* 6
| * RPG member name . . . . . : MYCPY * 5
| * External name . . . . . . : MYLIB/QRPGLESRC(MYCPY) * 5
| * Last change . . . . . . . : 98/07/24 16:20:04 * 5
| * Text 'description' . . . . : Text specified on Copy Member * 5
| *--------------------------------------------------------------------------------------------*
| 7
| 40+C Blue(1) DSPLY 5000100
| 41+C Green(4) DSPLY 5000200
| 42+C Red(2) DSPLY 5000300
| 8
| 43 C *in20 doweq *OFF 001700
| 44 C | READ InRec ----20 001800
| 45 C | if NOT *in20 001900
| 46 C FLDA | | DSPLY 002000
| 47 C | endif 002100
| 48 C enddo 002200
| 49 C write outrec 002300
| 9
| 50 C SETON LR---- 002400
| 47 C/DEFINE ABC 971104 002500
| 51 C/IF DEFINED(ABC) 971104 002600
| 52 C MOVEL 'x' Y 10 002700
| 54 C MOVEL 'x' Z 10 002800
| 55 C/ELSE 971104 002900
| 10
| ------ C MOVEL ' ' Y 10 971104 003000
| ------ C MOVEL ' ' Z 10 971104 003100
| 56 C/ENDIF 971104 003200
Figure 217 (Part 2 of 3). Sample Source Part of the Listing
Appendix D. Compiler Listings 429