* Entering this:
r rcd1 text('First record')
5 2 'Char output'
fld1 5 5 25 dspatr(hi)
7 2 'Decimal input'
fld2 7.2 b 7 25 edtcde(3)
|
* Will produce this:
R RCD1 TEXT('First record')
5 2'Char output'
FLD1 5 5 25DSPATR(HI)
7 2'Decimal input'
FLD2 7 B 2 7 25EDTCDE(3)
|
Other Examples: RPG 4 D specs RPG 4 C specs RPG 3