IBM AS/400 manual Example of Source Conversion, Converted RPG IV Source for TEST1, ARR1

Example of Source Conversion

1.....H*unctions+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++Comments+++++++++

2 H DFTNAME(TSTPGM)

3 .....F*ilename++IPEASFRlen+LKlen+AIDevice+.Functions+++++++++++++++++++++++++++￿+Comments+++++++++

4	FFILE1	IF	E		DISK	COMM1
5	FQSYSPRT	O	F	132	PRINTER OFLIND(*INOF)
6	F				FORMLEN(60)
7	F				FORMOFL(56)

8.....D*ame+++++++++++ETDsFrom+++To/L+++IDc.Functions++++++++++++++++++++++++++++Comments++++++￿+++

9 D ARR2 S 1 DIM(3) CTDATA PERRCD(3)

10D* DATA STRUCTURE COMMENT

11	D DS1		DS
12	D	FIELD1	1	3
13	D	ARR1	4	6
14	D			DIM(3) CTDATA PERRCD(3)	COMM2

15D* NAMED CONSTANT COMMENT

16 D CONST1 C CONST('XYZ') COMM3

17.....I*ilename++SqNORiPos1+NCCPos2+NCCPos3+NCC..................................Comm￿ents+++++++++

18.....I*.............Ext_field+Fmt+SPFrom+To+++DcField+++++++++L1M1FrP1MnZr......C￿omments+++++++++

19IFORMAT1

20 I OLDNAME NAME

21.....C*0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq￿....Comments+++++++++

22	C	ARR1(3)		DSPLY
23	C			READ	FORMAT1	01
24	C	NAME		DSPLY
25	C			SETON		LR
26	C			EXCEPT	OUTPUT
27	OQSYSPRT		E	OUTPUT		01
28	O			ARR2(3)		10
29	**CTDATA ARR1

30123

31**CTDATA ARR2

32456

Figure 195. Converted (RPG IV) Source for TEST1

Note the following about the converted source:

¹The new specification types are H (control), F (file), D (definitio

(calculation), and O (output); they must be entered in this order.

The converted source contains specification templates for the new ty INSRTPL(*YES) was specified on CVTRPGSRC.

¹ The	control,	file,	and definition specifications are keyword-oriented.
4	- 7, and	9 -	16.

¹The ILE member has a new specification type, definition. It is us

standalone fields, arrays and named constants as well as data struct

In this example,
–	ARR2	is	defined	as	a	standalone	array (Line 9)
–	Data	structure DS1 is				defined as	a data structure with two su
	and	ARR1	(Lines	11	-	14)

– Constant CONST1 is defined as a constant (Line 16)

The input (I) specifications are now used only to define records file. See Lines 19 - 20.

¹ The	extension	(E)	specifications have been eliminated. Arrays and ta
now	defined	using	definition specifications.

392 ILE RPG for AS/400 Programmer's Guide