//PWXLOGR  JOB (MYJOB),'EXPAND LOGS',CLASS=A,MSGCLASS=X,                
//         MSGLEVEL=(1,1),NOTIFY=&SYSUID                                
//*--------------------------------------------------------------------* 
//RENAME   EXEC PGM=IDCAMS,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSIN    DD  *
  ALTER PWX.PRILOG.DS01 -
        NEWNAME(PWX.TEMPLOG1.DS01)
  ALTER PWX.PRILOG.DS01.DATA -
        NEWNAME(PWX.TEMPLOG1.DS01.DATA)
  ALTER PWX.SECLOG.DS01 -
        NEWNAME(PWX.TEMPLOG2.DS01)
  ALTER PWX.SECLOG.DS01.DATA -
        NEWNAME(PWX.TEMPLOG2.DS01.DATA)

  ALTER PWX.PRILOG.DS02 -
        NEWNAME(PWX.TEMPLOG1.DS02)
  ALTER PWX.PRILOG.DS02.DATA -
        NEWNAME(PWX.TEMPLOG1.DS02.DATA)
  ALTER PWX.SECLOG.DS02 -
        NEWNAME(PWX.TEMPLOG2.DS02)
  ALTER PWX.SECLOG.DS02.DATA -
        NEWNAME(PWX.TEMPLOG2.DS02.DATA)
/*
//*-------------------------------------------------------------------*
//ALLOCLOG EXEC PGM=IDCAMS,REGION=0M,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//SYSIN    DD  *
  DEFINE CLUSTER -
          (NAME(PWX.PRILOG.DS01) -
          LINEAR -
          STORCLAS(SMSPOOL) -
          CYL(300)) -
         DATA -
          (NAME(PWX.PRILOG.DS01.DATA) )
  DEFINE CLUSTER -
          (NAME(PWX.SECLOG.DS01) -
          LINEAR -
          STORCLAS(SMSPOOL) -
          CYL(300)) -
         DATA -
          (NAME(PWX.SECLOG.DS01.DATA) )

  DEFINE CLUSTER -
          (NAME(PWX.PRILOG.DS02) -
          LINEAR -
          STORCLAS(SMSPOOL) -
          CYL(300)) -
         DATA -
          (NAME(PWX.PRILOG.DS02.DATA) )
  DEFINE CLUSTER -
          (NAME(PWX.SECLOG.DS02) -
          LINEAR -
          STORCLAS(SMSPOOL) -
          CYL(300)) -
         DATA -
          (NAME(PWX.SECLOG.DS02.DATA) )
/*
//*-------------------------------------------------------------------*
//REPROLOG EXEC PGM=IDCAMS,REGION=0M,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//SYSIN    DD  *
  REPRO INDATASET(PWX.TEMPLOG1.DS01) -
        OUTDATASET(PWX.PRILOG.DS01)
  REPRO INDATASET(PWX.TEMPLOG2.DS01) -
        OUTDATASET(PWX.SECLOG.DS01)

  REPRO INDATASET(PWX.TEMPLOG1.DS02) -
        OUTDATASET(PWX.PRILOG.DS02)
  REPRO INDATASET(PWX.TEMPLOG2.DS02) -
        OUTDATASET(PWX.SECLOG.DS02)
/*
//*-------------------------------------------------------------------*
//* NOTE:
//*   THE FOLLOWING STEPS WILL *NOT* DESTROY THE DATA THAT WAS JUST
//*   COPIED INTO THE LOG DATASETS. INSTEAD, THE UTILITY DETECTS
//*   WHETHER ANY PART OF THE DATASETS HAVE BEEN ALLOCATED BUT NOT
//*   YET FORMATTED, AND ONLY FORMATS *THOSE* PARTS OF THE DATASETS.
//*-------------------------------------------------------------------*
//FORMATP  EXEC PGM=EDMLUTL0,REGION=0M,COND=(0,LT)
//STEPLIB  DD DISP=SHR,DSN=PWX.LOAD
//PRILOG   DD DISP=OLD,DSN=PWX.PRILOG.DS01                 
//*-------------------------------------------------------------------*
//FORMATS  EXEC PGM=EDMLUTL0,REGION=0M,COND=(0,LT)
//STEPLIB  DD DISP=SHR,DSN=PWX.LOAD
//PRILOG   DD DISP=OLD,DSN=PWX.SECLOG.DS01                 
//*-------------------------------------------------------------------*
//FORMATP  EXEC PGM=EDMLUTL0,REGION=0M,COND=(0,LT)
//STEPLIB  DD DISP=SHR,DSN=PWX.LOAD
//PRILOG   DD DISP=OLD,DSN=PWX.PRILOG.DS02                 
//*-------------------------------------------------------------------*
//FORMATS  EXEC PGM=EDMLUTL0,REGION=0M,COND=(0,LT)
//STEPLIB  DD DISP=SHR,DSN=PWX.LOAD
//PRILOG   DD DISP=OLD,DSN=PWX.SECLOG.DS02                 
//*-------------------------------------------------------------------*