To retrieve the cursor location, and relative record number for a subfile, your DDS should look something like this:
AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions++ ++++++++++++++ A R TEST01 SFL A FLD001 4 0O 6 4EDTWRD(' , ') A FLD002 9 2O 6 15EDTWRD(' , , . ') A FLD003 22 O 6 31 A R TEST02 SFLCTL(TEST01) A CF03 A CF12 A OVERLAY A SFLCSRRRN(&TESTRRN) A 91 SFLDSP A SFLDSPCTL A 94 SFLCLR A 91 SFLEND(*SCRBAR *MORE) A SFLSIZ(0123) A SFLPAG(0016) A RELRC# 3S 0H SFLRCDNBR(CURSOR) A TESTRRN 5S 0H A 1 3USERThe hidden field TESTRRN will contain the relative record number that you can use to CHAIN to the subfile. You can reset the subfile on the next EXFMT by setting RELRC# which should be field specified in the display file's "F" specs. Dave
Comment