I need to create a report by reading the record smf, no problem to extract the SMF records 42, but do not know how to specify and append SubType 10 with ICETOOL, here's an example:
to your specifications, I missed the Format SUBTYPE_REC, you're right, thank you.
But my problem is another, forgive my inexperience, how do I jump and calculate the correct offset from header ('SUBTYPE_REC') ON (23,2, CH) - 42 last record to the first record of SMF42JBN SubType 10?
Code:
COPY FROM(RAWSMF) TO(SMF) USING(SMFI)
DISPLAY FROM(SMF) LIST(SMFREP) -
TITLE('SMF TYPE-42 RECORDS') DATE TIME PAGE -
BREAK(15,4,CH,L'System: ') -
* Record Type 42
HEADER('REC_LENGHT') ON(1,2,BI) -
HEADER('SEGMENT_DE') ON(3,2,BI) -
HEADER('SYS_IDICATOR') ON(5,1,BI) -
HEADER('SMF') ON(6,1,BI) -
HEADER('TIME') ON(7,4,TM1,E'99:99:99') - C'HH:MM:SS'
HEADER('DATE') ON(11,4,DT1,E'9999/99/99') - C'YYYY-DDD'
HEADER('SYSTEM') ON(15,4,CH) -
HEADER('SYSTEM_ID') ON(19,4,CH) -
HEADER('SUBTYPE_REC') ON(23,2,BI) -
*
* ?||?
* Record SubType 10 vv
HEADER ('SMF42JBN') ON (??,8,CH) -
HEADER ('SMF42PGN') ON (??,8,CH) -
HEADER ('SMF42STN') ON (??,8,CH) -
HEADER ('SMF42DDN') ON (??,8,CH) -
..........
HEADER ('SMF42SGN') ON (??,30,CH) -
BLANK
//SMFICNTL DD *
INCLUDE COND=(6,1,BI,EQ,42,AND,23,2,BI,EQ,10)
ONLY
//*
//*--------------------------------------------------------------------
sorry for the delayed response, I have to create a series of reports with Records SMF 42 SUBTYPE 09 - 10 - ..... - 21
Thank you, I solved the problem of extracting the SUBTYPE.
Now I try to solve the conversion in one step as in the binary records 09 SUBTYPE 09 S42FLAGS:
Code:
BI '1.......' OVERLAY 'B37 ' * ABEND B37 *
BI '.1......' OVERLAY 'D37' * ABEND D37 *
BI '..1.....' OVERLAY 'E37 ' * ABEND E37 *
I think I need to use IFTHEN recommended by Skolusu (thanks Skolusu), I think something like this, I still have to do some testing:
Code:
//SMFICNTL DD *
INCLUDE COND=(6,1,BI,EQ,42,AND,23,2,BI,EQ,9)
INREC IFTHEN=(WHEN=(118,1,BI,EQ,X'10000000'),OVERLAY=(118:X'B37'))
Of course, just solve this small problem will put all available to the forum for all users.