× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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?



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.