Re: VA/RPG Help

This is the code I use.  The field COL# will contain the column number 
clicked on.


     D%COLNUMBER       S              4  0
 *********************************************************************
      *
     C     SFL1          BEGACT    COLSELECT     MAIN
     C                   Z-ADD     %COLNUMBER    COL#
     C                   EXSR      FILLPAGE
      *
     C                   ENDACT
 *********************************************************************

Hope it helps.

______________________
Booth Martin
boothm@earth.goddard.edu
http://www.spy.net/~booth
_______________________




erhardt@baldwinhq.com
Sent by: owner-midrange-l@MIDRANGE.COM
02/06/2000 11:01 AM
Please respond to MIDRANGE-L

 
        To:     <MIDRANGE-L@MIDRANGE.COM>
        cc: 
        Subject:        VA/RPG Help



I have a subfile that has a bunch of columns hidden.  I want to allow the  

user to "select" a column, and have the program set the twp adjesent 
columns (to the left) become visible (they start as hidden columns).  I 
know there is c colselect event for a subfile part, but how do I get the 
column number of the selected column.  That is, what does the code look 
like?  Help text talks about %colnumber attribute of the event, but never  

mentions how you use the attribute.
Thanks in advance
Bill Erhardt
Erhardt@baldwinhq.com


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to 
MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: 
david@midrange.com
+---




+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---