//********************************************************************  00020100
//* THIS JOB WILL EXTRACT REPORT TYPE 414 TO BE ARCHIVED FROM THE   *   00020201
//* MONTHLY SOA WHEN DTSRQ414 RUNS STANDALONE. THIS JOB IS PART OF   *  00020301
//* THE MONTH END PROCESSING                                         *  00020401
//********************************************************************  00020500
//STEP0100 EXEC PGM=SORT,                          SORT REPORT RECORDS   00031000
//             COND=(0,LT)                                              00032000
//SYSOUT DD SYSOUT=(*)                                                  00040000
//SYSPRINT DD SYSOUT=(*)                                                00041000
//SORTIN  DD  DSN=DOESTAX.PROD.PER.RPT(+1),DISP=SHR                     00060007
//****                                                                  00060100
//SORTOUT  DD  DSN=DOESTAX.&LVLNODE..SOAMONTH(+1),                      00060605
//             DISP=(,CATLG,DELETE),                                    00060704
//             SPACE=(CYL,(50,25),RLSE),                                00060906
//             DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)        00061004
//****                                                                  00062000
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                       00110000
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                       00120000
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                       00130000
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)                       00140000
//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR    00160004
//****                                                                  00180000