RE: declaring a file local to a sub-procedure

Not that I know of.......I will double check but when I compile from the
command line I specify *current for the release.




From:
Mark Walter <mwalter@xxxxxxxxxxxxxxx>
To:
RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
Date:
09/28/2009 02:02 PM
Subject:
RE: declaring a file local to a sub-procedure
Sent by:
rpg400-l-bounces@xxxxxxxxxxxx



You're not compiling to a back level are you?

Mark Walter
Business to Business Data Integration Specialist
Certified IBM System i Specialist
Paragon Consulting Services, Inc
mwalter@xxxxxxxxxxxxxxx
717-764-7909 ext. 126


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Doug Palme
Sent: Monday, September 28, 2009 2:41 PM
To: RPG programming on the IBM i/System i
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?


--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.