This user exit is provided for those who want to make use of SMS GDG's and do not have HSM. A problem can be encountered where LOGREC records are being cut when a SMS GDG rolls out of the sphere and is cataloged to the CA Disk pseudo volser ARCIVE. The problem is with scratch processing for a volume that does not exist. The User exit, IGGDASU2, is provided by IBM to keep logrec records from being cut.
If you plan to use a CA Disk pseudo-volume name other than ARCIVE, it must be specified through sysparm RECATVOL. Do not select a pseudo-volume name that is a real volume name, or likely to become one. If your pseudo-volume name is a real volume, you cannot reference your data sets on that volume through the catalog. Set the pseudo-volume name as the value for the sysparm RECATVOL. For more information, see the sysparm description for RECATVOLvvvvvv in the Systems Guide.
CA Disk provides the user exit ADSDASU2. This module gets control during DADSM scratch processing. It looks at the parameter list passed and if the volser is ARCIVE, the request is ignored, indicating to the caller that processing was successfully completed.
If this exit is needed, install it as part of the automatic processing during IPL. ADSDASIN is the installation program for this user exit. Specify PARM=I in the EXEC statement to dynamically install the exit. Use PARM=R to remove the exit for testing purposes or if problems are encountered. Run this exit as its own job in the IPL deck and execute it before DMSAR.
The following is sample JCL to install the user exit. A copy of this JCL is found in the INSTALL library member ADSDASIN.
Menu Utilities Compilers Help ------------------------------------------------------------------------------- BROWSE CCUWJCL(ADSDASIN) Line 00000000 Col 001 080 Command ===> Scroll ===> CSR ********************************* Top of Data ********************************** //JOBNAME JOB (ACCT INFO) //* //********************************************************************* //* * //* INSTALL ADSDASU2 SCRATCH EXIT * //* * //********************************************************************* //STEP1 EXEC PGM=ADSDASIN,PARM=I (USE PARM=R TO REMOVE EXIT) //STEPLIB DD DISP=SHR,DSN=CAI.DISK.CCUWLOAD //PARMLIB DD DISP=SHR,DSN=CAI.DISK.CCUWPARM //MSGPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* ******************************** Bottom of Data ********************************
|
Copyright © 2015 CA Technologies.
All rights reserved.
|
|