RPG World Forum: View Postings

eliminate indicators from dspf
(2-replies, RPG IV)

Author: neilrh		2010-07-23 09.20.55
So you're not actually eliminating the use of indicators in your display files. You're assigning the display file indicators to a 99 element data structure, rather than using the base in01-in99 that things default to. I'm not aware of anything commercially available to identify indications and replace them in an RPG, especially (as Ed notes) each programmer will do his own thing. For example while most programmers will use in01-24 as command key returns, I never reserved them, prefering to use inka-kz. Now I've replaced them with the AIDKey (using AIDKey eliminates indicator usage for command key processing).
Author: EdMan		2010-07-23 08.21.03
If you are trying to standardize, you could use a /Copy book for display file indicators in your RPG's.... only thing is you would have to have everyone adhere to the new standard names & indicators to be used.... I remember the day when there was some conformity to a dept... but that is slacking these days from what i have seen over the last 10 yrs. This is what "I" am using, but who know what the rest of the dept is doing. Yes.... one of "THOSE" shops (again) (Here is just an example from one of my pgms // Indicator Data Structure for display file D IndicatorPtr s * Inz(%addr(*in)) D wsIndicators ds Based(IndicatorPtr) // Command Keys D CommandKeys 11a Overlay(wsIndicators:3) D HeaderControl... D n Overlay(wsIndicators:9) D DetailControl... D n Overlay(wsIndicators:10) D Previous n Overlay(wsIndicators:12) // Error Indicators D ErrorIndicators... D 3a Overlay(wsIndicators:40) D OptionError n Overlay(wsIndicators:40) // Dislpay Control Indicators D DisplayControlIndicators... D 1a Overlay(wsIndicators:50) D DisplaySFLline#... D n Overlay(wsIndicators:50) // Subfile control Indicators D Subfile1Display... D n Overlay(wsIndicators:60) D Subfile1Control... D n Overlay(wsIndicators:60) D Subfile1Clear... D n Overlay(wsIndicators:60) D Subfile2Display... D n Overlay(wsIndicators:61) D Subfile2Control... D n Overlay(wsIndicators:61) D Subfile2Clear... D n Overlay(wsIndicators:61) D Subfile3Display... D n Overlay(wsIndicators:62) D Subfile3Control... D n Overlay(wsIndicators:62) D Subfile3Clear... D n Overlay(wsIndicators:62) // Print file D PrintHeaderLine... D n Overlay(wsIndicators:70) D PrintDetailHeading... D n Overlay(wsIndicators:71) D PrintLine# n Overlay(wsIndicators:72) D AllowHeaderUpdate... D n Overlay(wsIndicators:80) // SFLEND indicators D MoreDataIndicators... D 3a Overlay(wsIndicators:90) D MoreDataSFL1 n Overlay(wsIndicators:90) D MoreDataSFL2 n Overlay(wsIndicators:91) D MoreDataSFL3 n Overlay(wsIndicators:92) D Overflow n Overlay(wsIndicators:98) // Display file Data Structure D DSPFDS ds D KeyPressed 1a Overlay(DSPFDS:369) D Enter c Const(X'F1')
Author: patrik		2010-07-23 07.26.27
I am trying to eliminate using indicators for my display file ( adding the INDDS to file spec with indicator ds specified (INDDS(DispIndDs), i would like by you is possible to automatize this work with a program that read DSPF member, find tha CFxx CAxx and the replace it in the RPG member; better if already exist an utility like this thanks