RE: Getting the subfile recnumber

[John Bussert <jbussert@xxxxxxxxxxx>]

Thanks - worked like a champ.

jb

-----Original Message-----
From:   James W. Kilgore [SMTP:qappdsn@ibm.net]
Sent:   Monday, May 11, 1998 1:14 PM
To:     MIDRANGE-L@midrange.com
Subject:        Re: Getting the subfile recnumber



John Bussert wrote:

> I am trying to get the subfile line that the cursor was on then the user
> pressed enter (without changing anything on the line - so READC will not
> pick it up.)  I have used this technique on flat screens using the ROW COL
> in the display file Information data sturcture.  But it seems to pass back
> junk on a subfile.  Thanks,
>
>

I'm sure there is a better way, but for V3R2 we use the workstation feed back
area (B 378 379) which gives us the subfile record number of the first entry
currently being displayed and (B 370 371) divided by 256 for cursor row.

Some simple math gives you the selected subfile record.  Unfortunatly this has 
us
hardcoding the subfile display starting row.

So cursor row - starting row + first entry = cursored subfile record.

BTW, I believe that feedback area B 282 283 also gives the row.  (Our feedback
code is a /COPY member we've been using since dirt.)

We use it in a display of the Open Receivables (among others) where the user
places a cursor on the entry, presses a function key, and up pops up an image of
the invoice.  It helps where turf is limited for the amount of data you want to
display and don't want to take up space for an options column.  The users like
it.

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