//*****                                                                 00010000
//*    03/25/2004 INITIAL DEVELOPMENT.        GD                        00020024
//*                                                                     00021003
//*                                                                     00023012
//*    CONVERT WGH FILE FROM FORMAT USED UNTIL 03/99/2004 TO            00030024
//*    NEW FORMAT                                                       00040024
//*                                                                     00041024
//*****                                                                 00050000
//DTSBZ265 PROC LVLNODE='PROD'                                          00060034
//********************************************************************* 00090000
//STEP0100 EXEC PGM=IDCAMS,          COPY OLD WGH TO FLAT FILE          00100024
//             COND=(0,LT)                                              00110000
//SYSPRINT DD  SYSOUT=*                                                 00120000
//INDD01   DD DSN=DOESTAX.&LVLNODE..VSAM.WGX,DISP=SHR                   00121024
//OUTDD01  DD DSN=&&OLDWGH,                                             00122025
//             DISP=(NEW,PASS,DELETE),                                  00124024
//             UNIT=SYSDA,                                              00125024
//             SPACE=(5000,(1000,1000),RLSE),                           00126024
//             DCB=(RECFM=FB,LRECL=24,BLKSIZE=24000)                    00127024
//SYSIN    DD  DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSRONE),DISP=SHR    00127125
//******************************************************************    00220000
//STEP0200 EXEC PGM=DTSBZ265,                    WGH CONVERT            00480026
//             COND=(0,LT)                                              00490000
//SYSOUT   DD  SYSOUT=*                                                 00500000
//INFILE   DD  DSN=&&OLDWGH,                                            00510024
//             DISP=(OLD,PASS,DELETE)                                   00520024
//OUTFILE  DD DSN=&&NEWWGH,                                             00541031
//             DISP=(NEW,PASS,DELETE),                                  00542131
//             UNIT=SYSDA,                                              00543024
//             SPACE=(5000,(1000,1000),RLSE),                           00544024
//             DCB=(RECFM=FB,LRECL=18,BLKSIZE=28800)                    00545024
//**                                                                    01299323
//******************************************************************    01299424
//STEP0300 EXEC PGM=SORT,                        WGH RESTORE            01299533
//             COND=(0,LT)                                              01299627
//SYSOUT   DD  SYSOUT=*                                                 01299727
//SORTIN   DD DSN=&&NEWWGH,                                             01299827
//             DISP=(OLD,PASS,DELETE)                                   01299927
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(50,15),RLSE)                      01300032
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(50,15),RLSE)                      01300132
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(50,15),RLSE)                      01300232
//SORTOUT  DD  DSN=DOESTAX.&LVLNDOUT..VSAM.WGH,DISP=SHR,                01300432
//             AMP=('BUFNI=5,BUFND=30')                                 01300532
//SYSIN    DD  DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSSWGH),DISP=SHR    01301328
//**                                                                    01301427
//*STEP0300 EXEC PGM=IDCAMS,          LOAD NEW WGH FILE                 01301533
//*             COND=(0,LT)                                             01301633
//*SYSPRINT DD  SYSOUT=*                                                01301733
//*INDD01   DD DSN=&&NEWWGH,                                            01301833
//*             DISP=(OLD,PASS,DELETE)                                  01302033
//*OUTDD01  DD DSN=DOESTAX.&LVLNODE..VSAM.WGH,DISP=SHR                  01302133
//*SYSIN    DD  DSN=DOESTAX.&LVLNDOUT..APPL.PARMLIB(DTSRONE),DISP=SHR   01303033
//******************************************************************    01330024