|
midrange.com
When I asked about needing an indicator for enable/disable a function key I
had misinterpreted the question. (Indicator use in the program)
I was aware of the program to system field parameter and when I tried it on
a display file I thought what a great way to get rid of all those N81 (HI)
and 81(RI) in your display file.
Then I thought lets try to get rid of all the indicators coded in the
display file. Well, as others have pointed out you really can't do that as
your stuck with the subfile indicators. (Among others)
Andy
----- Original Message -----
From: <YJacqueline@xxxxxxxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Wednesday, December 01, 2004 6:47 AM
Subject: Réf. : Re: Indicators -- not needed anymore ???
>
> Hello,
> If you don't want to use indicator why not use program-to-system-field
> parameter like this.
>
> DDS Reference: Display Files Version 5.
>
> DSPATR (Display Attribute) keyword for display files
> The format for the keyword is one of the following:
> DSPATR(attribute-1 [attribute-2 [attribute-3 [...]]])
> or
> DSPATR(&program-to-system-field);
>
> The program-to-system-field parameter is required and specifies that the
> named field must be defined in
> the record format, alphanumeric (A in position 35), length of one, and
> usage P (P in position 38). The
> program uses this P-field to set the display attribute for the field this
> DSPATR keyword applies to.
>
> Example 3:
> The following example shows how to specify the DSPATR keyword with P-field
> usage:
> A R RECORD 2DSPATR(&PFLD1);
> A FLD1 5A 2 6DSPATR(&PFLD2);
> A FLD2 5A 2 6DSPATR(&PFLD2);
> A PFLD1 1A P
> A PFLD2 1A P
> A
>
>
> A INDARA
> A CA03(03 'EXIT')
> A R GCO104001
> A ATTR_FIELD 1A P
> A ATTR_CPR 1A P
> A E07CPR R B 5 20REFFLD(B07CPR *LIBL/GCB07P01)
> A DSPATR(&ATTR_CPR)
> A LIBCPR15 15A O 5 28COLOR(WHT)
> A E07ENS R B 6 20REFFLD(B07ENS *LIBL/GCB07P01)
> A DSPATR(&ATTR_FIELD)
> A LIBENS 30A O 6 28COLOR(WHT)
> A 23 2'F3=Exit'
> A COLOR(BLU)
>
> FYAN1040FM CF E WORKSTN INDDS(DS_IND)
> D* -----
> D True C *ON
> D False C *OFF
> D* -----
> D ND C CONST(
)
> D PR_ND C CONST(
)
> D Normal C CONST(
)
> D PR_Normal C CONST(
)
> D RI C CONST(
)
> D PR_RI C CONST(
)
> D HI C CONST(
)
> D HI_RI C CONST(
)
> D PR_HI C CONST(
)
> D PR_HI_RI C CONST(
)
> D UL C CONST(
)
> D UL_RI C CONST(
)
> D UL_HI C CONST(
)
> D PR_UL C CONST(
)
> D PR_UL_RI C CONST(
)
> D PR_UL_HI C CONST(
)
> D BL C CONST(
)
> D BL_RI C CONST(
)
> D BL_HI C CONST(
)
> D BL_HI_RI C CONST(
)
> D BL_UL C CONST(
)
> D BL_UL_RI C CONST(
)
> D BL_UL_HI C CONST(
)
> D PR_BL C CONST(
)
> D PR_BL_RI C CONST(
)
> D PR_BL_HI C CONST(
)
> D PR_BL_HI_RI C CONST(
)
> D PR_BL_UL C CONST(
)
> D PR_BL_UL_RI C CONST(
)
> D PR_BL_UL_HI C CONST(
)
> *** COLORS ***
> D White C CONST(
)
> D White_UL C CONST(
)
> D White_RI C CONST(
)
> D White_RI_CS C CONST(
)
> D PR_White C CONST(
)
> D PR_White_UL C CONST(
)
> D PR_White_RI C CONST(
)
> D PR_White_RI_CS C CONST(
)
> D Green C CONST(
)
> D Green_RI C CONST(
)
> D Green_UL C CONST(
)
> D Green_UL_RI C CONST(
)
> D PR_Green C CONST(
)
> D PR_Green_RI C CONST(
)
> D PR_Green_UL C CONST(
)
> D PR_Green_UL_RI C CONST(
)
> D Red C CONST(
)
> D Red_RI C CONST(
)
> D Red_HI C CONST(
)
> D Red_HI_RI C CONST(
)
> D Red_UL C CONST(
)
> D Red_UL_RI C CONST(
)
> D Red_UL_BL C CONST(
)
> D PR_Red C CONST(
)
> D PR_Red_RI C CONST(
)
> D PR_Red_HI C CONST(
)
> D PR_Red_HI_RI C CONST(
)
> D PR_Red_UL C CONST(
)
> D PR_Red_UL_RI C CONST(
)
> D PR_Red_UL_BL C CONST(
)
> D Turq_CS C CONST(
)
> D Turq_CS_RI C CONST(
)
> D Turq_UL_CS C CONST(
)
> D Turq_UL_RI_CS C CONST(
)
> D PR_Turq_CS C CONST(
)
> D PR_Turq_CS_RI C CONST(
)
> D PR_Turq_CS_UL C CONST(
)
> D PR_Turq_CSULRI C CONST(
)
> D Yellow_CS C CONST(
)
> D Yellow_CS_UL C CONST(
)
> D PR_Yellow_CS C CONST(
)
> D PR_Yellow_CSUL C CONST(
)
> D Pink C CONST(
)
> D Pink_RI C CONST(
)
> D Pink_UL C CONST(
)
> D Pink_UL_RI C CONST(
)
> D PR_Pink C CONST(
)
> D PR_Pink_RI C CONST(
)
> D PR_Pink_UL C CONST(
)
> D PR_Pink_UL_RI C CONST(
)
> D Blue C CONST(
)
> D Blue_RI C CONST(
)
> D Blue_UL C CONST(
)
> D PR_Blue C CONST(
)
> D PR_Blue_RI C CONST(
)
> D PR_Blue_UL C CONST(
)
> D* --------- Redéfini Les Indicateurs Du Fichier.
> DDS_IND DS
> D* --------- Indicateur Fichier Ecran (Touche Fonction)
> D F03Exit 3 3N
> D F04Recherche 4 4N
> D F05Validation 5 5N
> D F06Creation 6 6N
> D F12Precedent 12 12N
> D* -----
> D ReactiverInd 94 94N
> D CreationInd 95 95N
> D* --------- Tableau Indicateurs Aves DS (Indicateurs Nommés)
> D IndicatorP S * INZ(%ADDR(*IN))
> D Indicators DS BASED(IndicatorP)
> D MessagMQIFnd 89 89
>
> C DOW F03Exit = False
> C EVAL ReactiverInd = True
> C EVAL CreationInd = False
> C EVAL Attr_Field = PR_Yellow_CSUL
> C EVAL Attr_Cpr = Yellow_CS_UL
> C EXFMT GCO104001
> C IF F03Exit = True
> C LEAVE
> C ENDIF
> C ENDDO
> C EVAL *INLR = True
>
> Best regards.
>
> Yannick.Jacqueline
> Service Informatique
> Tél : 02-31-66-46-69
> E-Mail : yjacqueline@xxxxxxxxxxxxxx
> Visitez notre site Web à : http://www.guydegrenne.fr/
>
>
>
>
> Barbara Morris
> <bmorris@xxxxxxxxxx Pour :
rpg400-l@xxxxxxxxxxxx
> > cc :
> Envoyé par : Objet : Re: Indicators --
not needed anymore???
> rpg400-l-bounces@mi
> drange.com
>
>
> 30/11/04 19:40
> Veuillez répondre à
> RPG programming on
> the AS400 / iSeries
>
>
>
>
>
>
> Andy Hautamaki wrote:
> >
> > Nobody is mentioning this one so maybe you can do this without an
> indicator
> > and I'm just missing the obvious.........
> >
> > On a display file you want to enable and disable a command key........
> >
> > 67 CF06
> >
>
> You can use an INDDS in your RPG program for this:
>
> A INDARA
> A R REC
> A CA03(03)
> A 67 CF06(06)
> A FLD 1A 2 2
> A 67 23 2'F3=Exit F6=Shazzam!'
> A N67 23 2'F3=Exit'
>
> Fjunkdsp cf e workstn indds(dspInds)
> D dspinds ds
> D ca06 n overlay(dspinds : 3)
> D cf06 n overlay(dspinds : 6)
> D allowCf06 n overlay(dspinds : 67)
> ****** (Makes no difference if you seton *IN67)
> C****** eval *in67 = *on
> C eval allowCf06 = *off
> C exfmt rec
> C cf06 dsply
> C
> C eval allowCf06 = *on
> C exfmt rec
> C cf06 dsply
> C return
>
> output (if I hit F6 when it says I can):
> DSPLY 0
> DSPLY 1
>
> --
> This is the RPG programming on the AS400 / 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 AS400 / 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.
>
>
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.
