I am trying to read SMF data using COBOL for z/OS 4.2.0. This setup use to
work but that was in a past life.
This input is Record Format. . . : VBS, Record Length. . . : 32760 & Block Size
. . . : 32760. Program IFASMFDP
Cobol File Section:
FD SMF-RECORDS-IN
RECORDING MODE S
LABEL RECORDS ARE STANDARD
BLOCK CONTAINS 32760 CHARACTERS
RECORD CONTAINS 14 TO 32760 CHARACTERS
DATA RECORDS ARE SMF-MIN-REC
SMF-TYPE14-REC
SMF-TYPE17-REC
SMF-TYPE65-REC
SMF-MAX-REC.
SKIP1
01 SMF-MIN-REC.
12 FILLER PIC X.
12 SMF-RECORD-TYPE PIC X.
12 FILLER PIC X(12).
SKIP3
01 SMF-TYPE14-REC.
12 FILLER PIC X(284).
SKIP3
01 SMF-TYPE17-REC.
12 FILLER PIC X(232).
SKIP3
01 SMF-TYPE65-REC.
12 FILLER PIC X(208).
SKIP3
01 SMF-MAX-REC.
12 FILLER PIC X(32760).
EJECT
Receive error:
IGZ0201W A file attribute mismatch was detected. File SMF-RECORDS-IN in program
SMFXTRCT had a record length of 32771 and the file specified
in the ASSIGN clause had a record length of 32760.
IGZ0035S There was an unsuccessful OPEN or CLOSE of file SMFIN in program
SMFXTRCT at relative location X'0416'. Neither FILE STATUS nor an ERROR
declarative were specified. The status code was 39. From compile unit
SMFXTRCT at entry point SMFXTRCT at compile unit offset +00000416 at address
00007786.
<> LEAID ENTERED (LEVEL 11/20/2015 AT 08.13)
<> LEAID PROCESSING COMPLETE. RC=0
I tried changing to RECORD CONTAINS to 32771 but receive error message:
IGYGR1224-E SMF-RECORDS-IN" was greater than the maximum allowable size 32767
Is there a way to do this with COBOL.
Thanks
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
