On Wed, Mar 22, 2017 at 12:40 PM, Steely.Mark <[email protected]> wrote:
> 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. > ​This is what I found: https://www.ibm.com/support/knowledgecenter/en/SS6SG3_4.2.0/com.ibm.entcobol.doc_4.2/PGandLR/tasks/tpqsm14.htm Basically for LBI (tape only), you say: BLOCK CONTAINS 0 CHARACTERS​ > > Thanks > -- "Irrigation of the land with seawater desalinated by fusion power is ancient. It's called 'rain'." -- Michael McClary, in alt.fusion Maranatha! <>< John McKown ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
