//**********************************************************************
//**       START OPC09K02 (INSTREAM JCL)                              **
//**********************************************************************
//GENER01  EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN    DD DUMMY
//SYSUT2   DD SYSOUT=(A,INTRDR)
//SYSUT1   DD DATA,DLM=ZZ
//OPC09K02 JOB (TNJA,BXX,9000),'OPCA',MSGGCLASS=0,REGION=4M,CLASS=G
/*JOBPARM S=ANY
//*---------------------------------------------------------------------
//RENAME1  EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//DRKARCH  DD  DSN=HLQ.SYSMOD.ARCHIVE,DISP=SHR
//DMMYREC  DD *
FFFFFFFFFFFFFFFF9999999999  AAAAAAAA99999999999999 DUMMY RECORD
/*
//SYSIN    DD *

 ALTER HLQ.SYSMOD.ARCHIVE    NEWNM(HLQ.SYSMOD.ARCTEMP)
 ALTER HLQ.SYSMOD.ARCHIVE.D  NEWNM(HLQ.SYSMOD.ARCTEMP.D)
 ALTER HLQ.SYSMOD.ARCHIVE.I  NEWNM(HLQ.SYSMOD.ARCTEMP.I)

 IF LASTCC = 0 THEN +
        DEFINE CLUSTER (                           -
                 NAME (HLQ.SYSMOD.ARCHIVE)         -
                 REUSE                             -
                 SPANNED                           -
                 SHR (3)                           -
                 CYL (100 50))                     -
               DATA ( NAME (HLQ.SYSMOD.ARCHIVE.D)  -
                 RECSZ(1200 180000)                -
                 KEYS (50 0))                      -
               INDEX ( NAME (HLQ.SYSMOD.ARCHIVE.I))

 IF LASTCC=0 THEN -
        REPRO IFILE(DMMYREC) ODS('HLQ.SYSMOD.ARCHIVE')

/*
//*-IF   >>-------------------------------------------------------------
//RECOVER  IF (RENAME1.ABEND = TRUE OR RENAME1.RC > 0) THEN
//*-THEN >>-------------------------------------------------------------
//RECOVER  EXEC PGM=IDCAMS
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD *

  ALTER HLQ.SYSMOD.ARCTEMP    NEWNM(HLQ.SYSMOD.ARCHIVE)
  ALTER HLQ.SYSMOD.ARCTEMP.D  NEWNM(HLQ.SYSMOD.ARCHIVE.D)
  ALTER HLQ.SYSMOD.ARCTEMP.I  NEWNM(HLQ.SYSMOD.ARCHIVE.I)

/*
//*-IF   >>-------------------------------------------------------------
//RECOVER  ENDIF
//*---------------------------------------------------------------------
//* NETVIEW/AOC COMMAND TO START OPCE
//*---------------------------------------------------------------------
//AOCWTOR  EXEC PGM=AOCWTOR,COND=EVEN,
//         PARM='AOC00001 START OPCE ONLY'
//SYSPRINT DD  SYSOUT=*,RECFM=FB,LRECL=80,BLKSIZE=800
//SYSIN    DD  DDNAME=IEFRDER
//IEFRDER  DD  DUMMY,BLKSIZE=80
/*
ZZ
//