giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial commit of DUTAS source code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit 59d8e47f26
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

53
Procs/DTSBZ265 Normal file
View File

@ -0,0 +1,53 @@
//***** 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