Converting to DFSMSrmm from ASG-ZARA or AutoMedia

708 Converting to DFSMSrmm from ASG-ZARA or AutoMedia

/* ***************************************************************** */

/* DEFINE RESOURCE STGADMIN.EDG.VRS */

/* ***************************************************************** */

TSS PE(EDGADMIN) IBMFAC(STGADMIN.EDG.VRS) ACCESS(CONTROL) ACTION(AUDIT)

TSS PE(EDGSYSPG) IBMFAC(STGADMIN.EDG.VRS) ACCESS(CONTROL) ACTION(AUDIT)

TSS PE(EDGLIB ) IBMFAC(STGADMIN.EDG.VRS) ACCESS(CONTROL) ACTION(AUDIT)

/* ***************************************************************** */

/* DEFINE RESOURCE STGADMIN.EDG.INERS.WRONGLABEL */

/* ***************************************************************** */

TSS PE(EDGOPER ) IBMFAC(STGADMIN.EDG.INERS.WRONGLABEL) ACCESS(UPDATE) ACTION(AUDIT)

TSS PE(EDGSYSPG) IBMFAC(STGADMIN.EDG.INERS.WRONGLABEL) ACCESS(CONTROL) ACTION(AUDIT)

TSS PE(EDGLIB ) IBMFAC(STGADMIN.EDG.INERS.WRONGLABEL) ACCESS(CONTROL) ACTION(AUDIT)

/* ***************************************************************** */

/* DEFINE RESOURCE STGADMIN.ADR.DUMP.CNCURRNT */

/* ***************************************************************** */

TSS PE(EDGSYSPG) IBMFAC(STGADMIN.ADR.DUMP.CNCURRNT) ACCESS(READ) ACTION(AUDIT)

TSS PE(EDGLIB ) IBMFAC(STGADMIN.ADR.DUMP.CNCURRNT) ACCESS(READ) ACTION(AUDIT)

TSS PE(EDGJOB ) IBMFAC(STGADMIN.ADR.DUMP.CNCURRNT) ACCESS(READ) ACTION(AUDIT)

C.3 ACF2 implementation

The following sections include the necessary definitions for the ACF2 product.

C.3.1 Define data set rules

The definition rules for DFSMSrmm data sets are shown in Example C-12.

Example: C-12 ACF2 data set rules definition

ADDGROUP EDGADMIN = UIDSTRING1

ADDGROUP EDGSYSPG = UIDSTRING2

ADDGROUP EDGLIB = UIDSTRING3

ADDGROUP EDGJOB = UIDSTRING4

ADDGROUP EDGOPER = UIDSTRING5

/* ***************************************************************** */

/* DEFINE DATA SET RULE FOR HLQ 'RMM' */

/* ***************************************************************** */

$KEY(RMM)

EGZB.CDS UID(UIDSTRING1) E(A) R(A) W(A)

EGZB.CDS UID(UIDSTRING3) E(A) R(A) W(A)

EGZB.CDS UID(UIDSTRING4) E(A) R(A) W(A)

EGZB.CDS UID(UIDSTRING5) E(A) R(A) W(A)

EGZB.CDS UID(UIDSTRING2) E(A) R(A) W(A) A(A)

EGZB.JRNL UID(UIDSTRING1) E(A) R(A) W(A)

EGZB.JRNL UID(UIDSTRING3) E(A) R(A) W(A)

EGZB.JRNL UID(UIDSTRING4) E(A) R(A) W(A)

EGZB.JRNL UID(UIDSTRING5) E(A) R(A) W(A)

EGZB.JRNL UID(UIDSTRING2) E(A) R(A) W(A) A(A)