RE: How do I define *IN13, *in82 etc

Plus, KA - KY (F1-F24) are 130 - 153, respectively.

Jerry C. Adams
IBM System i Programmer/Analyst
--
B&W Wholesale
office: 615-995-7024
email: jerry@xxxxxxxxxxxxxxx


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Robert Rogerson
Sent: Wednesday, July 08, 2009 10:18 AM
To: RPG programming on the IBM i / System i
Subject: Re: How do I define *IN13, *in82 etc

This may work...

D p_IndAra S * INZ(%ADDR(*IN))
D IndAra DS BASED(p_IndAra)
D Ind13 1N OVERLAY(IndAra:13)
D Ind83 1N OVERLAY(IndAra:83)

and then in you program set Ind13 and Ind83 to *OFF

Robert Rogerson

Alan Shore wrote:

Morning all
I'm hoping that I wont need to go into too much detail, so here goes
We have a program that uses a workstation (DSPF)
To cut a LOOOOOOOONNNNNNGGGGGG story short, the program does NOT display
ANY of the screens from this display file
Where ever there is an EXFMT, there is code to "jump" around the EXFMT - I
hasten to add NOT MY DESIGN
We now have a reason to remove this DSPF (workstation) from the program.
Any fields used within the program from the DSPF, I am just defining in the
D specs
However, indicators like *IN13, *IN82 *INKC *INKF etc. etc. are now
receiving the RNF7030 compile error (NOT DEFINED)
Rather than try and change the logic within the program, the question is
How can I define these indicators (that is if I can)?

Any help (as always) will be MUCH appreciated



Alan Shore
Programmer/Analyst, Distribution
[1]E:AShore@xxxxxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill


References

Visible links
1. mailto:E:AShore@xxxxxxxxxxx