Administrative data utility for the LOGR policy

Figure 1 is a sample JCL to run the utility to create or update the LOGR administrative policy. The SYS1.SAMPLIB member name is IXCSFMP.

Figure 1. Administrative Inventory Data in LOGR Couple Data Set

//DEFINE JOB
//STEP1 EXEC PGM=IXCMIAPU
//SYSPRINT DD SYSOUT=*
//SYSIN DD *

    DATA TYPE(LOGR) REPORT(YES)

      DEFINE STRUCTURE NAME(STRUCTURE1)
             LOGSNUM(32)

      DEFINE LOGSTREAM NAME(STREAM1)
             STRUCTNAME(STRUCTURE1)
             LS_MGMTCLAS(STANDARD)
             HLQ(LOGGER)

      DEFINE LOGSTREAM NAME(STREAM2)
             LIKE(STREAM1)
             LS_STORCLAS(STANDARD)

      DEFINE LOGSTREAM NAME(STREAM3)
             DASDONLY(YES)
             MAXBUFSIZE(40000)

      UPDATE LOGSTREAM NAME(STREAM1)
             LS_DATACLAS(VSAMLS)

      UPDATE LOGSTREAM NAME(STREAM2)
             RETPD(60)

      UPDATE LOGSTREAM NAME(STREAM2)
             AUTODELETE(YES) RETPD(30)
      UPDATE LOGSTREAM NAME(STREAM3)
             STRUCTNAME(STRUCTURE1)

      DEFINE LOGSTREAM NAME(STREAM4)
             STRUCTNAME(STRUCTURE1)
             STG_DUPLEX(YES)
             DUPLEXMODE(UNCOND)
             STG_DATACLAS(VSAMLS)
             STG_MGMTCLAS(STANDARD)
             LS_MGMTCLAS(STANDARD)
             HLQ(LOGGER)

      DELETE LOGSTREAM NAME(STREAM2)
      LIST LOGSTREAM NAME(STREAM*) DETAIL(YES)
      LIST STRUCTURE NAME(STRUCTURE1) DETAIL(YES)
/*

Figure 2 is an example of using the CONTINUE keyword and the LOGR Couple Data Set Administrative Utility. Here, CONTINUE is used before a list of DELETE LOGSTREAM requests.

Figure 2. Example: Using the CONTINUE keyword and the LOGR Couple Data Set Administrative Utility

//DEFINE JOB 
//STEP2 EXEC PGM=IXGMIAPU
//SYSIN DD  *
   DATA TYPE(LOGR)  REPORT(yes)
    CONTINUE
    DELETE LOGSTREAM NAME(stream1)
    DELETE LOGSTREAM NAME(stream2)
    DELETE LOGSTREAM NAME(stream3)
    DELETE LOGSTREAM NAME(stream4)
    DELETE LOGSTREAM NAME(stream5)
    DELETE LOGSTREAM NAME(stream6)
    LIST LOGSTREAM(*)
/*

Figure 3 defines a model log stream and a list of log streams that are based on the model, only if the model log stream define was successful.

Figure 3. Example: Defining a Model Log Stream

//DEFINE JOB 
//STEP3 EXEC PGM=IXGMIAPU
//SYSIN DD  *
   DATA TYPE(LOGR)  REPORT(yes)
    DEFINE LOGSTREAM NAME(TEST.MODEL1) MODEL(YES) STG_DUPLEX(YES)
     DUPLEXMODE(UNCOND) HLQ(LOGGER) STRUCTNAME(LIST01)
    CONTINUE
    DEFINE LOGSTREAM NAME(TEST.STREAM1) LIKE(TEST.MODEL1)
    DEFINE LOGSTREAM NAME(TEST.STREAM2) LIKE(TEST.MODEL1)
    DEFINE LOGSTREAM NAME(TEST.STREAM3) LIKE(TEST.MODEL1)
    DEFINE LOGSTREAM NAME(TEST.STREAM4) LIKE(TEST.MODEL1)
    LIST LOGSTREAM(*)
/*