z/OS V1R6.0 DFSMS Access Method Services for Catalogs

DCOLLECT User Exit*********************************************************************** SAVE REGISTERS FROM CALLER ***********************************************************************START STM R14,R12,12(R13)LR R12,R15USING IDCDCX1,R12USING DCUOUTH,R1** INITIALIZE THE RETURN REGISTER (R15)SLR R15,R15************************************************************************ TEST REG1 FOR A VALUE OF ’FFFFFFFF’X, INDICATING THE FINAL CALL ** TO THE USER EXIT. IF FINAL CALL TO EXIT, JUST RETURN TO DCOLLECT. ** IF ANY AREAS WERE GETMAINED, THEY WOULD BE FREED AT THIS TIME, ** AND ANY OTHER NECESSARY CLEANUP PERFORMED. ***********************************************************************SLR R14,R14BCTR R14,0CLR R1,R14BE EXIT************************************************************************ IF THIS IS A ’D ’ TYPE RECORD, TEST THE STORAGE GROUP LENGTH FIELD ** FOR A VALUE OF ZERO. IF ZERO, PUT THE VALUE ’NON_SMS ’ IN THE ** STORAGE GROUP FIELD. THE TYPES OF RECORDS USED BY DCURCTYP CAN BE ** OBTAINED FROM THE MAPPING MACRO ICDOUT FOR USE BY THE CUSTOMER- ** DESIGNED EXIT. ***********************************************************************CLI DCURCTYP,=’D ’BNE TEST_A** TEST FOR A STORAGE GROUP FOR THIS DATA SETLH R14,DCDSGLNGLTR R14,R14BNZ EXIT** SET DCDSGLNG TO 8LA R3,8STH R3,DCDSGLNG* SET DCDSTGRP TO ’NON_SMS ’MVI DCDSTGRP+8,C’ ’MVC DCDSTGRP+9(21),DCDSTGRP+8MVC DCDSTGRP(8),NON_SMS* INDICATE THAT THE RECORD HAS BEEN MODIFIEDLA R15,4B EXIT*Figure 33. DCOLLECT User Exit Example (Part 2 of 3)434 z/OS V1R6.0 DFSMS Access Method Services for Catalogs