12.01.2013 Views

z/OS V1R8 DFSMS Technical Update - IBM Redbooks

z/OS V1R8 DFSMS Technical Update - IBM Redbooks

z/OS V1R8 DFSMS Technical Update - IBM Redbooks

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

* CHECK IF TYPE 02 00650011<br />

CLI SMF42RTY,X'02' (SAME DISPLAEMENT SMF ADMIN RECORD 02) 00660011<br />

BE IGNORE 00670011<br />

CLI SMF42RTY,X'2A' * CHECK IF TYPE 42 00680011<br />

BNE IGNORE 00690011<br />

CHKSTYP1 DS 0H 00700011<br />

CLI SMF42STY+1,X'01' * CHECK IF SUBTYPE 1 00710011<br />

BNE IGNORE 00720011<br />

* IS TYPE 42 SUBTYPE 1, SO EXTRACT DATA 00730011<br />

* FIRST EXTRACT THE RECORD TIME AND DATE AND CONVERT TO HUMAN 00740011<br />

* THEN ESTABLISH ADDRESSIBILITY TO THE VARIOUS SECTIONS. 00750011<br />

* GENERAL PROCESS IS LOAD R8 WITH OFFSET TO THE RELEVANT SECTION 00760011<br />

* ADD R8 TO R3 00770011<br />

* THEN THE DSECTS SHOULD ADDRESS THE SECTIONS, HOWEVER MANY THERE ARE 00780011<br />

MVC TIMEF,SMF42TME SAVE THE SMF TIME IN 100THS OF SECS 00790011<br />

XR R14,R14 CLEAR HIGH END OF PAIR 00800011<br />

L R15,TIMEF COMPLETE EVEN/ODD PAIR CONTENTS 00810011<br />

LA R11,100 START BY DIVIDING BY 100 TO GET SECS 00820011<br />

DR R14,R11 DIVIDE 00830011<br />

* DC F'0' CREATE AN ABEND TO LOOK AT THE RECORDS 00840011<br />

* REMAINDER NOW IN R14 WHICH WE IGNORE 00850011<br />

* QUOTIENT IN R15 - IE SECONDS WHICH WE CONVERT TO MINS + SECS 00860011<br />

XR R14,R14 CLEAR HIGH END OF PAIR 00870011<br />

LA R11,60 DIVIDE BY 60 TO GET MINS 00880011<br />

DR R14,R11 DIVIDE TO GET MINUTES & SECONDS AS REM. 00890011<br />

* REMAINDER NOW IN R14 WHICH IS SECONDS WHICH WE MUST SAVE 00900011<br />

* QUOTIENT IN R15 - IE MINUTES FOR MORE PROCESSING 00910011<br />

CVD R14,TIMET CONVERT TO PACKED DECIMAL 00920011<br />

OI TIMET+7,X'0F' FIX SIGN 00930011<br />

UNPK TIMEX+6(2),TIMET+6(2) UNPACK SECONDS 00940011<br />

MVI TIMEX+5,C':' 00950011<br />

XR R14,R14 CLEAR HIGH END OF PAIR 00960011<br />

LA R11,60 DIVIDE BY 60 TO GET HOURS 00970011<br />

DR R14,R11 DIVIDE TO GET HOURS & MINUTES AS REM. 00980011<br />

* REMAINDER NOW IN R14 WHICH IS MINUTES WHICH WE MUST SAVE 00990011<br />

* QUOTIENT IN R15 - IE HOURS WHICH WE MUST SAVE 01000011<br />

CVD R14,TIMET CONVERT TO PACKED DECIMAL 01010011<br />

OI TIMET+7,X'0F' FIX SIGN 01020011<br />

UNPK TIMEX+3(2),TIMET+6(2) UNPACK MINUTES 01030011<br />

MVI TIMEX+2,C':' 01040011<br />

CVD R15,TIMET CONVERT TO PACKED DECIMAL 01050011<br />

OI TIMET+7,X'0F' FIX SIGN 01060011<br />

UNPK TIMEX+0(2),TIMET+6(2) UNPACK HOURS 01070011<br />

MVC P42TME1,TIMEX 01080011<br />

MVC P42TME,TIMEX 01090011<br />

UNPK P42DTE(7),SMF42DTE(4) 01100011<br />

OI P42DTE+3,X'F0' 01110011<br />

CLC P42DTE(2),=CL2'01' 01120011<br />

BNE *+10 01130011<br />

MVC P42DTE(2),=C'20' 01140011<br />

MVC P42DTE(2),=C'20' 01150011<br />

MVC P42DTE1,P42DTE 01160011<br />

* 01170011<br />

LA R4,SMF42END END OF HEADER, START OF DATA 01180011<br />

USING SMF42S1,R4 01190011<br />

L R8,SMF42BMO OFFSET TO BMF TOTALS SECTIONS 01200011<br />

LH R9,SMF42BML LENGTH OF BMF TOTALS SECTIONS 01210011<br />

LH R10,SMF42BMN NUMBER OF BMF TOTALS SECTIONS 01220011<br />

BMFTRIP DS 0H 01230011<br />

CVD R10,DWORD 01240011<br />

480 z/<strong>OS</strong> <strong>V1R8</strong> <strong>DFSMS</strong> <strong>Technical</strong> <strong>Update</strong>

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!