Sample: RPG D Spec cut/paste fixed format 'D' specs
1 2 3 4
12345678901234567890123456789012345678901234 ...
123456... Yes! -- fixed format input ('D' column 6)
D dcRec ds qualified based(Template)
D dcMyName 10A
D somejunk s 10A inz(*BLANKS)
Dzzbigi PR 20u 0
Dmmint8 3i 0
Dmrec likeds(dcRec)
DdoRec_t ds qualified based(Template)
D doFrog 10i 0
D doToad 1N
D justJunk s 128A
DipcRec_t ds qualified based(Template)
D ipcOwnKey 128A
D ipcFlags like(doRec_t)
D cpyIn PR 1N
D node likeds(ipcRec_t)
D dim(999)
D sql_active_any...
D _large_...
D frog PI 1N
D type 1A
D label 10A
D dim(10)
D varying(4)
D type1 1A
D zzold1 PI
D Len 2 0
D Wid 2 0
D Area 4 0
D Frog 10
D $vevsfi s 1
D $vevsrj s 2
D $vevsob s 7s 0
D $vevsve s 5s 0
D*Ergebnisdaten:
D $vevsods ds occurs(200)
D $vsukz 1 1
D $vpos 2 9
D $vtxt 10 39
D $vkalw 40 174 2 dim(15)
D $vvsw 175 309 2 dim(15)
D $vvsk 310 324 0 dim(15)
d*
D i S 10i 0 inz(0)
D j S 10i 0 inz(0)
D zzvary PI 20A varying
D myName 10A varying
D zzvary4 PR 20A varying(4)
D myName 10A varying(4)
Dmebun ds qualified based(Template)
D ipcOwnBun 128A
D ipcOwnOven 128A
Dmebuns ds likeds(dcRec) dim(23)
D zzbun PR likeds(mebun)
D myName 10A varying(4)
Dmebunso likeds(dcRec) dim(23)
D zznoret PR
D myName 10A varying(4)
D zznoparam PR 10a varying
D zznothing PR
D pref_build PR 5P 0 ExtProc('ProgramA')
D webpgmtype 1A