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

DCOLLECT User ExitIDCDCX1 TITLE ’USER EXIT FOR DCOLLECT - EXAMPLE’IDCDCX1 CSECTIDCDCX1 AMODE 24IDCDCX1 RMODE 24*********************************************************************** DESCRIPTIVE NAME: USER EXIT FOR DCOLLECT - EXAMPLE ** ** FUNCTION: THIS MODULE TESTS IF A STORAGE GROUP NAME EXISTS IN THE ** ’D ’ RECORD, AND IF NOT, SETS THE STORAGE GROUP NAME TO ** A VALUE OF "NON-SMS ". IT ALSO TESTS IF THE ’A ’ RECORD ** CONTAINS A HURBA AND HARBA VALUE OF ZERO, AND IF SO, ** INDICATES THAT THIS RECORD SHOULD NOT BE WRITTEN TO THE ** OUTPUT DATA SET. ** ** REGISTER CONVENTIONS: ** ON ENTRY: R0 = LENGTH OF RECORD ** R1 = ADDRESS OF RECORD ** R2 = 100 BYTE WORK AREA ADDRESS ** R13 = CALLER’S SAVE AREA ADDRESS ** R14 = RETURN ADDRESS ** ON EXIT : R0 = NEW RECORD LENGTH (IF MODIFIED) ** R1 = NEW RECORD ADDRESS (IF MODIFIED) ** R15 = RETURN CODE ** ** RETURN CODE VALUES ** 0 = NO CHANGES MADE. WRITE RECORD TO OUTPUT DATA SET ** 4 = CHANGES MADE TO RECORD. WRITE RECORD TO OUTPUT DATA SET ** 12 = DO NOT WRITE RECORD TO OUTPUT DATA SET ** ** ** ENTRY POINT: IDCDCX1 ** ** CONTROL BLOCKS REFERENCED: ** IDCDOUT - AMS DCOLLECT FUNCTION OUTPUT RECORD FORMATS ** ************************************************************************DS 0HUSING *,R15B STARTDC C’IDCDCX1 ’DC C’EXAMPLE 1 ’DROP R15Figure 33. DCOLLECT User Exit Example (Part 1 of 3)Appendix E. DCOLLECT User Exit 433