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

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

----> S￿rc 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 Listings429