SlideShare a Scribd company logo

Technical Specification - CSVRD02 proc

Download as DOCX, PDF
J
Jon Fortman

This document provides a technical specification for automating the creation of franchise service plan files through batch processing on a mainframe system. It describes the current process, interfaces, program flow, data models, file formats and error handling. The specification outlines enhancements to an existing JCL proc to extract replacement transactions from a database table, convert them to a sales file format, and create a nightly report on replacements.

1 of 19
Download to read offline
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Controlled Copy Confidential Approved and Issued by: IT Governance Template Version: 2.4 Template Revised: August 8, 2013 RSSP Franchise Service Plan Automation Technical Specification CSVRD02 Ver 1.0 100% PREPARED BY APPROVED BY NAME Jon Fortman ROLE SME/Developer
RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 2 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx
RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 3 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx TABLE OF CONTENTS 1. CURRENT ISSUES ....................................................................................................................5 2. CONVENTIONS AND STANDARDS ...........................................................................................5 3. FUNCTIONAL DESCRIPTION ....................................................................................................5 4. ASSUMPTIONS .........................................................................................................................5 5. CONSTRAINTS..........................................................................................................................5 6. INTERFACE ARCHITECTURE ...................................................................................................5 INTERFACE DIAGRAM.....................................................................................................................5 7. BATCH/SCHEDULE INFORMATION ..........................................................................................5 JOB DEPENDENCIES ......................................................................................................................5 FREQUENCY ................................................................................................................................5 PERFORMANCE/VOLUME CONSIDERATIONS.......................................................................................5 8. PROGRAM I/O...........................................................................................................................5 9. FINAL PHYSICAL DATA MODEL DESIGN .................................................................................6 DATABASE/FILE SYSTEM ORGANIZATION ..........................................................................................6 Physical Data Model: .......................................................................................................................................................6 Record Layouts:................................................................................................................................................................6 DATABASE/FILE SYSTEM INTERFACE DETAILS ...................................................................................6 File Name: (Repeat as needed).......................................................................................................................................6 DATABASE/FILE SYSTEM SPACE REQUIREMENTS ...............................................................................6 DATABASE/FILE SYSTEM DECOMMISSIONING ACTIVITIES .....................................................................6 DATABASE TABLE/FILE LAYOUT.......................................................................................................6 Table Name: (Repeat for each table or file)...................................................................................................................6 DATA MAPPING ............................................................................................................................7 10. DETAILED PROGRAM DESCRIPTION ...............................................................................7 PROGRAM FLOW...........................................................................................................................7 DETAILED PSEUDO-CODE ...............................................................................................................7 11. ERROR HANDLING .........................................................................................................17 ERROR CONDITIONS/RESTART LOGIC ............................................................................................17 12. REPORT LAYOUTS .........................................................................................................18 13. KEY CONTRIBUTORS .....................................................................................................18
RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 4 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx 14. REFERENCE ...................................................................................................................18 15. CHANGE LOG .................................................................................................................19
RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 5 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx 1. Current Issues NONE 2. Conventions and Standards IBM z/OS mainframe JCL 3. Functional Description Pre-existing proc that is the central file creator and router for the 010118 and 010119 DRs. 4. Assumptions none 5. Constraints none 6. Interface Architecture Interface Diagram HW Platform: IBM z/OS mainframe DB Platform: na Interface Method:mainframe flat file and VSAM Program Language: IBM JCL Comments: 7. Batch/Schedule Information Job Dependencies Waits on job TCSVRD01. Frequency daily Performance/Volume Considerations Minimal. Franchise collectively sells/refunds ~100 transactions per day 8. Program I/O Na – this specifies changes to a JCL proc
RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 6 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx 9. Final Physical Data Model Design Database/File System Organization Physical Data Model: Record Layouts: Database/File System Interface Details File Name: (Repeat as needed) Format/Type: Input Output Col Field Name Data Type/Size Table Name Field/Formula Name Comment Database/File System Space Requirements Database/File System Decommissioning Activities Database Table/File Layout Table Name: (Repeat for each table or file) Field Name Description Required Field Data Type/Size
RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 7 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx Field Name Description Required Field Data Type/Size Data Mapping Field Name Source File/Table Destination File/Table Description File/Table Name Field Name Data Type/Size File/Table Name Field Name Data Type/Size 10. Detailed Program Description Program Flow na Detailed pseudo-code Changesforproc CSVRD02 are in green: New forproc CSVRD02 are in blue: //CSVRD02 PROC DD=DD, // DEST=LOCAL, // MTH=MMM, // YY=YY //*===================================================================
RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 8 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx //* EXTRACT REPLACEMENT TRANSACTIONS FROM ESO_REPL_ITEM TABLE //*=================================================================== //RPR6620 EXEC PGM=RPR6620 //SYSOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=T //SYSPRINT DD SYSOUT=* //PRINT1 DD DUMMY, // SYSOUT=(*,,1WID), // CHARS=GM15 //PRINT2 DD SYSOUT=(*,,1WID), // CHARS=GM15 //ESORPLO DD DSN=CSVPQ.RS.RPR6620.ESO.REPL.&MTH&DD&YY, // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,5),RLSE), // RECFM=FB, // LRECL=400 //*=================================================================== //* CONVERT REPLACEMENT TRANSACTIONS TO SCSALE FILE FORMAT //*=================================================================== //RPR6621 EXEC PGM=RPR6621 //SYSOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=T //CTRLVSM DD DSN=IN5.RPR.CONTROL, // DISP=SHR, // AMP=('BUFND=49,BUFNI=3') //ESORPLI DD DSN=CSVPQ.RS.RPR6620.ESO.REPL.&MTH&DD&YY, // DISP=OLD //RPRSALEO DD DSN=CSVPQ.RS.RPR6621.ESO.REPL.TICKETS.&MTH&DD&YY, // DISP=(,CATLG,CATLG), // SPACE=(CYL,(2,2),RLSE), // DCB=(LRECL=500,RECFM=FB) //*===================================================================*
RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 9 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx //* NIGHTLY DAILY REPORT FILE CREATOR FOR RSOL(FIELD) REPLACEMENTS //*===================================================================* //RPR6622 EXEC PGM=RPR6622 //SYSUDUMP DD SYSOUT=T //SYSOUT DD SYSOUT=* //RPRSALEI DD DSN=CSVPQ.RS.RPR6621.ESO.REPL.TICKETS.&MTH&DD&YY, // DISP=SHR //RPRSALEO DD DSN=CSVPQ.RS.RPR6622.ESO.REPL.TICKETS.&MTH&DD&YY, // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,2),RLSE), // RECFM=FB, // LRECL=500 //RPRSALEV DD DSN=IN5.RPR.SALE.TICKETS, // DISP=SHR, // AMP=('BUFNI=5','BUFND=24') //RPRCTLIO DD DSN=IN5.RPR.CONTROL, // DISP=SHR, // AMP=('BUFNI=5','BUFND=24') //*===================================================================* //* RSOL(FIELD) REPLACEMENT ACTIVITY REPORT SORTED BY STORE //*===================================================================* //RPR6623 EXEC PGM=RPR6623 //SYSOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSPRINT DD SYSOUT=* //RPT6623 DD SYSOUT=(*,,1WID), // CHARS=GM15 //RPR6623 DD DUMMY //*=================================================================== //* TAKE IN SQL SERVER DATA FOR FRANCHISE SERVICE PLAN SALES/REFUNDS. //* FOR THAT DATA, DO ANY REFORMATTING NEEDED TO COBOL FORMAT. //* FOR DATA NEEDED THAT WAS NOT HARVESTED FROM SQL SERVER DB,
RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 10 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx //* PERFORM CALCULATIONS, DB2 LOOKUPS. //*=================================================================== //RPR6620F EXEC PGM=RPR6620F //SYSOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=T //SYSPRINT DD SYSOUT=* //SCFRNSRI DD DSN=CSVPQ.RS.VASFRNSR.FRANRSPP.SALERFND.&MTH&DD&YY, // DISP=SHR //SCFRNS2O DD DSN=CSVPQ.RS.RPR6620F.FRANRSPP.SALERFND.&MTH&DD&YY, // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,5),RLSE), // RECFM=FB, // LRECL=1000 //*===================================================================== //* TRANSCRIBE FRANCHISE SERVICE PLAN TRANSACTIONS TO SCSALE FILE FORMAT //*===================================================================== //RPR6621F EXEC PGM=RPR6621F //SYSOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=T //CTRLVSM DD DSN=IN5.RPR.CONTROL, // DISP=SHR, // AMP=('BUFND=49,BUFNI=3') //SCFRNS2I DD DSN=CSVPQ.RS.RPR6620F.FRANRSPP.SALERFND.&MTH&DD&YY, // DISP=SHR //RPRSALEO DD DSN=CSVPQ.RS.RPR6621F.FRANRSPP.DR010118.&MTH&DD&YY, // DISP=(,CATLG,CATLG), // SPACE=(CYL,(5,5),RLSE), // DCB=(LRECL=500,RECFM=FB) //*===================================================================* //* CREATE 'A' REC BY SUMMING TICKET RECS AND DETERMINE WHAT DAILY //* REPORT DATE TO ROUTE TICKETS TO. //*===================================================================*
RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 11 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx //RPR6622F EXEC PGM=RPR6622F //SYSUDUMP DD SYSOUT=T //SYSOUT DD SYSOUT=* //RPRSALEI DD DSN=CSVPQ.RS.RPR6621F.FRANRSPP.DR010118.&MTH&DD&YY, // DISP=SHR //RPRSALEO DD DSN=CSVPQ.RS.RPR6622F.FRANRSPP.DR010118.&MTH&DD&YY, // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,2),RLSE), // RECFM=FB, // LRECL=500 //RPRSALEV DD DSN=IN5.RPR.SALE.TICKETS, // DISP=SHR, // AMP=('BUFNI=5','BUFND=24') //RPRCTLIO DD DSN=IN5.RPR.CONTROL, // DISP=SHR, // AMP=('BUFNI=5','BUFND=24') //*===================================================================* //* SYNCSORT DOESN'T ALLOW A VSAM FILE TO BE CONCATENATED IN A SORTIN //* SO WE HAVE TO DUMP IT TO QSAM FIRST. //*===================================================================* //DUMPSALE EXEC PGM=SORT //STATOUT DD DUMMY //SYSOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=T //SORTIN DD DSN=IN5.RPR.SALE.TICKETS, // DISP=SHR, // AMP=('BUFND=49,BUFNI=3') //SORTOUT DD DSN=CSVPQ.RS.SYNCSORT.SLTKTS.VSAMDUMP.&MTH&DD&YY, // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,5),RLSE), // RECFM=FB, // LRECL=500
RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 12 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx //SYSIN DD DSN=CMNTIS.PRDP.CTC(SORTCOPY), // DISP=SHR //*===================================================================* //* MERGE ESO REPLACEMENTS AND FRANCHISE SERVICE PLAN SALES/REFUNDS //* WITH SALE TICKET VSAM FILE AND SPLIT OUT RADIO SHACK AND COMPUTER //* CITY. //* //* >>>> VERY IMPORTANT >>>> THE ESO AND FRANCHISE SALE/REFUND FILES //* MUST ALWAYS BE SPECIFIED //* FIRST IN THIS DD LIST BECAUSE THEY CONTAIN UPDATED "A" RECS THAT //* WE NEED TO BE PRESENT ON THE NEW IN5.RPR.SALE.TICKETS. IF THE ORDER //* OF THE FILES IS CHANGED THE SUM FIELDS=NONE AND EQUALS PARAMETERS //* WON'T WORK AND WE WILL GET A DAILY REPORT OUT OF BALANCE. WE WANT //* THE "A" RECS THAT ARE ON THE ESO AND FRANCHISE SALE/REFUND FILE //* NOT THE ONES ON THE VSAM DUMPOUT. //*===================================================================* //MERGE EXEC PGM=SORT //STATOUT DD DUMMY //SYSOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=T //SORTIN DD DSN=CSVPQ.RS.RPR6622F.FRANRSPP.DR010118.&MTH&DD&YY, // DISP=SHR // DD DSN=CSVPQ.RS.RPR6622.ESO.REPL.TICKETS.&MTH&DD&YY, // DISP=SHR // DD DSN=CSVPQ.RS.SYNCSORT.SLTKTS.VSAMDUMP.&MTH&DD&YY, // DISP=SHR //SORTOF01 DD DSN=CSVPQ.RS.SYNCSORT.SALE.TICKETS, // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,5),RLSE), // RECFM=FB, // LRECL=500 //SORTOF02 DD DSN=CSVPQ.CC.SYNCSORT.SALE.TICKETS,
RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 13 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,5),RLSE), // RECFM=FB, // LRECL=500 //SYSIN DD DSN=CMNTIS.PRDP.CTC(CSVRD02A), // DISP=SHR //*===================================================================* //* CENTRAL DAILY REPORT ROUTER //*===================================================================* //RPR6602 EXEC PGM=RPR6602 //PRINT1 DD SYSOUT=V, // DEST=&DEST //SYSUDUMP DD SYSOUT=T //SYSOUT DD SYSOUT=* //CTRLVSM DD DSN=IN5.RPR.CONTROL, // DISP=OLD, // AMP=('BUFND=49,BUFNI=3') //RPRSALEI DD DSN=CSVPQ.RS.SYNCSORT.SALE.TICKETS, // DISP=SHR //RPRSALEO DD DSN=CSVPQ.RS.RPR6602.SALE.TICKETS.&MTH&DD&YY, // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,2),RLSE), // DCB=(LRECL=500,RECFM=FB) //RPRSALEC DD DSN=CSVPQ.RS.RPR6602.SALE.CMPLT.&MTH&DD&YY, // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,2),RLSE), // DCB=(LRECL=500,RECFM=FB) //RPRSALEP DD DSN=CSVPQ.RS.RPR6602.SALE.PURGE.&MTH&DD&YY, // DISP=(,CATLG,DELETE), // SPACE=(TRK,(75,75),RLSE), // DCB=(LRECL=500,RECFM=FB) //RPRSALEF DD DSN=CSVPQ.RS.RPR6602.SALE.FUTURE.&MTH&DD&YY,
RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 14 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,2),RLSE), // DCB=(LRECL=500,RECFM=FB) //RPRISCTO DD DSN=CSVPQ.RS.RPR6602.ISCT.NAME.&MTH&DD&YY, // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,2),RLSE), // DCB=(LRECL=200,RECFM=FB) //BKPTSPCO DD DSN=CSVPQ.RS.RPR6602.BKPTSPC.&MTH&DD&YY, // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,2),RLSE), // DCB=(LRECL=500,RECFM=VB) //RPRSKUO DD DSN=CSVPQ.RS.RPR6602.ISCT.NAME.SKUS.&MTH&DD&YY, // DISP=(,CATLG,DELETE), // SPACE=(TRK,(75,75),RLSE), // RECFM=FB, // LRECL=50 //*===================================================================* //* CREATE TEMP GDG FOR BOOKKEEPING INPUT. THIS TECHNIQUE ALLOWS //* FOR MULTIPLE DAILY REPORTS TO BE ON SEPARATE FILES (IF NEEDED) //* AND CONCATENATED WITHOUT JCL CHANGES. //*===================================================================* //SORTCOPY EXEC PGM=SORT //STATOUT DD DUMMY //SYSUDUMP DD SYSOUT=T //SYSOUT DD SYSOUT=* //SORTIN DD DSN=CSVPQ.RS.RPR6602.BKPTSPC.&MTH&DD&YY, // DISP=SHR //SORTOUT DD DSN=UN5.RPR.RPR6602.BKPTSPC.COPY(+1), // DISP=(,CATLG,DELETE), // SPACE=(TRK,(5,5),RLSE), // DCB=(GDG,RECFM=VB) //SYSIN DD DSN=CMNTIS.PRDP.CTC(SORTCOPY),
RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 15 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx // DISP=SHR //*===================================================================* //* MERGE ALL TICKETS ASSOCIATED WITH DAILY REPORTS STILL BEING //* WORKED //*===================================================================* //MRGTKTS EXEC PGM=SORT //STATOUT DD DUMMY //SYSUDUMP DD SYSOUT=T //SYSOUT DD SYSOUT=* //SORTIN DD DSN=CSVPQ.RS.RPR6602.SALE.TICKETS.&MTH&DD&YY, // DISP=SHR // DD DSN=CSVPQ.RS.RPR6602.SALE.FUTURE.&MTH&DD&YY, // DISP=SHR // DD DSN=CSVPQ.CC.SYNCSORT.SALE.TICKETS, // DISP=SHR //SORTOUT DD DSN=CSVPQ.RS.SYNCSORT.SALE.TICKETS.MRG, // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,5),RLSE), // RECFM=FB, // LRECL=500 //SYSIN DD DSN=CMNTIS.PRDP.CTC(CSVRD02B), // DISP=SHR //SORTWK01 DD SPACE=(CYL,(10,10),RLSE) //SORTWK02 DD SPACE=(CYL,(10,10),RLSE) //SORTWK03 DD SPACE=(CYL,(10,10),RLSE) //SORTWK04 DD SPACE=(CYL,(10,10),RLSE) //SORTWK05 DD SPACE=(CYL,(10,10),RLSE) //SORTWK06 DD SPACE=(CYL,(10,10),RLSE) //SORTWK07 DD SPACE=(CYL,(10,10),RLSE) //SORTWK08 DD SPACE=(CYL,(10,10),RLSE) //*===================================================================* //* RPRSALE VSAM DEFINITION
RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 16 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx //*===================================================================* //DLDFSALE EXEC PGM=TISAMS, // PARM='RC=8' //SYSUDUMP DD SYSOUT=T //SYSPRINT DD SYSOUT=* //SYSIN DD DSN=CICSPDS.IDCAMS.PRODCICS.DLDF.SYSIN(RPRSALE), // DISP=SHR //*===================================================================* //* LOAD SALE TICKET VSAM FILE WITH TRANSACTIONS STILL BEING WORKED //*===================================================================* //RELDSALE EXEC PGM=SORT //STATOUT DD DUMMY //SYSOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=T //SORTIN DD DSN=CSVPQ.RS.SYNCSORT.SALE.TICKETS.MRG, // DISP=SHR //SORTOUT DD DSN=IN5.RPR.SALE.TICKETS, // DISP=OLD, // AMP=('BUFND=49,BUFNI=3') //SYSIN DD DSN=CMNTIS.PRDP.CTC(SRTCOPY), // DISP=SHR //*===================================================================* //* BUILD SALE TICKET VSAM FILE ALTERNATE INDEX //*===================================================================* //BLDALTDX EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=T //BASE DD DSN=IN5.RPR.SALE.TICKETS, // DISP=SHR, // AMP=('BUFND=24','BUFNI=5') //INDEX DD DSN=IN5.RPR.SALE.TICKETS.ALT, // DISP=SHR,
RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 17 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx // AMP=('BUFND=24','BUFNI=5') //SYSIN DD DSN=CMNTIS.PRDP.CTC(BLDAIX), // DISP=SHR //*===================================================================* //* KILL IT IF BUILD ALTERNATE INDEX STEP NO GOOD //*===================================================================* //CHKQNDX1 EXEC PGM=ABENDIT, // COND=(0,EQ,BLDALTDX), // PARM='999,BLDALTDX HAS FAILED! ' //SYSUDUMP DD SYSOUT=T //*===================================================================* //* THE NON-DATE-PARMED VERSION OF THIS COMPLETED FILE IS NEEDED //* BY OTHER JOBS THAT DON'T TAKE IN THESE PARMS //*===================================================================* //CPYCMPLT EXEC PGM=SORT //STATOUT DD DUMMY //SYSOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=T //SORTIN DD DSN=CSVPQ.RS.RPR6602.SALE.CMPLT.&MTH&DD&YY, // DISP=SHR //SORTOUT DD DSN=CSVPQ.RS.RPR6602.SALE.CMPLT, // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,2),RLSE), // DCB=(LRECL=500,RECFM=FB) //SYSIN DD DSN=CMNTIS.PRDP.CTC(SORTCOPY), // DISP=SHR //* ENDPROC > OPC RESTART RQMT < // PEND 11. Error Handling Error Conditions/Restart Logic No change
RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 18 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx 12. Report Layouts 123456789012345678901234567890123456789012345678012345678901234567890 13. Key Contributors Name Project Role 14. Reference
RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 19 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx 15.Change Log New Version # Changes Effected Page # Effective Date Remarks

More Related Content

DOCX
System Architecture v3.0
Jon Fortman
 
PPT
Beran APM720 Monitoring System
MachineryWatch.Com, Inc.
 
DOCX
ABB DRIVES_Drive control unit "RDCU_12-C"
Mahmoud Hassan
 
PDF
ABB DRIVE MANAGER TOOL REV-4
Debasis Paul
 
PDF
Client Success Story - Oracle FDMEE is the Cloud Data Hub at Legg Mason
Alithya
 
PPT
FLEETCAM 3g PP June 2016
Sanda Paliso
 
PDF
Acta asamblea ambiental 1 de octubre 2013
Felipe Figueroa Tancara
 
PPTX
EWH_WGs_eng
Vera Maria Budway-Strobach
 
System Architecture v3.0
Jon Fortman
 
Beran APM720 Monitoring System
MachineryWatch.Com, Inc.
 
ABB DRIVES_Drive control unit "RDCU_12-C"
Mahmoud Hassan
 
ABB DRIVE MANAGER TOOL REV-4
Debasis Paul
 
Client Success Story - Oracle FDMEE is the Cloud Data Hub at Legg Mason
Alithya
 
FLEETCAM 3g PP June 2016
Sanda Paliso
 
Acta asamblea ambiental 1 de octubre 2013
Felipe Figueroa Tancara
 
EWH_WGs_eng
Vera Maria Budway-Strobach
 

Viewers also liked (13)

DOCX
Computer graphics
snelkoli
 
PDF
C++ boot camp part 1/2
Jesse Talavera-Greenberg
 
DOC
Números del 0 al 99
luis alberto
 
PDF
Furniture Collection, Designed and Crafted by Hector Carmona
Hector Carmona
 
PDF
Rastreabilidade mundial - out/12
AgroTalento
 
PPTX
Seasonal Allergies
allergy_information
 
PDF
AllWestEverything Internship articles
Krysisha Conly
 
DOCX
La pintura de rafael
Muchoarte
 
PPT
ODMG
ilian patricia bocanegra alfaro
 
PPTX
Lbs usage and_perceptions_survey_presentation
ed4wb
 
PPTX
Video analysis
penfolde
 
PDF
Social Media Bootcamp for Church, Vancouver, 2015
Bruce Reyes-Chow
 
PPTX
1.32.kurayzaogullari ve onlarla savas islam tarihi il üniversitesi
Colorado Theology University
 
Computer graphics
snelkoli
 
C++ boot camp part 1/2
Jesse Talavera-Greenberg
 
Números del 0 al 99
luis alberto
 
Furniture Collection, Designed and Crafted by Hector Carmona
Hector Carmona
 
Rastreabilidade mundial - out/12
AgroTalento
 
Seasonal Allergies
allergy_information
 
AllWestEverything Internship articles
Krysisha Conly
 
La pintura de rafael
Muchoarte
 
ODMG
ilian patricia bocanegra alfaro
 
Lbs usage and_perceptions_survey_presentation
ed4wb
 
Video analysis
penfolde
 
Social Media Bootcamp for Church, Vancouver, 2015
Bruce Reyes-Chow
 
1.32.kurayzaogullari ve onlarla savas islam tarihi il üniversitesi
Colorado Theology University
 
Ad

More from Jon Fortman (8)

DOCX
Technical Specification - RPR6620F cobol
Jon Fortman
 
DOCX
Impact Analysis FRAN PCT DATA DEFINITION CHANGE
Jon Fortman
 
DOCX
COBOL DB2 BATCH EXAMPLE-RPR6520
Jon Fortman
 
DOCX
COBOL CICS EXAMPLE-SC52P52
Jon Fortman
 
DOCX
COBOL BATCH EXAMPLE-RPR6621F
Jon Fortman
 
DOCX
Data Mapping - SCSALE COPYBOOK MAPPING PRELIM GUIDE
Jon Fortman
 
DOCX
Test Proofing Protocol - RPR6320 Assurant Xmit-a
Jon Fortman
 
PPTX
RSSP Franchise Service Plan Automation
Jon Fortman
 
Technical Specification - RPR6620F cobol
Jon Fortman
 
Impact Analysis FRAN PCT DATA DEFINITION CHANGE
Jon Fortman
 
COBOL DB2 BATCH EXAMPLE-RPR6520
Jon Fortman
 
COBOL CICS EXAMPLE-SC52P52
Jon Fortman
 
COBOL BATCH EXAMPLE-RPR6621F
Jon Fortman
 
Data Mapping - SCSALE COPYBOOK MAPPING PRELIM GUIDE
Jon Fortman
 
Test Proofing Protocol - RPR6320 Assurant Xmit-a
Jon Fortman
 
RSSP Franchise Service Plan Automation
Jon Fortman
 
Ad

Technical Specification - CSVRD02 proc

  • 1. Controlled Copy Confidential Approved and Issued by: IT Governance Template Version: 2.4 Template Revised: August 8, 2013 RSSP Franchise Service Plan Automation Technical Specification CSVRD02 Ver 1.0 100% PREPARED BY APPROVED BY NAME Jon Fortman ROLE SME/Developer
  • 2. RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 2 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx
  • 3. RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 3 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx TABLE OF CONTENTS 1. CURRENT ISSUES ....................................................................................................................5 2. CONVENTIONS AND STANDARDS ...........................................................................................5 3. FUNCTIONAL DESCRIPTION ....................................................................................................5 4. ASSUMPTIONS .........................................................................................................................5 5. CONSTRAINTS..........................................................................................................................5 6. INTERFACE ARCHITECTURE ...................................................................................................5 INTERFACE DIAGRAM.....................................................................................................................5 7. BATCH/SCHEDULE INFORMATION ..........................................................................................5 JOB DEPENDENCIES ......................................................................................................................5 FREQUENCY ................................................................................................................................5 PERFORMANCE/VOLUME CONSIDERATIONS.......................................................................................5 8. PROGRAM I/O...........................................................................................................................5 9. FINAL PHYSICAL DATA MODEL DESIGN .................................................................................6 DATABASE/FILE SYSTEM ORGANIZATION ..........................................................................................6 Physical Data Model: .......................................................................................................................................................6 Record Layouts:................................................................................................................................................................6 DATABASE/FILE SYSTEM INTERFACE DETAILS ...................................................................................6 File Name: (Repeat as needed).......................................................................................................................................6 DATABASE/FILE SYSTEM SPACE REQUIREMENTS ...............................................................................6 DATABASE/FILE SYSTEM DECOMMISSIONING ACTIVITIES .....................................................................6 DATABASE TABLE/FILE LAYOUT.......................................................................................................6 Table Name: (Repeat for each table or file)...................................................................................................................6 DATA MAPPING ............................................................................................................................7 10. DETAILED PROGRAM DESCRIPTION ...............................................................................7 PROGRAM FLOW...........................................................................................................................7 DETAILED PSEUDO-CODE ...............................................................................................................7 11. ERROR HANDLING .........................................................................................................17 ERROR CONDITIONS/RESTART LOGIC ............................................................................................17 12. REPORT LAYOUTS .........................................................................................................18 13. KEY CONTRIBUTORS .....................................................................................................18
  • 4. RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 4 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx 14. REFERENCE ...................................................................................................................18 15. CHANGE LOG .................................................................................................................19
  • 5. RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 5 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx 1. Current Issues NONE 2. Conventions and Standards IBM z/OS mainframe JCL 3. Functional Description Pre-existing proc that is the central file creator and router for the 010118 and 010119 DRs. 4. Assumptions none 5. Constraints none 6. Interface Architecture Interface Diagram HW Platform: IBM z/OS mainframe DB Platform: na Interface Method:mainframe flat file and VSAM Program Language: IBM JCL Comments: 7. Batch/Schedule Information Job Dependencies Waits on job TCSVRD01. Frequency daily Performance/Volume Considerations Minimal. Franchise collectively sells/refunds ~100 transactions per day 8. Program I/O Na – this specifies changes to a JCL proc
  • 6. RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 6 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx 9. Final Physical Data Model Design Database/File System Organization Physical Data Model: Record Layouts: Database/File System Interface Details File Name: (Repeat as needed) Format/Type: Input Output Col Field Name Data Type/Size Table Name Field/Formula Name Comment Database/File System Space Requirements Database/File System Decommissioning Activities Database Table/File Layout Table Name: (Repeat for each table or file) Field Name Description Required Field Data Type/Size
  • 7. RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 7 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx Field Name Description Required Field Data Type/Size Data Mapping Field Name Source File/Table Destination File/Table Description File/Table Name Field Name Data Type/Size File/Table Name Field Name Data Type/Size 10. Detailed Program Description Program Flow na Detailed pseudo-code Changesforproc CSVRD02 are in green: New forproc CSVRD02 are in blue: //CSVRD02 PROC DD=DD, // DEST=LOCAL, // MTH=MMM, // YY=YY //*===================================================================
  • 8. RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 8 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx //* EXTRACT REPLACEMENT TRANSACTIONS FROM ESO_REPL_ITEM TABLE //*=================================================================== //RPR6620 EXEC PGM=RPR6620 //SYSOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=T //SYSPRINT DD SYSOUT=* //PRINT1 DD DUMMY, // SYSOUT=(*,,1WID), // CHARS=GM15 //PRINT2 DD SYSOUT=(*,,1WID), // CHARS=GM15 //ESORPLO DD DSN=CSVPQ.RS.RPR6620.ESO.REPL.&MTH&DD&YY, // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,5),RLSE), // RECFM=FB, // LRECL=400 //*=================================================================== //* CONVERT REPLACEMENT TRANSACTIONS TO SCSALE FILE FORMAT //*=================================================================== //RPR6621 EXEC PGM=RPR6621 //SYSOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=T //CTRLVSM DD DSN=IN5.RPR.CONTROL, // DISP=SHR, // AMP=('BUFND=49,BUFNI=3') //ESORPLI DD DSN=CSVPQ.RS.RPR6620.ESO.REPL.&MTH&DD&YY, // DISP=OLD //RPRSALEO DD DSN=CSVPQ.RS.RPR6621.ESO.REPL.TICKETS.&MTH&DD&YY, // DISP=(,CATLG,CATLG), // SPACE=(CYL,(2,2),RLSE), // DCB=(LRECL=500,RECFM=FB) //*===================================================================*
  • 9. RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 9 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx //* NIGHTLY DAILY REPORT FILE CREATOR FOR RSOL(FIELD) REPLACEMENTS //*===================================================================* //RPR6622 EXEC PGM=RPR6622 //SYSUDUMP DD SYSOUT=T //SYSOUT DD SYSOUT=* //RPRSALEI DD DSN=CSVPQ.RS.RPR6621.ESO.REPL.TICKETS.&MTH&DD&YY, // DISP=SHR //RPRSALEO DD DSN=CSVPQ.RS.RPR6622.ESO.REPL.TICKETS.&MTH&DD&YY, // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,2),RLSE), // RECFM=FB, // LRECL=500 //RPRSALEV DD DSN=IN5.RPR.SALE.TICKETS, // DISP=SHR, // AMP=('BUFNI=5','BUFND=24') //RPRCTLIO DD DSN=IN5.RPR.CONTROL, // DISP=SHR, // AMP=('BUFNI=5','BUFND=24') //*===================================================================* //* RSOL(FIELD) REPLACEMENT ACTIVITY REPORT SORTED BY STORE //*===================================================================* //RPR6623 EXEC PGM=RPR6623 //SYSOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSPRINT DD SYSOUT=* //RPT6623 DD SYSOUT=(*,,1WID), // CHARS=GM15 //RPR6623 DD DUMMY //*=================================================================== //* TAKE IN SQL SERVER DATA FOR FRANCHISE SERVICE PLAN SALES/REFUNDS. //* FOR THAT DATA, DO ANY REFORMATTING NEEDED TO COBOL FORMAT. //* FOR DATA NEEDED THAT WAS NOT HARVESTED FROM SQL SERVER DB,
  • 10. RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 10 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx //* PERFORM CALCULATIONS, DB2 LOOKUPS. //*=================================================================== //RPR6620F EXEC PGM=RPR6620F //SYSOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=T //SYSPRINT DD SYSOUT=* //SCFRNSRI DD DSN=CSVPQ.RS.VASFRNSR.FRANRSPP.SALERFND.&MTH&DD&YY, // DISP=SHR //SCFRNS2O DD DSN=CSVPQ.RS.RPR6620F.FRANRSPP.SALERFND.&MTH&DD&YY, // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,5),RLSE), // RECFM=FB, // LRECL=1000 //*===================================================================== //* TRANSCRIBE FRANCHISE SERVICE PLAN TRANSACTIONS TO SCSALE FILE FORMAT //*===================================================================== //RPR6621F EXEC PGM=RPR6621F //SYSOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=T //CTRLVSM DD DSN=IN5.RPR.CONTROL, // DISP=SHR, // AMP=('BUFND=49,BUFNI=3') //SCFRNS2I DD DSN=CSVPQ.RS.RPR6620F.FRANRSPP.SALERFND.&MTH&DD&YY, // DISP=SHR //RPRSALEO DD DSN=CSVPQ.RS.RPR6621F.FRANRSPP.DR010118.&MTH&DD&YY, // DISP=(,CATLG,CATLG), // SPACE=(CYL,(5,5),RLSE), // DCB=(LRECL=500,RECFM=FB) //*===================================================================* //* CREATE 'A' REC BY SUMMING TICKET RECS AND DETERMINE WHAT DAILY //* REPORT DATE TO ROUTE TICKETS TO. //*===================================================================*
  • 11. RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 11 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx //RPR6622F EXEC PGM=RPR6622F //SYSUDUMP DD SYSOUT=T //SYSOUT DD SYSOUT=* //RPRSALEI DD DSN=CSVPQ.RS.RPR6621F.FRANRSPP.DR010118.&MTH&DD&YY, // DISP=SHR //RPRSALEO DD DSN=CSVPQ.RS.RPR6622F.FRANRSPP.DR010118.&MTH&DD&YY, // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,2),RLSE), // RECFM=FB, // LRECL=500 //RPRSALEV DD DSN=IN5.RPR.SALE.TICKETS, // DISP=SHR, // AMP=('BUFNI=5','BUFND=24') //RPRCTLIO DD DSN=IN5.RPR.CONTROL, // DISP=SHR, // AMP=('BUFNI=5','BUFND=24') //*===================================================================* //* SYNCSORT DOESN'T ALLOW A VSAM FILE TO BE CONCATENATED IN A SORTIN //* SO WE HAVE TO DUMP IT TO QSAM FIRST. //*===================================================================* //DUMPSALE EXEC PGM=SORT //STATOUT DD DUMMY //SYSOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=T //SORTIN DD DSN=IN5.RPR.SALE.TICKETS, // DISP=SHR, // AMP=('BUFND=49,BUFNI=3') //SORTOUT DD DSN=CSVPQ.RS.SYNCSORT.SLTKTS.VSAMDUMP.&MTH&DD&YY, // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,5),RLSE), // RECFM=FB, // LRECL=500
  • 12. RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 12 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx //SYSIN DD DSN=CMNTIS.PRDP.CTC(SORTCOPY), // DISP=SHR //*===================================================================* //* MERGE ESO REPLACEMENTS AND FRANCHISE SERVICE PLAN SALES/REFUNDS //* WITH SALE TICKET VSAM FILE AND SPLIT OUT RADIO SHACK AND COMPUTER //* CITY. //* //* >>>> VERY IMPORTANT >>>> THE ESO AND FRANCHISE SALE/REFUND FILES //* MUST ALWAYS BE SPECIFIED //* FIRST IN THIS DD LIST BECAUSE THEY CONTAIN UPDATED "A" RECS THAT //* WE NEED TO BE PRESENT ON THE NEW IN5.RPR.SALE.TICKETS. IF THE ORDER //* OF THE FILES IS CHANGED THE SUM FIELDS=NONE AND EQUALS PARAMETERS //* WON'T WORK AND WE WILL GET A DAILY REPORT OUT OF BALANCE. WE WANT //* THE "A" RECS THAT ARE ON THE ESO AND FRANCHISE SALE/REFUND FILE //* NOT THE ONES ON THE VSAM DUMPOUT. //*===================================================================* //MERGE EXEC PGM=SORT //STATOUT DD DUMMY //SYSOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=T //SORTIN DD DSN=CSVPQ.RS.RPR6622F.FRANRSPP.DR010118.&MTH&DD&YY, // DISP=SHR // DD DSN=CSVPQ.RS.RPR6622.ESO.REPL.TICKETS.&MTH&DD&YY, // DISP=SHR // DD DSN=CSVPQ.RS.SYNCSORT.SLTKTS.VSAMDUMP.&MTH&DD&YY, // DISP=SHR //SORTOF01 DD DSN=CSVPQ.RS.SYNCSORT.SALE.TICKETS, // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,5),RLSE), // RECFM=FB, // LRECL=500 //SORTOF02 DD DSN=CSVPQ.CC.SYNCSORT.SALE.TICKETS,
  • 13. RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 13 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,5),RLSE), // RECFM=FB, // LRECL=500 //SYSIN DD DSN=CMNTIS.PRDP.CTC(CSVRD02A), // DISP=SHR //*===================================================================* //* CENTRAL DAILY REPORT ROUTER //*===================================================================* //RPR6602 EXEC PGM=RPR6602 //PRINT1 DD SYSOUT=V, // DEST=&DEST //SYSUDUMP DD SYSOUT=T //SYSOUT DD SYSOUT=* //CTRLVSM DD DSN=IN5.RPR.CONTROL, // DISP=OLD, // AMP=('BUFND=49,BUFNI=3') //RPRSALEI DD DSN=CSVPQ.RS.SYNCSORT.SALE.TICKETS, // DISP=SHR //RPRSALEO DD DSN=CSVPQ.RS.RPR6602.SALE.TICKETS.&MTH&DD&YY, // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,2),RLSE), // DCB=(LRECL=500,RECFM=FB) //RPRSALEC DD DSN=CSVPQ.RS.RPR6602.SALE.CMPLT.&MTH&DD&YY, // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,2),RLSE), // DCB=(LRECL=500,RECFM=FB) //RPRSALEP DD DSN=CSVPQ.RS.RPR6602.SALE.PURGE.&MTH&DD&YY, // DISP=(,CATLG,DELETE), // SPACE=(TRK,(75,75),RLSE), // DCB=(LRECL=500,RECFM=FB) //RPRSALEF DD DSN=CSVPQ.RS.RPR6602.SALE.FUTURE.&MTH&DD&YY,
  • 14. RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 14 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,2),RLSE), // DCB=(LRECL=500,RECFM=FB) //RPRISCTO DD DSN=CSVPQ.RS.RPR6602.ISCT.NAME.&MTH&DD&YY, // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,2),RLSE), // DCB=(LRECL=200,RECFM=FB) //BKPTSPCO DD DSN=CSVPQ.RS.RPR6602.BKPTSPC.&MTH&DD&YY, // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,2),RLSE), // DCB=(LRECL=500,RECFM=VB) //RPRSKUO DD DSN=CSVPQ.RS.RPR6602.ISCT.NAME.SKUS.&MTH&DD&YY, // DISP=(,CATLG,DELETE), // SPACE=(TRK,(75,75),RLSE), // RECFM=FB, // LRECL=50 //*===================================================================* //* CREATE TEMP GDG FOR BOOKKEEPING INPUT. THIS TECHNIQUE ALLOWS //* FOR MULTIPLE DAILY REPORTS TO BE ON SEPARATE FILES (IF NEEDED) //* AND CONCATENATED WITHOUT JCL CHANGES. //*===================================================================* //SORTCOPY EXEC PGM=SORT //STATOUT DD DUMMY //SYSUDUMP DD SYSOUT=T //SYSOUT DD SYSOUT=* //SORTIN DD DSN=CSVPQ.RS.RPR6602.BKPTSPC.&MTH&DD&YY, // DISP=SHR //SORTOUT DD DSN=UN5.RPR.RPR6602.BKPTSPC.COPY(+1), // DISP=(,CATLG,DELETE), // SPACE=(TRK,(5,5),RLSE), // DCB=(GDG,RECFM=VB) //SYSIN DD DSN=CMNTIS.PRDP.CTC(SORTCOPY),
  • 15. RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 15 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx // DISP=SHR //*===================================================================* //* MERGE ALL TICKETS ASSOCIATED WITH DAILY REPORTS STILL BEING //* WORKED //*===================================================================* //MRGTKTS EXEC PGM=SORT //STATOUT DD DUMMY //SYSUDUMP DD SYSOUT=T //SYSOUT DD SYSOUT=* //SORTIN DD DSN=CSVPQ.RS.RPR6602.SALE.TICKETS.&MTH&DD&YY, // DISP=SHR // DD DSN=CSVPQ.RS.RPR6602.SALE.FUTURE.&MTH&DD&YY, // DISP=SHR // DD DSN=CSVPQ.CC.SYNCSORT.SALE.TICKETS, // DISP=SHR //SORTOUT DD DSN=CSVPQ.RS.SYNCSORT.SALE.TICKETS.MRG, // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,5),RLSE), // RECFM=FB, // LRECL=500 //SYSIN DD DSN=CMNTIS.PRDP.CTC(CSVRD02B), // DISP=SHR //SORTWK01 DD SPACE=(CYL,(10,10),RLSE) //SORTWK02 DD SPACE=(CYL,(10,10),RLSE) //SORTWK03 DD SPACE=(CYL,(10,10),RLSE) //SORTWK04 DD SPACE=(CYL,(10,10),RLSE) //SORTWK05 DD SPACE=(CYL,(10,10),RLSE) //SORTWK06 DD SPACE=(CYL,(10,10),RLSE) //SORTWK07 DD SPACE=(CYL,(10,10),RLSE) //SORTWK08 DD SPACE=(CYL,(10,10),RLSE) //*===================================================================* //* RPRSALE VSAM DEFINITION
  • 16. RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 16 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx //*===================================================================* //DLDFSALE EXEC PGM=TISAMS, // PARM='RC=8' //SYSUDUMP DD SYSOUT=T //SYSPRINT DD SYSOUT=* //SYSIN DD DSN=CICSPDS.IDCAMS.PRODCICS.DLDF.SYSIN(RPRSALE), // DISP=SHR //*===================================================================* //* LOAD SALE TICKET VSAM FILE WITH TRANSACTIONS STILL BEING WORKED //*===================================================================* //RELDSALE EXEC PGM=SORT //STATOUT DD DUMMY //SYSOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=T //SORTIN DD DSN=CSVPQ.RS.SYNCSORT.SALE.TICKETS.MRG, // DISP=SHR //SORTOUT DD DSN=IN5.RPR.SALE.TICKETS, // DISP=OLD, // AMP=('BUFND=49,BUFNI=3') //SYSIN DD DSN=CMNTIS.PRDP.CTC(SRTCOPY), // DISP=SHR //*===================================================================* //* BUILD SALE TICKET VSAM FILE ALTERNATE INDEX //*===================================================================* //BLDALTDX EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=T //BASE DD DSN=IN5.RPR.SALE.TICKETS, // DISP=SHR, // AMP=('BUFND=24','BUFNI=5') //INDEX DD DSN=IN5.RPR.SALE.TICKETS.ALT, // DISP=SHR,
  • 17. RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 17 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx // AMP=('BUFND=24','BUFNI=5') //SYSIN DD DSN=CMNTIS.PRDP.CTC(BLDAIX), // DISP=SHR //*===================================================================* //* KILL IT IF BUILD ALTERNATE INDEX STEP NO GOOD //*===================================================================* //CHKQNDX1 EXEC PGM=ABENDIT, // COND=(0,EQ,BLDALTDX), // PARM='999,BLDALTDX HAS FAILED! ' //SYSUDUMP DD SYSOUT=T //*===================================================================* //* THE NON-DATE-PARMED VERSION OF THIS COMPLETED FILE IS NEEDED //* BY OTHER JOBS THAT DON'T TAKE IN THESE PARMS //*===================================================================* //CPYCMPLT EXEC PGM=SORT //STATOUT DD DUMMY //SYSOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=T //SORTIN DD DSN=CSVPQ.RS.RPR6602.SALE.CMPLT.&MTH&DD&YY, // DISP=SHR //SORTOUT DD DSN=CSVPQ.RS.RPR6602.SALE.CMPLT, // DISP=(,CATLG,DELETE), // SPACE=(CYL,(5,2),RLSE), // DCB=(LRECL=500,RECFM=FB) //SYSIN DD DSN=CMNTIS.PRDP.CTC(SORTCOPY), // DISP=SHR //* ENDPROC > OPC RESTART RQMT < // PEND 11. Error Handling Error Conditions/Restart Logic No change
  • 18. RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 18 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx 12. Report Layouts 123456789012345678901234567890123456789012345678012345678901234567890 13. Key Contributors Name Project Role 14. Reference
  • 19. RSSP Franchise Service Plan Automation Technical Specification CSVRD02 PROC Page 19 of 19 Last Update Date:9/22/2015 8:22:00 PM Last Saved By:Jon Fortman Z:tempw indows20150922202159_579494936c2380a14bf5b60d32e1fee87b9fb9d30188bc86-0f5f-4930-92d3-88d48ce9037f- 150922202158-lva1-app6891.docx 15.Change Log New Version # Changes Effected Page # Effective Date Remarks