//JCLNNDCL JOB (ACCT1,ACCT2,ACCT3,ACCT4),TIME=1440, // CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1) //*================================================================ //*- 1. Replace //* _BCDS: with your BCDS dataset name //* _MCDS: with your MCDS dataset name //* _OCDS: with your OCDS dataset name //* //*- 2. Replace _DCOL DDname "D" by a valid dataset name //* //*- 3. Do a ftp in "BINARY" format (NOT ASCII) and compressed to the following site //* //* ftp://sinapbit.serveftp.com (user/pswd: it will be sent by mail) //* //*=============================================================== //STEP01 EXEC PGM=IDCAMS,REGION=4500K,TIME=NOLIMIT //SYSPRINT DD SYSOUT=* //SYSIN DD * DEL _DCOL /* //STEP02 EXEC PGM=IDCAMS,REGION=4500K,TIME=NOLIMIT //BCDS DD DSN=_BCDS,DISP=SHR //OCDS DD DSN=_OCDS,DISP=SHR //MCDS DD DSN=_MCDS,DISP=SHR //D DD DSN=&&DCOL,DISP=(,PASS), // SPACE=(1,(999,90),RLSE),AVGREC=M,DSORG=PS,RECFM=VB,LRECL=2048 //SYSPRINT DD SYSOUT=* //SYSIN DD * DCOLLECT OFILE(D) SMSDATA(ACTIVE) /* //STEP03 EXEC PGM=ICETOOL //DFSMSG DD SYSOUT=* //TOOLMSG DD SYSOUT=* //SYSOUT DD SYSOUT=* //INDD DD DSN=&&DCOL,DISP=(OLD,PASS) //SG DD DSN=&&DSG,DISP=(,PASS),SPACE=(CYL,(1,1),RLSE), // DCB=(LRECL=2048,RECFM=VB) //OUTSG DD DSN=&&DSG2,DISP=(,KEEP),SPACE=(CYL,(1,1),RLSE), // DCB=(LRECL=80,RECFM=FB) //TOOLIN DD * COPY FROM(INDD) USING(ALL1) DISPLAY FROM(SG) - ON(31,8,CH,L' ',T' - ') - LIST(OUTSG) BLANK NOHEADER /* //ALL1CNTL DD * OUTFIL FNAMES=SG,INCLUDE=((9,2,CH,EQ,C'SG'),AND, (229,1,FI,NE,0)) /* //STEP04 EXEC PGM=IDCAMS,REGION=4500K,TIME=NOLIMIT //BCDS DD DSN=_BCDS,DISP=SHR //OCDS DD DSN=_OCDS,DISP=SHR //MCDS DD DSN=_MCDS1,DISP=SHR //D DD DSN=_DCOL,DISP=(,KEEP), // SPACE=(1,(999,90),RLSE),AVGREC=M,DSORG=PS,RECFM=VB,LRECL=2048 //SYSPRINT DD SYSOUT=* //SYSIN DD * DCOLLECT OFILE(D) MIGD BACD CAPD SMSDATA(ACTIVE) VOL(*) - STORAGEGROUP( - /* // DD DSN=&&DSG2,DISP=(OLD,KEEP) // DD * ) /*