Converting to DFSMSrmm from ASG-ZARA or AutoMedia

234 Converting to DFSMSrmm from ASG-ZARA or AutoMedia

the EDGUX100 load module added to the LINKLIB target library.

Example 6-1 shows a sample USERMOD.

Example 6-1 Sample USERMOD

++USERMOD (VMRMM01) REWORK(1998066) .

++VER (Z038) FMID(JDZ11B4) PRE(UW19315) .

++JCLIN .

//EDGUX100 EXEC PGM=IEWL,PARM='LET,NCAL,RENT,REUS,REFR,LIST,XREF'

//SYSLMOD DD DISP=SHR,DSN=SYS1.LINKLIB

//SRCLIB DD DISP=SHR,DSN=TERRI.SAMPLIB

//AEDGMOD1 DD DISP=SHR,DSN=SYS1.AEDGMOD1

//SYSPRINT DD SYSOUT=*

//SYSLIN DD *

INCLUDE AEDGMOD1(EDGUX100)

ENTRY EDGUX100

NAME EDGUX100(R)

//UXTABLE EXEC PGM=IEWL,PARM='LET,NCAL,LIST,XREF'

//SYSLMOD DD DISP=SHR,DSN=SYS1.LINKLIB

//SRCLIB DD DISP=SHR,DSN=TERRI.SAMPLIB

//AEDGMOD1 DD DISP=SHR,DSN=SYS1.AEDGMOD1

//SYSPRINT DD SYSOUT=*

//SYSLIN DD *

INCLUDE AEDGMOD1(UXTABLE)

NAME UXTABLE(R)

++SRC(UXTABLE) TXLIB(SRCLIB) DISTLIB(ASAMPLIB) .

++SRC(EDGUX100) TXLIB(SRCLIB) DISTLIB(ASAMPLIB) .

++SAMP(EDGUX100) TXLIB(SRCLIB) DISTLIB(ASAMPLIB) .

5. Receive and apply the USERMOD.

6. Your new exit is now ready for use on your system.

The same process is applicable to the EDGUX200 exit if necessary.

For more information about DFSMSrmm exits refer to the DFSMSrmm

Implementation and Customization Guide, SC26-7405.

6.2.8 Data set overwrite

AutoMedia/ASG-ZARA supports four volume statuses:

ACTIVE The volume contains valid data.

SCRATCH The volume can be used for scratch output requests.

DAMAGED Volume is deleted.

DELETED The volume can be used for scratch output requests.

In a DFSMSrmm environment you have three different volume statuses:

MASTER A private volume that contains data.