Add this to your DD Statement dcb=(eropt=acc)
-----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Steely.Mark Sent: Wednesday, March 22, 2017 12:41 PM To: [email protected] Subject: Read SMF using COBOL 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
