|
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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.