By the way welcome stuart
I am guessing your source file is only 92 in width.....
when you use the CRTSRCPF it defaults to 92
You must have your source file at 112 cause that the extra wide length required for RPGLE.....
so try this
then this (you have to change to your names)
Oh and make sure the type in PDM is also RPGLE
jamie
I am guessing your source file is only 92 in width.....
when you use the CRTSRCPF it defaults to 92
Code:
Create Source Physical File (CRTSRCPF) Type choices, press Enter. File . . . . . . . . . . . . . . Name Library . . . . . . . . . . . *CURLIB Name, *CURLIB Record length . . . . . . . . . 92 Number Member, if desired . . . . . . . *NONE Name, *NONE, *FILE Text 'description' . . . . . . . *BLANK
You must have your source file at 112 cause that the extra wide length required for RPGLE.....
so try this
Code:
CRTSRCPF FILE(QTEMP/TESTSOURCE) RCDLEN(112) TEXT('my stest source')
Code:
CPYFRMPCD FROMFLR(SCG) TOFILE(QTEMP/TESTSOURCE) FROMDOC(SOMEFILE.TXT) TOMBR(SOMEFILE)
Oh and make sure the type in PDM is also RPGLE
Code:
MSC57 RPGLE check-out source
Comment