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.

MACRO<br />

&NAME SEGSTART<br />

&NAME STM 14,12,12(13) SAVE HIS REGS IN HIS SAVE AREA<br />

R0 EQU 0<br />

R1 EQU 1<br />

R2 EQU 2<br />

R3 EQU 3<br />

R4 EQU 4<br />

R5 EQU 5<br />

R6 EQU 6<br />

R7 EQU 7<br />

R8 EQU 8<br />

R9 EQU 9<br />

R10 EQU 10<br />

R11 EQU 11<br />

RB EQU 12<br />

R13 EQU 13<br />

R14 EQU 14<br />

R15 EQU 15<br />

BALR 12,0 SET UP ADDRESSABILITY<br />

USING *,12 USE REG 12 AS BASE REG<br />

ST 13,SAVEREGS+4 SAVE @ OF HIS SAVEAREA IN MINE<br />

LA 03,SAVEREGS LOAD @ OF MY SAVE AREA IN REG 3<br />

ST 03,8(13) SAVE @ OF MY SAVE AREA IN HIS<br />

LR 13,03 LOAD @ OF MY SAVE AREA IN REG 13<br />

MEND<br />

MACRO<br />

&NAME SEGEND<br />

&NAME L 13,SAVEREGS+4 LOAD REG13 WITH @ OF HIS SAVE<br />

LM 14,12,12(13) RESTORE REGS FROM HIS SAVEAREA<br />

XR R15,R15<br />

BR 14 RETURN TO CALLING RTN VIA REG 14<br />

SAVEREGS DC 18F'0' SET UP SAVE AREA<br />

MEND<br />

SMFR85TA SEGSTART<br />

* THIS IS A SIMPLE PROGRAM TO DISPLAY THE CONTENTS OF VARIOUS PARTS OF<br />

* THE SMF TYPE 85 SUBTYPE 1-7 RECORDS.<br />

* IT IS ASSUMED THAT THE IFASMFDP PROGRAM HAS ALREADY BEEN USED<br />

* TO SELECT ANY OR ALL OF TYPE 85 SUBTYPES 1-7<br />

* RECORDS FROM EITHER THE ACTIVE SMF 'MAN' DATASETS OR<br />

* OFF A PREVIOUSLY EXTRACTED COPY OF THE 'MAN' DATASETS.<br />

*<br />

* THE STANDARD SMF RECORD MAPPING MACR<strong>OS</strong> ARE USED.<br />

* REGISTER EQUATES TO PARTS OF THE SMF TYPE 85 RECORD<br />

* R3 START OF WHOLE RECORD<br />

* THERE IS 1 DSECTS TO BE MAPPED<br />

* R4 START OF SUBTYPE RECORDS<br />

* R5 SPARE<br />

* R6 SPARE<br />

* R7 SPARE<br />

* OTHER REGISTER USES<br />

* R12 OVERALL BASE REGISTER<br />

Figure B-26 SMF85TA assembler source (part 1 of 7)<br />

514 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!