JCL (subsys1b.jcl)

For the most up-to-date information refer to the source for this copybook in your product installation.

//MFIDSA1B JOB 'SUBSYS TESTS - VIA JCL',CLASS=A,MSGCLASS=A 
  //OUTSJ    OUTPUT CLASS=X,DEST=SANJOSE.DAVINDER,DEFAULT=YES 
  //OUTNWB   OUTPUT CLASS=Y,DEST=GARDEN.CLIVE,DEFAULT=YES 
  //OUTHORSE OUTPUT CLASS=M,DEST=HORSES.THAIUSER,DEFAULT=NO
  //*-------------------------------------------------------------------
  //STEP1 EXEC PGM=IDCAMS 
  //SYSPRINT DD SYSOUT=* 
  //SYSUTX DD *
  REC1
  REC2 
  //SYSIN DD *
  REPRO IFILE(SYSUTX) OFILE(OODA )
  REPRO IFILE(SYSUTX) OFILE(NONE ) 
  //OODA DD SUBSYS=(OODA,A,DKP39CPM,PPP3,STD,,USER), 
 //        DSN=MFIDSA.SUBSYS1B.NEW.OODA.NOTUSED, 
 //        OUTPUT=(*.OUTSJ,*.OUTHORSE) 
 //NONE DD SUBSYS=(NONE,A,DKP39CPM,PPP3,STD,,USER), 
 //        DSN=MFIDSA.SUBSYS1B.NEW.NONE.DELETED, 
 //        OUTPUT=(*.OUTSJ,*.OUTHORSE) 
//