Do subprocedures support primary files? I thought they didn't have any
Cycle code like the main procedure has.
John Maassel
IBM i Programmer/Analyst
Bob Evans Farms, Inc
john_maassel@xxxxxxxxxxxx
614-492-7413
Fax: 614-497-4315
"Doug Palme" <DPalme@xxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
09/28/2009 02:43 PM
Please respond to
RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
To
RPG programming on the IBM i/System i <rpg400-l@xxxxxxxxxxxx>
cc
Subject
declaring a file local to a sub-procedure
I have been attempting to declare a file local to a sub-procedure just to
see how it operates, etc.
However, I am having a problem getting this to compile. The compiler
keeps throwing errors from:
*RNF2580 30 1 The File Designation entry is not valid for a file
defined
in a subprocedure; the specification is ignored.
to
*RNF0258 30 1 Form-Type entry is not valid for subprocedures, or is
out of
sequence.
Here is the two ways I have coded the declaration so if I am doing
something wrong, please feel free to point it out:
METHOD A
0170.00 PCalcCII b Export
0171.00 D PI 2 0
0171.01 dwItem 7 0
0172.00 dwType 1a
0173.00
0173.01 FIoritemm ip e k disk
0173.02 DGetCustRec DS LikeRec(Ioritem1)
0174.00 DzCnt s 2 0
METHOD B - which I got from
http://www.mcpressonline.com/programming/rpg/v6r1-rpg-enhancements.html
0170.00 PCalcCII b Export
0170.01 FIoritemm ip e k disk
0171.00 D PI 2 0
0171.01 dwItem 7 0
0172.00 dwType 1a
0173.00
0173.02 DGetCustRec DS LikeRec(Ioritem1)
0174.00 DzCnt s 2 0
It does not like the F spec or so it seems......
Suggestions?
midrange.com
