×
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.
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 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.
midrange.com
