RE: still can't get INFDS working.. ##@%%#%@%

[Eduard Sluis <eduard@xxxxxxxxxxxxxxxxxxxxxxx>]

Something like this?
 
 * Workstation Information Structure.  
D DSPINF          DS                   
D  @KEY                 369    369     
D  @CSR                 370    371B 0  
D  @RRN                 378    379B 0  
D  @CSR2                382    383B 0  
 *                                                    
C     @CSR          DIV       256           CSRVER    
C                   MVR                     CSRHOR    
 *                                                    

Bruce Guetzkow <bruceg@xxxxxxxxxxxxxxxxxxxxxxx> wrote:David:

Here is code from an RPG/400 program...I know you are using RPG/II, but
perhaps this will help...

IINFDS DS 
I 370 370 IDROW 
I 371 371 IDCOL 
I** 
IROWCOL DS 
I B 1 20ZROW 
I 2 2 YROW 
I B 3 40ZCOL 
I 4 4 YCOL 
=============================================================
C** 
C** DETERMINE CURSOR LOCATION. 
C** 
C Z-ADD*ZEROS ZROW 
C Z-ADD*ZEROS ZCOL 
C MOVE IDROW YROW 
C MOVE IDCOL YCOL 
C Z-ADDZROW WKROW 30
C Z-ADDZCOL WKCOL 30

WKROW & WKCOL should have the row/column. I have also seen/used the
"divide by 256" method, but don't have an example of that.

Hope this helps...
Bruce Guetzkow
Information Services Director
United Credit Service, Inc.
Phone: 262-723-2902
Fax: 262-723-5568
Email: bruceg@xxxxxxxxxxxxxxxxxxxxxxx
Web: www.unitedcreditservice.com


--
This is the RPG programming on the AS400 / iSeries (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.