* $$ JOB JNM=FZPSD56J,CLASS=A,DISP=D
// JOB FZPSD56J (BFPD3920) FPS SYSM INTERFACE
* $$ LST CLASS=Q,DISP=H,LST=SYSLST,FNO=1PRT
/*
// UPSI 01000000 00=TEST AND PROD 01=PROD ONLY 10=TEST ONLY
// ASSGN SYS005,SYSIPT
// EXEC OPNCLSB
BFPD3920
CSYSMOPR
/*
// UPSI 00000000
/*
/* BUILD SYSM BY CICS OPID FILE PRIOR TO RUNNING JOB
// DLBL SORTOUT,'TECH.TEMP.SYSMOPR.FILE',0,VSAM,CAT=WORK,RECORDS=1000, X
RECSIZE=2800
// EXEC SORT
MERGE FIELDS=COPY,FORMAT=BI,WORK=3
RECORD TYPE=V,LENGTH=2800
INPFIL VSAM
INCLUDE COND=(5,3,EQ,C'BFL',OR,5,3,EQ,C'BN0',OR,5,3,EQ,C'BN1',OR, X
5,3,EQ,C'BN2',OR,5,3,EQ,C'BN3',OR,5,3,EQ,C'BN4',OR, X
5,3,EQ,C'BN5',OR,5,3,EQ,C'BN6'),FORMAT=BI
OPTION FILNM=(,SYSMZIP)
END
/*
// EXEC IDCAMS,SIZE=AUTO
DELETE (PROD.FFB.SYSM.OPERATOR.ID.FILE) -
CATALOG (VSAM01.USER.CATALOG VSAM01) -
PURGE -
CLUSTER
DEFINE CLUSTER( -
NAME(PROD.FFB.SYSM.OPERATOR.ID.FILE) -
RECORDS (1000 200) -
TO (99365) -
FREESPACE (10 10) -
INDEXED -
KEYS (3 0) -
RECORDSIZE (600 600) -
SPEED -
NOREUSE -
SHAREOPTIONS (2) -
VOLUMES (SYS141) -
) -
DATA ( -
NAME (PROD.FFB.SYSM.OPERATOR.ID.FILE.DATA) -
USECLASS (0) -
FREESPACE (10 10) -
) -
INDEX ( -
NAME (PROD.FFB.SYSM.OPERATOR.ID.FILE.INDEX) -
USECLASS (0) -
) -
CATALOG (VSAM01.USER.CATALOG VSAM01)
/*
// DLBL SORTIN1,'TECH.TEMP.SYSMOPR.FILE',0,VSAM,CAT=WORK
// EXEC SORT
SORT FIELDS=(553,3,A),FORMAT=BI,WORK=3
RECORD TYPE=V,LENGTH=2800
INPFIL VSAM
INCLUDE COND=(553,3,NE,C' '),FORMAT=BI
OUTFIL KSDS,REUSE
SUM FIELDS=NONE
OUTREC FIELDS=(1,4,553,3,6,11)
OPTION FILNM=(SYSMOPR)
END
/*
// EXEC IDCAMS,SIZE=AUTO
DELETE ( -
TECH.TEMP.SYSMOPR.FILE -
) -
CATALOG (VSAM.WORK.CATALOG WORK) -
PURGE -
CLUSTER
/*
/* --- INPUT FILES ---
// DLBL CONT0,'PROD.FPS.CONTROL.FILE0',0,VSAM,CAT=VSAM05, *
RECORDS=76,RECSIZE=92
// DLBL CNTLCDF,'PROD.FPS.CONTROL.CARD.FILE',0,VSAM,CAT=VSAM05, *
RECORDS=76,RECSIZE=80
/* FPS CHANGE REFERENCE FILE FPSCRF
/* FPS ENTRY PENDING FILE FPSEPF
/* FPS SECURITY FILE FPSSECU
/* AGTINFO AGENT FILE
/* CTYINFO COUNTY AGENT FILE
/* UTILITY FILE FBMNTFL
/* SYSM BY CICS OPID SYSMOPR
/* === OUTPUT FILES ===
// DLBL SYSMFLE,'FPS.SYS.BFPD3920.SYSM.FILE',0,VSAM,CAT=WORK, *
RECORDS=500,RECSIZE=72
/* === EXECUTION ===
// EXEC BFPD3920,SIZE=(AUTO,64K)
/*
// UPSI 01000000 00=TEST AND PROD 01=PROD ONLY 10=TEST ONLY
// ASSGN SYS005,SYSIPT
// EXEC OPNCLSB
BFPD3920
OSYSMOPR
/*
// UPSI 00000000
/*
/&
* $$ EOJ
Return to the Sample Job Stream List
//FZPSD56J JOB (FZPSD56J),' ',
// CLASS=A,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// REGION=6M
//*
//JOBLIB INCLUDE MEMBER=JOBLIB
//*
//* STEP0010 PROC=MTPBATCH OPNCLSB
//*
//STEP0010 EXEC PROC=MTPBATCH
//* MODULE OPNCLSB PROCESSED BY PLUG-IN OPNCLSB
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I SYSIPT 00C
//SYSIN DD *
CICS PRDCICS2
CLOSE SYSMOPR
/*
//*
//* STEP0020 PGM=SORT
//*
//STEP0020 EXEC PGM=SORT
//* MODULE SORT PROCESSED BY PLUG-IN JCLTSORT
//* VS VS I VSAM04 S SYSMZIP 'SYSMV.R641.SYSMZIP' COPY
//SORTIN DD DSN=SYSMV.R641.SYSMZIP,
// DISP=SHR
//* SD VS O WORKCAT 'TECH.TEMP.SYSMOPR.FILE' COPY
//SORTOUT DD DSN=TECH.TEMP.SYSMOPR.FILE,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(56,14),RLSE),
// UNIT=SYSDA
//* PR O
//SYSOUT DD SYSOUT=*
//* CD I
//SYSIN DD *
MERGE FIELDS=COPY
RECORD TYPE=V,LENGTH=2800
*INPFIL VSAM
INCLUDE COND=(5,3,EQ,C'BFL',OR,5,3,EQ,C'BN0',OR,5,3,EQ,C'BN1',OR, X
5,3,EQ,C'BN2',OR,5,3,EQ,C'BN3',OR,5,3,EQ,C'BN4',OR, X
5,3,EQ,C'BN5',OR,5,3,EQ,C'BN6'),FORMAT=BI
*OPTION FILNM=(,SYSMZIP)
END
/*
//*
//* STEP0030 PGM=IDCAMS
//*
//STEP0030 EXEC PGM=IDCAMS
//* MODULE IDCAMS PROCESSED BY PLUG-IN JCLTAMS
//* VS I VSAM01 A 'PROD.FFB.SYSM.OPERATOR.ID.FILE' DELETE
//#DELETE DD DUMMY,DSN=PROD.FFB.SYSM.OPERATOR.ID.FILE
//* VS VS KS O VSAM01 A 'PROD.FFB.SYSM.OPERATOR.ID.FILE' DEFCL
//#DEFCL DD DUMMY,DSN=PROD.FFB.SYSM.OPERATOR.ID.FILE
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
DELETE (PROD.FFB.SYSM.OPERATOR.ID.FILE) -
PURGE -
CLUSTER
IF LASTCC=8 THEN IF MAXCC=8 THEN SET MAXCC=0
DEFINE CLUSTER( -
NAME(PROD.FFB.SYSM.OPERATOR.ID.FILE) -
RECORDS (1000 200) -
FREESPACE (10 10) -
INDEXED -
KEYS (3 0) -
RECORDSIZE (600 600) -
SPEED -
NOREUSE -
SHAREOPTIONS (2) -
VOLUMES (SYS141) -
) -
DATA ( -
FREESPACE (10 10) -
)
/*
//*
//* STEP0040 PGM=SORT
//*
//STEP0040 EXEC PGM=SORT,PARM='RESET'
//* MODULE SORT PROCESSED BY PLUG-IN JCLTSORT
//* VS VS I WORKCAT SORTIN1 'TECH.TEMP.SYSMOPR.FILE'
//SORTIN DD DSN=TECH.TEMP.SYSMOPR.FILE,
// DISP=OLD
//* VS VS KS O VSAM01 S SYSMOPR 'PROD.FFB.SYSM.OPERATOR.ID.FILE'
//SORTOUT DD DSN=PROD.FFB.SYSM.OPERATOR.ID.FILE,
// DISP=SHR
//* PR O
//SYSOUT DD SYSOUT=*
//* CD I
//SYSIN DD *
SORT FIELDS=(553,3,A),FORMAT=BI
RECORD TYPE=V,LENGTH=2800
*INPFIL VSAM
INCLUDE COND=(553,3,NE,C' '),FORMAT=BI
*OUTFIL KSDS,REUSE
SUM FIELDS=NONE
OUTREC FIELDS=(1,4,553,3,6,11)
*OPTION FILNM=(SYSMOPR)
END
/*
//*
//* --> PGM=IDCAMS <-- DELETED
//*
//* STEP0050 PGM=BFPD3920
//*
//STEP0050 EXEC PGM=BFPD3920
//* SD VS I VSAM05 'PROD.FPS.CONTROL.CARD.FILE'
//CNTLCDF DD DSN=PROD.FPS.CONTROL.CARD.FILE,
// DISP=SHR
//* VS VS I VSAM11 S 'PROD.FPS.UTILITY'
//FPSUTIL DD DSN=MVS.PROD.FPS.UTILITY,
// DISP=SHR
//* VS VS I VSAM01 S 'PROD.FFB.SYSM.OPERATOR.ID.FILE'
//SYSMOPR DD DSN=PROD.FFB.SYSM.OPERATOR.ID.FILE,
// DISP=SHR
//* VS VS I VSAM02 S 'PROD.UTILITY.MAINT.FILE'
//FBMNTFL DD DSN=MVS.PROD.UTILITY.MAINT.FILE,
// DISP=SHR
//* SD VS I VSAM05 'PROD.FPS.CONTROL.FILE0' BFPXDATE
//CONT0 DD DSN=PROD.FPS.CONTROL.FILE0,
// DISP=SHR
//* SD VS O WORKCAT 'FPS.SYS.BFPD3920.SYSM.FILE'
//SYSMFLE DD DSN=FPS.SYS.BFPD3920.SYSM.FILE,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(1,1),RLSE),
// UNIT=SYSDA
//SYSOUT INCLUDE MEMBER=SYSOUT
//*
//* STEP0060 PROC=MTPBATCH OPNCLSB
//*
//STEP0060 EXEC PROC=MTPBATCH
//* MODULE OPNCLSB PROCESSED BY PLUG-IN OPNCLSB
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I SYSIPT 00C
//SYSIN DD *
CICS PRDCICS2
OPEN SYSMOPR
/*
//*
//SCRATCH EXEC PGM=IEFBR14
//*
//DEL001 DD DSN=TECH.TEMP.SYSMOPR.FILE,DISP=(MOD,DELETE)
//
Return to the Sample Job Stream List