Here is the code I use to get the length of a variable rrds record
DATA DIVISION.
FILE SECTION.
FD TLCMST
RECORD IS VARYING FROM 879 TO 1679 CHARACTERS
DEPENDING ON TLCMST-LENGTH.
COPY TLCMST.
- - - - - - - - - - - - - 20 Line(s) not Displayed
01 WORK-FLDS1 COMP-3.
- - - - - - - - - - - - - 12 Line(s) not Displayed
05 TLCMST-LENGTH PIC 9(5) VALUE 0000.
the tlcmst-length will have the lenght from the record descriptor word.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
