Re: VARPG question (IBM product)

Cyndi,

Not sure I understand exactly what you are trying to do.  With that said it
should be easy using RadioButtons. Here is how I would do it:

*  Read Record from file on AS/400
Read Record
If %Found

* Pre-set all Radio Buttons to off (Unchecked)
SetAtr(MyWdw:RDB$Active:'0')
SetAtr(MyWdw:RDB$Transmit:'0')
SetAtr(MyWdw:RDB$Comp:'0')

* Based on the Status of the record (field in file), Turn on the proper
radio button
Select
When RecStatus = 'A'
SetAtr(Wdw:RDB$Active:'1')
When RecStatus = 'T'
SetAtr(Wdw:RDB$Transmit:'1')
When RecStatus = 'C'
SetAtr(Wdw:RDB$Comp:'1')
EndSl

......other stuff needed to load window
EndIf


It has been a while since I coded in VARPG, so that is why I put it in
quasi-psuedocode above.  The VARPG newsgroup hosted by IBM would be a
better fit for your VARPG questions.  It is also mirrored on google.com if
you don't have a newsreader.  Check here for more details on it:
http://www-3.ibm.com/software/ad/wdt400/support/

--
------------------------------------------------------
Scott P. Johnson
Applications Development Team Coordinator
Microcomputer Development Specialist
IBM Certified Specialist - AS/400 RPG Programmer
Highsmith Inc.
W5527 State Road 106, PO BOX 800
Fort Atkinson, WI 53538-0800
TEL:  920-563-9571                FAX:  920-563-7395
sjohnson@highsmith.com
www.highsmith.com
------------------------------------------------------



Help ! I have posted this to both Code and Midrange lists hoping someone
knows what I am trying to do.

I am trying to create a 'field' where the user will select one of two
options, with the system possibly displaying a third.

Basically, the user will be able to mark a record active or transmit, and
the system will change that to complete and then disable the update
features.

I need to set the attribute of the field at runtime, depending on what the
record status is when it is retrieved. So far, I have tried Check boxes,
radio buttons and a drop down list in a combo box and none appear to let me
reflect the status of the record.

Am I beating a dead horse ?  I really want to present this as a window's
based program instead of 5250. (User's percieves this as valuable).

TIA,
Cyndi B.
Boise, ID

PS> I can do it with a socket program and VB, but I would rather use VARPG.