RE: System 36 - INFDS and display file - example needed

["Rick Williams" <rwilliams@xxxxxxxxxxxxx>]

I dug this up from an old (most recent update - 1994) source member. Try
positions 370-371. I can email the DDS source if you like. 

     C* Get row/column from DSPINFDS 
     C           CURPOS    DIV  256       ROW     40
     C                     MVR            COLUMN  40

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Dan Bale
Sent: Monday, September 20, 2004 9:12 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: System 36 - INFDS and display file - example needed


> -----Original Message-----
> From: rpg400-l-bounces.com@xxxxxxxxxxxx / David Prowak
> Sent: Sunday, September 19, 2004 5:09 PM
>
> Does anyone have an example of using the INFDS to determine the line #
> when a function key was pressed from a System 36 program?
>
> If you could post an example, hopefully I could figure out why my code
> won't work.  (Only invalid data shows up in positions 367-368).

Man, I put my time machine on the curb a few months ago!

Have you tried the S/36 RPG Reference?  I seem to recall that it was
online,
and it probably has the information you need.

A somewhat serious suggestion:  Why not just convert it to at least
RPG-III
so you can use those positions?

db

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