Hmm ... interesting.
I know and use named indicators, but didn't realize that you could initialize a contiguous group of indicators in this manner.
/ Free
DCInd = *Off; //setoff all display control indicators In50 thru In58
/End-Free
If you learn something new, then that day is a good day
Todays a good day
Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of gevans@xxxxxxxxx
Sent: Tuesday, January 15, 2013 1:16 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Indicators in Free
Make your code meaningful - Give the numbers names.
Try the following:
Create a pointer to the Indicator array
D INDS S * Inz(%ADDR(*IN))
D DSPIND DS Based(INDS)
// Display Functions
D Pf_Exit 03 03
D Pf_Prompt 04 04
D Pf_Updte 06 06
// Display Type Control Indicators
D DTCInd 44 47
D Scn_Claim 44 44
D Scn_Submiss 45 45
D Scn_Customer 46 46
D Scn_Policy 47 47
// Display Control Indicators
D DCInd 50 58
D Fold_Err 50 50
D Fldrs_Err 51 51
D DocTyp_Err 52 52
D Clm_Err 53 53
D Sub_Err 54 54
D Cust_Err 55 55
D Pol_Err 56 56
D Clmnt_Err 57 57
D Title_Err 58 58
// Control Indicators
D Fldrs_Pmpt 71 71
// Subfile Control Indicators
D Sfl_Inz 95 95
D Sfl_Clear 96 96
D Sfl_Empty 97 97
D Sfl_More 98 98
/ Free
DCInd = *Off; //setoff all displat control indicators In50 thru
In58
Clm_Err = *On; // turn on the Claim error indicator
/End-Free
With just a bit of careful planing and grouping indicators of like usage together Bulk ons and offs are no problem at all.
Gary B Evans
Computer Programmer
National American Insurance Company
Ph #: 405-258-4509
Fax #: 405-240-5545
gevans@xxxxxxxxx
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (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.
Disclaimer: This message contains confidential information and is intended only for the individual named. If you are not the named addressee you should not disseminate, distribute or copy this e-mail. Please notify the sender immediately by e-mail if you have received this e-mail by mistake and delete this e-mail from your system. E-mail transmission cannot be guaranteed to be secure or error-free as information could be intercepted, corrupted, lost, destroyed, arrive late or incomplete, or contain viruses. The sender therefore does not accept liability for any errors or omissions in the contents of this message, which arise as a result of e-mail transmission. If verification is required please request a hard-copy version. Any views or opinions presented are solely those of the author and do not necessarily represent those of the company.
midrange.com
