Re: How to give a meaningful name to an indicator within in RPG

I use a pre-built copy member as follows:

fII0001_D01cf e WorkStn
InfDs(g_FileInf01)
f Sfile(RD01_01S
:
f
g_SubfileRecordNumber)
f
UsrOpn
f
InDDS(dsIndicators)
f Include(RD01_01S
:
f RD01_01C
:
f RD01_01O
:
f RD01_01B
:
f
SFMSG_CTL)


/copy *libl/qsrcf,cb,cb_map_ind

Contents are

d dsIndicators ds
d IndicatorArray...
d Like(StdLgl)
d Dim(99)

I then issue the following for each indicator.

d ErrorOnFunctionName...
d Like(StdLgl)
d OverLay(dsIndicators:50)
d ErrorOnVersion...
d Like(StdLgl)
d OverLay(dsIndicators:51)
d ErrorOnProgramName...
d Like(StdLgl)
d OverLay(dsIndicators:52)
d ErrorOnProgramLibrary...
d Like(StdLgl)
d OverLay(dsIndicators:53)
d ErrorOnServiceProgramProcedure...
d Like(StdLgl)
d OverLay(dsIndicators:54)
d AddRecordMode...
d Like(StdLgl)
d Overlay(dsIndicators:81)
d EditRecordMode...
d Like(StdLgl)
d overlay(dsIndicators:82)
d DisplayRecordMode...
d Like(StdLgl)
d Overlay(dsIndicators:83)
d DisplaySubfileEndOnSubfileMessageQueue...
d Like(StdLgl)
d OverLay(dsIndicators:95)


On Mon, Sep 8, 2014 at 10:37 AM, Michael Ryan <michaelrtr@xxxxxxxxx> wrote:

Use an Indication Data Structure (INDDS)

FWCS110D CF E WorkStn IndDS(WCS110DS)
F SFile(WCS110D1:D1RRN)

* Workstation indicator data structure.
D WCS110DS DS
D Exit 3 3N
D SortByName 5 5N
D SortByAcct 6 6N
D SortByDate 7 7N
D NameSearch 17 17N
D AcctSearch 18 18N
D DateSearch 19 19N
D Previous 12 12N
D SflDsp 30 30N
D SflDspCtl 31 31N
D SflClr 32 32N
D RollUp 40 40N
D RollDown 41 41N

And in the DDS:

A INDARA

On Mon, Sep 8, 2014 at 12:07 PM, Mohan Eashver <mohankva@xxxxxxxxx> wrote:

Hi All,

I have an indicator 50 that is used within the DSPF.
I like to refer to that as an RPG variable OK2SCAN.

I believe there is a way to do that. Not sure how.

----
Regards,
Mohan Eashver
--
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.

--
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.