Manuals / IBM / Kitchen Appliance / Frozen Dessert Maker

IBM AS/400 manual Example, of Source Conversion, To convert this source, enter

Models: AS/400

1 489
Download 489 pages 47.95 Kb
Page 415
Image 415

 

 

 

 

 

 

 

Example

of Source Conversion

 

 

 

 

 

 

 

 

 

H

 

 

 

 

 

 

 

TSTPGM

FFILE1

IF

E

 

 

 

DISK

 

COMM1

FQSYSPRT O

F

132

OF

LPRINTER

 

 

LQSYSPRT

60FL 56OL

 

 

 

 

 

 

E

 

 

ARR1

3

3

1

COMM2

 

E

 

 

ARR2

3

3

1

 

 

IFORMAT1

 

 

 

 

 

 

 

 

I

 

OLDNAME

 

 

 

NAME

 

I* DATA STRUCTURE COMMENT

 

 

 

 

 

IDS1

 

DS

 

 

 

 

 

 

I

 

 

 

 

 

1

3 FIELD1

 

I* NAMED CONSTANT COMMENT

 

 

 

 

 

I

 

'XYZ'

 

 

C

CONST1

COMM3

I

 

 

 

 

 

4

6 ARR1

 

C

 

ARR1,3

DSPLY

 

 

 

 

 

C

 

 

READ FORMAT1

 

01

 

C

 

NAME

DSPLY

 

 

 

 

 

C

 

 

SETON

 

 

 

LR

 

C

 

 

EXCPTOUTPUT

 

 

 

 

OQSYSPRT E

01

OUTPUT

 

 

 

 

O

 

 

ARR2,3

 

10

 

 

**

 

 

 

 

 

 

 

 

123

 

 

 

 

 

 

 

 

**

 

 

 

 

 

 

 

 

456

 

 

 

 

 

 

 

 

 

 

 

 

Figure 194.

RPG III Source for TEST1

 

 

To convert this source, enter:

CVTRPGSRC FROMFILE(MYLIB/QRPGSRC) FROMMBR(TEST1)

TOFILE(MYLIB/QRPGLESRC) INSRTPL(*YES)

The converted source is shown in Figure 195 on page 392.

Appendix B. Using the RPG III to RPG IV391Conversion Aid

Page 414 Page 416
Page 415
Image 415
IBM AS/400 manual Example, of Source Conversion, To convert this source, enter, The converted source is shown in on page
Page 414 Page 416