IBM Mainframe Forum

//STEPONE1 EXEC PGM=SYNCTOOL
//SSMSG    DD SYSOUT=*
//TOOLMSG  DD SYSOUT=*
//IN       DD INPUT.DATA,DISP=SHR
//FIRST    DD SYSOUT=*
//SECND    DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//TOOLIN   DD *
  SELECT FROM(IN) TO(FIRST) ON(1,2,CH) FIRST USING(RAN1)
  SELECT FROM(IN) TO(SECND) ON(4,2,CH) FIRST USING(RAN2)
//RAN1CNTL DD *
  OUTFIL FNAMES=FIRST
//RAN2CNTL DD *
  OUTFIL FNAME=SECND