comments
* PC_(Field Name) = Position Cursor
* PR_(Field Name) = Protect Field
* RI_(Field Name) = Reverse Image
* DL_(Field Name) = Display Line
* CL_(Field Name) = Color of field

D TRUE            C                   *ON
D FALSE           C                   *OFF

D IndicatorP      S               *   inz(%Addr(*in))
D Indicators      DS                  Based(IndicatorP)

D PC_ACTION              30     30

C                   EVAL      PC_ACTION = TRUE       // This positions the 
cursor on the ACTION field \\

Hope this is what you are looking for.  Its the best example I could come up 
with if I
understand your question correctly.

TIA
Troy Dills
Programmer
RPGIV  V5R1
Julius Blum Inc.






This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2026 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.