|
Dave - Try: POS DIV 256 ROW 30 MVR COL 30 Terry Richardson Vermont Information Processing, Inc. terry@xxxxxxxxxx David Prowak <Prowak@xxxxxxxxx> Sent by: rpg400-l-bounces@xxxxxxxxxxxx 09/24/2004 02:37 PM Please respond to RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx> To rpg400-l@xxxxxxxxxxxx cc Subject still can't get INFDS working.. ##@%%#%@% Suspected SPAM: Hi, I'm working on a RPG II program and trying to use the INFDS to determine the line & col #s. In my INFDS I have: I B 370 3710 POS When I check the value of POS when the cursor was on line #11 and col #57, I see: 0B390000 I understand that 0B39 represents the line # and then the col # consecutively, but how do I determine the line # in my program? I tried: C POS DIV 256 LINE# 40 but LINE# then is = ' 3'. What am I doing wrong? TIA, Dave -- 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.