|
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.
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.
midrange.com
