* $$ JOB JNM=RBKA010,DISP=K,CLASS=W,DUETIME=0200,DUEDAY=FRI // JOB RBKA010 // DLBL PCLM,'PROD.CLAIMS',,VSAM,CAT=DOSCAT // EXEC IDCAMS PRINT INFILE(PCLM) COUNT(1) /* SET RETURN-CODE IF FILE EMPTY /* // IF $RC>0 THEN // GOTO $EOJ /* * $$ LST LST=FEF,DISP=K,CLASS=A,DEST=(,ELIST),MAILTO=(CLSLIST), C * $$ FILENAME=(,HC-HF-HIDCI.PDF), C * $$ TITLE=(HC-HF-HI-HJ REPORT-DCI) /* * $$ LST LST=FFE,DISP=K,CLASS=A,DEST=(,ELIST),MAILTO=(SLGLIST), C * $$ FILENAME=(,HC-HF-HI-SPC.PDF), C * $$ TITLE=(HC-HF-HI-HJ REPORT-SPC) /* * $$ LST LST=FF1,DISP=K,CLASS=A,DEST=(,FTP), C * $$ FILENAME=(/FTP/ACME/,CAT_1166.PDF) /* * $$ LST LST=FF2,DISP=K,CLASS=G /* * $$ LST LST=FF3,DISP=K,CLASS=A,DEST=(,ELIST),MAILTO=(MCILIST2), C * $$ FILENAME=(,HC-HF-HI-MCI.PDF), C * $$ TITLE=(HC HF HI HJ REPORT-MCI) // JOB RBKA010 // ASSGN SYS005,FEF // ASSGN SYS006,FFE // ASSGN SYS007,FF1 // ASSGN SYS008,FF2 // ASSGN SYS009,FF3 // ASSGN SYS010,DISK,VOL=999999,SHR // LIBDEF *,SEARCH=(MIDLND.LIB,MIDLND.NEWCOBOL) /* DLBL PCLM,'TEST.CLAIMS',,VSAM,CAT=DOSCAT // DLBL PCLM,'PROD.CLAIMS',,VSAM,CAT=DOSCAT // DLBL PADR,'PROD.ADDRESS',,VSAM,CAT=DOSCAT /* DLBL PADR1,'PROD.ADDRESS.PADRX1',,VSAM,CAT=DOSCAT /* DLBL PADR2,'PROD.ADDRESS.PADRX2',,VSAM,CAT=DOSCAT // EXEC BKA010,SIZE=3M *************** /*AAABBBBCCCCDDEE /* AAA = LENDER CODE /* BBBB = LENDER BEGIN BRANCH /* CCCC = LENDER END BRANCH /* DD = END MONTH OF RUN /* YY = END YEAR OF RUN * /* /& * $$ EOJ
Return to the Sample Job Stream List
//RBKA010 JOB (RBKA010),' ',
// CLASS=A,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// REGION=6M
//*
//JOBLIB INCLUDE MEMBER=JOBLIB
//*
//* STEP0010 PGM=IDCAMS
//*
//STEP0010 EXEC PGM=IDCAMS
//* MODULE IDCAMS PROCESSED BY PLUG-IN JCLTAMS
//* VS VS I DOSCAT 'PROD.CLAIMS' PRINT
//PCLM DD DSN=MVS.PROD.CLAIMS,
// DISP=SHR
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
PRINT INFILE(PCLM) COUNT(1) /* SET RETURN-CODE IF FILE EMPTY
/*
//*IF $RC>0 THEN
//*GOTO $EOJ
//*
//* STEP0020 PGM=BKA010
//*
// IF (STEP0010.RC = 0) THEN
//STEP0020 EXEC PGM=BKA010
//LST001 OUTPUT CLASS=A,DEST=MVS,TITLE='HC-HF-HI-HJ REPORT-DCI',
// ADDRESS=('&ELIST(CLSLIST)'),FORMS=BL8L,WRITER=JES2MAIL,
// USERDATA=('ATTACH: HC-HF-HIDCI.PDF')
//LST002 OUTPUT CLASS=A,DEST=MVS,TITLE='HC-HF-HI-HJ REPORT-SPC',
// ADDRESS=('&ELIST(SLGLIST)'),FORMS=BL8L,WRITER=JES2MAIL,
// USERDATA=('ATTACH: HC-HF-HI-SPC.PDF')
//LST005 OUTPUT CLASS=A,DEST=MVS,TITLE='HC HF HI HJ REPORT-MCI',
// ADDRESS=('&ELIST(MCILIST2)'),FORMS=BL8L,WRITER=JES2MAIL,
// USERDATA=('ATTACH: HC-HF-HI-MCI.PDF')
//* VS VS KS I DOSCAT 'PROD.ADDRESS'
//PADR DD DSN=MVS.PROD.ADDRESS,
// DISP=SHR
//* VS VS KS I DOSCAT 'PROD.CLAIMS'
//PCLM DD DSN=MVS.PROD.CLAIMS,
// DISP=SHR
//* SD W EZTVFM /0/0 OPT=Y
//* SD O SYS007 FF1 A 'RBKA010.LST003'
//REPORT3 DD DSN=MVS.RBKA010.LST003,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(1000,250),RLSE),
// UNIT=SYSDA
//* PR O SYS005 FEF 0001
//REPORT1 DD SYSOUT=(,),OUTPUT=*.LST001
//* PR O SYS006 FFE 0002
//REPORT2 DD SYSOUT=(,),OUTPUT=*.LST002
//* PR O SYS008 FF2 0004
//REPORT4 DD SYSOUT=G
//* PR O SYS009 FF3 0005
//REPORT5 DD SYSOUT=(,),OUTPUT=*.LST005
//SYSOUT INCLUDE MEMBER=SYSOUT
//* CD I SYSIPT 00C
//SYSIN DD *
***************
/*
// ENDIF
//*
//* STEP0030 PGM=FTP BKA010
//*
// IF (STEP0010.RC = 0) THEN
//STEP0030 EXEC PGM=FTP,PARM='(EXIT'
//* SD I A 'RBKA010.LST003'
//REPORT3 DD DSN=MVS.RBKA010.LST003,
// DISP=OLD
//SYSOUT INCLUDE MEMBER=SYSOUT
//* CD I
//SYSIN DD *
intranet.acme.com
ftpuser ftppass
ASCII
SENDSITE
LOCSITE TRAILINGBLANKS
CD /FTP/ACME/
PUT //DD:REPORT3 CAT_1166.PDF
/*
// ENDIF
//*
//SCRATCH EXEC PGM=IEFBR14
//*
//DEL001 DD DSN=MVS.RBKA010.LST003,DISP=(MOD,DELETE)
//
Return to the Sample Job Stream List