54 lines
4.2 KiB
Plaintext
54 lines
4.2 KiB
Plaintext
//***** 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
|