RE: Indicator name

Allen,

There must be a way to automate the use of ROW/COL as a substitute for
position cursor.
I usually use:
A RTNCSRLOC(&RCD &FLD)
A RTNCSRLOC(*MOUSE &ROW &COL)
A CSRLOC(ROW COL)
A RCD 10A H
A FLD 10A H
A ROW 3S 0H
A COL 3S 0H
To keep the cursor where it was for F4 prompt and then make row/col zero if
there is an error.

I would think by going through the dds or using an api one could write a
service program to get that info.

Craig


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Alan Campin
Sent: Thursday, March 19, 2009 4:40 PM
To: RPG programming on the IBM i / System i
Subject: Re: Indicator name

I wrote a little service program that maps values and returns a hex value if
anyone is interested. Yes, I wish they had a position cursor in attributes.
Left a big hole although I don't consider the ability a deal breaker.

P_MADEDATE = DSPF_GetPValues(cDSPF_Color_Red +

cDSPF_ReverseImage +
cDSPF_Underscore );

P_MADEDATE = DSPF_TurnOnProtectFlag(P_MADEDATE);

On Thu, Mar 19, 2009 at 2:15 PM, Kurt Anderson <kurt.anderson@xxxxxxxxxxxxxx

wrote:

It can do Protect, but you're right about it not being able to do
Position Cursor (completely forgot about that).

Kurt

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Jeff Young
Sent: Thursday, March 19, 2009 3:03 PM
To: RPG programming on the IBM i / System i
Subject: Re: Indicator name

Craig,
The use of a program-to-system field for indicators is very nice, but
unfortunatly, it can not do a Position Cursor or Protect Field.
It can do all of the displayable attributes provided you place the
correct hex value into the field.

Jeff Young
Sr. Programmer Analyst
IBM -e(logo) server Certified Systems Exper - iSeries Technical
Solutions
V5R2
IBM Certified Specialist- e(logo) server i5Series Technical Solutions
Designer V5R3 IBM Certified Specialist- e(logo)server i5Series
Technical Solutions Implementer V5R3








________________________________
From: Craig Jacobsen <CraigJacobsen@xxxxxxxxxxx>
To: RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
Sent: Thursday, March 19, 2009 3:17:35 PM
Subject: RE: Indicator name

Kurt,

I hadn't thought of that, even though I've used this technique before.
Pretty standard in this shop to use indicators in the DDS.
I'll mull it over and talk to the head of Application Development.

Thanks,

Craig

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Kurt Anderson
Sent: Thursday, March 19, 2009 2:46 PM
To: 'RPG programming on the IBM i / System i'
Subject: RE: Indicator name

I haven't done display files in quite some time, but instead of doing
a DSPATR(RI), you can do a DSPATR(&DSPFLD1) where &DSPFLD1 is defined
as a program field in the DDS. Then in the RPG program you set the
DSPFILD1 value with the hex representation of the attribute
http://wiki.midrange.com/index.php/Program_To_System_Fields

In the long run this may be correlated to your issue, but if not,
maybe it's a future consideration for setting the display attribute.

Best of luck,
Kurt

--
This is the RPG programming on the IBM i / System i (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.