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

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

JNA42TRP DS 0H CYCLE ROUND RECORDS 01530099<br />

LH R14,P42TJNAC GET CURRENT COUNT 01540099<br />

LA R14,1(R14) ADD ONE 01550099<br />

STH R14,P42TJNAC PUT CURRENT COUNT 01560099<br />

CVD R14,DWORD 01570099<br />

OI DWORD+7,X'0F' 01580099<br />

UNPK P42TJNA#(7),DWORD+4(4) 01590099<br />

PUT PRINTDCB,PJNA42L1 01600099<br />

LA R5,0(R5,R9) ADVANCE TO DSECT 01610099<br />

USING SMF420JA,R5 01620099<br />

BINDEC JNA 01630099<br />

BINDEC JN7 01640099<br />

BINDEC JNG 01650099<br />

BINDEC JNH 01660099<br />

BINDEC JNI 01670099<br />

BINDEC JNJ 01680099<br />

BINDEC JNK 01690099<br />

BINDEC JNL 01700099<br />

BINDEC JNM 01710099<br />

BINDEC JNN 01720099<br />

DROP R5 01730099<br />

PUT PRINTDCB,PJNA42L2 01740099<br />

PUT PRINTDCB,PJNA42L3 01750099<br />

PUT PRINTDCB,PRINTBLK 01760099<br />

* LOOP BACK AT THIS POINT IF THERE ARE ANY MORE TRIPLETS 01770099<br />

* LA R8,0(R8,R9) ADVANCE TO THE NEXT TRIPLET (IF ANY) 01780099<br />

BCT R10,JNA42TRP 01790099<br />

JPA42PRP EQU * 01800099<br />

L R8,SMF42JN4 OFFSET 01810099<br />

* TO SYSPLEX TOTALS LOCAL BM LRU STATS SUMM 01820099<br />

* BELOW THE LINE 01830099<br />

LH R10,SMF42JN6 NUMBER OF COPIES OF THE DSECT 01840099<br />

LH R9,SMF42JN5 LENGTH OF BM SECTION 01850099<br />

LTR R10,R10 01860099<br />

BZ JNA2APRP 01870099<br />

XR R14,R14 CLEAR HIGH ORDER 01880099<br />

STH R14,P42TJPAC START THE COUNT AT 0 01890099<br />

LR R15,R9 LOAD LEGTH IN R9 01900099<br />

DR R14,R10 GET LENGTH OF SMF420PA DSECTS 01910099<br />

LR R9,R15 01920099<br />

LA R5,0(R3,R8) USE THE OFFSET TO LOCATE 01930099<br />

* THE START OF THE RECORD 01940099<br />

SR R5,R9 BACK UP BY LENGTH OF 1 SECTION 01950099<br />

Figure B-60 SMF42TJ assembler source (part 4 of 11)<br />

Appendix B. Code samples 551

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

Saved successfully!

Ooh no, something went wrong!