This is how I do it, to read SYSLOG datasets.
FD SYSLOG-INPUT
BLOCK CONTAINS 0 RECORDS
LABEL RECORDS ARE STANDARD
RECORDING MODE IS V
RECORD IS VARYING IN SIZE FROM 1 TO 133 CHARACTERS
DEPENDING ON SYSLOG-INPUT-RECORD-LENGTH.
01 SYSLOG-RECORD-MINIMUM PIC X.
01 SYSLOG-RECORD-MAXIMUM PIC X(133).
...
WORKING-STORAGE SECTION.
77 SYSLOG-FILE-STATUS PIC XX.
77 REPORT-FILE-STATUS PIC XX.
77 SYSLOG-INPUT-RECORD-LENGTH PIC 9(4) BINARY.
...
77 SYSLOG-RECORD-FIXED PIC X(133).
...
READ SYSLOG-INPUT
AT END SET EOF-ON-SYSLOG TO TRUE
END-READ
IF EOF-ON-SYSLOG THEN GOTO READ-SYSLOG-EOF
END-IF
MOVE SYSLOG-RECORD-MAXIMUM(1:SYSLOG-INPUT-RECORD-LENGTH)
TO SYSLOG-RECORD-FIXED.
...
much cut down in size, but the basic principles are there.
--
John
----------------------------------------------------------------------
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
