Compare commits
34 Commits
ece2ee4599
...
Dutas-Dev-
| Author | SHA1 | Date | |
|---|---|---|---|
| 9e2a3afcc9 | |||
| 5da0179563 | |||
| 3972c4a856 | |||
| 6537588163 | |||
| 8fca292a50 | |||
| 2c94b89801 | |||
| aebe4cd149 | |||
| 2a54f65e13 | |||
| 49a18b5c47 | |||
| 716014d0bf | |||
| f8c32748c5 | |||
| 42a3da46ab | |||
| c99f490664 | |||
| d3af779d95 | |||
| 7408a12cc6 | |||
| d72b5da155 | |||
| 8c4bd2e7af | |||
| 0551b2671f | |||
| fb675f820d | |||
| a261268b5d | |||
| 5254db068f | |||
| 370b5f9c27 | |||
| 8dc0204972 | |||
| 10597a27ba | |||
| 156717a804 | |||
| 858d631afe | |||
| 2bdc775648 | |||
| e2e5d14e27 | |||
| 86d034de9c | |||
| 00bf12a4f5 | |||
| 8a1f878add | |||
| c69d1eaef6 | |||
| 7842ff7f77 | |||
| 27dde5abfa |
1392
AddApplParms.jcl
Normal file
1392
AddApplParms.jcl
Normal file
File diff suppressed because it is too large
Load Diff
222
AddConvParms.jcl
Normal file
222
AddConvParms.jcl
Normal file
@ -0,0 +1,222 @@
|
|||||||
|
//* @@HEADER@@
|
||||||
|
//INICATLG JOB
|
||||||
|
//STEP010 EXEC PGM=IEFBR14
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//DD1001 DD DSN=DOESTAX.CONV.USER.PARMLIB,
|
||||||
|
// DISP=(NEW,CATLG,DELETE),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// DCB=(DSORG=PO,RECFM=LSEQ,LRECL=80)
|
||||||
|
//STEP020 EXEC PGM=IEFBR14
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//DD0001 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSBREPO',
|
||||||
|
// COPY)
|
||||||
|
//DD0002 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBX465),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSBX465',
|
||||||
|
// COPY)
|
||||||
|
//DD0003 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBX629),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSBX629',
|
||||||
|
// COPY)
|
||||||
|
//DD0004 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDCHKS),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSDCHKS',
|
||||||
|
// COPY)
|
||||||
|
//DD0005 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDD476),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSDD476',
|
||||||
|
// COPY)
|
||||||
|
//DD0006 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDPAYT),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSDPAYT',
|
||||||
|
// COPY)
|
||||||
|
//DD0007 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDR202),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSDR202',
|
||||||
|
// COPY)
|
||||||
|
//DD0008 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDWAGE),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSDWAGE',
|
||||||
|
// COPY)
|
||||||
|
//DD0009 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSFT202),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSFT202',
|
||||||
|
// COPY)
|
||||||
|
//DD0010 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSFT902),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSFT902',
|
||||||
|
// COPY)
|
||||||
|
//DD0011 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSFTCQ4),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSFTCQ4',
|
||||||
|
// COPY)
|
||||||
|
//DD0012 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGCHKS),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSGCHKS',
|
||||||
|
// COPY)
|
||||||
|
//DD0013 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGPAYT),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSGPAYT',
|
||||||
|
// COPY)
|
||||||
|
//DD0014 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGWAGE),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSGWAGE',
|
||||||
|
// COPY)
|
||||||
|
//DD0015 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGWFAD),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSGWFAD',
|
||||||
|
// COPY)
|
||||||
|
//DD0016 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSLBL01),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSLBL01',
|
||||||
|
// COPY)
|
||||||
|
//DD0017 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSLBL02),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSLBL02',
|
||||||
|
// COPY)
|
||||||
|
//DD0018 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPF24),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSPPF24',
|
||||||
|
// COPY)
|
||||||
|
//DD0019 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSPPFIN),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSPPFIN',
|
||||||
|
// COPY)
|
||||||
|
//DD0020 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSPWFAD),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSPWFAD',
|
||||||
|
// COPY)
|
||||||
|
//DD0021 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSPWFIN),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSPWFIN',
|
||||||
|
// COPY)
|
||||||
|
//DD0022 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSRONE',
|
||||||
|
// COPY)
|
||||||
|
//DD0023 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSA626),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSSA626',
|
||||||
|
// COPY)
|
||||||
|
//DD0024 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSRREC),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSSRREC',
|
||||||
|
// COPY)
|
||||||
|
//DD0025 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSS626),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSSS626',
|
||||||
|
// COPY)
|
||||||
|
//DD0026 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX342),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSSX342',
|
||||||
|
// COPY)
|
||||||
|
//DD0027 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX417),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSSX417',
|
||||||
|
// COPY)
|
||||||
|
//DD0028 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX420),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSSX420',
|
||||||
|
// COPY)
|
||||||
|
//DD0029 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX425),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSSX425',
|
||||||
|
// COPY)
|
||||||
|
//DD0030 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX427),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSSX427',
|
||||||
|
// COPY)
|
||||||
|
//DD0031 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX438),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSSX438',
|
||||||
|
// COPY)
|
||||||
|
//DD0032 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX451),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSSX451',
|
||||||
|
// COPY)
|
||||||
|
//DD0033 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX552),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSSX552',
|
||||||
|
// COPY)
|
||||||
|
//DD0034 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX553),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSSX553',
|
||||||
|
// COPY)
|
||||||
|
//DD0035 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX626),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSSX626',
|
||||||
|
// COPY)
|
||||||
|
//DD0036 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSXREL),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSSXREL',
|
||||||
|
// COPY)
|
||||||
|
//DD0037 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSXI438),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSXI438',
|
||||||
|
// COPY)
|
||||||
|
//DD0038 DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSXO438),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\DTSXO438',
|
||||||
|
// COPY)
|
||||||
|
//DD0039 DD DSN=DOESTAX.CONV.USER.PARMLIB(PGPEDDOC),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\PGPEDDOC',
|
||||||
|
// COPY)
|
||||||
|
//DD0040 DD DSN=DOESTAX.CONV.USER.PARMLIB(UIBCHGOB),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\UIBCHGOB',
|
||||||
|
// COPY)
|
||||||
|
//DD0041 DD DSN=DOESTAX.CONV.USER.PARMLIB(UIBGTCHG),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\UIBGTCHG',
|
||||||
|
// COPY)
|
||||||
|
//DD0042 DD DSN=DOESTAX.CONV.USER.PARMLIB(UIBGUCHG),
|
||||||
|
// DISP=(SHR,CATLG,CATLG),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// PATH=('E:\DUTAS\src\doestax.conv.user.parmlib\UIBGUCHG',
|
||||||
|
// COPY)
|
||||||
1942
AddJobs.jcl
Normal file
1942
AddJobs.jcl
Normal file
File diff suppressed because it is too large
Load Diff
1682
AddProcs.jcl
Normal file
1682
AddProcs.jcl
Normal file
File diff suppressed because it is too large
Load Diff
2102
AddToCatalog_JOBS_DEVL.txt
Normal file
2102
AddToCatalog_JOBS_DEVL.txt
Normal file
File diff suppressed because it is too large
Load Diff
2322
AddToCatalog_JOBS_PROD.txt
Normal file
2322
AddToCatalog_JOBS_PROD.txt
Normal file
File diff suppressed because it is too large
Load Diff
2102
AddToCatalog_JOBS_TEST.txt
Normal file
2102
AddToCatalog_JOBS_TEST.txt
Normal file
File diff suppressed because it is too large
Load Diff
1722
AddToCatalog_PROCS_DEVL.txt
Normal file
1722
AddToCatalog_PROCS_DEVL.txt
Normal file
File diff suppressed because it is too large
Load Diff
1722
AddToCatalog_PROCS_PROD.txt
Normal file
1722
AddToCatalog_PROCS_PROD.txt
Normal file
File diff suppressed because it is too large
Load Diff
1722
AddToCatalog_PROCS_TEST.txt
Normal file
1722
AddToCatalog_PROCS_TEST.txt
Normal file
File diff suppressed because it is too large
Load Diff
@ -35,6 +35,10 @@
|
|||||||
00035 * 02/23/2009 MODIFIED SELECTION TO INCLUDE DC GOV WAGES DESBD310
|
00035 * 02/23/2009 MODIFIED SELECTION TO INCLUDE DC GOV WAGES DESBD310
|
||||||
00036 * REFERENCE: PROGRAMMER: GD DESBD310
|
00036 * REFERENCE: PROGRAMMER: GD DESBD310
|
||||||
00037 * DESBD310
|
00037 * DESBD310
|
||||||
|
00034 * DESBD310
|
||||||
|
00035 * 10/04/2025 MODIFIED SELECTION TO use 18 byte wwgh DESBD310
|
||||||
|
00036 * copybook : PROGRAMMER: zl1 DESBD310
|
||||||
|
00037 * DESBD310
|
||||||
00038 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DESBD310
|
00038 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DESBD310
|
||||||
00039 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DESBD310
|
00039 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DESBD310
|
||||||
00040 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DESBD310
|
00040 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DESBD310
|
||||||
|
|||||||
519
Batch/DESBD470.cob
Normal file
519
Batch/DESBD470.cob
Normal file
@ -0,0 +1,519 @@
|
|||||||
|
00001 IDENTIFICATION DIVISION. 01/24/24
|
||||||
|
00002 PROGRAM-ID. DESBD470. DESBD470
|
||||||
|
00003 AUTHOR. NGC. LV131
|
||||||
|
00004 DATE-WRITTEN. DECEMBER 2012. CL113
|
||||||
|
00005 DATE-COMPILED. DESBD470
|
||||||
|
00006 SKIP3 DESBD470
|
||||||
|
00007 ***** DESBD470
|
||||||
|
00008 * DESBD470
|
||||||
|
00009 * ZUNCTION: DELETE WAGES TO WGH FILE FOR TESTING. CL129
|
||||||
|
00010 * FOR TAX WAGES SINCE UIBS 01/21/24 ZL1 CL117
|
||||||
|
00011 * DESBD470
|
||||||
|
00012 * DESBD470
|
||||||
|
00013 * MODIFICATION LOG: DESBD470
|
||||||
|
00014 * DESBD470
|
||||||
|
00015 * 12/06/2012 INITIAL DEVELOPMENT. CL113
|
||||||
|
00016 * WORK ORDER: PROGRAMMER: GD DESBD470
|
||||||
|
00017 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DESBD470
|
||||||
|
00018 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DESBD470
|
||||||
|
00019 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DESBD470
|
||||||
|
00020 * DESBD470
|
||||||
|
00021 * DESBD470
|
||||||
|
00022 * DESCRIPTION: DESBD470
|
||||||
|
00023 * DESBD470
|
||||||
|
00024 * CL*89
|
||||||
|
00025 * CL*89
|
||||||
|
00026 * CL*89
|
||||||
|
00027 * CL*89
|
||||||
|
00028 * DESBD470
|
||||||
|
00029 * CL*89
|
||||||
|
00030 * CL*89
|
||||||
|
00031 * CL*89
|
||||||
|
00032 * CL*89
|
||||||
|
00033 * DESBD470
|
||||||
|
00034 * GENERAL SPECIFICATIONS: DESBD470
|
||||||
|
00035 * DESBD470
|
||||||
|
00036 * ALL COMMANDS ARE VALID. DESBD470
|
||||||
|
00037 * DESBD470
|
||||||
|
00038 * IF AN INVALID COMMAND IS REQUESTED, THEN ABEND THE DESBD470
|
||||||
|
00039 * MODULE. DESBD470
|
||||||
|
00040 * DESBD470
|
||||||
|
00041 * IF A FILE-STATUS OF OTHER THAN '00', '10', OR '23' IS DESBD470
|
||||||
|
00042 * ENCOUNTERED, THEN ABEND PROCESSING (TOLERATE A DESBD470
|
||||||
|
00043 * FILE-STATUS OF '97' FROM AN OPEN COMMAND). DESBD470
|
||||||
|
00044 * DESBD470
|
||||||
|
00045 * DESBD470
|
||||||
|
00046 * DESBD470
|
||||||
|
00047 * COMMAND SPECIFIC SPECIFICATIONS: DESBD470
|
||||||
|
00048 * DESBD470
|
||||||
|
00049 * OPEN-READ DESBD470
|
||||||
|
00050 * OPEN INPUT. DESBD470
|
||||||
|
00051 * DESBD470
|
||||||
|
00052 * OPEN-UPDATE DESBD470
|
||||||
|
00053 * OPEN I-O. DESBD470
|
||||||
|
00054 * DESBD470
|
||||||
|
00055 * CLOSE DESBD470
|
||||||
|
00056 * DESBD470
|
||||||
|
00057 * READ DESBD470
|
||||||
|
00058 * DESBD470
|
||||||
|
00059 * START BROWSE DESBD470
|
||||||
|
00060 * IF THE START-BROWSE IS SUCCESSFUL, THEN PERFORM THE DESBD470
|
||||||
|
00061 * READ-NEXT LOGIC. A SUCCESSFUL START-BROWSE RETURNS DESBD470
|
||||||
|
00062 * A RECORD. DESBD470
|
||||||
|
00063 * DESBD470
|
||||||
|
00064 * READ NEXT DESBD470
|
||||||
|
00065 * DESBD470
|
||||||
|
00066 * WRITE DESBD470
|
||||||
|
00067 * DESBD470
|
||||||
|
00068 * REWRITE DESBD470
|
||||||
|
00069 * DESBD470
|
||||||
|
00070 * DELETE DESBD470
|
||||||
|
00071 * DESBD470
|
||||||
|
00072 * DESBD470
|
||||||
|
00073 ***** DESBD470
|
||||||
|
00074 CL114
|
||||||
|
00075 ENVIRONMENT DIVISION. CL114
|
||||||
|
00076 CL114
|
||||||
|
00077 INPUT-OUTPUT SECTION. CL114
|
||||||
|
00078 DESBD470
|
||||||
|
00079 FILE-CONTROL. CL114
|
||||||
|
00080 SELECT WAGE-TRANS-FILE ASSIGN TO DTSFWTRN CL114
|
||||||
|
00081 FILE STATUS IS WAGE-TRANS-STATUS. CL114
|
||||||
|
00082 CL114
|
||||||
|
00083 * SELECT TAXWGH-FILE ASSIGN TO DTSXWGH CL129
|
||||||
|
00084 * FILE STATUS IS DOWNLOAD-STATUS. CL129
|
||||||
|
00085 DESBD470
|
||||||
|
00086 DATA DIVISION. DESBD470
|
||||||
|
00087 CL114
|
||||||
|
00088 FILE SECTION. CL114
|
||||||
|
00089 CL114
|
||||||
|
00090 FD WAGE-TRANS-FILE CL114
|
||||||
|
00091 RECORDING MODE IS F CL114
|
||||||
|
00092 BLOCK CONTAINS 0 RECORDS. CL114
|
||||||
|
00093 CL114
|
||||||
|
00094 01 WAGE-TRANS-REC PIC X(80). CL131
|
||||||
|
00095 CL114
|
||||||
|
00096 *FD TAXWGH-FILE CL129
|
||||||
|
00097 * RECORDING MODE IS F CL129
|
||||||
|
00098 * BLOCK CONTAINS 0 RECORDS. CL129
|
||||||
|
00099 CL117
|
||||||
|
00100 *01 TAXWGH-REC PIC X(18). CL129
|
||||||
|
00101 DESBD470
|
||||||
|
00102 WORKING-STORAGE SECTION. DESBD470
|
||||||
|
001025 77 PAN-VALET PICTURE X(24) VALUE '131DESBD470 01/24/24'. DESBD470
|
||||||
|
00103 SKIP3 DESBD470
|
||||||
|
00104 01 WRK-AREA. DESBD470
|
||||||
|
00105 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +480. CL114
|
||||||
|
00106 DESBD470
|
||||||
|
00107 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBU480'. CL114
|
||||||
|
00108 DESBD470
|
||||||
|
00109 05 W-CURR-EMP-NO PIC S9(06) COMP-3 VALUE +0. DESBD470
|
||||||
|
00110 05 W-CURR-YRQ PIC S9(05) COMP-3 CL*62
|
||||||
|
00111 VALUE +20121. CL*62
|
||||||
|
00112 05 W-CURR-BATCH PIC S9(05) COMP-3 VALUE +0. CL*53
|
||||||
|
00113 05 W-CURR-ITEM PIC S9(03) COMP-3 VALUE +0. CL*81
|
||||||
|
00114 05 W-MQTR-TOT-WAGE PIC S9(11)V99 COMP-3 CL*58
|
||||||
|
00115 VALUE +0. CL*58
|
||||||
|
00116 05 W-WTC-BATCH-NO PIC S9(05) COMP-3 CL*90
|
||||||
|
00117 VALUE +90001. CL*95
|
||||||
|
00118 05 W-WTC-ITEM-NO PIC S9(03) COMP-3 CL*90
|
||||||
|
00119 VALUE +003. CL*98
|
||||||
|
00120 05 W-WTC-SEQ-NO PIC S9(03) COMP-3 CL*92
|
||||||
|
00121 VALUE +001. CL*92
|
||||||
|
00122 05 W-MAX-BATCH PIC S9(05) COMP-3 VALUE +0. CL*52
|
||||||
|
00123 05 W-MIN-BATCH PIC S9(05) COMP-3 CL*52
|
||||||
|
00124 VALUE +99999. CL*52
|
||||||
|
00125 05 WRK-W2-CNT PIC S9(07) COMP-3 VALUE +0. DESBD470
|
||||||
|
00126 05 WRK-W4-CNT PIC S9(07) COMP-3 VALUE +0. DESBD470
|
||||||
|
00127 05 WRK-WWGH-CNT PIC S9(07) COMP-3 VALUE +0. DESBD470
|
||||||
|
00128 05 WRK-DELETE-CNT PIC S9(07) COMP-3 VALUE +0. DESBD470
|
||||||
|
00129 05 W-BYPASSED-CNT PIC S9(07) COMP-3 VALUE +0. DESBD470
|
||||||
|
00130 05 W-BACKLOG PIC S9(07) COMP-3 VALUE +0. CL**9
|
||||||
|
00131 05 AMT-DISP1 PIC ----------9.99. CL*60
|
||||||
|
00132 05 AMT-DISP2 PIC ----------9.99. CL*60
|
||||||
|
00133 05 AMT-DISP3 PIC ----------9.99. CL*60
|
||||||
|
00134 05 AMT-DISP4 PIC ----------9.99. CL*57
|
||||||
|
00135 DESBD470
|
||||||
|
00136 05 WRK-NET-WAGE PIC S9(11)V99 COMP-3 DESBD470
|
||||||
|
00137 VALUE +0. DESBD470
|
||||||
|
00138 05 W-WGH-WAGE PIC S9(11)V99 COMP-3 CL*70
|
||||||
|
00139 VALUE +0. CL*70
|
||||||
|
00140 05 W-WORKER-CNT PIC S9(07) COMP-3 VALUE +0. CL*63
|
||||||
|
00141 05 W-DIFFERENCE PIC S9(11)V99 COMP-3 CL*63
|
||||||
|
00142 VALUE +0. CL*63
|
||||||
|
00143 DESBD470
|
||||||
|
00144 05 W2-REC-READ PIC 9(9) VALUE 0. CL124
|
||||||
|
00145 05 W4-REC-READ PIC 9(9) VALUE 0. CL124
|
||||||
|
00146 05 W4-REC-FOUND PIC 9(9) VALUE 0. CL124
|
||||||
|
00147 05 W4-REC-ADDED PIC 9(9) VALUE 0. CL124
|
||||||
|
00148 05 W2-REC-DELETED PIC 9(9) VALUE 0. CL124
|
||||||
|
00149 05 W2-REC-FOUND PIC 9(9) VALUE 0. CL124
|
||||||
|
00150 CL123
|
||||||
|
00151 05 W-RESP-OPID PIC X(08). CL*78
|
||||||
|
00152 05 WRK-ERROR-IND PIC X(01). DESBD470
|
||||||
|
00153 88 WRK-ERROR-YES-88 VALUE 'Y'. DESBD470
|
||||||
|
00154 88 WRK-ERROR-NO-88 VALUE 'N'. DESBD470
|
||||||
|
00155 DESBD470
|
||||||
|
00156 05 W-EMP-EXISTS-IND PIC X(01). CL*67
|
||||||
|
00157 88 W-EMP-EXISTS-YES-88 VALUE 'Y'. CL*67
|
||||||
|
00158 88 W-EMP-EXISTS-NO-88 VALUE 'N'. CL*67
|
||||||
|
00159 05 W-DELINQUENT-IND PIC X(01). CL*67
|
||||||
|
00160 88 W-DELINQUENT-YES-88 VALUE 'Y'. CL*67
|
||||||
|
00161 88 W-DELINQUENT-NO-88 VALUE 'N'. CL*67
|
||||||
|
00162 05 WAGE-TRANS-STATUS PIC X(02). DESBD470
|
||||||
|
00163 88 WAGE-TRANS-FILE-OK-88 VALUE '00'. DESBD470
|
||||||
|
00164 88 WAGE-TRANS-FILE-NO-REC-88 VALUE '10' '23'. DESBD470
|
||||||
|
00165 88 WAGE-TRANS-FILE-VERIFY-88 VALUE '97'. DESBD470
|
||||||
|
00166 DESBD470
|
||||||
|
00167 05 DOWNLOAD-STATUS PIC X(02). DESBD470
|
||||||
|
00168 88 DOWNLOAD-FILE-OK-88 VALUE '00'. DESBD470
|
||||||
|
00169 DESBD470
|
||||||
|
00170 05 WRK-YRQ PIC 9(05). DESBD470
|
||||||
|
00171 05 FILLER REDEFINES WRK-YRQ. DESBD470
|
||||||
|
00172 10 WRK-YRQ-YEAR PIC 9(04). DESBD470
|
||||||
|
00173 10 WRK-YRQ-QTR PIC 9(01). DESBD470
|
||||||
|
00174 DESBD470
|
||||||
|
00175 05 WRK-YRQ-X. DESBD470
|
||||||
|
00176 10 WRK-YRQ-YEAR-X PIC 9(04). DESBD470
|
||||||
|
00177 10 FILLER PIC X(01) VALUE '/'. DESBD470
|
||||||
|
00178 10 WRK-YRQ-QTR-X PIC 9(01). DESBD470
|
||||||
|
00179 DESBD470
|
||||||
|
00180 01 L004-COMM-AREA. CL*35
|
||||||
|
00181 ++INCLUDE DTSIL004 CL*35
|
||||||
|
00182 CL*35
|
||||||
|
00183 01 L424-LINK-AREA. CL100
|
||||||
|
00184 ++INCLUDE DTSIL424 CL100
|
||||||
|
00185 CL100
|
||||||
|
00186 01 L516-LINK-AREA. CL*48
|
||||||
|
00187 ++INCLUDE DTSIL516 CL*48
|
||||||
|
00188 CL*48
|
||||||
|
00189 01 L910-LINK-AREA. CL*47
|
||||||
|
00190 ++INCLUDE DTSIL910 CL*47
|
||||||
|
00191 CL*47
|
||||||
|
00192 01 X147-REC. CL129
|
||||||
|
00193 ++INCLUDE DTSIX147 CL129
|
||||||
|
00194 CL129
|
||||||
|
00195 01 MSKL-REC. CL*47
|
||||||
|
00196 ++INCLUDE DTSIMSKL CL*47
|
||||||
|
00197 CL*47
|
||||||
|
00198 01 MPRF-REC. CL*47
|
||||||
|
00199 ++INCLUDE DTSIMPRF CL*47
|
||||||
|
00200 CL*47
|
||||||
|
00201 01 MQTR-REC. CL*47
|
||||||
|
00202 ++INCLUDE DTSIMQTR CL*47
|
||||||
|
00203 CL*47
|
||||||
|
00204 01 L931-LINK-AREA. CL*50
|
||||||
|
00205 ++INCLUDE DTSIL931 CL*50
|
||||||
|
00206 CL*50
|
||||||
|
00207 01 FSKL-REC. CL*50
|
||||||
|
00208 ++INCLUDE DTSIFSKL CL*50
|
||||||
|
00209 CL*50
|
||||||
|
00210 01 L981-LINK-AREA. CL*69
|
||||||
|
00211 ++INCLUDE DTSIL981 CL*69
|
||||||
|
00212 CL*69
|
||||||
|
00213 01 WWGH-REC. CL*69
|
||||||
|
00214 ++INCLUDE DTSIWWGH CL*69
|
||||||
|
00215 CL*69
|
||||||
|
00216 01 L983-LINK-AREA. DESBD470
|
||||||
|
00217 ++INCLUDE DTSIL983 DESBD470
|
||||||
|
00218 DESBD470
|
||||||
|
00219 01 WSKL-REC. DESBD470
|
||||||
|
00220 ++INCLUDE DTSIWSKL DESBD470
|
||||||
|
00221 DESBD470
|
||||||
|
00222 01 W001-REC. DESBD470
|
||||||
|
00223 ++INCLUDE DTSIW001 DESBD470
|
||||||
|
00224 DESBD470
|
||||||
|
00225 01 L982-LINK-AREA. DESBD470
|
||||||
|
00226 ++INCLUDE DTSIL982 DESBD470
|
||||||
|
00227 DESBD470
|
||||||
|
00228 01 WNAM-REC. DESBD470
|
||||||
|
00229 ++INCLUDE DTSIWNAM DESBD470
|
||||||
|
00230 CL114
|
||||||
|
00231 01 WAGE-TRANS-AREA. CL131
|
||||||
|
00232 05 ESP-TRANSACTION-AREA PIC X(80). CL131
|
||||||
|
00233 ++INCLUDE EWGTRNW2 CL131
|
||||||
|
00234 CL114
|
||||||
|
00235 PROCEDURE DIVISION. DESBD470
|
||||||
|
00236 DESBD470
|
||||||
|
00237 PERFORM I0000-INIT THRU I0000-EXIT. CL*96
|
||||||
|
00238 IF WRK-ERROR-NO-88 DESBD470
|
||||||
|
00239 PERFORM P0000-PROCESS THRU P0000-EXIT CL114
|
||||||
|
00240 PERFORM T0000-TERM THRU T0000-EXIT DESBD470
|
||||||
|
00241 END-IF. DESBD470
|
||||||
|
00242 DESBD470
|
||||||
|
00243 GOBACK. DESBD470
|
||||||
|
00244 EJECT DESBD470
|
||||||
|
00245 I0000-INIT. DESBD470
|
||||||
|
00246 SET WRK-ERROR-NO-88 TO TRUE. DESBD470
|
||||||
|
00247 DESBD470
|
||||||
|
00248 OPEN INPUT WAGE-TRANS-FILE. CL115
|
||||||
|
00249 IF WAGE-TRANS-FILE-OK-88 CL114
|
||||||
|
00250 OR WAGE-TRANS-FILE-VERIFY-88 CL114
|
||||||
|
00251 NEXT SENTENCE CL114
|
||||||
|
00252 ELSE CL114
|
||||||
|
00253 PERFORM S999-ABEND THRU S999-EXIT CL114
|
||||||
|
00254 END-IF. CL114
|
||||||
|
00255 CL114
|
||||||
|
00256 CL117
|
||||||
|
00257 * OPEN OUTPUT TAXWGH-FILE. CL129
|
||||||
|
00258 * IF WAGE-TRANS-FILE-OK-88 CL129
|
||||||
|
00259 * OR WAGE-TRANS-FILE-VERIFY-88 CL129
|
||||||
|
00260 * NEXT SENTENCE CL129
|
||||||
|
00261 * ELSE CL129
|
||||||
|
00262 * PERFORM S999-ABEND THRU S999-EXIT CL129
|
||||||
|
00263 * END-IF. CL129
|
||||||
|
00264 CL117
|
||||||
|
00265 PERFORM S981A-OPEN-UPDATE THRU S981A-EXIT. CL*89
|
||||||
|
00266 PERFORM S983-OPEN-UPDATE THRU S983-EXIT. CL*89
|
||||||
|
00267 PERFORM S931-OPEN-READ THRU S931-EXIT. CL102
|
||||||
|
00268 CL*35
|
||||||
|
00269 I0000-EXIT. DESBD470
|
||||||
|
00270 EXIT. DESBD470
|
||||||
|
00271 CL*35
|
||||||
|
00272 P0000-PROCESS. CL114
|
||||||
|
00273 READ WAGE-TRANS-FILE INTO ESP-TRANSACTION-AREA CL131
|
||||||
|
00274 CL114
|
||||||
|
00275 PERFORM UNTIL WAGE-TRANS-FILE-NO-REC-88 CL114
|
||||||
|
00276 PERFORM P2000-WGH THRU P2000-EXIT CL115
|
||||||
|
00277 READ WAGE-TRANS-FILE INTO ESP-TRANSACTION-AREA CL131
|
||||||
|
00278 CL114
|
||||||
|
00279 END-PERFORM. CL114
|
||||||
|
00280 CL114
|
||||||
|
00281 P0000-EXIT. CL114
|
||||||
|
00282 EXIT. CL114
|
||||||
|
00283 CL114
|
||||||
|
00284 CL*60
|
||||||
|
00285 P2000-WGH. CL*92
|
||||||
|
00286 IF W2-TRAN-ID = 'W2' CL131
|
||||||
|
00287 ADD 1 TO W2-REC-READ CL131
|
||||||
|
00288 ELSE CL131
|
||||||
|
00289 DISPLAY 'RECORD NOT W2 ' W2-TRAN-ID CL131
|
||||||
|
00290 GO TO P2000-EXIT. CL131
|
||||||
|
00291 CL123
|
||||||
|
00292 MOVE LOW-VALUE TO WWGH-REC. CL*73
|
||||||
|
00293 MOVE W2-ACCOUNT-NUMBER TO WWGH-EMP-NO. CL131
|
||||||
|
00294 MOVE W2-QTR TO WWGH-YRQ CL131
|
||||||
|
00295 MOVE W2-SSN TO WWGH-SSN. CL131
|
||||||
|
00296 * MOVE X147-EARNINGS TO WWGH-EARNINGS. CL130
|
||||||
|
00297 PERFORM S981C-READ THRU S981C-EXIT. CL117
|
||||||
|
00298 IF L981-OK-88 CL117
|
||||||
|
00299 DISPLAY 'WGH REC FOUND ' WWGH-EMP-NO ' ' WWGH-YRQ CL129
|
||||||
|
00300 ' ' WWGH-SSN ' ' WWGH-EARNINGS CL129
|
||||||
|
00301 ELSE CL117
|
||||||
|
00302 DISPLAY 'WGH REC NOT FOUND ' W2-ACCOUNT-NUMBER CL131
|
||||||
|
00303 ' ' W2-SSN ' ' W2-QTR CL131
|
||||||
|
00304 GO TO P2000-EXIT. CL129
|
||||||
|
00305 CL117
|
||||||
|
00306 ADD 1 TO W2-REC-FOUND CL123
|
||||||
|
00307 PERFORM S981E-DELETE THRU S981E-EXIT CL117
|
||||||
|
00308 IF NOT L981-OK-88 CL117
|
||||||
|
00309 DISPLAY 'DELET FAILED ' W2-ACCOUNT-NUMBER CL131
|
||||||
|
00310 ' ' W2-SSN ' ' W2-QTR CL131
|
||||||
|
00311 ELSE CL121
|
||||||
|
00312 ADD 1 TO W2-REC-DELETED CL123
|
||||||
|
00313 DISPLAY 'WAGES DELETED' WWGH-EMP-NO ' ' WWGH-YRQ CL129
|
||||||
|
00314 ' ' WWGH-SSN. CL129
|
||||||
|
00315 GO TO P2000-EXIT. CL117
|
||||||
|
00316 CL117
|
||||||
|
00317 P2000-CONTINUE. CL117
|
||||||
|
00318 * IF W4-TRAN-ID = 'W2' CL129
|
||||||
|
00319 * GO TO P2000-EXIT. CL129
|
||||||
|
00320 CL127
|
||||||
|
00321 * MOVE LOW-VALUE TO WWGH-REC. CL129
|
||||||
|
00322 * MOVE W4-ACCOUNT TO WWGH-EMP-NO. CL129
|
||||||
|
00323 * MOVE W4-QUARTER TO WWGH-YRQ CL129
|
||||||
|
00324 * MOVE W4-SSN TO WWGH-SSN. CL129
|
||||||
|
00325 * MOVE W4-QUARTER-EARNINGS TO WWGH-EARNINGS. CL129
|
||||||
|
00326 CL117
|
||||||
|
00327 * WRITE TAXWGH-REC FROM WWGH-REC. CL129
|
||||||
|
00328 * ADD 1 TO W4-REC-ADDED. CL129
|
||||||
|
00329 * PERFORM S981B-WRITE THRU S981B-EXIT. CL128
|
||||||
|
00330 * IF NOT L981-OK-88 CL128
|
||||||
|
00331 * DISPLAY 'WRITE FAILED ' W4-ACCOUNT ' ' W4-QUARTER CL128
|
||||||
|
00332 * ' ' W4-SSN. CL128
|
||||||
|
00333 CL*73
|
||||||
|
00334 P2000-EXIT. CL*92
|
||||||
|
00335 EXIT. CL*73
|
||||||
|
00336 CL*69
|
||||||
|
00337 T0000-TERM. DESBD470
|
||||||
|
00338 PERFORM S981D-CLOSE THRU S981D-EXIT. CL*73
|
||||||
|
00339 PERFORM S983-CLOSE THRU S983-EXIT. CL*69
|
||||||
|
00340 PERFORM S931-CLOSE THRU S931-EXIT. CL102
|
||||||
|
00341 DESBD470
|
||||||
|
00342 * CLOSE WAGE-TRANS-FILE TAXWGH-FILE. CL130
|
||||||
|
00343 CLOSE WAGE-TRANS-FILE. CL130
|
||||||
|
00344 DESBD470
|
||||||
|
00345 DISPLAY '******************************************' DESBD470
|
||||||
|
00346 DISPLAY '** DTSBZ479 TERMINATION STATISTICS **'. CL*91
|
||||||
|
00347 CL123
|
||||||
|
00348 DISPLAY 'TOTAL W4 TRANS REC READ = ' W4-REC-READ. CL123
|
||||||
|
00349 DISPLAY 'TOTAL W4 TRANS REC FOUND = ' W4-REC-FOUND. CL123
|
||||||
|
00350 DISPLAY 'TOTAL W4 TRANS REC ADDED = ' W4-REC-ADDED. CL123
|
||||||
|
00351 DISPLAY 'TOTAL W2 TRANS REC READ = ' W2-REC-READ. CL123
|
||||||
|
00352 DISPLAY 'TOTAL W2 TRANS REC FOUND = ' W2-REC-FOUND. CL123
|
||||||
|
00353 DISPLAY 'TOTAL W2 TRANS REC DELETED = ' W2-REC-DELETED. CL125
|
||||||
|
00354 DISPLAY ' '. CL123
|
||||||
|
00355 T0000-EXIT. DESBD470
|
||||||
|
00356 EXIT. DESBD470
|
||||||
|
00357 DESBD470
|
||||||
|
00358 S004-EDIT-QTR. CL*35
|
||||||
|
00359 CALL 'DTSBU004' USING L004-COMM-AREA. CL*35
|
||||||
|
00360 CL*35
|
||||||
|
00361 S004-EXIT. CL*35
|
||||||
|
00362 EXIT. CL*35
|
||||||
|
00363 CL*35
|
||||||
|
00364 S516-LIABILITY-INFO. CL*48
|
||||||
|
00365 CALL 'DTSBU516' USING L516-LINK-AREA CL*48
|
||||||
|
00366 MPRF-REC. CL*48
|
||||||
|
00367 S516-EXIT. CL*48
|
||||||
|
00368 EXIT. CL*48
|
||||||
|
00369 CL*48
|
||||||
|
00370 S910-OPEN-READ. CL*47
|
||||||
|
00371 SET L910-OPEN-READ-88 TO TRUE. CL*47
|
||||||
|
00372 GO TO S910-MSTR-IO. CL*47
|
||||||
|
00373 CL*47
|
||||||
|
00374 S910-READ. CL*47
|
||||||
|
00375 SET L910-READ-88 TO TRUE. CL*47
|
||||||
|
00376 GO TO S910-MSTR-IO. CL*47
|
||||||
|
00377 CL*47
|
||||||
|
00378 S910-START-BROWSE. CL*47
|
||||||
|
00379 SET L910-START-BROWSE-88 TO TRUE. CL*49
|
||||||
|
00380 GO TO S910-MSTR-IO. CL*47
|
||||||
|
00381 CL*47
|
||||||
|
00382 S910-READ-NEXT. CL*47
|
||||||
|
00383 SET L910-READ-NEXT-88 TO TRUE. CL*47
|
||||||
|
00384 GO TO S910-MSTR-IO. CL*47
|
||||||
|
00385 CL*47
|
||||||
|
00386 S910-CLOSE. CL*47
|
||||||
|
00387 SET L910-CLOSE-88 TO TRUE. CL*47
|
||||||
|
00388 GO TO S910-MSTR-IO. CL*47
|
||||||
|
00389 CL*47
|
||||||
|
00390 S910-MSTR-IO. CL*47
|
||||||
|
00391 CALL 'DTSBU910' USING L910-LINK-AREA CL*47
|
||||||
|
00392 MSKL-REC. CL*47
|
||||||
|
00393 S910-EXIT. CL*47
|
||||||
|
00394 EXIT. CL*47
|
||||||
|
00395 CL*47
|
||||||
|
00396 S931-OPEN-READ. CL*50
|
||||||
|
00397 SET L931-OPEN-READ-88 TO TRUE. CL*50
|
||||||
|
00398 GO TO S931-REF-IO. CL*50
|
||||||
|
00399 CL*50
|
||||||
|
00400 S931-CLOSE. CL*50
|
||||||
|
00401 SET L931-CLOSE-88 TO TRUE. CL*50
|
||||||
|
00402 GO TO S931-REF-IO. CL*50
|
||||||
|
00403 CL*50
|
||||||
|
00404 S931-REF-IO. CL*50
|
||||||
|
00405 CALL 'DTSBU931' USING L931-LINK-AREA CL*50
|
||||||
|
00406 FSKL-REC. CL*50
|
||||||
|
00407 S931-EXIT. CL*50
|
||||||
|
00408 EXIT. CL*50
|
||||||
|
00409 CL*50
|
||||||
|
00410 S981A-OPEN-UPDATE. CL*89
|
||||||
|
00411 SET L981-OPEN-UPDATE-88 TO TRUE. CL*89
|
||||||
|
00412 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. CL*69
|
||||||
|
00413 CL*69
|
||||||
|
00414 S981A-EXIT. CL*69
|
||||||
|
00415 EXIT. CL*69
|
||||||
|
00416 CL*69
|
||||||
|
00417 S981B-WRITE. CL*91
|
||||||
|
00418 SET L981-WRITE-88 TO TRUE. CL*91
|
||||||
|
00419 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. CL*69
|
||||||
|
00420 CL*69
|
||||||
|
00421 S981B-EXIT. CL*69
|
||||||
|
00422 EXIT. CL*69
|
||||||
|
00423 S981C-READ. CL117
|
||||||
|
00424 SET L981-READ-88 TO TRUE. CL117
|
||||||
|
00425 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. CL117
|
||||||
|
00426 CL117
|
||||||
|
00427 S981C-EXIT. CL117
|
||||||
|
00428 EXIT. CL117
|
||||||
|
00429 S981E-DELETE. CL118
|
||||||
|
00430 SET L981-DELETE-88 TO TRUE. CL117
|
||||||
|
00431 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. CL117
|
||||||
|
00432 CL117
|
||||||
|
00433 S981E-EXIT. CL117
|
||||||
|
00434 EXIT. CL117
|
||||||
|
00435 CL*69
|
||||||
|
00436 S981D-CLOSE. CL*69
|
||||||
|
00437 SET L981-CLOSE-88 TO TRUE. CL*69
|
||||||
|
00438 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. CL*69
|
||||||
|
00439 CL*69
|
||||||
|
00440 S981D-EXIT. CL*69
|
||||||
|
00441 EXIT. CL*69
|
||||||
|
00442 CL*69
|
||||||
|
00443 S981Z-WWGH-IO. CL*69
|
||||||
|
00444 CALL 'DTSBU981' USING L981-LINK-AREA CL*69
|
||||||
|
00445 WWGH-REC. CL*69
|
||||||
|
00446 S981Z-EXIT. CL*69
|
||||||
|
00447 EXIT. CL*69
|
||||||
|
00448 CL*69
|
||||||
|
00449 S983-OPEN-UPDATE. DESBD470
|
||||||
|
00450 SET L983-OPEN-UPDATE-88 TO TRUE. DESBD470
|
||||||
|
00451 GO TO S983-WAGE-I. DESBD470
|
||||||
|
00452 DESBD470
|
||||||
|
00453 S983-WRITE. CL*90
|
||||||
|
00454 SET L983-WRITE-88 TO TRUE. CL*90
|
||||||
|
00455 GO TO S983-WAGE-I. DESBD470
|
||||||
|
00456 DESBD470
|
||||||
|
00457 S983-DELETE. DESBD470
|
||||||
|
00458 SET L983-DELETE-88 TO TRUE. DESBD470
|
||||||
|
00459 GO TO S983-WAGE-I. DESBD470
|
||||||
|
00460 DESBD470
|
||||||
|
00461 S983-CLOSE. DESBD470
|
||||||
|
00462 SET L983-CLOSE-88 TO TRUE. DESBD470
|
||||||
|
00463 GO TO S983-WAGE-I. DESBD470
|
||||||
|
00464 DESBD470
|
||||||
|
00465 S983-WAGE-I. DESBD470
|
||||||
|
00466 CALL 'DTSBU983' USING L983-LINK-AREA DESBD470
|
||||||
|
00467 WSKL-REC. DESBD470
|
||||||
|
00468 S983-EXIT. DESBD470
|
||||||
|
00469 EXIT. DESBD470
|
||||||
|
00470 DESBD470
|
||||||
|
00471 S982A-START-BROWSE. DESBD470
|
||||||
|
00472 SET L982-START-BROWSE-88 TO TRUE. DESBD470
|
||||||
|
00473 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DESBD470
|
||||||
|
00474 DESBD470
|
||||||
|
00475 S982A-EXIT. DESBD470
|
||||||
|
00476 EXIT. DESBD470
|
||||||
|
00477 DESBD470
|
||||||
|
00478 S982B-READ-NEXT. DESBD470
|
||||||
|
00479 SET L982-READ-NEXT-88 TO TRUE. DESBD470
|
||||||
|
00480 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DESBD470
|
||||||
|
00481 DESBD470
|
||||||
|
00482 S982B-EXIT. DESBD470
|
||||||
|
00483 EXIT. DESBD470
|
||||||
|
00484 DESBD470
|
||||||
|
00485 S982C-OPEN-READ. DESBD470
|
||||||
|
00486 SET L982-OPEN-READ-88 TO TRUE. DESBD470
|
||||||
|
00487 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DESBD470
|
||||||
|
00488 DESBD470
|
||||||
|
00489 S982C-EXIT. DESBD470
|
||||||
|
00490 EXIT. DESBD470
|
||||||
|
00491 DESBD470
|
||||||
|
00492 S982D-CLOSE. DESBD470
|
||||||
|
00493 SET L982-CLOSE-88 TO TRUE. DESBD470
|
||||||
|
00494 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DESBD470
|
||||||
|
00495 DESBD470
|
||||||
|
00496 S982D-EXIT. DESBD470
|
||||||
|
00497 EXIT. DESBD470
|
||||||
|
00498 DESBD470
|
||||||
|
00499 S982Z-WNAM-IO. DESBD470
|
||||||
|
00500 CALL 'DTSBU982' USING L982-LINK-AREA DESBD470
|
||||||
|
00501 WNAM-REC. DESBD470
|
||||||
|
00502 S982Z-EXIT. DESBD470
|
||||||
|
00503 EXIT. DESBD470
|
||||||
|
00504 DESBD470
|
||||||
|
00505 DESBD470
|
||||||
|
00506 S999-ABEND. DESBD470
|
||||||
|
00507 DISPLAY '*** I/O MODULE ABENDING'. DESBD470
|
||||||
|
00508 DESBD470
|
||||||
|
00509 DISPLAY '*** CMND-CD = ' L983-CMND-CD. DESBD470
|
||||||
|
00510 DESBD470
|
||||||
|
00511 DISPLAY '*** FILE-STATUS = ' WAGE-TRANS-STATUS. DESBD470
|
||||||
|
00512 DESBD470
|
||||||
|
00513 DISPLAY '*** CALLING MODULE = ' L983-MOD-NAME. DESBD470
|
||||||
|
00514 DESBD470
|
||||||
|
00515 DESBD470
|
||||||
|
00516 CALL 'DTSBU999' USING WRK-ABEND-CD. DESBD470
|
||||||
|
00517 S999-EXIT. DESBD470
|
||||||
|
00518 EXIT. DESBD470
|
||||||
@ -212,7 +212,7 @@
|
|||||||
00211 ++INCLUDE DTSIL981 DESBD471
|
00211 ++INCLUDE DTSIL981 DESBD471
|
||||||
00212 DESBD471
|
00212 DESBD471
|
||||||
00213 01 WWGH-REC. DESBD471
|
00213 01 WWGH-REC. DESBD471
|
||||||
00214 ++INCLUDE DTSIWWGZ DESBD471
|
00214 ++INCLUDE DTSIWWGH DESBD471
|
||||||
00215 DESBD471
|
00215 DESBD471
|
||||||
00216 01 L983-LINK-AREA. DESBD471
|
00216 01 L983-LINK-AREA. DESBD471
|
||||||
00217 ++INCLUDE DTSIL983 DESBD471
|
00217 ++INCLUDE DTSIL983 DESBD471
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
00001 IDENTIFICATION DIVISION. 10/02/24
|
00001 IDENTIFICATION DIVISION. 10/02/24
|
||||||
00002 PROGRAM-ID. DESBD471. DESBD474
|
00002 PROGRAM-ID. DESBD474. DESBD474
|
||||||
00003 AUTHOR. NGC. LV018
|
00003 AUTHOR. NGC. LV018
|
||||||
00004 DATE-WRITTEN. DECEMBER 2012. DESBD474
|
00004 DATE-WRITTEN. DECEMBER 2012. DESBD474
|
||||||
00005 DATE-COMPILED. DESBD474
|
00005 DATE-COMPILED. DESBD474
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
00001 IDENTIFICATION DIVISION. 10/10/24
|
00001 IDENTIFICATION DIVISION. 10/10/24
|
||||||
00002 PROGRAM-ID. DESBD471. DESBD475
|
00002 PROGRAM-ID. DESBD475. DESBD475
|
||||||
00003 AUTHOR. NGC. LV005
|
00003 AUTHOR. NGC. LV005
|
||||||
00004 DATE-WRITTEN. DECEMBER 2012. DESBD475
|
00004 DATE-WRITTEN. DECEMBER 2012. DESBD475
|
||||||
00005 DATE-COMPILED. DESBD475
|
00005 DATE-COMPILED. DESBD475
|
||||||
|
|||||||
@ -209,7 +209,7 @@
|
|||||||
00208 ++INCLUDE DTSIL981 CL*69
|
00208 ++INCLUDE DTSIL981 CL*69
|
||||||
00209 CL*69
|
00209 CL*69
|
||||||
00210 01 WWGH-REC. CL*69
|
00210 01 WWGH-REC. CL*69
|
||||||
00211 ++INCLUDE DTSIWWGZ CL*69
|
00211 ++INCLUDE DTSIWWGH CL*69
|
||||||
00212 CL*69
|
00212 CL*69
|
||||||
00213 01 L983-LINK-AREA. DESBD481
|
00213 01 L983-LINK-AREA. DESBD481
|
||||||
00214 ++INCLUDE DTSIL983 DESBD481
|
00214 ++INCLUDE DTSIL983 DESBD481
|
||||||
|
|||||||
135
Batch/DOESU946.cob
Normal file
135
Batch/DOESU946.cob
Normal file
@ -0,0 +1,135 @@
|
|||||||
|
00001 IDENTIFICATION DIVISION. 02/26/01
|
||||||
|
00002 PROGRAM-ID. DOESU946. DOESU946
|
||||||
|
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV002
|
||||||
|
00004 DATE-WRITTEN. DECEMBER 1991. DOESU946
|
||||||
|
00005 DATE-COMPILED. DOESU946
|
||||||
|
00006 DOESU946
|
||||||
|
00007 ***** DOESU946
|
||||||
|
00008 * DOESU946
|
||||||
|
00009 * FUNCTION: VARIABLE LENGTH RECORD (FILE 1) OUTPUT. DOESU946
|
||||||
|
00010 * DOESU946
|
||||||
|
00011 * DOESU946
|
||||||
|
00012 * MODIFICATION LOG: DOESU946
|
||||||
|
00013 * DOESU946
|
||||||
|
00014 * 12/18/91 INITIAL DEVELOPMENT. DOESU946
|
||||||
|
00015 * WORK ORDER: PROGRAMMER: TCL DOESU946
|
||||||
|
00016 * DOESU946
|
||||||
|
00017 * 09/30/1998 REVIEWED AND MODIFIED FOR DC. DOESU946
|
||||||
|
00018 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DOESU946
|
||||||
|
00019 * DOESU946
|
||||||
|
00020 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DOESU946
|
||||||
|
00021 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DOESU946
|
||||||
|
00022 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DOESU946
|
||||||
|
00023 * DOESU946
|
||||||
|
00024 * DOESU946
|
||||||
|
00025 * DESCRIPTION: DOESU946
|
||||||
|
00026 * DOESU946
|
||||||
|
00027 * DTSBU946 WRITES REPORT RECORDS TO DTSFVRO1. DOESU946
|
||||||
|
00028 * DOESU946
|
||||||
|
00029 * DOESU946
|
||||||
|
00030 ***** DOESU946
|
||||||
|
00031 DOESU946
|
||||||
|
00032 ENVIRONMENT DIVISION. DOESU946
|
||||||
|
00033 DOESU946
|
||||||
|
00034 INPUT-OUTPUT SECTION. DOESU946
|
||||||
|
00035 DOESU946
|
||||||
|
00036 FILE-CONTROL. DOESU946
|
||||||
|
00037 SELECT VAR-FILE ASSIGN TO DOESVRO1 CL**2
|
||||||
|
00038 FILE STATUS IS FILE-STATUS. DOESU946
|
||||||
|
00039 DOESU946
|
||||||
|
00040 DATA DIVISION. DOESU946
|
||||||
|
00041 DOESU946
|
||||||
|
00042 FILE SECTION. DOESU946
|
||||||
|
00043 DOESU946
|
||||||
|
00044 FD VAR-FILE DOESU946
|
||||||
|
00045 RECORDING MODE IS V DOESU946
|
||||||
|
00046 BLOCK CONTAINS 0 RECORDS. DOESU946
|
||||||
|
00047 DOESU946
|
||||||
|
00048 01 FILE-REC. DOESU946
|
||||||
|
00049 ++INCLUDE DTSIRVAR DOESU946
|
||||||
|
00050 EJECT DOESU946
|
||||||
|
00051 WORKING-STORAGE SECTION. DOESU946
|
||||||
|
000515 77 PAN-VALET PICTURE X(24) VALUE '002DOESU946 02/26/01'. DOESU946
|
||||||
|
00052 DOESU946
|
||||||
|
00053 01 WRK-AREA. DOESU946
|
||||||
|
00054 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +946.DOESU946
|
||||||
|
00055 DOESU946
|
||||||
|
00056 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DOESU946
|
||||||
|
00057 DOESU946
|
||||||
|
00058 05 VAR-CHAR-CNT PIC S9(04) COMP. DOESU946
|
||||||
|
00059 DOESU946
|
||||||
|
00060 05 WRK-REC-CNT PIC S9(07) COMP-3. DOESU946
|
||||||
|
00061 DOESU946
|
||||||
|
00062 05 FILE-STATUS PIC X(02). DOESU946
|
||||||
|
00063 88 FILE-OK-88 VALUE '00'. DOESU946
|
||||||
|
00064 EJECT DOESU946
|
||||||
|
00065 01 RLEN-LENGTH-LITERALS. DOESU946
|
||||||
|
00066 ++INCLUDE DTSIRLEN DOESU946
|
||||||
|
00067 EJECT DOESU946
|
||||||
|
00068 LINKAGE SECTION. DOESU946
|
||||||
|
00069 DOESU946
|
||||||
|
00070 01 LINK-REC. DOESU946
|
||||||
|
00071 ++INCLUDE DTSIRVAR DOESU946
|
||||||
|
00072 EJECT DOESU946
|
||||||
|
00073 PROCEDURE DIVISION USING LINK-REC. DOESU946
|
||||||
|
00074 DOESU946
|
||||||
|
00075 IF FIRST-TIME-IND = 'Y' DOESU946
|
||||||
|
00076 PERFORM P1000-OPEN THRU P1000-EXIT DOESU946
|
||||||
|
00077 MOVE +0 TO WRK-REC-CNT DOESU946
|
||||||
|
00078 MOVE 'N' TO FIRST-TIME-IND. DOESU946
|
||||||
|
00079 DOESU946
|
||||||
|
00080 IF RVAR-LENGTH OF LINK-REC = -1 DOESU946
|
||||||
|
00081 DISPLAY '*** ' DOESU946
|
||||||
|
00082 WRK-REC-CNT DOESU946
|
||||||
|
00083 ' DTSFVRO1 RECORDS WRITTEN' DOESU946
|
||||||
|
00084 PERFORM P2000-CLOSE THRU P2000-EXIT DOESU946
|
||||||
|
00085 ELSE DOESU946
|
||||||
|
00086 IF RVAR-LENGTH OF LINK-REC < RLEN-MIN-LENGTH DOESU946
|
||||||
|
00087 OR RVAR-LENGTH OF LINK-REC > RLEN-MAX-LENGTH DOESU946
|
||||||
|
00088 DISPLAY 'RECORD LENGTH: ' RVAR-LENGTH OF LINK-REC DOESU946
|
||||||
|
00089 PERFORM S999-ABEND THRU S999-EXIT DOESU946
|
||||||
|
00090 ELSE DOESU946
|
||||||
|
00091 COMPUTE VAR-CHAR-CNT = RVAR-LENGTH OF LINK-REC - 2 DOESU946
|
||||||
|
00092 MOVE LINK-REC TO FILE-REC DOESU946
|
||||||
|
00093 PERFORM P3000-WRITE THRU P3000-EXIT DOESU946
|
||||||
|
00094 ADD +1 TO WRK-REC-CNT. DOESU946
|
||||||
|
00095 DOESU946
|
||||||
|
00096 GOBACK. DOESU946
|
||||||
|
00097 EJECT DOESU946
|
||||||
|
00098 P1000-OPEN. DOESU946
|
||||||
|
00099 OPEN OUTPUT VAR-FILE. DOESU946
|
||||||
|
00100 DOESU946
|
||||||
|
00101 IF NOT FILE-OK-88 DOESU946
|
||||||
|
00102 DISPLAY 'CANT OPEN VARIABLE LENGTH FILE' DOESU946
|
||||||
|
00103 PERFORM S999-ABEND THRU S999-EXIT. DOESU946
|
||||||
|
00104 P1000-EXIT. DOESU946
|
||||||
|
00105 EXIT. DOESU946
|
||||||
|
00106 DOESU946
|
||||||
|
00107 DOESU946
|
||||||
|
00108 DOESU946
|
||||||
|
00109 P2000-CLOSE. DOESU946
|
||||||
|
00110 CLOSE VAR-FILE. DOESU946
|
||||||
|
00111 IF NOT FILE-OK-88 DOESU946
|
||||||
|
00112 DISPLAY 'CANT CLOSE VARIABLE LENGTH FILE' DOESU946
|
||||||
|
00113 PERFORM S999-ABEND THRU S999-EXIT. DOESU946
|
||||||
|
00114 P2000-EXIT. DOESU946
|
||||||
|
00115 EXIT. DOESU946
|
||||||
|
00116 DOESU946
|
||||||
|
00117 DOESU946
|
||||||
|
00118 DOESU946
|
||||||
|
00119 P3000-WRITE. DOESU946
|
||||||
|
00120 WRITE FILE-REC. DOESU946
|
||||||
|
00121 DOESU946
|
||||||
|
00122 IF NOT FILE-OK-88 DOESU946
|
||||||
|
00123 DISPLAY 'CANT WRITE VARIABLE LENGTH FILE' DOESU946
|
||||||
|
00124 PERFORM S999-ABEND THRU S999-EXIT. DOESU946
|
||||||
|
00125 P3000-EXIT. DOESU946
|
||||||
|
00126 EXIT. DOESU946
|
||||||
|
00127 EJECT DOESU946
|
||||||
|
00128 S999-ABEND. DOESU946
|
||||||
|
00129 DISPLAY '*** I/O MODULE ABENDING'. DOESU946
|
||||||
|
00130 DISPLAY '*** FILE-STATUS = ' FILE-STATUS. DOESU946
|
||||||
|
00131 DOESU946
|
||||||
|
00132 CALL 'DTSBU999' USING WRK-ABEND-CD. DOESU946
|
||||||
|
00133 S999-EXIT. DOESU946
|
||||||
|
00134 EXIT. DOESU946
|
||||||
@ -583,8 +583,10 @@
|
|||||||
00582 GO TO S910-MSTR-IO. DTSBD120
|
00582 GO TO S910-MSTR-IO. DTSBD120
|
||||||
00583 DTSBD120
|
00583 DTSBD120
|
||||||
00584 S910-MSTR-IO. DTSBD120
|
00584 S910-MSTR-IO. DTSBD120
|
||||||
|
RCCODE DISPLAY 'START-Time:' CURRENT-DATE.
|
||||||
00585 CALL 'DTSBU910' USING L910-LINK-AREA DTSBD120
|
00585 CALL 'DTSBU910' USING L910-LINK-AREA DTSBD120
|
||||||
00586 MSKL-REC. DTSBD120
|
00586 MSKL-REC. DTSBD120
|
||||||
|
RCCODE DISPLAY 'END-Time:' CURRENT-DATE.
|
||||||
00587 S910-EXIT. EXIT. DTSBD120
|
00587 S910-EXIT. EXIT. DTSBD120
|
||||||
00588 SKIP3 DTSBD120
|
00588 SKIP3 DTSBD120
|
||||||
00589 S921-OPEN-READ. DTSBD120
|
00589 S921-OPEN-READ. DTSBD120
|
||||||
|
|||||||
@ -84,6 +84,9 @@
|
|||||||
00083 TSKL-REC. DTSBD380
|
00083 TSKL-REC. DTSBD380
|
||||||
00084 DTSBD380
|
00084 DTSBD380
|
||||||
00085 DTSBD380
|
00085 DTSBD380
|
||||||
|
RCODE MOVE '002' TO T002-REC-TYPE. DTSBD380
|
||||||
|
RCODE MOVE '003' TO T003-REC-TYPE. DTSBD380
|
||||||
|
RCODE MOVE '040' TO T040-REC-TYPE. DTSBD380
|
||||||
00086 IF TSKL-AUTO-EMP-STATUS-88 DTSBD380
|
00086 IF TSKL-AUTO-EMP-STATUS-88 DTSBD380
|
||||||
00087 PERFORM P1000-AUTO-EMP-STATUS THRU P1000-EXIT DTSBD380
|
00087 PERFORM P1000-AUTO-EMP-STATUS THRU P1000-EXIT DTSBD380
|
||||||
00088 ELSE DTSBD380
|
00088 ELSE DTSBD380
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
00001 IDENTIFICATION DIVISION. 07/04/24
|
00001 IDENTIFICATION DIVISION. 07/04/24
|
||||||
00002 PROGRAM-ID. DTSBX413. DTSBS413
|
00002 PROGRAM-ID. DTSBS413. DTSBS413
|
||||||
00003 AUTHOR. SC. LV139
|
00003 AUTHOR. SC. LV139
|
||||||
00004 DATE-WRITTEN. JUNE 2024. CL129
|
00004 DATE-WRITTEN. JUNE 2024. CL129
|
||||||
00005 DATE-COMPILED. DTSBS413
|
00005 DATE-COMPILED. DTSBS413
|
||||||
|
|||||||
@ -127,6 +127,10 @@
|
|||||||
001265 77 PAN-VALET PICTURE X(24) VALUE '001DTSBU599 04/11/13'. DTSBU599
|
001265 77 PAN-VALET PICTURE X(24) VALUE '001DTSBU599 04/11/13'. DTSBU599
|
||||||
00127 77 PAN-VALET PICTURE X(24) VALUE '001DTSBU599 04/11/13'. DTSBU599
|
00127 77 PAN-VALET PICTURE X(24) VALUE '001DTSBU599 04/11/13'. DTSBU599
|
||||||
00128 77 PAN-VALET PICTURE X(24) VALUE '002DTSBU599 03/21/07'. DTSBU599
|
00128 77 PAN-VALET PICTURE X(24) VALUE '002DTSBU599 03/21/07'. DTSBU599
|
||||||
|
RCODE * Hex comaprison issue - Fix Start.
|
||||||
|
RCODE 01 WS-INPUT-HEX PIC 9(4) COMP.
|
||||||
|
RCODE 01 WS-TABLE-HEX PIC 9(4) COMP.
|
||||||
|
RCODE * Hex comaprison issue - Fix End.
|
||||||
00129 DTSBU599
|
00129 DTSBU599
|
||||||
00130 01 WS-PROGRAM-CONSTANTS. DTSBU599
|
00130 01 WS-PROGRAM-CONSTANTS. DTSBU599
|
||||||
00131 05 PRINT-BARSETC-FONT2 PIC 9(1) VALUE ZEROS. DTSBU599
|
00131 05 PRINT-BARSETC-FONT2 PIC 9(1) VALUE ZEROS. DTSBU599
|
||||||
@ -386,8 +390,17 @@
|
|||||||
00385 DTSBU599
|
00385 DTSBU599
|
||||||
00386 PROC1680-BARSETB-CODE-VALUE. DTSBU599
|
00386 PROC1680-BARSETB-CODE-VALUE. DTSBU599
|
||||||
00387 DTSBU599
|
00387 DTSBU599
|
||||||
00388 IF WS-INPUT-DATA (BARCODE-SETB-INDEX) = DTSBU599
|
RCODE * Hex comaprison issue - Fix Start.
|
||||||
00389 BARCODE-CHAR-VALUE (BARCODE-CHAR-INDEX) DTSBU599
|
RCODE * Convert both values to their numeric representation for comparison
|
||||||
|
RCODE COMPUTE WS-INPUT-HEX =
|
||||||
|
RCODE FUNCTION ORD(WS-INPUT-DATA(BARCODE-SETB-INDEX))
|
||||||
|
RCODE COMPUTE WS-TABLE-HEX =
|
||||||
|
RCODE FUNCTION ORD(BARCODE-CHAR-VALUE(BARCODE-CHAR-INDEX))
|
||||||
|
RCODE DTSBU599
|
||||||
|
RCODE IF WS-INPUT-HEX = WS-TABLE-HEX
|
||||||
|
RCODE * IF WS-INPUT-DATA (BARCODE-SETB-INDEX) = DTSBU599
|
||||||
|
RCODE * BARCODE-CHAR-VALUE (BARCODE-CHAR-INDEX) DTSBU599
|
||||||
|
RCODE * Hex comaprison issue - Fix End.
|
||||||
00390 MOVE BARCODE-CODE-VALUE (BARCODE-CHAR-INDEX) DTSBU599
|
00390 MOVE BARCODE-CODE-VALUE (BARCODE-CHAR-INDEX) DTSBU599
|
||||||
00391 TO BARCODE-SETB-VALUE DTSBU599
|
00391 TO BARCODE-SETB-VALUE DTSBU599
|
||||||
00392 MOVE 1 TO BARSETB-CHAR-FOUND DTSBU599
|
00392 MOVE 1 TO BARSETB-CHAR-FOUND DTSBU599
|
||||||
|
|||||||
@ -87,7 +87,7 @@
|
|||||||
00087 FD WGH-FILE. DTSBU981
|
00087 FD WGH-FILE. DTSBU981
|
||||||
00088 DTSBU981
|
00088 DTSBU981
|
||||||
00089 01 FILE-REC. DTSBU981
|
00089 01 FILE-REC. DTSBU981
|
||||||
00090 ++INCLUDE DTSIWWGZ DTSBU981
|
00090 ++INCLUDE DTSIWWGH DTSBU981
|
||||||
00091 EJECT DTSBU981
|
00091 EJECT DTSBU981
|
||||||
00092 WORKING-STORAGE SECTION. DTSBU981
|
00092 WORKING-STORAGE SECTION. DTSBU981
|
||||||
000925 77 PAN-VALET PICTURE X(24) VALUE '011DTSBU981 04/05/04'. DTSBU981
|
000925 77 PAN-VALET PICTURE X(24) VALUE '011DTSBU981 04/05/04'. DTSBU981
|
||||||
@ -131,7 +131,7 @@
|
|||||||
00130 EJECT DTSBU981
|
00130 EJECT DTSBU981
|
||||||
00131 01 LINK-REC. DTSBU981
|
00131 01 LINK-REC. DTSBU981
|
||||||
00132 05 WWGH-REC. DTSBU981
|
00132 05 WWGH-REC. DTSBU981
|
||||||
00133 ++INCLUDE DTSIWWGZ DTSBU981
|
00133 ++INCLUDE DTSIWWGH DTSBU981
|
||||||
00134 EJECT DTSBU981
|
00134 EJECT DTSBU981
|
||||||
00135 PROCEDURE DIVISION USING L981-LINK-AREA DTSBU981
|
00135 PROCEDURE DIVISION USING L981-LINK-AREA DTSBU981
|
||||||
00136 LINK-REC. DTSBU981
|
00136 LINK-REC. DTSBU981
|
||||||
|
|||||||
@ -1,6 +1,6 @@
|
|||||||
00001 IDENTIFICATION DIVISION. 05/23/19
|
00001 IDENTIFICATION DIVISION. 09/06/25
|
||||||
00002 PROGRAM-ID. DTSBX417. DTSBX417
|
00002 PROGRAM-ID. DTSBX417. DTSBX417
|
||||||
00003 AUTHOR. NGC. LV077
|
00003 AUTHOR. NGC. LV078
|
||||||
00004 DATE-WRITTEN. APRIL 2005. DTSBX417
|
00004 DATE-WRITTEN. APRIL 2005. DTSBX417
|
||||||
00005 DATE-COMPILED. DTSBX417
|
00005 DATE-COMPILED. DTSBX417
|
||||||
00006 SKIP3 DTSBX417
|
00006 SKIP3 DTSBX417
|
||||||
@ -147,7 +147,7 @@
|
|||||||
00147 05 SORT-DATA PIC X(512). DTSBX417
|
00147 05 SORT-DATA PIC X(512). DTSBX417
|
||||||
00148 DTSBX417
|
00148 DTSBX417
|
||||||
00149 WORKING-STORAGE SECTION. DTSBX417
|
00149 WORKING-STORAGE SECTION. DTSBX417
|
||||||
001495 77 PAN-VALET PICTURE X(24) VALUE '077DTSBX417 05/23/19'. DTSBX417
|
001495 77 PAN-VALET PICTURE X(24) VALUE '078DTSBX417 09/06/25'. DTSBX417
|
||||||
00150 77 PAN-VALET PICTURE X(24) VALUE '013DTSBX420 10/07/14'. DTSBX417
|
00150 77 PAN-VALET PICTURE X(24) VALUE '013DTSBX420 10/07/14'. DTSBX417
|
||||||
00151 77 PAN-VALET PICTURE X(24) VALUE '154DTSBX420 10/07/14'. DTSBX417
|
00151 77 PAN-VALET PICTURE X(24) VALUE '154DTSBX420 10/07/14'. DTSBX417
|
||||||
00152 SKIP3 DTSBX417
|
00152 SKIP3 DTSBX417
|
||||||
@ -1207,10 +1207,10 @@
|
|||||||
01206 MOVE +91 TO SORT-SEQ1 DTSBX417
|
01206 MOVE +91 TO SORT-SEQ1 DTSBX417
|
||||||
01207 MOVE X120-REC TO SORT-DATA DTSBX417
|
01207 MOVE X120-REC TO SORT-DATA DTSBX417
|
||||||
01208 DTSBX417
|
01208 DTSBX417
|
||||||
01209 WHEN WEB-IMP-TYPE-REL-88 DTSBX417
|
01209 * WHEN WEB-IMP-TYPE-REL-88 CL*78
|
||||||
01210 PERFORM P1200G-REL THRU P1200G-EXIT DTSBX417
|
01210 * PERFORM P1200G-REL THRU P1200G-EXIT CL*78
|
||||||
01211 MOVE +5 TO SORT-SEQ1 DTSBX417
|
01211 * MOVE +5 TO SORT-SEQ1 CL*78
|
||||||
01212 MOVE X130-REC TO SORT-DATA DTSBX417
|
01212 * MOVE X130-REC TO SORT-DATA CL*78
|
||||||
01213 DTSBX417
|
01213 DTSBX417
|
||||||
01214 *** WHEN WEB-IMP-TYPE-IND-88 DTSBX417
|
01214 *** WHEN WEB-IMP-TYPE-IND-88 DTSBX417
|
||||||
01215 * MOVE +6 TO SORT-SEQ1 DTSBX417
|
01215 * MOVE +6 TO SORT-SEQ1 DTSBX417
|
||||||
@ -1459,9 +1459,9 @@
|
|||||||
01458 P1200F-EXIT. DTSBX417
|
01458 P1200F-EXIT. DTSBX417
|
||||||
01459 EXIT. DTSBX417
|
01459 EXIT. DTSBX417
|
||||||
01460 DTSBX417
|
01460 DTSBX417
|
||||||
01461 P1200G-REL. DTSBX417
|
01461 *P1200G-REL. CL*78
|
||||||
01462 P1200G-EXIT. DTSBX417
|
01462 *P1200G-EXIT. CL*78
|
||||||
01463 EXIT. DTSBX417
|
01463 * EXIT. CL*78
|
||||||
01464 DTSBX417
|
01464 DTSBX417
|
||||||
01465 P1200H-RPT. DTSBX417
|
01465 P1200H-RPT. DTSBX417
|
||||||
01466 * DISPLAY '01200H-RPT ' CL**9
|
01466 * DISPLAY '01200H-RPT ' CL**9
|
||||||
|
|||||||
6181
Batch/DTSBX421.cob
6181
Batch/DTSBX421.cob
File diff suppressed because it is too large
Load Diff
3118
Batch/DTSBX551.cob
Normal file
3118
Batch/DTSBX551.cob
Normal file
File diff suppressed because it is too large
Load Diff
1221
Batch/DTSBX629.cob
1221
Batch/DTSBX629.cob
File diff suppressed because it is too large
Load Diff
268
Batch/DTSBX802.cob
Normal file
268
Batch/DTSBX802.cob
Normal file
@ -0,0 +1,268 @@
|
|||||||
|
00001 IDENTIFICATION DIVISION. 10/07/25
|
||||||
|
00002 PROGRAM-ID. DTSBX802. DTSBX802
|
||||||
|
00003 AUTHOR. NGC. LV011
|
||||||
|
00004 DATE-WRITTEN. OCTOBER 2006. DTSBX802
|
||||||
|
00005 DATE-COMPILED. DTSBX802
|
||||||
|
00006 SKIP3 DTSBX802
|
||||||
|
00007 ***** DTSBX802
|
||||||
|
00008 * DTSBX802
|
||||||
|
00009 * FUNCTION: CREATE FILE OF RELATIONSHIP RECORDS DTSBX802
|
||||||
|
00010 * IN EFFECTIVE DATE, PREDECESSOR, SUCCESSOR DTSBX802
|
||||||
|
00011 * ORDER. USED FOR TRANSFERRING EXPERIENCE. DTSBX802
|
||||||
|
00012 * DTSBX802
|
||||||
|
00013 * >>> THIS PROGRAM CAN RUN IN TWO MODES, BASED ON A PARM. DTSBX802
|
||||||
|
00014 * >>> PARM = 0: SELECT ONLY EXPERIENCE RATING RELATIONSHIPS. DTSBX802
|
||||||
|
00015 * >>> PARM = 1: SELECT ALL RELATIONSHIPS. DTSBX802
|
||||||
|
00016 * >>> THE 'SELECT ALL' SETTING IS USED IN PROCESSING ICESA DTSBX802
|
||||||
|
00017 * >>> REPORTS (DTSBD551). DTSBX802
|
||||||
|
00018 * DTSBX802
|
||||||
|
00019 * 07/11/2019 MODIFIED TO NOT EXCLUDE EMPLOYER FROM THE SUC TAB CL**9
|
||||||
|
00020 * PROGRAM DTSZX800 NEED TO RUN BEFORE THIS PROGRAM CL**9
|
||||||
|
00021 * REBUILT THE PRED/SUCC REL TABLE. CL**9
|
||||||
|
00022 * REFERENCE: PROGRAMMER: ZL1 CL**9
|
||||||
|
00023 * CL**9
|
||||||
|
00024 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL**9
|
||||||
|
00025 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL**9
|
||||||
|
00026 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: CL**9
|
||||||
|
00027 * CL**9
|
||||||
|
00028 ***** DTSBX802
|
||||||
|
00029 SKIP3 DTSBX802
|
||||||
|
00030 ENVIRONMENT DIVISION. DTSBX802
|
||||||
|
00031 SKIP2 DTSBX802
|
||||||
|
00032 INPUT-OUTPUT SECTION. DTSBX802
|
||||||
|
00033 DTSBX802
|
||||||
|
00034 FILE-CONTROL. DTSBX802
|
||||||
|
00035 * SELECT SORT-FILE ASSIGN TO SORTFILE. CL*10
|
||||||
|
00036 DTSBX802
|
||||||
|
00037 SELECT ESP-FILE ASSIGN TO DTSFIESP DTSBX802
|
||||||
|
00038 FILE STATUS IS ESP-STATUS. DTSBX802
|
||||||
|
00039 DTSBX802
|
||||||
|
00040 DATA DIVISION. DTSBX802
|
||||||
|
00041 DTSBX802
|
||||||
|
00042 FILE SECTION. DTSBX802
|
||||||
|
00043 DTSBX802
|
||||||
|
00044 *SD SORT-FILE. CL*10
|
||||||
|
00045 DTSBX802
|
||||||
|
00046 *01 SORT-REC. CL*10
|
||||||
|
00047 * 05 SORT-KEY PIC X(16). CL*10
|
||||||
|
00048 DTSBX802
|
||||||
|
00049 FD ESP-FILE DTSBX802
|
||||||
|
00050 RECORDING MODE IS F DTSBX802
|
||||||
|
00051 BLOCK CONTAINS 0 RECORDS DTSBX802
|
||||||
|
00052 LABEL RECORDS ARE OMITTED. DTSBX802
|
||||||
|
00053 DTSBX802
|
||||||
|
00054 01 ESP-FILE-REC PIC X(16). DTSBX802
|
||||||
|
00055 DTSBX802
|
||||||
|
00056 DTSBX802
|
||||||
|
00057 WORKING-STORAGE SECTION. DTSBX802
|
||||||
|
000575 77 PAN-VALET PICTURE X(24) VALUE '011DTSBX802 10/07/25'. DTSBX802
|
||||||
|
00058 77 PAN-VALET PICTURE X(24) VALUE '001DTSBX800 01/16/08'. DTSBX802
|
||||||
|
00059 SKIP3 DTSBX802
|
||||||
|
00060 01 WRK-AREA. DTSBX802
|
||||||
|
00061 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +340. DTSBX802
|
||||||
|
00062 DTSBX802
|
||||||
|
00063 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBZ340'.DTSBX802
|
||||||
|
00064 DTSBX802
|
||||||
|
00065 05 WRK-SRT-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX802
|
||||||
|
00066 05 WRK-ESP-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX802
|
||||||
|
00067 DTSBX802
|
||||||
|
00068 05 WRK-ERROR-IND PIC X(01). DTSBX802
|
||||||
|
00069 88 WRK-ERROR-YES-88 VALUE 'Y'. DTSBX802
|
||||||
|
00070 88 WRK-ERROR-NO-88 VALUE 'N'. DTSBX802
|
||||||
|
00071 DTSBX802
|
||||||
|
00072 05 ESP-STATUS PIC X(02). DTSBX802
|
||||||
|
00073 88 ESP-STATUS-OK-88 VALUE '00'. DTSBX802
|
||||||
|
00074 DTSBX802
|
||||||
|
00075 05 SORT-STATUS PIC X(02) VALUE '00'. DTSBX802
|
||||||
|
00076 88 SORT-OK-88 VALUE '00'. DTSBX802
|
||||||
|
00077 88 SORT-EOF-88 VALUE '10'. DTSBX802
|
||||||
|
00078 DTSBX802
|
||||||
|
00079 05 WRK-TRACE-IND PIC X(01). DTSBX802
|
||||||
|
00080 DTSBX802
|
||||||
|
00081 05 PCT-DISP PIC 9.9999. DTSBX802
|
||||||
|
00082 DTSBX802
|
||||||
|
00083 05 WRK-ESP-REC. DTSBX802
|
||||||
|
00084 10 WRK-ESP-EFF-DT PIC S9(09) COMP-3. DTSBX802
|
||||||
|
00085 10 WRK-ESP-PRED PIC S9(07) COMP-3. DTSBX802
|
||||||
|
00086 10 WRK-ESP-SUC PIC S9(07) COMP-3. DTSBX802
|
||||||
|
00087 10 WRK-ESP-PCT PIC S9V9(04) COMP-3. DTSBX802
|
||||||
|
00088 DTSBX802
|
||||||
|
00089 01 L921-LINK-AREA. DTSBX802
|
||||||
|
00090 ++INCLUDE DTSIL921 DTSBX802
|
||||||
|
00091 DTSBX802
|
||||||
|
00092 01 ISKL-REC. DTSBX802
|
||||||
|
00093 ++INCLUDE DTSIISKL DTSBX802
|
||||||
|
00094 DTSBX802
|
||||||
|
00095 01 IPES-REC. DTSBX802
|
||||||
|
00096 ++INCLUDE DTSIIPES DTSBX802
|
||||||
|
00097 DTSBX802
|
||||||
|
00098 LINKAGE SECTION. DTSBX802
|
||||||
|
00099 DTSBX802
|
||||||
|
00100 01 PARM-AREA. DTSBX802
|
||||||
|
00101 05 PARM-LENGTH PIC S9(04) COMP. DTSBX802
|
||||||
|
00102 DTSBX802
|
||||||
|
00103 *********************************************************** DTSBX802
|
||||||
|
00104 * PARM = 0: SELECT ONLY 'EXPERIENCE RATING' RELATIONSHIPS. DTSBX802
|
||||||
|
00105 * PARM = 1: SELECT ALL RELATIONSHIPS. DTSBX802
|
||||||
|
00106 *********************************************************** DTSBX802
|
||||||
|
00107 05 PARM-DATA. DTSBX802
|
||||||
|
00108 10 PARM-EMP-NO PIC X(01). DTSBX802
|
||||||
|
00109 88 PARM-RATING-ONLY-88 VALUE '0'. DTSBX802
|
||||||
|
00110 88 PARM-SELECT-ALL-88 VALUE '1'. DTSBX802
|
||||||
|
00111 DTSBX802
|
||||||
|
00112 PROCEDURE DIVISION USING PARM-AREA. DTSBX802
|
||||||
|
00113 DTSBX802
|
||||||
|
00114 DTSBX800-MAIN. DTSBX802
|
||||||
|
00115 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBX802
|
||||||
|
00116 IF WRK-ERROR-YES-88 DTSBX802
|
||||||
|
00117 GO TO DTSBX800-MAIN-EXIT. DTSBX802
|
||||||
|
00118 DTSBX802
|
||||||
|
00119 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBX802
|
||||||
|
00120 DTSBX802
|
||||||
|
00121 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBX802
|
||||||
|
00122 DTSBX802
|
||||||
|
00123 DTSBX800-MAIN-EXIT. DTSBX802
|
||||||
|
00124 GOBACK. DTSBX802
|
||||||
|
00125 EJECT DTSBX802
|
||||||
|
00126 I0000-INITIATE. DTSBX802
|
||||||
|
00127 DTSBX802
|
||||||
|
00128 SET WRK-ERROR-NO-88 TO TRUE. DTSBX802
|
||||||
|
00129 DTSBX802
|
||||||
|
00130 PERFORM I1000-OPEN-FILES THRU I1000-EXIT. DTSBX802
|
||||||
|
00131 IF WRK-ERROR-YES-88 DTSBX802
|
||||||
|
00132 GO TO I0000-EXIT. DTSBX802
|
||||||
|
00133 DTSBX802
|
||||||
|
00134 I0000-EXIT. DTSBX802
|
||||||
|
00135 EXIT. DTSBX802
|
||||||
|
00136 I1000-OPEN-FILES. DTSBX802
|
||||||
|
00137 MOVE WRK-TRACE-IND TO L921-TRACE-IND. DTSBX802
|
||||||
|
00138 DTSBX802
|
||||||
|
00139 MOVE WRK-MOD-NAME TO L921-MOD-NAME. DTSBX802
|
||||||
|
00140 DTSBX802
|
||||||
|
00141 OPEN OUTPUT ESP-FILE. DTSBX802
|
||||||
|
00142 IF NOT ESP-STATUS-OK-88 DTSBX802
|
||||||
|
00143 DISPLAY 'CANNOT OPEN ESP OUTPUT FILE ' ESP-STATUS DTSBX802
|
||||||
|
00144 SET WRK-ERROR-YES-88 TO TRUE DTSBX802
|
||||||
|
00145 GO TO I1000-EXIT DTSBX802
|
||||||
|
00146 END-IF. DTSBX802
|
||||||
|
00147 PERFORM S921A-OPEN-READ THRU S921A-EXIT. DTSBX802
|
||||||
|
00148 DTSBX802
|
||||||
|
00149 I1000-EXIT. DTSBX802
|
||||||
|
00150 EXIT. DTSBX802
|
||||||
|
00151 DTSBX802
|
||||||
|
00152 EJECT DTSBX802
|
||||||
|
00153 P0000-PROCESS. DTSBX802
|
||||||
|
00154 PERFORM P1000-GET-IPES THRU P1000-EXIT. CL*10
|
||||||
|
00155 DTSBX802
|
||||||
|
00156 P0000-EXIT. DTSBX802
|
||||||
|
00157 EXIT. DTSBX802
|
||||||
|
00158 DTSBX802
|
||||||
|
00159 P1000-GET-IPES. DTSBX802
|
||||||
|
00160 MOVE LOW-VALUES TO IPES-KEY-AREA. DTSBX802
|
||||||
|
00161 SET IPES-PES-88 TO TRUE. DTSBX802
|
||||||
|
00162 MOVE IPES-KEY-AREA TO ISKL-KEY-AREA. DTSBX802
|
||||||
|
00163 PERFORM S921B-START-BROWSE THRU S921B-EXIT. DTSBX802
|
||||||
|
00164 DTSBX802
|
||||||
|
00165 PERFORM UNTIL L921-NO-REC-88 DTSBX802
|
||||||
|
00166 MOVE ISKL-REC TO IPES-REC DTSBX802
|
||||||
|
00167 DISPLAY 'TRANSFER EXP RATING ' IPES-SUC-EMP-NO CL**7
|
||||||
|
00168 ' TRANSFER CODE ' IPES-EXP-TRNSF-CD CL**7
|
||||||
|
00169 CL**7
|
||||||
|
00170 IF PARM-RATING-ONLY-88 DTSBX802
|
||||||
|
00171 IF IPES-EXP-TRNSF-YES-88 DTSBX802
|
||||||
|
00172 PERFORM P1100-WRITE-SORT-REC THRU P1100-EXIT DTSBX802
|
||||||
|
00173 ADD +1 TO WRK-SRT-CNT DTSBX802
|
||||||
|
00174 END-IF DTSBX802
|
||||||
|
00175 ELSE DTSBX802
|
||||||
|
00176 PERFORM P1100-WRITE-SORT-REC THRU P1100-EXIT DTSBX802
|
||||||
|
00177 ADD +1 TO WRK-SRT-CNT DTSBX802
|
||||||
|
00178 END-IF DTSBX802
|
||||||
|
00179 PERFORM S921D-READ-NEXT THRU S921D-EXIT DTSBX802
|
||||||
|
00180 END-PERFORM. DTSBX802
|
||||||
|
00181 DTSBX802
|
||||||
|
00182 P1000-EXIT. DTSBX802
|
||||||
|
00183 EXIT. DTSBX802
|
||||||
|
00184 DTSBX802
|
||||||
|
00185 P1100-WRITE-SORT-REC. DTSBX802
|
||||||
|
00186 * IF IPES-SUC-EMP-NO = 582326 OR 813262 OR 862472 CL**8
|
||||||
|
00187 * OR 753582 CL**8
|
||||||
|
00188 * DISPLAY 'PASS ' WRK-ESP-EFF-DT ' ' WRK-ESP-PRED CL**8
|
||||||
|
00189 * ' ' WRK-ESP-SUC ' ' WRK-ESP-PCT CL**8
|
||||||
|
00190 * GO TO P1100-EXIT. CL**8
|
||||||
|
00191 CL**3
|
||||||
|
00192 MOVE IPES-EFF-DATE TO WRK-ESP-EFF-DT. DTSBX802
|
||||||
|
00193 MOVE IPES-PRED-EMP-NO TO WRK-ESP-PRED. DTSBX802
|
||||||
|
00194 MOVE IPES-SUC-EMP-NO TO WRK-ESP-SUC. DTSBX802
|
||||||
|
00195 MOVE IPES-PERCENT-TRNSFRD TO WRK-ESP-PCT. DTSBX802
|
||||||
|
00196 DTSBX802
|
||||||
|
00197 DISPLAY 'IN ' WRK-ESP-EFF-DT ' ' WRK-ESP-PRED CL**2
|
||||||
|
00198 ' ' WRK-ESP-SUC ' ' WRK-ESP-PCT. CL**7
|
||||||
|
00199 DTSBX802
|
||||||
|
00200 P1100-WRITE-ESP. CL*10
|
||||||
|
00201 DTSBX802
|
||||||
|
00202 ** DISPLAY 'OUT ' WRK-ESP-EFF-DT ' ' WRK-ESP-PRED DTSBX802
|
||||||
|
00203 ** ' ' WRK-ESP-SUC ' ' WRK-ESP-PCT. DTSBX802
|
||||||
|
00204 WRITE ESP-FILE-REC FROM WRK-ESP-REC. CL*10
|
||||||
|
00205 IF NOT ESP-STATUS-OK-88 DTSBX802
|
||||||
|
00206 DISPLAY 'CANNOT WRITE ESP REC ' ESP-STATUS DTSBX802
|
||||||
|
00207 GO TO P1100-EXIT CL*11
|
||||||
|
00208 ELSE DTSBX802
|
||||||
|
00209 ADD +1 TO WRK-ESP-CNT DTSBX802
|
||||||
|
00210 END-IF. DTSBX802
|
||||||
|
00211 DTSBX802
|
||||||
|
00212 P1100-EXIT. CL*10
|
||||||
|
00213 EXIT. DTSBX802
|
||||||
|
00214 DTSBX802
|
||||||
|
00215 T0000-TERMINATE. DTSBX802
|
||||||
|
00216 DTSBX802
|
||||||
|
00217 DISPLAY ' '. DTSBX802
|
||||||
|
00218 DTSBX802
|
||||||
|
00219 DISPLAY '*** DTSBX800 TERMINATION STATISTICS ***'. DTSBX802
|
||||||
|
00220 DTSBX802
|
||||||
|
00221 DISPLAY ' '. DTSBX802
|
||||||
|
00222 DTSBX802
|
||||||
|
00223 DISPLAY 'IPES AIX RECORDS READ : ' DTSBX802
|
||||||
|
00224 WRK-SRT-CNT. DTSBX802
|
||||||
|
00225 DTSBX802
|
||||||
|
00226 DISPLAY 'NUMBER OF ESP RECORDS WRITTEN : ' DTSBX802
|
||||||
|
00227 WRK-ESP-CNT. DTSBX802
|
||||||
|
00228 DTSBX802
|
||||||
|
00229 PERFORM S921C-CLOSE THRU S921C-EXIT. DTSBX802
|
||||||
|
00230 DTSBX802
|
||||||
|
00231 T0000-EXIT. DTSBX802
|
||||||
|
00232 EXIT. DTSBX802
|
||||||
|
00233 EJECT DTSBX802
|
||||||
|
00234 S921A-OPEN-READ. DTSBX802
|
||||||
|
00235 SET L921-OPEN-READ-88 TO TRUE. DTSBX802
|
||||||
|
00236 CALL 'DTSBU921' USING L921-LINK-AREA DTSBX802
|
||||||
|
00237 ISKL-REC. DTSBX802
|
||||||
|
00238 S921A-EXIT. DTSBX802
|
||||||
|
00239 EXIT. DTSBX802
|
||||||
|
00240 DTSBX802
|
||||||
|
00241 S921B-START-BROWSE. DTSBX802
|
||||||
|
00242 SET L921-START-BROWSE-88 TO TRUE. DTSBX802
|
||||||
|
00243 CALL 'DTSBU921' USING L921-LINK-AREA DTSBX802
|
||||||
|
00244 ISKL-REC. DTSBX802
|
||||||
|
00245 S921B-EXIT. DTSBX802
|
||||||
|
00246 EXIT. DTSBX802
|
||||||
|
00247 DTSBX802
|
||||||
|
00248 S921C-CLOSE. DTSBX802
|
||||||
|
00249 SET L921-CLOSE-88 TO TRUE. DTSBX802
|
||||||
|
00250 CALL 'DTSBU921' USING L921-LINK-AREA DTSBX802
|
||||||
|
00251 ISKL-REC. DTSBX802
|
||||||
|
00252 S921C-EXIT. DTSBX802
|
||||||
|
00253 EXIT. DTSBX802
|
||||||
|
00254 DTSBX802
|
||||||
|
00255 S921D-READ-NEXT. DTSBX802
|
||||||
|
00256 SET L921-READ-NEXT-88 TO TRUE. DTSBX802
|
||||||
|
00257 CALL 'DTSBU921' USING L921-LINK-AREA DTSBX802
|
||||||
|
00258 ISKL-REC. DTSBX802
|
||||||
|
00259 S921D-EXIT. DTSBX802
|
||||||
|
00260 EXIT. DTSBX802
|
||||||
|
00261 DTSBX802
|
||||||
|
00262 DTSBX802
|
||||||
|
00263 S999-ABEND. DTSBX802
|
||||||
|
00264 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBX802
|
||||||
|
00265 S999-EXIT. DTSBX802
|
||||||
|
00266 EXIT. DTSBX802
|
||||||
|
00267 DTSBX802
|
||||||
2146
Batch/DTSZX417.cob
Normal file
2146
Batch/DTSZX417.cob
Normal file
File diff suppressed because it is too large
Load Diff
638
BatchFileList.txt
Normal file
638
BatchFileList.txt
Normal file
@ -0,0 +1,638 @@
|
|||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBD100.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBD101.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBD106.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBD110.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBD200.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBD201.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBD205.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBD206.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBD207.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBD210.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBD212.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBD214.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBD216.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBD220.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBD221.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBD230.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBD231.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBD235.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBD300.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBD301.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBD310.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBD800.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBD901.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBR100.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBR110.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBR111.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBR112.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBR120.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBR130.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBR140.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBR150.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBR160.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBR170.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBR901.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBR907.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBR980.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGBU100.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\CHGRT300.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD100.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD110.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD111.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD112.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD120.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD125.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD130.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD199.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD200.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD201.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD220.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD300.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD310.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD315.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD316.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD317.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD318.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD320.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD321.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD322.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD323.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD324.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD410.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD411.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD420.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD422.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD426.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD427.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD471.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD473.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD474.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD475.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD480.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD481.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD800.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBD992.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBR101.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBR102.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBR110.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBR901.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBR980.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DESBU193.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DOESLABL.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DOESU941.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSACH01.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBA602.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD110.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD120.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD130.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD140.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD142.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD145.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD150.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD180.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD181.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD200.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD300.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD310.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD311.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD312.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD313.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD314.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD316.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD317.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD318.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD320.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD321.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD322.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD324.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD325.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD326.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD327.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD330.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD331.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD340.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD341.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD343.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD350.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD360.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD370.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD371.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD372.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD373.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD374.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD380.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD381.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD382.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD383.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD384.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD385.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD386.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD387.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD388.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD390.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD399.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD400.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD400.TXT
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD401.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD510.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD511.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD513.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD515.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD520.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD525.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD530.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD540.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD541.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD542.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD551.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD555.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD560.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD570.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD580.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD590.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD591.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD595.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD610.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD620.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD630.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD640.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD707.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD710.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD720.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD730.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD740.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD745.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD750.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD790.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD800.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD971.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD972.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD973.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD991.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD992.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD993.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD995.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD997.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBD998.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE119.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE120.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE122.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE123.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE125.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE126.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE127.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE305.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE308.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE309.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE311.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE312.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE313.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE320.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE321.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE325.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE327.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE328.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE330.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE331.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE332.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE335.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE351.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE352.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE405.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE408.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE410.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE411.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE412.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE413.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE414.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE417.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE418.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE420.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE423.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE426.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE429.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE433.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE439.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE440.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE442.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE444.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE451.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE453.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE455.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE459.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE460.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE461.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE530.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE602.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE606.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE607.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE609.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE611.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE612.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE614.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE615.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE616.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE712.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE713.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE715.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE717.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE718.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE720.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE721.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE722.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE727.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE729.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE740.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE761.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE762.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE763.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE764.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE770.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE791.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE792.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE909.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE991.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE992.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE999.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBER11.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBER31.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBER41.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBER42.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBER43.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBER44.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBER45.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBER51.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBER61.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBN581.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR102.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR103.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR105.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR108.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR109.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR112.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR115.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR116.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR117.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR119.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR120.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR122.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR123.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR125.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR127.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR128.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR131.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR135.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR140.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR202.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR204.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR301.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR302.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR303.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR305.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR306.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR308.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR309.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR310.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR311.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR312.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR313.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR316.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR318.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR319.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR320.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR321.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR325.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR330.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR332.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR403.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR404.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR405.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR408.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR410.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR411.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR412.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR413.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR414.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR415.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR416.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR417.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR418.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR421.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR422.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR423.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR424.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR425.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR426.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR429.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR432.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR433.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR434.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR436.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR439.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR440.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR442.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR451.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR452.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR453.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR454.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR455.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR461.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR502.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR503.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR506.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR507.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR511.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR515.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR516.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR517.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR520.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR521.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR522.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR530.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR551.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR590.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR591.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR602.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR603.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR604.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR606.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR607.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR608.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR609.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR611.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR612.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR614.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR615.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR704.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR705.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR708.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR711.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR712.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR713.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR715.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR716.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR717.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR718.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR719.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR720.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR722.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR723.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR724.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR726.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR727.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR729.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR731.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR732.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR737.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR740.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR751.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR763.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR791.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR792.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR793.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR901.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR902.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR903.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR904.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR905.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR906.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR907.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR908.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR909.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR910.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR980.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBR991.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBS411.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBS412.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBS413.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBS414.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU001.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU002.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU003.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU004.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU005.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU006.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU007.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU008.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU009.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU010.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU017.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU020.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU021.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU031.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU032.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU033.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU034.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU036.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU037.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU038.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU039.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU040.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU041.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU052.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU053.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU054.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU055.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU056.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU057.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU061.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU062.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU063.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU064.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU071.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU072.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU075.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU076.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU081.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU082.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU083.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU090.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU101.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU102.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU103.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU109.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU111.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU112.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU119.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU120.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU143.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU190.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU192.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU194.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU203.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU205.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU310.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU331.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU410.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU415.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU420.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU421.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU423.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU424.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU430.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU431.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU501.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU511.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU516.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU520.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU521.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU522.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU530.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU541.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU542.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU549.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU590.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU599.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU600.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU601.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU620.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU621.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU910.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU911.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU921.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU923.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU924.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU926.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU927.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU931.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU933.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU934.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU935.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU941.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU946.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU947.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU961.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU962.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU963.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU971.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU981.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU982.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU983.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU985.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU991.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBU999.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX122.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX159.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX201.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX202.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX206.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX215.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX305.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX306.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX330.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX331.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX332.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX335.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX340.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX341.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX342.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX343.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX344.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX346.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX347.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX354.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX403.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX410.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX411.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX415.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX417.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX418.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX420.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX421.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX422.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX423.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX424.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX425.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX426_.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX426.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX427.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX429.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX430.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX431.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX436.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX437.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX438.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX440.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX441.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX442.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX450.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX451.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX460.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX461.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX462.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX463.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX464.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX465.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX467.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX468.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX469.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX470.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX475.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX476.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX477.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX478.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX479.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX500.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX520.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX521.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX522.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX530.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX551.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX601.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX626.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX629.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX630.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX655.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX657.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX706.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX715.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX770.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX771.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX772.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX773.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX774.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX775.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX800.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBX801.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBXPFL.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBY202.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBZ249.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBZ261.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSRR713.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSSC432.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSTOP00.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSTOP01.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSTOP02.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSTOP03.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSVAL04.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSVAL05.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSZX550.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSZX551.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSZXPFL.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTX00001.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\EFTBD100.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\EFTBD110.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\EFTBD120.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\EFTBD130.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\EFTBD140.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\EFTBD350.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\EFTBD400.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\EFTBD800.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\EFTBI100.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\EFTBR120.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\EFTBX100.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\GENT350.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\OJR0100.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\PICKNMBR.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\SAMPS011.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\SAMPS031.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\SAMPS041.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\SAMPS042.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\SAMPS043.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\SAMPS044.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\SAMPS045.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\SAMPS051.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\SAMPS061.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\TDECVAL.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\TDECVALX.cob
|
||||||
|
E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\WGEDC090.cob
|
||||||
@ -1124,11 +1124,14 @@
|
|||||||
01123 SKIP1 DTSCS14
|
01123 SKIP1 DTSCS14
|
||||||
01124 IF CURSOR-SET-GOTO DTSCS14
|
01124 IF CURSOR-SET-GOTO DTSCS14
|
||||||
01125 MOVE CATB-CURSOR TO MAP-GOTO-L DTSCS14
|
01125 MOVE CATB-CURSOR TO MAP-GOTO-L DTSCS14
|
||||||
|
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-GOTO-A
|
||||||
01126 ELSE DTSCS14
|
01126 ELSE DTSCS14
|
||||||
01127 IF CURSOR-SET-LINE-NUMBER DTSCS14
|
01127 IF CURSOR-SET-LINE-NUMBER DTSCS14
|
||||||
01128 MOVE CATB-CURSOR TO MAP-LINE-NUMBER-L DTSCS14
|
01128 MOVE CATB-CURSOR TO MAP-LINE-NUMBER-L DTSCS14
|
||||||
|
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-LINE-NUMBER-A
|
||||||
01129 ELSE DTSCS14
|
01129 ELSE DTSCS14
|
||||||
01130 MOVE CATB-CURSOR TO MAP-EMP-NO-1-L. DTSCS14
|
01130 MOVE CATB-CURSOR TO MAP-EMP-NO-1-L DTSCS14
|
||||||
|
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-EMP-NO-1-A.
|
||||||
01131 SKIP1 DTSCS14
|
01131 SKIP1 DTSCS14
|
||||||
01132 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS14
|
01132 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS14
|
||||||
01133 SKIP1 DTSCS14
|
01133 SKIP1 DTSCS14
|
||||||
|
|||||||
@ -1514,11 +1514,14 @@
|
|||||||
01513 DTSCS22
|
01513 DTSCS22
|
||||||
01514 IF CURSOR-SET-GOTO DTSCS22
|
01514 IF CURSOR-SET-GOTO DTSCS22
|
||||||
01515 MOVE CATB-CURSOR TO MAP-GOTO-L DTSCS22
|
01515 MOVE CATB-CURSOR TO MAP-GOTO-L DTSCS22
|
||||||
|
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-GOTO-A DTSCS22
|
||||||
01516 ELSE DTSCS22
|
01516 ELSE DTSCS22
|
||||||
01517 IF LCCM-SCR-INQUIRE DTSCS22
|
01517 IF LCCM-SCR-INQUIRE DTSCS22
|
||||||
01518 MOVE CATB-CURSOR TO MAP-SELECT-LINE-NO-L DTSCS22
|
01518 MOVE CATB-CURSOR TO MAP-SELECT-LINE-NO-L DTSCS22
|
||||||
|
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-SELECT-LINE-NO-A DTSCS22
|
||||||
01519 ELSE DTSCS22
|
01519 ELSE DTSCS22
|
||||||
01520 MOVE CATB-CURSOR TO MAP-BATCH-NO-L. DTSCS22
|
01520 MOVE CATB-CURSOR TO MAP-BATCH-NO-L DTSCS22
|
||||||
|
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-BATCH-NO-A. DTSCS22
|
||||||
01521 DTSCS22
|
01521 DTSCS22
|
||||||
01522 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS22
|
01522 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS22
|
||||||
01523 DTSCS22
|
01523 DTSCS22
|
||||||
|
|||||||
5162
CICS/DTSCS53.cob
5162
CICS/DTSCS53.cob
File diff suppressed because it is too large
Load Diff
@ -1121,11 +1121,14 @@
|
|||||||
01120 SKIP1 DTSCS72
|
01120 SKIP1 DTSCS72
|
||||||
01121 IF CURSOR-SET-GOTO DTSCS72
|
01121 IF CURSOR-SET-GOTO DTSCS72
|
||||||
01122 MOVE CATB-CURSOR TO MAP-GOTO-L DTSCS72
|
01122 MOVE CATB-CURSOR TO MAP-GOTO-L DTSCS72
|
||||||
|
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-GOTO-A
|
||||||
01123 ELSE DTSCS72
|
01123 ELSE DTSCS72
|
||||||
01124 IF CURSOR-SET-LINE-NUMBER DTSCS72
|
01124 IF CURSOR-SET-LINE-NUMBER DTSCS72
|
||||||
01125 MOVE CATB-CURSOR TO MAP-LINE-NUMBER-L DTSCS72
|
01125 MOVE CATB-CURSOR TO MAP-LINE-NUMBER-L DTSCS72
|
||||||
|
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-LINE-NUMBER-A
|
||||||
01126 ELSE DTSCS72
|
01126 ELSE DTSCS72
|
||||||
01127 MOVE CATB-CURSOR TO MAP-EMP-NO-1-L. DTSCS72
|
01127 MOVE CATB-CURSOR TO MAP-EMP-NO-1-L DTSCS72
|
||||||
|
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-EMP-NO-1-A.
|
||||||
01128 SKIP1 DTSCS72
|
01128 SKIP1 DTSCS72
|
||||||
01129 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS72
|
01129 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS72
|
||||||
01130 SKIP1 DTSCS72
|
01130 SKIP1 DTSCS72
|
||||||
|
|||||||
@ -1001,8 +1001,10 @@
|
|||||||
01000 SKIP1 DTSCS8B
|
01000 SKIP1 DTSCS8B
|
||||||
01001 IF CURSOR-SET-GOTO DTSCS8B
|
01001 IF CURSOR-SET-GOTO DTSCS8B
|
||||||
01002 MOVE CATB-CURSOR TO MAP-GOTO-L DTSCS8B
|
01002 MOVE CATB-CURSOR TO MAP-GOTO-L DTSCS8B
|
||||||
|
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-GOTO-A DTSCS8B
|
||||||
01003 ELSE DTSCS8B
|
01003 ELSE DTSCS8B
|
||||||
01004 MOVE CATB-CURSOR TO MAP-SELECT-LINE-NO-L DTSCS8B
|
01004 MOVE CATB-CURSOR TO MAP-SELECT-LINE-NO-L DTSCS8B
|
||||||
|
RCODE MOVE CATB-UNPROT-BRT-NUM-MDTON TO MAP-SELECT-LINE-NO-A. DTSCS8B
|
||||||
01005 SKIP1 DTSCS8B
|
01005 SKIP1 DTSCS8B
|
||||||
01006 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS8B
|
01006 SET L851-SEND-DATAONLY-88 TO TRUE. DTSCS8B
|
||||||
01007 SKIP1 DTSCS8B
|
01007 SKIP1 DTSCS8B
|
||||||
|
|||||||
1059
CICS/DTSCU351.cob
1059
CICS/DTSCU351.cob
File diff suppressed because it is too large
Load Diff
@ -1,319 +0,0 @@
|
|||||||
00001 IDENTIFICATION DIVISION. 08/11/99
|
|
||||||
00002 PROGRAM-ID. DTSCU357. DTSCU357
|
|
||||||
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV013
|
|
||||||
00004 DATE-WRITTEN. MAY 1994. DTSCU357
|
|
||||||
00005 DATE-COMPILED. DTSCU357
|
|
||||||
00006 SKIP3 DTSCU357
|
|
||||||
00007 ***** DTSCU357
|
|
||||||
00008 * DTSCU357
|
|
||||||
00009 * FUNCTION: DTSCU357
|
|
||||||
00010 * DTSCU357
|
|
||||||
00011 * ON-LINE PRINT UTILITY. DTSCU357
|
|
||||||
00012 * DTSCU357
|
|
||||||
00013 * DTSCU357
|
|
||||||
00014 * MODIFICATION LOG: DTSCU357
|
|
||||||
00015 * DTSCU357
|
|
||||||
00016 * 05/03/99 INITIAL DEVELOPMENT. COPIED FROM MACCU357. CL**2
|
|
||||||
00017 * WORK ORDER: PROGRAMMER: ZL1 CL**2
|
|
||||||
00018 * DTSCU357
|
|
||||||
00019 * 05/30/95 MOVE REPETITIVE CODE FROM MACCU356 TO HERE. DTSCU357
|
|
||||||
00020 * WORK ORDER: PROGRAMMER: RHC CL*12
|
|
||||||
00021 * DTSCU357
|
|
||||||
00022 * XX/XX/XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU357
|
|
||||||
00023 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSCU357
|
|
||||||
00024 * WORK ORDER: PROGRAMMER: XXX DTSCU357
|
|
||||||
00025 * DTSCU357
|
|
||||||
00026 * DTSCU357
|
|
||||||
00027 ***** DTSCU357
|
|
||||||
00028 SKIP3 DTSCU357
|
|
||||||
00029 ENVIRONMENT DIVISION. DTSCU357
|
|
||||||
00030 SKIP3 DTSCU357
|
|
||||||
00031 DATA DIVISION. DTSCU357
|
|
||||||
00032 SKIP3 DTSCU357
|
|
||||||
00033 WORKING-STORAGE SECTION. DTSCU357
|
|
||||||
000335 77 PAN-VALET PICTURE X(24) VALUE '013DTSCU357 08/11/99'. DTSCU357
|
|
||||||
00034 SKIP3 DTSCU357
|
|
||||||
00035 01 WRK-AREA. DTSCU357
|
|
||||||
00036 05 WRK-ABEND-CD PIC X(04) VALUE 'U357'. DTSCU357
|
|
||||||
00037 05 WRK-RESP-CD PIC S9(08) COMP. DTSCU357
|
|
||||||
00038 DTSCU357
|
|
||||||
00039 05 MAPSET-NAME PIC X(08) VALUE 'DTSMSET'. CL**2
|
|
||||||
00040 05 MAP-NAME PIC X(08) VALUE 'DTSMPR'. CL**2
|
|
||||||
00041 DTSCU357
|
|
||||||
00042 05 WRK-DEVICE-TYPE PIC S9(08) COMP. DTSCU357
|
|
||||||
00043 DTSCU357
|
|
||||||
00044 05 ITEM-CNT PIC S9(04) COMP. DTSCU357
|
|
||||||
00045 DTSCU357
|
|
||||||
00046 05 LINE-CNT PIC S9(04) COMP. DTSCU357
|
|
||||||
00047 DTSCU357
|
|
||||||
00048 05 BLANK-CNT PIC S9(04) COMP. DTSCU357
|
|
||||||
00049 DTSCU357
|
|
||||||
00050 05 ITEM-LENGTH PIC S9(04) COMP. CL**9
|
|
||||||
00051 SKIP3 DTSCU357
|
|
||||||
00052 05 ROUTE-LIST. DTSCU357
|
|
||||||
00053 10 RT-PRINTER-ID PIC X(04). DTSCU357
|
|
||||||
00054 10 RT-LDC-MNEM PIC X(02) VALUE SPACES. DTSCU357
|
|
||||||
00055 10 RT-OPERATOR-ID PIC X(03) VALUE SPACES. DTSCU357
|
|
||||||
00056 10 RT-STATUS-FLAG PIC X(01). DTSCU357
|
|
||||||
00057 10 FILLER PIC X(06) VALUE SPACES. DTSCU357
|
|
||||||
00058 10 RT-END-LIST PIC S9(04) COMP VALUE -1. DTSCU357
|
|
||||||
00059 EJECT DTSCU357
|
|
||||||
00060 01 L356-COMM-AREA. DTSCU357
|
|
||||||
00061 ++INCLUDE DTSIL356 CL**2
|
|
||||||
00062 EJECT DTSCU357
|
|
||||||
00063 01 L829-COMM-AREA. DTSCU357
|
|
||||||
00064 05 L829-CONTROL-BLOCK. DTSCU357
|
|
||||||
00065 ++INCLUDE DTSIL829 CL**2
|
|
||||||
00066 SKIP3 DTSCU357
|
|
||||||
00067 05 L829-REC. DTSCU357
|
|
||||||
00068 ++INCLUDE DTSIXPTS CL**2
|
|
||||||
00069 EJECT DTSCU357
|
|
||||||
00070 01 MAP-AREA. DTSCU357
|
|
||||||
00071 ++INCLUDE DTSISPR CL**2
|
|
||||||
00072 EJECT DTSCU357
|
|
||||||
00073 01 CPRT-LITERALS. DTSCU357
|
|
||||||
00074 ++INCLUDE DTSICPRT CL**2
|
|
||||||
00075 EJECT DTSCU357
|
|
||||||
00076 LINKAGE SECTION. DTSCU357
|
|
||||||
00077 SKIP3 DTSCU357
|
|
||||||
00078 01 DFHCOMMAREA. DTSCU357
|
|
||||||
00079 ++INCLUDE DTSIL357 CL**2
|
|
||||||
00080 EJECT DTSCU357
|
|
||||||
00081 PROCEDURE DIVISION. DTSCU357
|
|
||||||
00082 SKIP2 DTSCU357
|
|
||||||
00083 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSCU357
|
|
||||||
00084 SKIP2 DTSCU357
|
|
||||||
00085 EXEC CICS DTSCU357
|
|
||||||
00086 RETURN DTSCU357
|
|
||||||
00087 END-EXEC. DTSCU357
|
|
||||||
00088 SKIP2 DTSCU357
|
|
||||||
00089 GOBACK. DTSCU357
|
|
||||||
00090 EJECT DTSCU357
|
|
||||||
00091 P0000-PROCESS. DTSCU357
|
|
||||||
00092 SET L357-OK-88 TO TRUE. DTSCU357
|
|
||||||
00093 DTSCU357
|
|
||||||
00094 MOVE LOW-VALUES TO MAP-AREA. DTSCU357
|
|
||||||
00095 DTSCU357
|
|
||||||
00096 MOVE L357-QUEUE-NAME TO L829-QUEUE-NAME. DTSCU357
|
|
||||||
00097 DTSCU357
|
|
||||||
00098 SET L829-DEFAULT-STORAGE-88 TO TRUE. DTSCU357
|
|
||||||
00099 DTSCU357
|
|
||||||
00100 MOVE L357-PRINTER-ID TO RT-PRINTER-ID. DTSCU357
|
|
||||||
00101 DTSCU357
|
|
||||||
00102 EXEC CICS DTSCU357
|
|
||||||
00103 ROUTE DTSCU357
|
|
||||||
00104 LIST (ROUTE-LIST) DTSCU357
|
|
||||||
00105 NLEOM DTSCU357
|
|
||||||
00106 RESP (WRK-RESP-CD) DTSCU357
|
|
||||||
00107 END-EXEC. DTSCU357
|
|
||||||
00108 DTSCU357
|
|
||||||
00109 IF WRK-RESP-CD = DFHRESP (RTEFAIL) DTSCU357
|
|
||||||
00110 SET L357-FAILED-88 TO TRUE DTSCU357
|
|
||||||
00111 MOVE +0 TO L829-REC-LENGTH DTSCU357
|
|
||||||
00112 PERFORM S829-DELETE-QUEUE THRU S829-EXIT DTSCU357
|
|
||||||
00113 GO TO P0000-EXIT. DTSCU357
|
|
||||||
00114 DTSCU357
|
|
||||||
00115 IF WRK-RESP-CD = DFHRESP (NORMAL) DTSCU357
|
|
||||||
00116 NEXT SENTENCE DTSCU357
|
|
||||||
00117 ELSE DTSCU357
|
|
||||||
00118 GO TO S899-ABEND. DTSCU357
|
|
||||||
00119 DTSCU357
|
|
||||||
00120 MOVE L357-PRINTER-ID TO L356-DEVICE-ID. DTSCU357
|
|
||||||
00121 DTSCU357
|
|
||||||
00122 ***** DTSCU357
|
|
||||||
00123 * DTSCU357
|
|
||||||
00124 * THE FOLLOWING BIT OF CODE DETERMINES WHETHER OR NOT DTSCU357
|
|
||||||
00125 * THE DEVICE TO WHICH THE PRINT IS BEING SENT IS A DTSCU357
|
|
||||||
00126 * DEVICE THAT CAN ACCEPT HP LASER JET PRINTER CONTROL DTSCU357
|
|
||||||
00127 * (PCL5) COMMANDS. DTSCU357
|
|
||||||
00128 * DTSCU357
|
|
||||||
00129 * THIS CODE DEPENDS ON THE HP LASER JET PRINTERS BEING DTSCU357
|
|
||||||
00130 * DEFINED AS T3790SCSP TYPE DEVICES IN THE CICS TCT. DTSCU357
|
|
||||||
00131 * DTSCU357
|
|
||||||
00132 * DON GRINSELL SAYS THAT THIS IS LIKELY TO REMAIN TRUE. DTSCU357
|
|
||||||
00133 * DTSCU357
|
|
||||||
00134 * INTERESTINGLY, THE INQUIRE COMMAND IS PART OF THE COMMAND DTSCU357
|
|
||||||
00135 * LEVEL API BUT IS NOT DESCRIBED IN THE COMMAND LEVEL DTSCU357
|
|
||||||
00136 * APPLICATION PROGRAMMERS REFERENCE. THE INQUIRE COMMAND DTSCU357
|
|
||||||
00137 * IS DESCRIBED IN CHAPTER 5.9 OF THE CICS CUSTOMIZATION GUIDE. DTSCU357
|
|
||||||
00138 * DTSCU357
|
|
||||||
00139 ***** DTSCU357
|
|
||||||
00140 DTSCU357
|
|
||||||
00141 EXEC CICS CL**6
|
|
||||||
00142 INQUIRE CL**5
|
|
||||||
00143 TERMINAL (L356-DEVICE-ID) CL**5
|
|
||||||
00144 DEVICE (WRK-DEVICE-TYPE) CL**7
|
|
||||||
00145 RESP (WRK-RESP-CD) CL**5
|
|
||||||
00146 END-EXEC. CL**5
|
|
||||||
00147 DTSCU357
|
|
||||||
00148 IF WRK-RESP-CD = DFHRESP (NORMAL) DTSCU357
|
|
||||||
00149 IF WRK-DEVICE-TYPE = DFHVALUE (T3790SCSP) DTSCU357
|
|
||||||
00150 SET L356-DEVICE-PCL5-YES-88 TO TRUE DTSCU357
|
|
||||||
00151 ELSE DTSCU357
|
|
||||||
00152 SET L356-DEVICE-PCL5-NO-88 TO TRUE DTSCU357
|
|
||||||
00153 ELSE DTSCU357
|
|
||||||
00154 SET L356-DEVICE-PCL5-NO-88 TO TRUE. DTSCU357
|
|
||||||
00155 SKIP3 DTSCU357
|
|
||||||
00156 MOVE +0 TO LINE-CNT. DTSCU357
|
|
||||||
00157 DTSCU357
|
|
||||||
00158 MOVE +0 TO ITEM-CNT. DTSCU357
|
|
||||||
00159 DTSCU357
|
|
||||||
00160 MOVE LENGTH OF L829-REC TO ITEM-LENGTH. CL**9
|
|
||||||
00161 DTSCU357
|
|
||||||
00162 SET L829-OK-88 TO TRUE. DTSCU357
|
|
||||||
00163 DTSCU357
|
|
||||||
00164 DTSCU357
|
|
||||||
00165 PERFORM P1000-LINE THRU P1000-EXIT DTSCU357
|
|
||||||
00166 UNTIL L829-NO-REC-88. DTSCU357
|
|
||||||
00167 DTSCU357
|
|
||||||
00168 DTSCU357
|
|
||||||
00169 IF ITEM-CNT = +0 DTSCU357
|
|
||||||
00170 NEXT SENTENCE DTSCU357
|
|
||||||
00171 ELSE DTSCU357
|
|
||||||
00172 PERFORM P0100-COMPLETE-PAGE THRU P0100-EXIT. DTSCU357
|
|
||||||
00173 SKIP1 DTSCU357
|
|
||||||
00174 EXEC CICS DTSCU357
|
|
||||||
00175 SEND PAGE DTSCU357
|
|
||||||
00176 RESP (WRK-RESP-CD) DTSCU357
|
|
||||||
00177 END-EXEC. DTSCU357
|
|
||||||
00178 SKIP1 DTSCU357
|
|
||||||
00179 MOVE +0 TO L829-REC-LENGTH. DTSCU357
|
|
||||||
00180 SET L829-DELETE-QUEUE-88 TO TRUE. DTSCU357
|
|
||||||
00181 SKIP1 DTSCU357
|
|
||||||
00182 PERFORM S829-DELETE-QUEUE THRU S829-EXIT. DTSCU357
|
|
||||||
00183 P0000-EXIT. DTSCU357
|
|
||||||
00184 EXIT. DTSCU357
|
|
||||||
00185 SKIP3 DTSCU357
|
|
||||||
00186 P0100-COMPLETE-PAGE. DTSCU357
|
|
||||||
00187 IF LINE-CNT < +60 DTSCU357
|
|
||||||
00188 COMPUTE BLANK-CNT = 60 - LINE-CNT DTSCU357
|
|
||||||
00189 PERFORM DTSCU357
|
|
||||||
00190 BLANK-CNT TIMES DTSCU357
|
|
||||||
00191 MOVE SPACES TO MAP-PRINT-LINE DTSCU357
|
|
||||||
00192 PERFORM S1000-SEND-ACCUM THRU S1000-EXIT DTSCU357
|
|
||||||
00193 END-PERFORM. DTSCU357
|
|
||||||
00194 P0100-EXIT. DTSCU357
|
|
||||||
00195 EXIT. DTSCU357
|
|
||||||
00196 EJECT DTSCU357
|
|
||||||
00197 P1000-LINE. DTSCU357
|
|
||||||
00198 ADD +1 TO ITEM-CNT. DTSCU357
|
|
||||||
00199 SKIP1 DTSCU357
|
|
||||||
00200 MOVE ITEM-LENGTH TO L829-REC-LENGTH. DTSCU357
|
|
||||||
00201 MOVE ITEM-CNT TO L829-ITEM-NO. DTSCU357
|
|
||||||
00202 SKIP1 DTSCU357
|
|
||||||
00203 PERFORM S829-READ-ITEM THRU S829-EXIT. DTSCU357
|
|
||||||
00204 SKIP1 DTSCU357
|
|
||||||
00205 IF L829-NO-REC-88 DTSCU357
|
|
||||||
00206 SUBTRACT 1 FROM ITEM-CNT DTSCU357
|
|
||||||
00207 GO TO P1000-EXIT. DTSCU357
|
|
||||||
00208 SKIP1 DTSCU357
|
|
||||||
00209 MOVE SPACES TO MAP-PRINT-LINE. DTSCU357
|
|
||||||
00210 SKIP1 DTSCU357
|
|
||||||
00211 IF XPTS-FF-88 DTSCU357
|
|
||||||
00212 IF ITEM-CNT = +1 DTSCU357
|
|
||||||
00213 PERFORM P1100-FORM-FEED THRU P1100-EXIT DTSCU357
|
|
||||||
00214 ELSE DTSCU357
|
|
||||||
00215 PERFORM P1200-COMPLETE-PAGE THRU P1200-EXIT DTSCU357
|
|
||||||
00216 PERFORM P1100-FORM-FEED THRU P1100-EXIT DTSCU357
|
|
||||||
00217 ELSE DTSCU357
|
|
||||||
00218 IF XPTS-DS-88 DTSCU357
|
|
||||||
00219 MOVE SPACE TO MAP-PRINT-LINE DTSCU357
|
|
||||||
00220 PERFORM S1000-SEND-ACCUM THRU S1000-EXIT DTSCU357
|
|
||||||
00221 MOVE XPTS-DATA TO MAP-PRINT-LINE DTSCU357
|
|
||||||
00222 ELSE DTSCU357
|
|
||||||
00223 IF XPTS-TS-88 DTSCU357
|
|
||||||
00224 MOVE SPACE TO MAP-PRINT-LINE DTSCU357
|
|
||||||
00225 PERFORM S1000-SEND-ACCUM THRU S1000-EXIT DTSCU357
|
|
||||||
00226 MOVE SPACE TO MAP-PRINT-LINE DTSCU357
|
|
||||||
00227 PERFORM S1000-SEND-ACCUM THRU S1000-EXIT DTSCU357
|
|
||||||
00228 MOVE XPTS-DATA TO MAP-PRINT-LINE DTSCU357
|
|
||||||
00229 ELSE DTSCU357
|
|
||||||
00230 MOVE XPTS-DATA TO MAP-PRINT-LINE. DTSCU357
|
|
||||||
00231 SKIP1 DTSCU357
|
|
||||||
00232 PERFORM S1000-SEND-ACCUM THRU S1000-EXIT. DTSCU357
|
|
||||||
00233 P1000-EXIT. DTSCU357
|
|
||||||
00234 EXIT. DTSCU357
|
|
||||||
00235 SKIP3 DTSCU357
|
|
||||||
00236 P1100-FORM-FEED. DTSCU357
|
|
||||||
00237 MOVE SPACE TO MAP-PRINT-LINE. DTSCU357
|
|
||||||
00238 DTSCU357
|
|
||||||
00239 STRING DTSCU357
|
|
||||||
00240 CPRT-FORM-FEED DELIMITED BY SIZE DTSCU357
|
|
||||||
00241 XPTS-DATA DELIMITED BY SIZE DTSCU357
|
|
||||||
00242 INTO DTSCU357
|
|
||||||
00243 MAP-PRINT-LINE. DTSCU357
|
|
||||||
00244 DTSCU357
|
|
||||||
00245 MOVE +0 TO LINE-CNT. DTSCU357
|
|
||||||
00246 P1100-EXIT. DTSCU357
|
|
||||||
00247 EXIT. DTSCU357
|
|
||||||
00248 SKIP3 DTSCU357
|
|
||||||
00249 P1200-COMPLETE-PAGE. DTSCU357
|
|
||||||
00250 IF LINE-CNT < +60 DTSCU357
|
|
||||||
00251 COMPUTE BLANK-CNT = 60 - LINE-CNT DTSCU357
|
|
||||||
00252 PERFORM DTSCU357
|
|
||||||
00253 BLANK-CNT TIMES DTSCU357
|
|
||||||
00254 MOVE SPACES TO MAP-PRINT-LINE DTSCU357
|
|
||||||
00255 PERFORM S1000-SEND-ACCUM THRU S1000-EXIT DTSCU357
|
|
||||||
00256 END-PERFORM. DTSCU357
|
|
||||||
00257 P1200-EXIT. DTSCU357
|
|
||||||
00258 EXIT. DTSCU357
|
|
||||||
00259 EJECT DTSCU357
|
|
||||||
00260 S829-READ-ITEM. DTSCU357
|
|
||||||
00261 SET L829-READ-ITEM-88 TO TRUE. DTSCU357
|
|
||||||
00262 GO TO S829-TS-IO. DTSCU357
|
|
||||||
00263 SKIP1 DTSCU357
|
|
||||||
00264 S829-DELETE-QUEUE. DTSCU357
|
|
||||||
00265 SET L829-DELETE-QUEUE-88 TO TRUE. DTSCU357
|
|
||||||
00266 GO TO S829-TS-IO. DTSCU357
|
|
||||||
00267 SKIP1 DTSCU357
|
|
||||||
00268 S829-TS-IO. DTSCU357
|
|
||||||
00269 SKIP1 DTSCU357
|
|
||||||
00270 EXEC CICS DTSCU357
|
|
||||||
00271 LINK DTSCU357
|
|
||||||
00272 PROGRAM ('DTSCU829') CL**2
|
|
||||||
00273 COMMAREA (L829-COMM-AREA) DTSCU357
|
|
||||||
00274 END-EXEC. DTSCU357
|
|
||||||
00275 S829-EXIT. DTSCU357
|
|
||||||
00276 EXIT. DTSCU357
|
|
||||||
00277 SKIP3 DTSCU357
|
|
||||||
00278 S899-ABEND. DTSCU357
|
|
||||||
00279 SKIP1 DTSCU357
|
|
||||||
00280 EXEC CICS DTSCU357
|
|
||||||
00281 ABEND DTSCU357
|
|
||||||
00282 ABCODE (WRK-ABEND-CD) DTSCU357
|
|
||||||
00283 END-EXEC. DTSCU357
|
|
||||||
00284 SKIP1 DTSCU357
|
|
||||||
00285 S899-EXIT. DTSCU357
|
|
||||||
00286 EXIT. DTSCU357
|
|
||||||
00287 EJECT DTSCU357
|
|
||||||
00288 S1000-SEND-ACCUM. DTSCU357
|
|
||||||
00289 MOVE MAP-PRINT-LINE TO L356-PRINT-LINE. DTSCU357
|
|
||||||
00290 DTSCU357
|
|
||||||
00291 EXEC CICS DTSCU357
|
|
||||||
00292 LINK DTSCU357
|
|
||||||
00293 PROGRAM('DTSCU356') CL**2
|
|
||||||
00294 COMMAREA (L356-COMM-AREA) DTSCU357
|
|
||||||
00295 END-EXEC. DTSCU357
|
|
||||||
00296 DTSCU357
|
|
||||||
00297 MOVE L356-PRINT-LINE TO MAP-PRINT-LINE. DTSCU357
|
|
||||||
00298 DTSCU357
|
|
||||||
00299 EXEC CICS DTSCU357
|
|
||||||
00300 SEND DTSCU357
|
|
||||||
00301 MAP (MAP-NAME) DTSCU357
|
|
||||||
00302 MAPSET (MAPSET-NAME) DTSCU357
|
|
||||||
00303 FROM (MAP-AREA) DTSCU357
|
|
||||||
00304 ERASE DTSCU357
|
|
||||||
00305 PAGING CL*11
|
|
||||||
00306 ACCUM CL*10
|
|
||||||
00307 RESP (WRK-RESP-CD) DTSCU357
|
|
||||||
00308 END-EXEC. DTSCU357
|
|
||||||
00309 CL*13
|
|
||||||
00310 IF WRK-RESP-CD = DFHRESP (NORMAL) CL*13
|
|
||||||
00311 NEXT SENTENCE CL*13
|
|
||||||
00312 ELSE CL*13
|
|
||||||
00313 GO TO S899-ABEND. CL*13
|
|
||||||
00314 CL*13
|
|
||||||
00315 DTSCU357
|
|
||||||
00316 ADD +1 TO LINE-CNT. DTSCU357
|
|
||||||
00317 S1000-EXIT. DTSCU357
|
|
||||||
00318 EXIT. DTSCU357
|
|
||||||
@ -24,31 +24,22 @@
|
|||||||
05 LK-DATA PIC X(1).
|
05 LK-DATA PIC X(1).
|
||||||
PROCEDURE DIVISION.
|
PROCEDURE DIVISION.
|
||||||
|
|
||||||
DISPLAY '=== Hello!'.
|
|
||||||
|
|
||||||
IF EIBCALEN = 0
|
IF EIBCALEN = 0
|
||||||
EXEC CICS
|
EXEC CICS
|
||||||
GETMAIN SET(ADDRESS OF DFHCOMMAREA)
|
GETMAIN SET(ADDRESS OF DFHCOMMAREA)
|
||||||
FLENGTH(LENGTH OF DFHCOMMAREA)
|
FLENGTH(LENGTH OF DFHCOMMAREA)
|
||||||
END-EXEC
|
END-EXEC
|
||||||
DISPLAY '=== Sending Map'
|
|
||||||
MOVE 0 TO LK-DATA
|
MOVE 0 TO LK-DATA
|
||||||
PERFORM SEND-MAP
|
PERFORM SEND-MAP
|
||||||
END-IF.
|
END-IF.
|
||||||
|
|
||||||
IF LK-DATA = 0
|
IF LK-DATA = 0
|
||||||
DISPLAY '=== Receiving Map'
|
|
||||||
MOVE 1 TO LK-DATA
|
MOVE 1 TO LK-DATA
|
||||||
PERFORM REC-MAP
|
PERFORM REC-MAP
|
||||||
END-IF.
|
END-IF.
|
||||||
|
|
||||||
IF LK-DATA = 1
|
DISPLAY "=== You should never get here!".
|
||||||
DISPLAY '=== New user logged on'
|
|
||||||
MOVE 2 TO LK-DATA
|
|
||||||
PERFORM SHOW-ID
|
|
||||||
END-IF.
|
|
||||||
|
|
||||||
DISPLAY "=== You should never get here! (" LK-DATA ")".
|
|
||||||
GOBACK.
|
GOBACK.
|
||||||
|
|
||||||
SEND-MAP.
|
SEND-MAP.
|
||||||
@ -75,7 +66,7 @@
|
|||||||
RESP(WS-RESP)
|
RESP(WS-RESP)
|
||||||
RESP2(WS-RESP2)
|
RESP2(WS-RESP2)
|
||||||
END-EXEC
|
END-EXEC
|
||||||
IF WS-RESP NOT = DFHRESP(NORMAL)
|
IF WS-RESP NOT = DFHRESP(NORMAL)
|
||||||
*Should be replaced with better error-handling
|
*Should be replaced with better error-handling
|
||||||
DISPLAY '=== RECEIVE FAILED'
|
DISPLAY '=== RECEIVE FAILED'
|
||||||
EXEC CICS RETURN END-EXEC
|
EXEC CICS RETURN END-EXEC
|
||||||
@ -86,8 +77,6 @@
|
|||||||
* Remove from possible mem dumps
|
* Remove from possible mem dumps
|
||||||
MOVE SPACES TO PASSWO
|
MOVE SPACES TO PASSWO
|
||||||
|
|
||||||
DISPLAY '=== Signon'
|
|
||||||
|
|
||||||
EXEC CICS SIGNON
|
EXEC CICS SIGNON
|
||||||
* USERID('LETMEIN0')
|
* USERID('LETMEIN0')
|
||||||
USERID(' ')
|
USERID(' ')
|
||||||
@ -125,7 +114,11 @@
|
|||||||
END-EXEC
|
END-EXEC
|
||||||
END-IF
|
END-IF
|
||||||
|
|
||||||
DISPLAY "=== Switching user"
|
EXEC CICS
|
||||||
|
SET TERMINAL(EIBTRMID)
|
||||||
|
UCTRANST(DFHVALUE(UCTRAN))
|
||||||
|
END-EXEC
|
||||||
|
|
||||||
EXEC CICS
|
EXEC CICS
|
||||||
SEND MAP('SUXESS') MAPSET('SIGNON')
|
SEND MAP('SUXESS') MAPSET('SIGNON')
|
||||||
ERASE
|
ERASE
|
||||||
@ -134,15 +127,8 @@
|
|||||||
END-EXEC
|
END-EXEC
|
||||||
EXEC CICS
|
EXEC CICS
|
||||||
RETURN TRANSID('DTS')
|
RETURN TRANSID('DTS')
|
||||||
* COMMAREA(DFHCOMMAREA)
|
|
||||||
* LENGTH(LENGTH OF DFHCOMMAREA)
|
|
||||||
END-EXEC.
|
END-EXEC.
|
||||||
|
|
||||||
SHOW-ID.
|
|
||||||
EXEC CICS ASSIGN USERID(WS-USERID) END-EXEC
|
|
||||||
DISPLAY '=== CICS USERID:' WS-USERID
|
|
||||||
EXEC CICS LINK PROGRAM('DTSCDRV') END-EXEC
|
|
||||||
GOBACK.
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -5,22 +5,15 @@
|
|||||||
DATA DIVISION.
|
DATA DIVISION.
|
||||||
WORKING-STORAGE SECTION.
|
WORKING-STORAGE SECTION.
|
||||||
|
|
||||||
01 CAPARM PIC X(1).
|
|
||||||
01 UCTRANST PIC X(8).
|
01 UCTRANST PIC X(8).
|
||||||
01 EIBTRMID PIC X(4).
|
|
||||||
01 EIBTRNID PIC X(4).
|
|
||||||
01 EIBCALEN PIC S9(4) COMP.
|
|
||||||
|
|
||||||
LINKAGE SECTION.
|
LINKAGE SECTION.
|
||||||
01 DFHCOMMAREA.
|
01 DFHCOMMAREA.
|
||||||
05 FILLER PIC X(1).
|
05 CAPARM PIC X(1).
|
||||||
|
|
||||||
PROCEDURE DIVISION.
|
PROCEDURE DIVISION.
|
||||||
|
|
||||||
EXEC CICS RETURN END-EXEC.
|
* EXEC CICS RETURN END-EXEC.
|
||||||
|
|
||||||
MOVE EIBTRMID TO EIBTRMID
|
|
||||||
MOVE EIBTRNID TO EIBTRNID
|
|
||||||
|
|
||||||
IF EIBTRMID = SPACES
|
IF EIBTRMID = SPACES
|
||||||
EXEC CICS ABEND ABCODE('UCTR') END-EXEC
|
EXEC CICS ABEND ABCODE('UCTR') END-EXEC
|
||||||
@ -29,20 +22,20 @@
|
|||||||
IF EIBCALEN = 0
|
IF EIBCALEN = 0
|
||||||
PERFORM FLIP-UCTRAN
|
PERFORM FLIP-UCTRAN
|
||||||
ELSE
|
ELSE
|
||||||
EXEC CICS RETRIEVE INTO(CAPARM) LENGTH(1) END-EXEC
|
|
||||||
IF CAPARM = 'U'
|
IF CAPARM = 'U'
|
||||||
MOVE 'UCTRAN' TO UCTRANST
|
MOVE 'UCTRAN' TO UCTRANST
|
||||||
ELSE IF CAPARM = 'L'
|
|
||||||
MOVE 'NOUCTRAN' TO UCTRANST
|
|
||||||
ELSE
|
ELSE
|
||||||
EXEC CICS ABEND ABCODE('UCTR') END-EXEC
|
IF CAPARM = 'L'
|
||||||
|
MOVE 'NOUCTRAN' TO UCTRANST
|
||||||
|
ELSE
|
||||||
|
EXEC CICS ABEND ABCODE('UCTR') END-EXEC
|
||||||
|
END-IF
|
||||||
END-IF
|
END-IF
|
||||||
PERFORM APPLY-SETTING
|
PERFORM APPLY-SETTING
|
||||||
END-IF
|
END-IF
|
||||||
|
|
||||||
|
|
||||||
EXEC CICS RETURN END-EXEC.
|
EXEC CICS RETURN END-EXEC.
|
||||||
GOBACK.
|
|
||||||
FLIP-UCTRAN.
|
FLIP-UCTRAN.
|
||||||
EXEC CICS INQUIRE TERMINAL(EIBTRMID) UCTRANST(UCTRANST)
|
EXEC CICS INQUIRE TERMINAL(EIBTRMID) UCTRANST(UCTRANST)
|
||||||
END-EXEC
|
END-EXEC
|
||||||
|
|||||||
@ -1,4 +1,4 @@
|
|||||||
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCSL1.cob
|
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\RCSIGNON.cob
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
16
Compile.ps1
16
Compile.ps1
@ -8,7 +8,7 @@ Write-Host 'Getting ENV'
|
|||||||
|
|
||||||
|
|
||||||
# Compiling and Running
|
# Compiling and Running
|
||||||
& "$env:rcbin\cobrc" "@CompileOptions.txt" "E:\DUTAS\src\Batch\CHGBD100.cob"
|
& "$env:rcbin\cobrc" "@CompileOptions.txt" "E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch\DTSBE127.cob"
|
||||||
Write-Host 'Compile CHGBD100'
|
Write-Host 'Compile CHGBD100'
|
||||||
|
|
||||||
& "$env:rcbin\rclrun" "hello"
|
& "$env:rcbin\rclrun" "hello"
|
||||||
@ -33,7 +33,7 @@ Write-Host 'Compile CHGBD100'
|
|||||||
& "$env:rcbin\cobrc" HELLO.cob WARNING.cob :DBDriver=SQLITE :DBConnectString=repository.db3
|
& "$env:rcbin\cobrc" HELLO.cob WARNING.cob :DBDriver=SQLITE :DBConnectString=repository.db3
|
||||||
|
|
||||||
# @-Files
|
# @-Files
|
||||||
& "$env:rcbin\cobrc" "@CobOptions.txt" "@CobSource.txt"
|
& "$env:rcbin\cobrc" "@CompileOptions.txt" "@BatchFileList.txt"
|
||||||
|
|
||||||
# Env Variables do not Expand in @-Files
|
# Env Variables do not Expand in @-Files
|
||||||
$env:temp
|
$env:temp
|
||||||
@ -50,3 +50,15 @@ $env:temp
|
|||||||
& "$env:rcbin\cobrc" "TRACE.cob"
|
& "$env:rcbin\cobrc" "TRACE.cob"
|
||||||
& "$env:rcbin\rclrun" "TRACE"
|
& "$env:rcbin\rclrun" "TRACE"
|
||||||
& "$env:rcbin\rclrun" "TRACE" -LogLevel="TRACE"
|
& "$env:rcbin\rclrun" "TRACE" -LogLevel="TRACE"
|
||||||
|
|
||||||
|
|
||||||
|
# Define the path to the directory you want to scan
|
||||||
|
$FolderPath = "E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\Batch"
|
||||||
|
|
||||||
|
# Define the path for the output text file
|
||||||
|
$OutputPath = "E:\Innova\Code\MP\Git\DUTAS_DEVL\DUTAS\BatchFileList.txt"
|
||||||
|
|
||||||
|
# Get all files recursively within the specified folder and its subfolders
|
||||||
|
# Select the FullName property (which includes the full path and filename)
|
||||||
|
# Export the results to the specified text file, one item per line
|
||||||
|
Get-ChildItem -Path $FolderPath -File -Recurse | Select-Object -ExpandProperty FullName | Out-File -FilePath $OutputPath
|
||||||
@ -1,8 +1,8 @@
|
|||||||
-IgnoreParseError=TRUE
|
-IgnoreParseError=TRUE
|
||||||
-OutputDir=E:\Faizan_Folder\DUTAS_DEV_UPDATE\bin\CICS\dll
|
-OutputDir=\\does-rainvm-prd\DefaultVolume\DOESTAX\DEVL\BIN\BATCH\LIB
|
||||||
-RemoveFileVerifyFailed=FALSE
|
-RemoveFileVerifyFailed=FALSE
|
||||||
-MaxMem=1000
|
-MaxMem=1000
|
||||||
-IncludeSearchPath=E:\Faizan_Folder\DUTAS_DEV_UPDATE/DUTAS/Copybook
|
-IncludeSearchPath=\\does-rainvm-prd\DefaultVolume\DOESTAX\DEVL\SRC\CPY\LIB
|
||||||
-IncludeExtension=.txt
|
-IncludeExtension=.cpy
|
||||||
-StringRuntimeEncoding=037
|
-StringRuntimeEncoding=037
|
||||||
-DefInit=TRUE
|
-DefInit=TRUE
|
||||||
|
|||||||
8
CompileOptions_withoutDefinit.txt
Normal file
8
CompileOptions_withoutDefinit.txt
Normal file
@ -0,0 +1,8 @@
|
|||||||
|
-IgnoreParseError=TRUE
|
||||||
|
-OutputDir=E:\Faizan_Folder\DUTAS_DEV_UPDATE\bin\CICS\dll
|
||||||
|
-RemoveFileVerifyFailed=FALSE
|
||||||
|
-MaxMem=1000
|
||||||
|
-IncludeSearchPath=E:\Faizan_Folder\DUTAS_DEV_UPDATE/DUTAS/Copybook
|
||||||
|
-IncludeExtension=.txt
|
||||||
|
-StringRuntimeEncoding=037
|
||||||
|
|
||||||
41
Copybook/DTSHX145.TXT
Normal file
41
Copybook/DTSHX145.TXT
Normal file
@ -0,0 +1,41 @@
|
|||||||
|
00001 ***** 04/04/18
|
||||||
|
00002 * DTSHX145
|
||||||
|
00003 * DTSIX145 EMPLOYER PAYMENT EXTRACT RECORD LV008
|
||||||
|
00004 * DTSHX145
|
||||||
|
00005 * EXCHANGES EMPLOYER PAYMENT DATA BETWEEN MAINFRAME AND DTSHX145
|
||||||
|
00006 * SQL SERVER DATABASE. DTSHX145
|
||||||
|
00007 * DTSHX145
|
||||||
|
00008 * 05/04/2010 ADDED CHECK SCAN DATE, CHECK SEQUENCE NBR, DTSHX145
|
||||||
|
00009 * LEVEL-88 FOR PAYMENTS FROM IN-HOUSE CASHIERING, DTSHX145
|
||||||
|
00010 * INTEREST AND PENALTY WAIVER INDICATORS, DTSHX145
|
||||||
|
00011 * RESPONSIBLE OPID AND ACTIVITY. GD DTSHX145
|
||||||
|
00012 * DTSHX145
|
||||||
|
00013 * 11/17/2010 CHANGED LENGTH OF SOURCE TO ONE BYTE. ADDED DTSHX145
|
||||||
|
00014 * X145-TO-WEB-88 FOR DATA SENT TO THE WEB DTSHX145
|
||||||
|
00015 * DATABASE FROM THE MAINFRAME. GD DTSHX145
|
||||||
|
00016 ***** DTSHX145
|
||||||
|
00017 DTSHX145
|
||||||
|
00018 15 H145-REC-TYPE PIC X(03) VALUE '145'. CL**7
|
||||||
|
00019 15 FILLER PIC X(01) VALUE ','. DTSHX145
|
||||||
|
00020 15 H145-EMP-NO PIC 9(06). CL**7
|
||||||
|
00021 15 FILLER PIC X(01) VALUE ','. DTSHX145
|
||||||
|
00022 15 H145-QTR PIC X(06). CL**7
|
||||||
|
00023 15 FILLER PIC X(01) VALUE ','. DTSHX145
|
||||||
|
00024 15 FILLER PIC X(06). CL**3
|
||||||
|
00025 15 FILLER PIC X(01) VALUE ','. CL**3
|
||||||
|
00026 15 FILLER PIC X(03). CL**5
|
||||||
|
00027 15 FILLER PIC X(01) VALUE ','. CL**3
|
||||||
|
00028 15 FILLER PIC X(02). CL**3
|
||||||
|
00029 15 FILLER PIC X(01) VALUE ','. CL**3
|
||||||
|
00030 15 FILLER PIC X(02). CL**3
|
||||||
|
00031 15 FILLER PIC X(01) VALUE ','. CL**3
|
||||||
|
00032 15 FILLER PIC X(02). CL**3
|
||||||
|
00033 15 FILLER PIC X(01) VALUE ','. CL**3
|
||||||
|
00034 15 H145-REMITTANCE PIC 9(11).99. CL**8
|
||||||
|
00035 15 FILLER PIC X(01) VALUE ','. DTSHX145
|
||||||
|
00036 15 H145-RECV-DATE PIC X(10). CL**7
|
||||||
|
00037 15 FILLER PIC X(01) VALUE ','. CL**3
|
||||||
|
00038 15 FILLER PIC X(10). CL**3
|
||||||
|
00039 15 FILLER PIC X(01) VALUE ','. CL**3
|
||||||
|
00040 15 H145-TRACE-NO PIC X(08). CL**7
|
||||||
|
00041 15 FILLER PIC X(429). CL**5
|
||||||
@ -1,6 +1,6 @@
|
|||||||
00001 ***** 12/09/04
|
00001 ***** 11/08/12
|
||||||
00002 * DTSIMQTR
|
00002 * DTSIMQTR
|
||||||
00003 * DTSIMQTR MASTER FILE 'QUARTER FINANCIAL SUMMARY' LV018
|
00003 * DTSIMQTR MASTER FILE 'QUARTER FINANCIAL SUMMARY' LV006
|
||||||
00004 * RECORD DEFINITION. DTSIMQTR
|
00004 * RECORD DEFINITION. DTSIMQTR
|
||||||
00005 * DTSIMQTR
|
00005 * DTSIMQTR
|
||||||
00006 * DTSIMQTR
|
00006 * DTSIMQTR
|
||||||
@ -16,205 +16,218 @@
|
|||||||
00016 * SET TO NULL IF THERE IS NO REPORT ON FIDTSIMQTR
|
00016 * SET TO NULL IF THERE IS NO REPORT ON FIDTSIMQTR
|
||||||
00017 * REFERENCE: HOUSEHOLD PROGRAMMER: GD DTSIMQTR
|
00017 * REFERENCE: HOUSEHOLD PROGRAMMER: GD DTSIMQTR
|
||||||
00018 * DTSIMQTR
|
00018 * DTSIMQTR
|
||||||
00019 * 04/44/2004 ADDED MQTR-CMP-ESTB-ABSTIME WHICH DTSIMQTR
|
00019 * 04/04/2004 ADDED MQTR-CMP-ESTB-ABSTIME WHICH CL**6
|
||||||
00020 * ACTS AS A FOREIGN KEY LINKING THE DTSIMQTR
|
00020 * ACTS AS A FOREIGN KEY LINKING THE DTSIMQTR
|
||||||
00021 * QUARTER TO A COMPROMISE SETTLEMENT (MCMDTSIMQTR
|
00021 * QUARTER TO A COMPROMISE SETTLEMENT (MCMDTSIMQTR
|
||||||
00022 * IN WHICH THE QUARTER IS INCLUDED. DTSIMQTR
|
00022 * IN WHICH THE QUARTER IS INCLUDED. DTSIMQTR
|
||||||
00023 * REFERENCE: COMPROMISE PROGRAMMER: GD DTSIMQTR
|
00023 * REFERENCE: COMPROMISE PROGRAMMER: GD DTSIMQTR
|
||||||
00024 * DTSIMQTR
|
00024 * DTSIMQTR
|
||||||
00025 * DTSIMQTR
|
00025 * 11/08/2012 ADDED THE VALUE MQTR-CURR-CLMT-WAGE-88 CL**6
|
||||||
00026 ***** DTSIMQTR
|
00026 * TO THE MQTR-CURR-RPT-TYPE FIELD. THIS CL**6
|
||||||
00027 DTSIMQTR
|
00027 * VALUE IS SET ONLY WHEN A CLAIMANT WAGE CL**6
|
||||||
00028 10 MQTR-KEY-AREA. DTSIMQTR
|
00028 * REPORT IS THE FIRST REPORT FILED FOR CL**6
|
||||||
00029 15 MQTR-EMP-NO PIC S9(07) COMP-3. DTSIMQTR
|
00029 * THE QUARTER. THE CURRENT REPORT TYPE CL**6
|
||||||
00030 15 MQTR-REC-TYPE PIC S9(04) COMP. DTSIMQTR
|
00030 * DOES NOT CHANGE WHEN CLAIMANT WAGE CL**6
|
||||||
00031 88 MQTR-QTR-88 VALUE +41. DTSIMQTR
|
00031 * REPORTS ARE POSTED AFTER ONE OR MORE CL**6
|
||||||
00032 15 MQTR-YRQ PIC S9(05) COMP-3. DTSIMQTR
|
00032 * EMPLOYER REPORTS ARE ON FILE. CL**6
|
||||||
00033 88 MQTR-PICKUP-YRQ-88 VALUE +19924. DTSIMQTR
|
00033 * THE REPORT IS NOT CONSIDERED 'RECEIVED' CL**6
|
||||||
00034 15 MQTR-KEY-FILLER PIC X(07). DTSIMQTR
|
00034 * IF A ONLY CLAIMANT WAGE REPORT IS ON FI CL**6
|
||||||
00035 DTSIMQTR
|
00035 * REFERENCE: PROGRAMMER: GD CL**6
|
||||||
00036 DTSIMQTR
|
00036 * CL**6
|
||||||
00037 10 MQTR-PURGE-DATE PIC S9(09) COMP-3. DTSIMQTR
|
00037 * DTSIMQTR
|
||||||
00038 DTSIMQTR
|
00038 ***** DTSIMQTR
|
||||||
00039 DTSIMQTR
|
00039 DTSIMQTR
|
||||||
00040 10 MQTR-DATA-AREA. DTSIMQTR
|
00040 10 MQTR-KEY-AREA. DTSIMQTR
|
||||||
00041 15 MQTR-CURR-RPT-TYPE PIC X(01). DTSIMQTR
|
00041 15 MQTR-EMP-NO PIC S9(07) COMP-3. DTSIMQTR
|
||||||
00042 88 MQTR-CURR-NOT-LIABLE-88 VALUE 'N'. DTSIMQTR
|
00042 15 MQTR-REC-TYPE PIC S9(04) COMP. DTSIMQTR
|
||||||
00043 88 MQTR-CURR-NOT-DUE-88 VALUE 'L'. DTSIMQTR
|
00043 88 MQTR-QTR-88 VALUE +41. DTSIMQTR
|
||||||
00044 88 MQTR-CURR-DELINQ-88 VALUE 'D'. DTSIMQTR
|
00044 15 MQTR-YRQ PIC S9(05) COMP-3. DTSIMQTR
|
||||||
00045 88 MQTR-CURR-PICKUP-88 VALUE 'P'. DTSIMQTR
|
00045 88 MQTR-PICKUP-YRQ-88 VALUE +19924. DTSIMQTR
|
||||||
00046 88 MQTR-CURR-ESTIM-88 VALUE 'E'. DTSIMQTR
|
00046 15 MQTR-KEY-FILLER PIC X(07). DTSIMQTR
|
||||||
00047 88 MQTR-CURR-ORIG-88 VALUE 'O'. DTSIMQTR
|
00047 DTSIMQTR
|
||||||
00048 88 MQTR-CURR-ORIG-ANN-NL-88 VALUE 'H'. DTSIMQTR
|
00048 DTSIMQTR
|
||||||
00049 88 MQTR-CURR-AMEND-88 VALUE 'M'. DTSIMQTR
|
00049 10 MQTR-PURGE-DATE PIC S9(09) COMP-3. DTSIMQTR
|
||||||
00050 88 MQTR-CURR-AUDIT-88 VALUE 'A'. DTSIMQTR
|
00050 DTSIMQTR
|
||||||
00051 88 MQTR-CURR-ADMIN-88 VALUE 'C'. DTSIMQTR
|
00051 DTSIMQTR
|
||||||
00052 88 MQTR-CURR-FIELD-88 VALUE 'F'. DTSIMQTR
|
00052 10 MQTR-DATA-AREA. DTSIMQTR
|
||||||
00053 88 MQTR-CURR-RCVD-88 VALUE 'O' 'M' 'A' DTSIMQTR
|
00053 15 MQTR-CURR-RPT-TYPE PIC X(01). DTSIMQTR
|
||||||
00054 'C' 'F' 'H'. DTSIMQTR
|
00054 88 MQTR-CURR-NOT-LIABLE-88 VALUE 'N'. DTSIMQTR
|
||||||
00055 88 MQTR-CURR-MISSING-88 VALUE 'D' 'E'. DTSIMQTR
|
00055 88 MQTR-CURR-NOT-DUE-88 VALUE 'L'. DTSIMQTR
|
||||||
00056 DTSIMQTR
|
00056 88 MQTR-CURR-DELINQ-88 VALUE 'D'. DTSIMQTR
|
||||||
00057 15 MQTR-PURSUED-RPT-IND PIC X(01). DTSIMQTR
|
00057 88 MQTR-CURR-PICKUP-88 VALUE 'P'. DTSIMQTR
|
||||||
00058 88 MQTR-RPT-IS-PURSUED-88 VALUE 'Y'. DTSIMQTR
|
00058 88 MQTR-CURR-ESTIM-88 VALUE 'E'. DTSIMQTR
|
||||||
00059 88 MQTR-RPT-NOT-PURSUED-88 VALUE 'N'. DTSIMQTR
|
00059 88 MQTR-CURR-ORIG-88 VALUE 'O'. DTSIMQTR
|
||||||
00060 DTSIMQTR
|
00060 88 MQTR-CURR-ORIG-ANN-NL-88 VALUE 'H'. DTSIMQTR
|
||||||
00061 15 MQTR-MISS-RPT-CUTOFF-CD PIC X(01). DTSIMQTR
|
00061 88 MQTR-CURR-AMEND-88 VALUE 'M'. DTSIMQTR
|
||||||
00062 88 MQTR-MISS-NOT-LIABLE-88 VALUE '0'. DTSIMQTR
|
00062 88 MQTR-CURR-AUDIT-88 VALUE 'A'. DTSIMQTR
|
||||||
00063 88 MQTR-MISS-TIMELY-88 VALUE '1'. DTSIMQTR
|
00063 88 MQTR-CURR-ADMIN-88 VALUE 'C'. DTSIMQTR
|
||||||
00064 88 MQTR-MISS-UNTIMELY-88 VALUE '2'. DTSIMQTR
|
00064 88 MQTR-CURR-FIELD-88 VALUE 'F'. DTSIMQTR
|
||||||
00065 88 MQTR-MISS-NO-LTR-EXT-88 VALUE '3'. DTSIMQTR
|
00065 88 MQTR-CURR-CLMT-WAGE-88 VALUE 'B'. CL**6
|
||||||
00066 88 MQTR-MISS-NO-LTR-ADDR-88 VALUE '4'. DTSIMQTR
|
00066 88 MQTR-CURR-RCVD-88 VALUE 'O' 'M' 'A' DTSIMQTR
|
||||||
00067 88 MQTR-MISS-NO-LTR-OTHER-88 VALUE '8'. DTSIMQTR
|
00067 'C' 'F' 'H'. CL**5
|
||||||
00068 88 MQTR-MISS-LETTER-SENT-88 VALUE '9'. DTSIMQTR
|
00068 88 MQTR-CURR-MISSING-88 VALUE 'D' 'E'. CL**3
|
||||||
00069 88 MQTR-MISS-NO-LTR-88 VALUE '3' '4' '8'. DTSIMQTR
|
00069 DTSIMQTR
|
||||||
00070 88 MQTR-MISS-CONVERSION-88 VALUE 'C'. DTSIMQTR
|
00070 15 MQTR-PURSUED-RPT-IND PIC X(01). DTSIMQTR
|
||||||
00071 88 MQTR-MISS-NOT-YET-RUN-88 VALUE 'Z'. DTSIMQTR
|
00071 88 MQTR-RPT-IS-PURSUED-88 VALUE 'Y'. DTSIMQTR
|
||||||
00072 DTSIMQTR
|
00072 88 MQTR-RPT-NOT-PURSUED-88 VALUE 'N'. DTSIMQTR
|
||||||
00073 DTSIMQTR
|
00073 DTSIMQTR
|
||||||
00074 15 MQTR-UI-RATE PIC S9(01)V9(04) COMP-3. DTSIMQTR
|
00074 15 MQTR-MISS-RPT-CUTOFF-CD PIC X(01). DTSIMQTR
|
||||||
00075 88 MQTR-NO-UI-RATE-88 VALUE -9.9999. DTSIMQTR
|
00075 88 MQTR-MISS-NOT-LIABLE-88 VALUE '0'. DTSIMQTR
|
||||||
00076 DTSIMQTR
|
00076 88 MQTR-MISS-TIMELY-88 VALUE '1'. DTSIMQTR
|
||||||
00077 DTSIMQTR
|
00077 88 MQTR-MISS-UNTIMELY-88 VALUE '2'. DTSIMQTR
|
||||||
00078 15 MQTR-TAX-DUE-DATE PIC S9(09) COMP-3. DTSIMQTR
|
00078 88 MQTR-MISS-NO-LTR-EXT-88 VALUE '3'. DTSIMQTR
|
||||||
00079 DTSIMQTR
|
00079 88 MQTR-MISS-NO-LTR-ADDR-88 VALUE '4'. DTSIMQTR
|
||||||
00080 15 MQTR-TAX-DUE-DATE-IND PIC X(01). DTSIMQTR
|
00080 88 MQTR-MISS-NO-LTR-OTHER-88 VALUE '8'. DTSIMQTR
|
||||||
00081 88 MQTR-TAX-DUE-DATE-MANUAL-88 VALUE 'M'. DTSIMQTR
|
00081 88 MQTR-MISS-LETTER-SENT-88 VALUE '9'. DTSIMQTR
|
||||||
00082 88 MQTR-TAX-DUE-DATE-AUTO-88 VALUE 'A'. DTSIMQTR
|
00082 88 MQTR-MISS-NO-LTR-88 VALUE '3' '4' '8'. DTSIMQTR
|
||||||
00083 DTSIMQTR
|
00083 88 MQTR-MISS-CONVERSION-88 VALUE 'C'. DTSIMQTR
|
||||||
00084 DTSIMQTR
|
00084 88 MQTR-MISS-NOT-YET-RUN-88 VALUE 'Z'. DTSIMQTR
|
||||||
00085 15 MQTR-RPT-DUE-DATE PIC S9(09) COMP-3. DTSIMQTR
|
00085 DTSIMQTR
|
||||||
00086 DTSIMQTR
|
00086 DTSIMQTR
|
||||||
00087 15 MQTR-RPT-DUE-DATE-IND PIC X(01). DTSIMQTR
|
00087 15 MQTR-UI-RATE PIC S9(01)V9(04) COMP-3. DTSIMQTR
|
||||||
00088 88 MQTR-RPT-DUE-DATE-MANUAL-88 VALUE 'M'. DTSIMQTR
|
00088 88 MQTR-NO-UI-RATE-88 VALUE -9.9999. DTSIMQTR
|
||||||
00089 88 MQTR-RPT-DUE-DATE-AUTO-88 VALUE 'A'. DTSIMQTR
|
00089 DTSIMQTR
|
||||||
00090 DTSIMQTR
|
00090 DTSIMQTR
|
||||||
00091 DTSIMQTR
|
00091 15 MQTR-TAX-DUE-DATE PIC S9(09) COMP-3. DTSIMQTR
|
||||||
00092 15 MQTR-WAGE-DATA. DTSIMQTR
|
00092 DTSIMQTR
|
||||||
00093 20 MQTR-TOT-WAGE PIC S9(11)V9(02) COMP-3. DTSIMQTR
|
00093 15 MQTR-TAX-DUE-DATE-IND PIC X(01). DTSIMQTR
|
||||||
00094 20 MQTR-EXCESS-WAGE PIC S9(11)V9(02) COMP-3. DTSIMQTR
|
00094 88 MQTR-TAX-DUE-DATE-MANUAL-88 VALUE 'M'. DTSIMQTR
|
||||||
00095 20 MQTR-TAX-WAGE PIC S9(11)V9(02) COMP-3. DTSIMQTR
|
00095 88 MQTR-TAX-DUE-DATE-AUTO-88 VALUE 'A'. DTSIMQTR
|
||||||
00096 20 MQTR-WAGE-CHNG-DATE PIC S9(09) COMP-3. DTSIMQTR
|
00096 DTSIMQTR
|
||||||
00097 DTSIMQTR
|
00097 DTSIMQTR
|
||||||
00098 DTSIMQTR
|
00098 15 MQTR-RPT-DUE-DATE PIC S9(09) COMP-3. DTSIMQTR
|
||||||
00099 15 MQTR-INT-AREA. DTSIMQTR
|
00099 DTSIMQTR
|
||||||
00100 20 MQTR-INT-CHARGE-IND PIC X(01). DTSIMQTR
|
00100 15 MQTR-RPT-DUE-DATE-IND PIC X(01). DTSIMQTR
|
||||||
00101 88 MQTR-INT-CHARGE-MANUAL-88 VALUE 'M'. DTSIMQTR
|
00101 88 MQTR-RPT-DUE-DATE-MANUAL-88 VALUE 'M'. DTSIMQTR
|
||||||
00102 88 MQTR-INT-CHARGE-AUTO-88 VALUE 'A'. DTSIMQTR
|
00102 88 MQTR-RPT-DUE-DATE-AUTO-88 VALUE 'A'. DTSIMQTR
|
||||||
00103 DTSIMQTR
|
00103 DTSIMQTR
|
||||||
00104 20 MQTR-INT-SPAN-AREA. DTSIMQTR
|
00104 DTSIMQTR
|
||||||
00105 25 MQTR-INT-CNT PIC S9(04) COMP. DTSIMQTR
|
00105 15 MQTR-WAGE-DATA. DTSIMQTR
|
||||||
00106 25 MQTR-INT-SPAN OCCURS 2 TIMES DTSIMQTR
|
00106 20 MQTR-TOT-WAGE PIC S9(11)V9(02) COMP-3. DTSIMQTR
|
||||||
00107 INDEXED BY MQTR-INT-IDX. DTSIMQTR
|
00107 20 MQTR-EXCESS-WAGE PIC S9(11)V9(02) COMP-3. DTSIMQTR
|
||||||
00108 30 MQTR-INT-START-DATE DTSIMQTR
|
00108 20 MQTR-TAX-WAGE PIC S9(11)V9(02) COMP-3. DTSIMQTR
|
||||||
00109 PIC S9(09) COMP-3. DTSIMQTR
|
00109 20 MQTR-WAGE-CHNG-DATE PIC S9(09) COMP-3. DTSIMQTR
|
||||||
00110 30 MQTR-INT-END-DATE DTSIMQTR
|
00110 DTSIMQTR
|
||||||
00111 PIC S9(09) COMP-3. DTSIMQTR
|
00111 DTSIMQTR
|
||||||
00112 30 MQTR-INT-RATE PIC S9(01)V9(04) COMP-3. DTSIMQTR
|
00112 15 MQTR-INT-AREA. DTSIMQTR
|
||||||
00113 DTSIMQTR
|
00113 20 MQTR-INT-CHARGE-IND PIC X(01). DTSIMQTR
|
||||||
00114 20 MQTR-WAIVE-INT-SPAN. DTSIMQTR
|
00114 88 MQTR-INT-CHARGE-MANUAL-88 VALUE 'M'. DTSIMQTR
|
||||||
00115 25 MQTR-WAIVE-INT-START-DATE DTSIMQTR
|
00115 88 MQTR-INT-CHARGE-AUTO-88 VALUE 'A'. DTSIMQTR
|
||||||
00116 PIC S9(09) COMP-3. DTSIMQTR
|
00116 DTSIMQTR
|
||||||
00117 25 MQTR-WAIVE-INT-END-DATE DTSIMQTR
|
00117 20 MQTR-INT-SPAN-AREA. DTSIMQTR
|
||||||
00118 PIC S9(09) COMP-3. DTSIMQTR
|
00118 25 MQTR-INT-CNT PIC S9(04) COMP. DTSIMQTR
|
||||||
00119 DTSIMQTR
|
00119 25 MQTR-INT-SPAN OCCURS 2 TIMES DTSIMQTR
|
||||||
00120 DTSIMQTR
|
00120 INDEXED BY MQTR-INT-IDX. DTSIMQTR
|
||||||
00121 15 MQTR-PEN-AREA. DTSIMQTR
|
00121 30 MQTR-INT-START-DATE DTSIMQTR
|
||||||
00122 20 MQTR-PEN-CHARGE-IND PIC X(01). DTSIMQTR
|
00122 PIC S9(09) COMP-3. DTSIMQTR
|
||||||
00123 88 MQTR-PEN-CHARGE-MANUAL-88 VALUE 'M'. DTSIMQTR
|
00123 30 MQTR-INT-END-DATE DTSIMQTR
|
||||||
00124 88 MQTR-PEN-CHARGE-AUTO-88 VALUE 'A'. DTSIMQTR
|
00124 PIC S9(09) COMP-3. DTSIMQTR
|
||||||
00125 DTSIMQTR
|
00125 30 MQTR-INT-RATE PIC S9(01)V9(04) COMP-3. DTSIMQTR
|
||||||
00126 20 MQTR-WAIVE-PEN-SPAN. DTSIMQTR
|
00126 DTSIMQTR
|
||||||
00127 25 MQTR-WAIVE-PEN-START-DATE DTSIMQTR
|
00127 20 MQTR-WAIVE-INT-SPAN. DTSIMQTR
|
||||||
00128 PIC S9(09) COMP-3. DTSIMQTR
|
00128 25 MQTR-WAIVE-INT-START-DATE DTSIMQTR
|
||||||
00129 25 MQTR-WAIVE-PEN-END-DATE DTSIMQTR
|
00129 PIC S9(09) COMP-3. DTSIMQTR
|
||||||
00130 PIC S9(09) COMP-3. DTSIMQTR
|
00130 25 MQTR-WAIVE-INT-END-DATE DTSIMQTR
|
||||||
00131 DTSIMQTR
|
00131 PIC S9(09) COMP-3. DTSIMQTR
|
||||||
00132 DTSIMQTR
|
00132 DTSIMQTR
|
||||||
00133 15 MQTR-WAGE-RPT-IND PIC X(01). DTSIMQTR
|
00133 DTSIMQTR
|
||||||
00134 88 MQTR-WAGE-RPT-NO-88 VALUE 'N'. DTSIMQTR
|
00134 15 MQTR-PEN-AREA. DTSIMQTR
|
||||||
00135 88 MQTR-WAGE-RPT-YES-88 VALUE 'Y'. DTSIMQTR
|
00135 20 MQTR-PEN-CHARGE-IND PIC X(01). DTSIMQTR
|
||||||
00136 DTSIMQTR
|
00136 88 MQTR-PEN-CHARGE-MANUAL-88 VALUE 'M'. DTSIMQTR
|
||||||
00137 DTSIMQTR
|
00137 88 MQTR-PEN-CHARGE-AUTO-88 VALUE 'A'. DTSIMQTR
|
||||||
00138 15 MQTR-EMPL-DATA. DTSIMQTR
|
00138 DTSIMQTR
|
||||||
00139 20 MQTR-1ST-MTH-EMPL-CNT DTSIMQTR
|
00139 20 MQTR-WAIVE-PEN-SPAN. DTSIMQTR
|
||||||
00140 PIC S9(07) COMP-3. DTSIMQTR
|
00140 25 MQTR-WAIVE-PEN-START-DATE DTSIMQTR
|
||||||
00141 88 MQTR-1ST-MTH-NO-ENTRY-88 VALUE +9999999. DTSIMQTR
|
00141 PIC S9(09) COMP-3. DTSIMQTR
|
||||||
00142 20 MQTR-2ND-MTH-EMPL-CNT DTSIMQTR
|
00142 25 MQTR-WAIVE-PEN-END-DATE DTSIMQTR
|
||||||
00143 PIC S9(07) COMP-3. DTSIMQTR
|
00143 PIC S9(09) COMP-3. DTSIMQTR
|
||||||
00144 88 MQTR-2ND-MTH-NO-ENTRY-88 VALUE +9999999. DTSIMQTR
|
00144 DTSIMQTR
|
||||||
00145 20 MQTR-3RD-MTH-EMPL-CNT DTSIMQTR
|
00145 DTSIMQTR
|
||||||
00146 PIC S9(07) COMP-3. DTSIMQTR
|
00146 15 MQTR-WAGE-RPT-IND PIC X(01). DTSIMQTR
|
||||||
00147 88 MQTR-3RD-MTH-NO-ENTRY-88 VALUE +9999999. DTSIMQTR
|
00147 88 MQTR-WAGE-RPT-NO-88 VALUE 'N'. DTSIMQTR
|
||||||
00148 20 MQTR-EMPL-CNT-CHNG-DATE DTSIMQTR
|
00148 88 MQTR-WAGE-RPT-YES-88 VALUE 'Y'. DTSIMQTR
|
||||||
00149 PIC S9(09) COMP-3. DTSIMQTR
|
00149 DTSIMQTR
|
||||||
00150 DTSIMQTR
|
00150 DTSIMQTR
|
||||||
00151 DTSIMQTR
|
00151 15 MQTR-EMPL-DATA. DTSIMQTR
|
||||||
00152 15 MQTR-COLL-PROMPT-DUE-AMT DTSIMQTR
|
00152 20 MQTR-1ST-MTH-EMPL-CNT DTSIMQTR
|
||||||
00153 PIC S9(09)V9(02) COMP-3. DTSIMQTR
|
00153 PIC S9(07) COMP-3. DTSIMQTR
|
||||||
00154 DTSIMQTR
|
00154 88 MQTR-1ST-MTH-NO-ENTRY-88 VALUE +9999999. DTSIMQTR
|
||||||
00155 DTSIMQTR
|
00155 20 MQTR-2ND-MTH-EMPL-CNT DTSIMQTR
|
||||||
00156 15 MQTR-ETA581-DATA. DTSIMQTR
|
00156 PIC S9(07) COMP-3. DTSIMQTR
|
||||||
00157 20 MQTR-ETA581-OVR15MNTH-RPT-CNT DTSIMQTR
|
00157 88 MQTR-2ND-MTH-NO-ENTRY-88 VALUE +9999999. DTSIMQTR
|
||||||
00158 PIC S9(04) COMP. DTSIMQTR
|
00158 20 MQTR-3RD-MTH-EMPL-CNT DTSIMQTR
|
||||||
00159 DTSIMQTR
|
00159 PIC S9(07) COMP-3. DTSIMQTR
|
||||||
00160 20 MQTR-ETA581-OVR15MNTH-RPT-YRQ DTSIMQTR
|
00160 88 MQTR-3RD-MTH-NO-ENTRY-88 VALUE +9999999. DTSIMQTR
|
||||||
00161 OCCURS 2 TIMES DTSIMQTR
|
00161 20 MQTR-EMPL-CNT-CHNG-DATE DTSIMQTR
|
||||||
00162 INDEXED BY MQTR-ETA581-IDX DTSIMQTR
|
00162 PIC S9(09) COMP-3. DTSIMQTR
|
||||||
00163 PIC S9(05) COMP-3. DTSIMQTR
|
00163 DTSIMQTR
|
||||||
00164 DTSIMQTR
|
00164 DTSIMQTR
|
||||||
00165 20 MQTR-ETA581-REMOVED-IND DTSIMQTR
|
00165 15 MQTR-COLL-PROMPT-DUE-AMT DTSIMQTR
|
||||||
00166 PIC X(01). DTSIMQTR
|
00166 PIC S9(09)V9(02) COMP-3. DTSIMQTR
|
||||||
00167 88 MQTR-ETA581-REMOVED-NO-88 VALUE 'N'. DTSIMQTR
|
00167 DTSIMQTR
|
||||||
00168 88 MQTR-ETA581-REMOVED-YES-88 VALUE 'Y'. DTSIMQTR
|
00168 DTSIMQTR
|
||||||
00169 DTSIMQTR
|
00169 15 MQTR-ETA581-DATA. DTSIMQTR
|
||||||
00170 20 MQTR-ETA581-UNCOLLECT-IND DTSIMQTR
|
00170 20 MQTR-ETA581-OVR15MNTH-RPT-CNT DTSIMQTR
|
||||||
00171 PIC X(01). DTSIMQTR
|
00171 PIC S9(04) COMP. DTSIMQTR
|
||||||
00172 88 MQTR-ETA581-UNCOLLECT-NO-88 VALUE 'N'. DTSIMQTR
|
00172 DTSIMQTR
|
||||||
00173 88 MQTR-ETA581-UNCOLLECT-YES-88 VALUE 'Y'. DTSIMQTR
|
00173 20 MQTR-ETA581-OVR15MNTH-RPT-YRQ DTSIMQTR
|
||||||
00174 DTSIMQTR
|
00174 OCCURS 2 TIMES DTSIMQTR
|
||||||
00175 15 MQTR-ANNUAL-IND PIC X(01). DTSIMQTR
|
00175 INDEXED BY MQTR-ETA581-IDX DTSIMQTR
|
||||||
00176 88 MQTR-ANNUAL-YES-88 VALUE 'Y'. DTSIMQTR
|
00176 PIC S9(05) COMP-3. DTSIMQTR
|
||||||
00177 88 MQTR-ANNUAL-NO-88 VALUE 'N'. DTSIMQTR
|
00177 DTSIMQTR
|
||||||
00178 88 MQTR-ANNUAL-NULL-88 VALUE ' '. DTSIMQTR
|
00178 20 MQTR-ETA581-REMOVED-IND DTSIMQTR
|
||||||
00179 DTSIMQTR
|
00179 PIC X(01). DTSIMQTR
|
||||||
00180 15 MQTR-R317-SENT-IND PIC X(01). DTSIMQTR
|
00180 88 MQTR-ETA581-REMOVED-NO-88 VALUE 'N'. DTSIMQTR
|
||||||
00181 88 MQTR-R317-SENT-YES-88 VALUE 'Y'. DTSIMQTR
|
00181 88 MQTR-ETA581-REMOVED-YES-88 VALUE 'Y'. DTSIMQTR
|
||||||
00182 88 MQTR-R317-SENT-NO-88 VALUE 'N'. DTSIMQTR
|
00182 DTSIMQTR
|
||||||
00183 DTSIMQTR
|
00183 20 MQTR-ETA581-UNCOLLECT-IND DTSIMQTR
|
||||||
00184 15 MQTR-CMP-ESTB-ABSTIME PIC S9(15) COMP-3. DTSIMQTR
|
00184 PIC X(01). DTSIMQTR
|
||||||
00185 DTSIMQTR
|
00185 88 MQTR-ETA581-UNCOLLECT-NO-88 VALUE 'N'. DTSIMQTR
|
||||||
00186 15 FILLER PIC X(38). DTSIMQTR
|
00186 88 MQTR-ETA581-UNCOLLECT-YES-88 VALUE 'Y'. DTSIMQTR
|
||||||
00187 DTSIMQTR
|
00187 DTSIMQTR
|
||||||
00188 DTSIMQTR
|
00188 15 MQTR-ANNUAL-IND PIC X(01). DTSIMQTR
|
||||||
00189 15 MQTR-CONVERTED-IND PIC X(01). DTSIMQTR
|
00189 88 MQTR-ANNUAL-YES-88 VALUE 'Y'. DTSIMQTR
|
||||||
00190 88 MQTR-CONVERTED-88 VALUE 'Y'. DTSIMQTR
|
00190 88 MQTR-ANNUAL-NO-88 VALUE 'N'. DTSIMQTR
|
||||||
00191 88 MQTR-NOT-CONVERTED-88 VALUE 'N'. DTSIMQTR
|
00191 88 MQTR-ANNUAL-NULL-88 VALUE ' '. DTSIMQTR
|
||||||
00192 DTSIMQTR
|
00192 DTSIMQTR
|
||||||
00193 DTSIMQTR
|
00193 15 MQTR-R317-SENT-IND PIC X(01). DTSIMQTR
|
||||||
00194 15 MQTR-ESTB-DATE PIC S9(09) COMP-3. DTSIMQTR
|
00194 88 MQTR-R317-SENT-YES-88 VALUE 'Y'. DTSIMQTR
|
||||||
00195 DTSIMQTR
|
00195 88 MQTR-R317-SENT-NO-88 VALUE 'N'. DTSIMQTR
|
||||||
00196 15 MQTR-CHNG-DATE PIC S9(09) COMP-3. DTSIMQTR
|
00196 DTSIMQTR
|
||||||
00197 DTSIMQTR
|
00197 15 MQTR-CMP-ESTB-ABSTIME PIC S9(15) COMP-3. DTSIMQTR
|
||||||
00198 DTSIMQTR
|
00198 DTSIMQTR
|
||||||
00199 15 MQTR-ACCT-CNT PIC S9(04) COMP. DTSIMQTR
|
00199 15 FILLER PIC X(38). DTSIMQTR
|
||||||
00200 DTSIMQTR
|
00200 DTSIMQTR
|
||||||
00201 15 MQTR-ACCT-AREA. DTSIMQTR
|
00201 DTSIMQTR
|
||||||
00202 20 MQTR-ACCT-GROUP OCCURS 10 TIMES DTSIMQTR
|
00202 15 MQTR-CONVERTED-IND PIC X(01). DTSIMQTR
|
||||||
00203 INDEXED BY MQTR-ACCT-IDX. DTSIMQTR
|
00203 88 MQTR-CONVERTED-88 VALUE 'Y'. DTSIMQTR
|
||||||
00204 25 MQTR-ACCT-IND PIC X(02). DTSIMQTR
|
00204 88 MQTR-NOT-CONVERTED-88 VALUE 'N'. DTSIMQTR
|
||||||
00205 88 MQTR-ACCT-UI-88 VALUE 'UI'. DTSIMQTR
|
00205 DTSIMQTR
|
||||||
00206 88 MQTR-ACCT-SUR-88 VALUE 'SU'. DTSIMQTR
|
00206 DTSIMQTR
|
||||||
00207 88 MQTR-ACCT-INT-88 VALUE 'I '. DTSIMQTR
|
00207 15 MQTR-ESTB-DATE PIC S9(09) COMP-3. DTSIMQTR
|
||||||
00208 88 MQTR-ACCT-LATE-PEN-88 VALUE 'LP'. DTSIMQTR
|
00208 DTSIMQTR
|
||||||
00209 88 MQTR-ACCT-NSF-PEN-88 VALUE 'NP'. DTSIMQTR
|
00209 15 MQTR-CHNG-DATE PIC S9(09) COMP-3. DTSIMQTR
|
||||||
00210 88 MQTR-ACCT-MISC-PEN-88 VALUE 'MP'. DTSIMQTR
|
00210 DTSIMQTR
|
||||||
00211 88 MQTR-ACCT-TAX-88 VALUE DTSIMQTR
|
00211 DTSIMQTR
|
||||||
00212 'UI' 'SU'. DTSIMQTR
|
00212 15 MQTR-ACCT-CNT PIC S9(04) COMP. DTSIMQTR
|
||||||
00213 DTSIMQTR
|
00213 DTSIMQTR
|
||||||
00214 25 MQTR-CHARGED-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR
|
00214 15 MQTR-ACCT-AREA. DTSIMQTR
|
||||||
00215 25 MQTR-PAID-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR
|
00215 20 MQTR-ACCT-GROUP OCCURS 10 TIMES DTSIMQTR
|
||||||
00216 25 MQTR-WAIVED-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR
|
00216 INDEXED BY MQTR-ACCT-IDX. DTSIMQTR
|
||||||
00217 25 MQTR-WRITTEN-OFF-AMT DTSIMQTR
|
00217 25 MQTR-ACCT-IND PIC X(02). DTSIMQTR
|
||||||
00218 PIC S9(09)V9(02) COMP-3.DTSIMQTR
|
00218 88 MQTR-ACCT-UI-88 VALUE 'UI'. DTSIMQTR
|
||||||
00219 25 MQTR-TOLER-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR
|
00219 88 MQTR-ACCT-SUR-88 VALUE 'SU'. DTSIMQTR
|
||||||
00220 25 MQTR-BALANCE-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR
|
00220 88 MQTR-ACCT-INT-88 VALUE 'I '. DTSIMQTR
|
||||||
|
00221 88 MQTR-ACCT-LATE-PEN-88 VALUE 'LP'. DTSIMQTR
|
||||||
|
00222 88 MQTR-ACCT-NSF-PEN-88 VALUE 'NP'. DTSIMQTR
|
||||||
|
00223 88 MQTR-ACCT-MISC-PEN-88 VALUE 'MP'. DTSIMQTR
|
||||||
|
00224 88 MQTR-ACCT-TAX-88 VALUE DTSIMQTR
|
||||||
|
00225 'UI' 'SU'. DTSIMQTR
|
||||||
|
00226 DTSIMQTR
|
||||||
|
00227 25 MQTR-CHARGED-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR
|
||||||
|
00228 25 MQTR-PAID-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR
|
||||||
|
00229 25 MQTR-WAIVED-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR
|
||||||
|
00230 25 MQTR-WRITTEN-OFF-AMT DTSIMQTR
|
||||||
|
00231 PIC S9(09)V9(02) COMP-3.DTSIMQTR
|
||||||
|
00232 25 MQTR-TOLER-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR
|
||||||
|
00233 25 MQTR-BALANCE-AMT PIC S9(09)V9(02) COMP-3.DTSIMQTR
|
||||||
|
|||||||
@ -10,8 +10,8 @@
|
|||||||
00010 * CL**2
|
00010 * CL**2
|
||||||
00011 ***** DTSIP007
|
00011 ***** DTSIP007
|
||||||
00012 CL**2
|
00012 CL**2
|
||||||
00013 S7000-IO-DATA-TO-WRK-DATA. DTSIP007
|
00013 S7000-IO-DATA-TO-WRK-DATA.
|
||||||
DISPLAY 'MIO-COMPRESSION-IND:' MIO-COMPRESSION-IND. DTSIP007
|
*** SET MIO-COMPRESS-NO-88 TO TRUE. DTSIP007
|
||||||
00014 IF MIO-COMPRESS-NO-88 DTSIP007
|
00014 IF MIO-COMPRESS-NO-88 DTSIP007
|
||||||
00015 PERFORM S7100-EXPAND-NO THRU S7100-EXIT DTSIP007
|
00015 PERFORM S7100-EXPAND-NO THRU S7100-EXIT DTSIP007
|
||||||
00016 ELSE DTSIP007
|
00016 ELSE DTSIP007
|
||||||
|
|||||||
@ -1,34 +1,34 @@
|
|||||||
00001 ***** 03/20/99
|
00001 ***** 05/03/13
|
||||||
00002 * DTSIR316
|
00002 * DTSIR316
|
||||||
00003 * DTSIR316 ESTIMATED REPORT PROCESSED LETTER TO EMPLOYER LV008
|
00003 * DTSIR316 ESTIMATED REPORT PROCESSED LETTER TO EMPLOYER LV002
|
||||||
00004 * REPORT RECORDS. CL**6
|
00004 * REPORT RECORDS. DTSIR316
|
||||||
00005 * CL**6
|
00005 * DTSIR316
|
||||||
00006 * CL**2
|
00006 * DTSIR316
|
||||||
00007 * 12/18/1998 CREATED FOR DC. EHH. CL**5
|
00007 * 12/18/1998 CREATED FOR DC. EHH. DTSIR316
|
||||||
00008 * CL**2
|
00008 * DTSIR316
|
||||||
00009 ***** DTSIR316
|
00009 ***** DTSIR316
|
||||||
00010 CL**2
|
00010 DTSIR316
|
||||||
00011 10 R316-LENGTH PIC S9(04) COMP. CL**5
|
00011 10 R316-LENGTH PIC S9(04) COMP. DTSIR316
|
||||||
00012 CL**2
|
00012 DTSIR316
|
||||||
00013 10 R316-SORT-AREA. CL**5
|
00013 10 R316-SORT-AREA. DTSIR316
|
||||||
00014 15 R316-REC-TYPE PIC X(03). CL**7
|
00014 15 R316-REC-TYPE PIC X(03). DTSIR316
|
||||||
00015 15 R316-EMP-NO PIC S9(07) COMP-3. CL**5
|
00015 15 R316-EMP-NO PIC S9(07) COMP-3. DTSIR316
|
||||||
00016 15 R316-YRQ PIC S9(05) COMP-3. CL**5
|
00016 15 R316-YRQ PIC S9(05) COMP-3. DTSIR316
|
||||||
00017 CL**2
|
00017 DTSIR316
|
||||||
00018 10 R316-DATA-AREA. CL**5
|
00018 10 R316-DATA-AREA. DTSIR316
|
||||||
00019 15 R316-EMP-CLASS PIC X(01). CL**8
|
00019 15 R316-EMP-FILING PIC X(01). CL**2
|
||||||
00020 88 R316-CLASS-RATED-88 VALUE 'R'. CL**8
|
00020 88 R316-QTR-FILING-88 VALUE 'Q'. CL**2
|
||||||
00021 88 R316-CLASS-SELF-INS-88 VALUE 'S'. CL**8
|
00021 88 R316-ANN-FILING-88 VALUE 'A'. CL**2
|
||||||
00022 15 R316-MAIL-DATE PIC S9(09) COMP-3. CL**5
|
00022 15 R316-MAIL-DATE PIC S9(09) COMP-3. DTSIR316
|
||||||
00023 15 R316-UI-TAX-CHARGED-AMT PIC S9(09)V9(02) COMP-3. CL**8
|
00023 15 R316-UI-TAX-CHARGED-AMT PIC S9(09)V9(02) COMP-3.DTSIR316
|
||||||
00024 15 R316-SUR-TAX-CHARGED-AMT CL**8
|
00024 15 R316-SUR-TAX-CHARGED-AMT DTSIR316
|
||||||
00025 PIC S9(09)V9(02) COMP-3. CL**8
|
00025 PIC S9(09)V9(02) COMP-3.DTSIR316
|
||||||
00026 15 R316-PEN-CHARGED-AMT PIC S9(09)V9(02) COMP-3. CL**8
|
00026 15 R316-PEN-CHARGED-AMT PIC S9(09)V9(02) COMP-3.DTSIR316
|
||||||
00027 15 R316-INT-CHARGED-AMT PIC S9(09)V9(02) COMP-3. CL**8
|
00027 15 R316-INT-CHARGED-AMT PIC S9(09)V9(02) COMP-3.DTSIR316
|
||||||
00028 15 R316-INT-COMP-DATE PIC S9(09) COMP-3. CL**8
|
00028 15 R316-INT-COMP-DATE PIC S9(09) COMP-3.DTSIR316
|
||||||
00029 15 R316-FMT-ADDR. CL**5
|
00029 15 R316-FMT-ADDR. DTSIR316
|
||||||
00030 20 R316-FMT-LINE OCCURS 5 TIMES CL**5
|
00030 20 R316-FMT-LINE OCCURS 5 TIMES DTSIR316
|
||||||
00031 INDEXED BY R316-FMT-IDX CL**5
|
00031 INDEXED BY R316-FMT-IDX DTSIR316
|
||||||
00032 PIC X(40). DTSIR316
|
00032 PIC X(40). DTSIR316
|
||||||
00033 15 R316-ZIP PIC X(10). CL**5
|
00033 15 R316-ZIP PIC X(10). DTSIR316
|
||||||
00034 15 R316-ADVANCED-BARCODE PIC X(14). CL**5
|
00034 15 R316-ADVANCED-BARCODE PIC X(14). DTSIR316
|
||||||
|
|||||||
@ -17,7 +17,8 @@
|
|||||||
00017 10 T001-LENGTH PIC S9(04) COMP. DTSIT001
|
00017 10 T001-LENGTH PIC S9(04) COMP. DTSIT001
|
||||||
00018 DTSIT001
|
00018 DTSIT001
|
||||||
00019 10 T001-COMMON-AREA. DTSIT001
|
00019 10 T001-COMMON-AREA. DTSIT001
|
||||||
00020 15 T001-REC-TYPE PIC X(03) VALUE '001'. DTSIT001
|
00020 * 15 T001-REC-TYPE PIC X(03) VALUE '001'. DTSIT001
|
||||||
|
RCODE 15 T001-REC-TYPE PIC X(03). DTSIT001
|
||||||
00021 15 T001-EMP-NO PIC S9(07) COMP-3. DTSIT001
|
00021 15 T001-EMP-NO PIC S9(07) COMP-3. DTSIT001
|
||||||
00022 15 T001-ORIGIN PIC X(10). DTSIT001
|
00022 15 T001-ORIGIN PIC X(10). DTSIT001
|
||||||
00023 15 FILLER REDEFINES T001-ORIGIN. DTSIT001
|
00023 15 FILLER REDEFINES T001-ORIGIN. DTSIT001
|
||||||
|
|||||||
@ -30,7 +30,8 @@
|
|||||||
00030 88 T002-LENGTH-RATE-88 VALUE +36. DTSIT002
|
00030 88 T002-LENGTH-RATE-88 VALUE +36. DTSIT002
|
||||||
00031 DTSIT002
|
00031 DTSIT002
|
||||||
00032 10 T002-COMMON-AREA. DTSIT002
|
00032 10 T002-COMMON-AREA. DTSIT002
|
||||||
00033 15 T002-REC-TYPE PIC X(03) VALUE '002'. DTSIT002
|
00033 * 15 T002-REC-TYPE PIC X(03) VALUE '002'. DTSIT002
|
||||||
|
RCODE 15 T002-REC-TYPE PIC X(03). DTSIT002
|
||||||
00034 15 T002-EMP-NO PIC S9(07) COMP-3. DTSIT002
|
00034 15 T002-EMP-NO PIC S9(07) COMP-3. DTSIT002
|
||||||
00035 15 T002-ORIGIN PIC X(10). DTSIT002
|
00035 15 T002-ORIGIN PIC X(10). DTSIT002
|
||||||
00036 15 FILLER REDEFINES T002-ORIGIN. DTSIT002
|
00036 15 FILLER REDEFINES T002-ORIGIN. DTSIT002
|
||||||
|
|||||||
@ -14,7 +14,8 @@
|
|||||||
00014 10 T003-LENGTH PIC S9(04) COMP. DTSIT003
|
00014 10 T003-LENGTH PIC S9(04) COMP. DTSIT003
|
||||||
00015 DTSIT003
|
00015 DTSIT003
|
||||||
00016 10 T003-COMMON-AREA. DTSIT003
|
00016 10 T003-COMMON-AREA. DTSIT003
|
||||||
00017 15 T003-REC-TYPE PIC X(03) VALUE '003'. DTSIT003
|
00017 * 15 T003-REC-TYPE PIC X(03) VALUE '003'. DTSIT003
|
||||||
|
00017 15 T003-REC-TYPE PIC X(03). DTSIT003
|
||||||
00018 15 T003-EMP-NO PIC S9(07) COMP-3. DTSIT003
|
00018 15 T003-EMP-NO PIC S9(07) COMP-3. DTSIT003
|
||||||
00019 15 T003-ORIGIN PIC X(10). DTSIT003
|
00019 15 T003-ORIGIN PIC X(10). DTSIT003
|
||||||
00020 15 FILLER REDEFINES T003-ORIGIN. DTSIT003
|
00020 15 FILLER REDEFINES T003-ORIGIN. DTSIT003
|
||||||
|
|||||||
@ -17,7 +17,8 @@
|
|||||||
00017 10 T011-LENGTH PIC S9(04) COMP. DTSIT011
|
00017 10 T011-LENGTH PIC S9(04) COMP. DTSIT011
|
||||||
00018 DTSIT011
|
00018 DTSIT011
|
||||||
00019 10 T011-COMMON-AREA. DTSIT011
|
00019 10 T011-COMMON-AREA. DTSIT011
|
||||||
00020 15 T011-REC-TYPE PIC X(03) VALUE '011'. DTSIT011
|
00020 * 15 T011-REC-TYPE PIC X(03) VALUE '011'. DTSIT011
|
||||||
|
RCODE 15 T011-REC-TYPE PIC X(03). DTSIT011
|
||||||
00021 15 T011-EMP-NO PIC S9(07) COMP-3. DTSIT011
|
00021 15 T011-EMP-NO PIC S9(07) COMP-3. DTSIT011
|
||||||
00022 15 T011-ORIGIN PIC X(10). DTSIT011
|
00022 15 T011-ORIGIN PIC X(10). DTSIT011
|
||||||
00023 15 FILLER REDEFINES T011-ORIGIN. DTSIT011
|
00023 15 FILLER REDEFINES T011-ORIGIN. DTSIT011
|
||||||
|
|||||||
@ -10,7 +10,8 @@
|
|||||||
00010 10 T016-LENGTH PIC S9(04) COMP. CL**3
|
00010 10 T016-LENGTH PIC S9(04) COMP. CL**3
|
||||||
00011 CL**3
|
00011 CL**3
|
||||||
00012 10 T016-COMMON-AREA. DTSIT016
|
00012 10 T016-COMMON-AREA. DTSIT016
|
||||||
00013 15 T016-REC-TYPE PIC X(03) VALUE '016'. DTSIT016
|
00013 * 15 T016-REC-TYPE PIC X(03) VALUE '016'. DTSIT016
|
||||||
|
RCODE 15 T016-REC-TYPE PIC X(03). DTSIT016
|
||||||
00014 15 T016-EMP-NO PIC S9(07) COMP-3. DTSIT016
|
00014 15 T016-EMP-NO PIC S9(07) COMP-3. DTSIT016
|
||||||
00015 15 T016-ORIGIN PIC X(10). DTSIT016
|
00015 15 T016-ORIGIN PIC X(10). DTSIT016
|
||||||
00016 15 FILLER REDEFINES T016-ORIGIN. DTSIT016
|
00016 15 FILLER REDEFINES T016-ORIGIN. DTSIT016
|
||||||
|
|||||||
@ -10,7 +10,8 @@
|
|||||||
00010 10 T021-LENGTH PIC S9(04) COMP. CL**2
|
00010 10 T021-LENGTH PIC S9(04) COMP. CL**2
|
||||||
00011 CL**2
|
00011 CL**2
|
||||||
00012 10 T021-COMMON-AREA. DTSIT021
|
00012 10 T021-COMMON-AREA. DTSIT021
|
||||||
00013 15 T021-REC-TYPE PIC X(03) VALUE '021'. DTSIT021
|
00013 * 15 T021-REC-TYPE PIC X(03) VALUE '021'. DTSIT021
|
||||||
|
RCODE 15 T021-REC-TYPE PIC X(03). DTSIT021
|
||||||
00014 15 T021-EMP-NO PIC S9(07) COMP-3. DTSIT021
|
00014 15 T021-EMP-NO PIC S9(07) COMP-3. DTSIT021
|
||||||
00015 15 T021-ORIGIN PIC X(10). DTSIT021
|
00015 15 T021-ORIGIN PIC X(10). DTSIT021
|
||||||
00016 15 FILLER REDEFINES T021-ORIGIN. DTSIT021
|
00016 15 FILLER REDEFINES T021-ORIGIN. DTSIT021
|
||||||
|
|||||||
@ -15,7 +15,8 @@
|
|||||||
00015 10 T025-LENGTH PIC S9(04) COMP. DTSIT025
|
00015 10 T025-LENGTH PIC S9(04) COMP. DTSIT025
|
||||||
00016 DTSIT025
|
00016 DTSIT025
|
||||||
00017 10 T025-COMMON-AREA. DTSIT025
|
00017 10 T025-COMMON-AREA. DTSIT025
|
||||||
00018 15 T025-REC-TYPE PIC X(03) VALUE '025'. DTSIT025
|
00018 * 15 T025-REC-TYPE PIC X(03) VALUE '025'. DTSIT025
|
||||||
|
RCODE 15 T025-REC-TYPE PIC X(03). DTSIT025
|
||||||
00019 15 T025-EMP-NO PIC S9(07) COMP-3. DTSIT025
|
00019 15 T025-EMP-NO PIC S9(07) COMP-3. DTSIT025
|
||||||
00020 15 T025-ORIGIN PIC X(10). DTSIT025
|
00020 15 T025-ORIGIN PIC X(10). DTSIT025
|
||||||
00021 15 FILLER REDEFINES T025-ORIGIN. DTSIT025
|
00021 15 FILLER REDEFINES T025-ORIGIN. DTSIT025
|
||||||
|
|||||||
@ -13,7 +13,8 @@
|
|||||||
00013 10 T026-LENGTH PIC S9(04) COMP VALUE +128. DTSIT026
|
00013 10 T026-LENGTH PIC S9(04) COMP VALUE +128. DTSIT026
|
||||||
00014 DTSIT026
|
00014 DTSIT026
|
||||||
00015 10 T026-COMMON-AREA. DTSIT026
|
00015 10 T026-COMMON-AREA. DTSIT026
|
||||||
00016 15 T026-REC-TYPE PIC X(03) VALUE '026'. DTSIT026
|
00016 * 15 T026-REC-TYPE PIC X(03) VALUE '026'. DTSIT026
|
||||||
|
RCODE 15 T026-REC-TYPE PIC X(03). DTSIT026
|
||||||
00017 15 T026-EMP-NO PIC S9(07) COMP-3. DTSIT026
|
00017 15 T026-EMP-NO PIC S9(07) COMP-3. DTSIT026
|
||||||
00018 15 T026-ORIGIN PIC X(10). DTSIT026
|
00018 15 T026-ORIGIN PIC X(10). DTSIT026
|
||||||
00019 15 FILLER REDEFINES T026-ORIGIN. DTSIT026
|
00019 15 FILLER REDEFINES T026-ORIGIN. DTSIT026
|
||||||
|
|||||||
@ -13,7 +13,8 @@
|
|||||||
00013 10 T027-LENGTH PIC S9(04) COMP. DTSIT027
|
00013 10 T027-LENGTH PIC S9(04) COMP. DTSIT027
|
||||||
00014 DTSIT027
|
00014 DTSIT027
|
||||||
00015 10 T027-COMMON-AREA. DTSIT027
|
00015 10 T027-COMMON-AREA. DTSIT027
|
||||||
00016 15 T027-REC-TYPE PIC X(03) VALUE '027'. DTSIT027
|
00016 * 15 T027-REC-TYPE PIC X(03) VALUE '027'. DTSIT027
|
||||||
|
RCODE 15 T027-REC-TYPE PIC X(03). DTSIT027
|
||||||
00017 15 T027-EMP-NO PIC S9(07) COMP-3. DTSIT027
|
00017 15 T027-EMP-NO PIC S9(07) COMP-3. DTSIT027
|
||||||
00018 15 T027-ORIGIN PIC X(10). DTSIT027
|
00018 15 T027-ORIGIN PIC X(10). DTSIT027
|
||||||
00019 15 FILLER REDEFINES T027-ORIGIN. DTSIT027
|
00019 15 FILLER REDEFINES T027-ORIGIN. DTSIT027
|
||||||
|
|||||||
@ -16,7 +16,8 @@
|
|||||||
00016 10 T028-LENGTH PIC S9(04) COMP. DTSIT028
|
00016 10 T028-LENGTH PIC S9(04) COMP. DTSIT028
|
||||||
00017 DTSIT028
|
00017 DTSIT028
|
||||||
00018 10 T028-KEY-AREA. DTSIT028
|
00018 10 T028-KEY-AREA. DTSIT028
|
||||||
00019 15 T028-REC-TYPE PIC X(03) VALUE '028'. DTSIT028
|
00019 * 15 T028-REC-TYPE PIC X(03) VALUE '028'. DTSIT028
|
||||||
|
RCODE 15 T028-REC-TYPE PIC X(03). DTSIT028
|
||||||
00020 15 T028-TRN-TYPE PIC X(01). DTSIT028
|
00020 15 T028-TRN-TYPE PIC X(01). DTSIT028
|
||||||
00021 88 T028-ICESA-88 VALUE '1'. DTSIT028
|
00021 88 T028-ICESA-88 VALUE '1'. DTSIT028
|
||||||
00022 88 T028-PAPER-RPT-88 VALUE '2'. DTSIT028
|
00022 88 T028-PAPER-RPT-88 VALUE '2'. DTSIT028
|
||||||
|
|||||||
@ -15,7 +15,8 @@
|
|||||||
00015 10 T031-LENGTH PIC S9(04) COMP. DTSIT031
|
00015 10 T031-LENGTH PIC S9(04) COMP. DTSIT031
|
||||||
00016 DTSIT031
|
00016 DTSIT031
|
||||||
00017 10 T031-COMMON-AREA. DTSIT031
|
00017 10 T031-COMMON-AREA. DTSIT031
|
||||||
00018 15 T031-REC-TYPE PIC X(03) VALUE '031'. DTSIT031
|
00018 * 15 T031-REC-TYPE PIC X(03) VALUE '031'. DTSIT031
|
||||||
|
RCODE 15 T031-REC-TYPE PIC X(03). DTSIT031
|
||||||
00019 15 T031-EMP-NO PIC S9(07) COMP-3. DTSIT031
|
00019 15 T031-EMP-NO PIC S9(07) COMP-3. DTSIT031
|
||||||
00020 15 T031-ORIGIN PIC X(10). DTSIT031
|
00020 15 T031-ORIGIN PIC X(10). DTSIT031
|
||||||
00021 15 FILLER REDEFINES T031-ORIGIN. DTSIT031
|
00021 15 FILLER REDEFINES T031-ORIGIN. DTSIT031
|
||||||
|
|||||||
@ -11,7 +11,8 @@
|
|||||||
00011 10 T036-LENGTH PIC S9(04) COMP. CL**2
|
00011 10 T036-LENGTH PIC S9(04) COMP. CL**2
|
||||||
00012 CL**2
|
00012 CL**2
|
||||||
00013 10 T036-COMMON-AREA. DTSIT036
|
00013 10 T036-COMMON-AREA. DTSIT036
|
||||||
00014 15 T036-REC-TYPE PIC X(03) VALUE '036'. DTSIT036
|
00014 * 15 T036-REC-TYPE PIC X(03) VALUE '036'. DTSIT036
|
||||||
|
RCODE 15 T036-REC-TYPE PIC X(03). DTSIT036
|
||||||
00015 15 T036-EMP-NO PIC S9(07) COMP-3. DTSIT036
|
00015 15 T036-EMP-NO PIC S9(07) COMP-3. DTSIT036
|
||||||
00016 15 T036-ORIGIN PIC X(10). DTSIT036
|
00016 15 T036-ORIGIN PIC X(10). DTSIT036
|
||||||
00017 15 FILLER REDEFINES T036-ORIGIN. DTSIT036
|
00017 15 FILLER REDEFINES T036-ORIGIN. DTSIT036
|
||||||
|
|||||||
@ -12,7 +12,8 @@
|
|||||||
00012 10 T040-LENGTH PIC S9(04) COMP. DTSIT040
|
00012 10 T040-LENGTH PIC S9(04) COMP. DTSIT040
|
||||||
00013 DTSIT040
|
00013 DTSIT040
|
||||||
00014 10 T040-COMMON-AREA. DTSIT040
|
00014 10 T040-COMMON-AREA. DTSIT040
|
||||||
00015 15 T040-REC-TYPE PIC X(03) VALUE '040'. DTSIT040
|
00015 * 15 T040-REC-TYPE PIC X(03) VALUE '040'. DTSIT040
|
||||||
|
RCODE 15 T040-REC-TYPE PIC X(03). DTSIT040
|
||||||
00016 15 T040-EMP-NO PIC S9(07) COMP-3. DTSIT040
|
00016 15 T040-EMP-NO PIC S9(07) COMP-3. DTSIT040
|
||||||
00017 15 T040-ORIGIN PIC X(10). DTSIT040
|
00017 15 T040-ORIGIN PIC X(10). DTSIT040
|
||||||
00018 15 FILLER REDEFINES T040-ORIGIN. DTSIT040
|
00018 15 FILLER REDEFINES T040-ORIGIN. DTSIT040
|
||||||
|
|||||||
@ -10,7 +10,8 @@
|
|||||||
00010 10 T051-LENGTH PIC S9(04) COMP. CL**2
|
00010 10 T051-LENGTH PIC S9(04) COMP. CL**2
|
||||||
00011 CL**2
|
00011 CL**2
|
||||||
00012 10 T051-COMMON-AREA. DTSIT051
|
00012 10 T051-COMMON-AREA. DTSIT051
|
||||||
00013 15 T051-REC-TYPE PIC X(03) VALUE '051'. DTSIT051
|
00013 * 15 T051-REC-TYPE PIC X(03) VALUE '051'. DTSIT051
|
||||||
|
RCODE 15 T051-REC-TYPE PIC X(03). DTSIT051
|
||||||
00014 15 T051-EMP-NO PIC S9(07) COMP-3. DTSIT051
|
00014 15 T051-EMP-NO PIC S9(07) COMP-3. DTSIT051
|
||||||
00015 15 T051-ORIGIN PIC X(10). DTSIT051
|
00015 15 T051-ORIGIN PIC X(10). DTSIT051
|
||||||
00016 88 T051-ORIGIN-TRANSFER-88 VALUE 'TRANSFER'. CL**3
|
00016 88 T051-ORIGIN-TRANSFER-88 VALUE 'TRANSFER'. CL**3
|
||||||
|
|||||||
@ -9,9 +9,9 @@
|
|||||||
00009 * 02/18/2002 INITIAL DEVELOPMENT. GD DTSIWWGH
|
00009 * 02/18/2002 INITIAL DEVELOPMENT. GD DTSIWWGH
|
||||||
00010 * 03/18/2004 MODIFIED FOR NEW WAGE PROCESS. GD DTSIWWGH
|
00010 * 03/18/2004 MODIFIED FOR NEW WAGE PROCESS. GD DTSIWWGH
|
||||||
00011 * 02/27/2024 MODIFIED FOR UIBS WAGE PROCESSING ZL CL**3
|
00011 * 02/27/2024 MODIFIED FOR UIBS WAGE PROCESSING ZL CL**3
|
||||||
00012 * DTSIWWGH
|
00012 * TAXWGH FILE CHANGE ONLY TO 23 BYTES DTSIWWGH
|
||||||
00013 * KEY = 12 LENGTH = 23 CL**2
|
00013 * KEY = 12 LENGTH = 23 (TAXWGH ONLY) CL**2
|
||||||
00014 * DTSIWWGH
|
00014 * WGH FILE STAYED AT 18 BYTES DTSIWWGH
|
||||||
00015 ***** DTSIWWGH
|
00015 ***** DTSIWWGH
|
||||||
00016 DTSIWWGH
|
00016 DTSIWWGH
|
||||||
00017 10 WWGH-KEY-AREA. DTSIWWGH
|
00017 10 WWGH-KEY-AREA. DTSIWWGH
|
||||||
@ -21,4 +21,4 @@
|
|||||||
00021 DTSIWWGH
|
00021 DTSIWWGH
|
||||||
00022 10 WWGH-DATA-AREA. DTSIWWGH
|
00022 10 WWGH-DATA-AREA. DTSIWWGH
|
||||||
00023 15 WWGH-EARNINGS PIC S9(09)V9(02) COMP-3. DTSIWWGH
|
00023 15 WWGH-EARNINGS PIC S9(09)V9(02) COMP-3. DTSIWWGH
|
||||||
00024 * 15 WWGH-CHNG-DATE PIC S9(09) COMP-3. CL**2
|
00024* 15 WWGH-CHNG-DATE PIC S9(09) COMP-3. CL**2
|
||||||
|
|||||||
132
Copybook/DTSNH104 (2).cpy
Normal file
132
Copybook/DTSNH104 (2).cpy
Normal file
@ -0,0 +1,132 @@
|
|||||||
|
00001 ***** 01/11/19
|
||||||
|
00002 * DTSNH104
|
||||||
|
00003 * DTSIX104 EMPLOYER DETERMINATION EXTRACT RECORD LV016
|
||||||
|
00004 * DTSNH104
|
||||||
|
00005 * EXCHANGES EMPLOYER DETERMINATION INFORMATION BETWEEN THE DTSNH104
|
||||||
|
00006 * MAINFRAME AND SQL SERVER DATABASE. DTSNH104
|
||||||
|
00007 * DTSNH104
|
||||||
|
00008 * DTSNH104
|
||||||
|
00009 ***** DTSNH104
|
||||||
|
00010 DTSNH104
|
||||||
|
00011 15 X104-REC-TYPE PIC X(03) VALUE '104'. DTSNH104
|
||||||
|
00012 15 FILLER PIC X(01) VALUE ','. DTSNH104
|
||||||
|
00013 15 X104-EMP-NO PIC 9(06). DTSNH104
|
||||||
|
00014 15 FILLER PIC X(01) VALUE ','. DTSNH104
|
||||||
|
00015 15 X104-STAFF-REVIEW-IND PIC X(01). DTSNH104
|
||||||
|
00016 88 X104-STAFF-REVIEW-YES-88 VALUE 'Y'. CL**3
|
||||||
|
00017 88 X104-STAFF-REVIEW-NO-88 VALUE 'N'. CL**3
|
||||||
|
00018 15 FILLER PIC X(01) VALUE ','. DTSNH104
|
||||||
|
00019 15 X104-LIAB-CD PIC X(02). DTSNH104
|
||||||
|
00020 88 X104-LIAB-NO-DETERM-88 VALUE ' '. DTSNH104
|
||||||
|
00021 88 X104-LIAB-NOT-LIABLE-88 VALUE '00'. DTSNH104
|
||||||
|
00022 88 X104-LIAB-RATED-REG-88 VALUE '01'. DTSNH104
|
||||||
|
00023 88 X104-LIAB-RATED-NON-PROF-88 VALUE '02'. DTSNH104
|
||||||
|
00024 88 X104-LIAB-RATED-DOMESTIC-88 VALUE '04'. DTSNH104
|
||||||
|
00025 88 X104-LIAB-RATED-FOREIGN-88 VALUE '07'. DTSNH104
|
||||||
|
00026 88 X104-LIAB-SELF-INS-CITY-88 VALUE '22'. DTSNH104
|
||||||
|
00027 88 X104-LIAB-SELF-INS-COUNTY-88 VALUE '23'. DTSNH104
|
||||||
|
00028 88 X104-LIAB-SELF-INS-STATE-88 VALUE '24'. DTSNH104
|
||||||
|
00029 88 X104-LIAB-SELF-INS-CHURCH-88 VALUE '25'. DTSNH104
|
||||||
|
00030 88 X104-LIAB-SELF-INS-NON-PROF-88 VALUE '26'. DTSNH104
|
||||||
|
00031 88 X104-LIAB-RATED-88 VALUE DTSNH104
|
||||||
|
00032 '01' '02' '04' '07'. DTSNH104
|
||||||
|
00033 88 X104-LIAB-SELF-INS-88 VALUE DTSNH104
|
||||||
|
00034 '22' '23' '24' '25' '26'. DTSNH104
|
||||||
|
00035 88 X104-LIAB-VALID-88 VALUE DTSNH104
|
||||||
|
00036 '00' '01' '02' '04' '07' '22' '23' '24' '25' '26'. DTSNH104
|
||||||
|
00037 15 FILLER PIC X(01) VALUE ','. DTSNH104
|
||||||
|
00038 15 X104-ELIG-CD PIC X(02). DTSNH104
|
||||||
|
00039 88 X104-ELIG-NO-DETERM-88 VALUE ' '. DTSNH104
|
||||||
|
00040 88 X104-ELIG-RATED-88 VALUE '00'. DTSNH104
|
||||||
|
00041 88 X104-ELIG-UCX-88 VALUE '01'. DTSNH104
|
||||||
|
00042 88 X104-ELIG-UCFE-88 VALUE '02'. DTSNH104
|
||||||
|
00043 88 X104-ELIG-INTERSTATE-88 VALUE '04'. DTSNH104
|
||||||
|
00044 88 X104-ELIG-VOLUNTARY-QUIT-88 VALUE '05'. CL**8
|
||||||
|
00045 88 X104-ELIG-MISCONDUCT-88 VALUE '06'. CL**8
|
||||||
|
00046 88 X104-ELIG-EB-88 VALUE '07'. CL**8
|
||||||
|
00047 88 X104-ELIG-SELF-INS-88 VALUE '08'. DTSNH104
|
||||||
|
00048 88 X104-ELIG-TRA-88 VALUE '09'. CL**8
|
||||||
|
00049 88 X104-ELIG-DC-GOV-88 VALUE '10'. DTSNH104
|
||||||
|
00050 88 X104-ELIG-NOT-SUBJECT-88 VALUE '13'. DTSNH104
|
||||||
|
00051 88 X104-ELIG-TEUC-88 VALUE '16'. CL**8
|
||||||
|
00052 88 X104-ELIG-VALID-88 VALUE DTSNH104
|
||||||
|
00053 ' ' '00' '01' '02' '04' '05' '06' '07' CL**8
|
||||||
|
00054 '08' '09' '10' '13' '16'. CL**8
|
||||||
|
00055 15 FILLER PIC X(01) VALUE ','. DTSNH104
|
||||||
|
00056 15 X104-NAICS-CD PIC 9(06). DTSNH104
|
||||||
|
00057 15 FILLER PIC X(01) VALUE ','. DTSNH104
|
||||||
|
00058 15 X104-ORG-TYPE PIC X(03). DTSNH104
|
||||||
|
00059 88 X104-ORG-SOLE-PROPRIETOR-88 VALUE 'S '. DTSNH104
|
||||||
|
00060 88 X104-ORG-PARTNERSHIP-88 VALUE 'P '. DTSNH104
|
||||||
|
00061 88 X104-ORG-LTD-LIAB-CO-88 VALUE 'LLC'. DTSNH104
|
||||||
|
00062 88 X104-ORG-LTD-LIAB-PARTN-88 VALUE 'LLP'. DTSNH104
|
||||||
|
00063 88 X104-ORG-CORPORATION-88 VALUE 'C '. DTSNH104
|
||||||
|
00064 88 X104-ORG-J-JOINT-VENT-88 VALUE 'J '. CL**4
|
||||||
|
00065 88 X104-ORG-S-CORPORATION-88 VALUE 'SC '. CL**4
|
||||||
|
00066 88 X104-ORG-TRUST-BANK-88 VALUE 'TB '. CL**5
|
||||||
|
00067 88 X104-ORG-RECEIVERSHIP-88 VALUE 'R '. CL**5
|
||||||
|
00068 88 X104-ORG-TRUST-PENSION-88 VALUE 'TP '. CL*13
|
||||||
|
00069 88 X104-ORG-ASSOCIATION-88 VALUE 'ASS'. CL**5
|
||||||
|
00070 88 X104-ORG-HSEHLD-DMSTIC-88 VALUE 'H '. CL**5
|
||||||
|
00071 88 X104-ORG-NON-PROFIT-88 VALUE 'NP '. DTSNH104
|
||||||
|
00072 88 X104-ORG-OTH-NON-GOV-88 VALUE 'ONG'. DTSNH104
|
||||||
|
00073 88 X104-ORG-UNINC-ASSOC-88 VALUE 'UNA'. CL*14
|
||||||
|
00074 88 X104-ORG-FED-IND-TRIBE-88 VALUE 'FIT'. CL*14
|
||||||
|
00075 88 X104-ORG-OTH-88 VALUE 'OTH'. CL*14
|
||||||
|
00076 88 X104-ORG-STATE-88 VALUE 'ST'. DTSNH104
|
||||||
|
00077 88 X104-ORG-COUNTY-88 VALUE 'CO '. DTSNH104
|
||||||
|
00078 88 X104-ORG-CITY-88 VALUE 'CTY'. DTSNH104
|
||||||
|
00079 88 X104-ORG-SCHOOL-DISTRICT-88 VALUE 'SCH'. DTSNH104
|
||||||
|
00080 88 X104-ORG-FORGN-GOV-88 VALUE 'FG '. DTSNH104
|
||||||
|
00081 88 X104-ORG-OTH-GOV-88 VALUE 'OG '. DTSNH104
|
||||||
|
00082 88 X104-ORG-UNKNOWN-88 VALUE 'UNK'. CL*11
|
||||||
|
00083 88 X104-ORG-TYPE-VALID-88 VALUE DTSNH104
|
||||||
|
00084 'S ', 'P ', 'LLC', 'LLP', 'C ', 'SC ', DTSNH104
|
||||||
|
00085 'H ', 'NP ', 'ONG', 'ST ', 'CO ', 'CTY', DTSNH104
|
||||||
|
00086 'SCH', 'FG ', 'OG ', 'J ', 'TB ', 'R ', CL*13
|
||||||
|
00087 'ASS', 'TP ', 'UNK', 'UNA', 'FIT', 'OTH'. CL*14
|
||||||
|
00088 15 FILLER PIC X(01) VALUE ','. DTSNH104
|
||||||
|
00089 15 X104-INCORP-STATE PIC X(02). DTSNH104
|
||||||
|
00090 15 FILLER PIC X(01) VALUE ','. DTSNH104
|
||||||
|
00091 15 X104-INCORP-DATE PIC X(10). DTSNH104
|
||||||
|
00092 15 FILLER PIC X(01) VALUE ','. DTSNH104
|
||||||
|
00093 15 X104-HOUSEHOLD-FILING PIC X(01). DTSNH104
|
||||||
|
00094 88 X104-HH-ANNUAL-88 VALUE 'A'. DTSNH104
|
||||||
|
00095 88 X104-HH-QUARTERLY-88 VALUE 'Q'. DTSNH104
|
||||||
|
00096 15 FILLER PIC X(01) VALUE ','. DTSNH104
|
||||||
|
00097 15 X104-FIRST-WAGE-DT PIC X(10). DTSNH104
|
||||||
|
00098 15 FILLER PIC X(01) VALUE ','. DTSNH104
|
||||||
|
00099 15 X104-FIRST-500-QTR PIC X(06). DTSNH104
|
||||||
|
00100 15 FILLER PIC X(01) VALUE ','. DTSNH104
|
||||||
|
00101 15 X104-ACQUIRE-IND PIC X(01). DTSNH104
|
||||||
|
00102 88 X104-ACQUIRE-YES-88 VALUE 'Y'. CL**2
|
||||||
|
00103 88 X104-ACQUIRE-NO-88 VALUE 'N'. CL**2
|
||||||
|
00104 15 FILLER PIC X(01) VALUE ','. DTSNH104
|
||||||
|
00105 15 X104-MERGER-SPLIT-IND PIC X(01). DTSNH104
|
||||||
|
00106 88 X104-MERGE-SPLIT-YES-88 VALUE 'Y'. CL**2
|
||||||
|
00107 88 X104-MERGE-SPLIT-NO-88 VALUE 'N'. CL**2
|
||||||
|
00108 15 FILLER PIC X(01) VALUE ','. DTSNH104
|
||||||
|
00109 15 X104-REORG-IND PIC X(01). DTSNH104
|
||||||
|
00110 88 X104-REORG-YES-88 VALUE 'Y'. CL**2
|
||||||
|
00111 88 X104-REORG-NO-88 VALUE 'N'. CL**2
|
||||||
|
00112 15 FILLER PIC X(01) VALUE ','. DTSNH104
|
||||||
|
00113 15 X104-COMMON-OWN-IND PIC X(01). DTSNH104
|
||||||
|
00114 88 X104-COMMON-OWN-YES-88 VALUE 'Y'. CL**2
|
||||||
|
00115 88 X104-COMMON-OWN-NO-88 VALUE 'N'. CL**2
|
||||||
|
00116 15 FILLER PIC X(01) VALUE ','. DTSNH104
|
||||||
|
00117 15 X104-SALE-TRANSFER-IND PIC X(01). DTSNH104
|
||||||
|
00118 88 X104-SALE-TRANSFER-YES-88 VALUE 'Y'. CL**2
|
||||||
|
00119 88 X104-SALE-TRANSFER-NO-88 VALUE 'N'. CL**2
|
||||||
|
00120 15 FILLER PIC X(01) VALUE ','. DTSNH104
|
||||||
|
00121 15 X104-NOT-LIAB-REASON PIC X(01). CL*16
|
||||||
|
00122 88 X104-NOT-LIAB-NULL-88 VALUE '0'. DTSNH104
|
||||||
|
00123 88 X104-NOT-LIAB-BUS-ACT-88 VALUE '1'. DTSNH104
|
||||||
|
00124 88 X104-NOT-LIAB-NO-EMPL-88 VALUE '2'. DTSNH104
|
||||||
|
00125 88 X104-NOT-LIAB-NO-WAGES-88 VALUE '3'. DTSNH104
|
||||||
|
00126 88 X104-NOT-LIAB-LOCALIZE-88 VALUE '4'. DTSNH104
|
||||||
|
00127 88 X104-NOT-LIAB-VALID-88 VALUES DTSNH104
|
||||||
|
00128 '0' '1' '2' '3' '4'. DTSNH104
|
||||||
|
00129 15 FILLER PIC X(01) VALUE ','. CL*12
|
||||||
|
00130 15 X104-INACTIVE-DATE PIC X(10). CL*12
|
||||||
|
00131 15 FILLER PIC X(01) VALUE ','. CL*15
|
||||||
|
00132 15 X104-INACTIVE-CODE PIC X(02). CL*16
|
||||||
62
Copybook/DTSWX120 (2).cpy
Normal file
62
Copybook/DTSWX120 (2).cpy
Normal file
@ -0,0 +1,62 @@
|
|||||||
|
00001 ***** 03/25/15
|
||||||
|
00002 * DTSWX120
|
||||||
|
00003 * DTSWX120 EMPLOYER OWNER/PARNTER-OFFICER EXTRACT RECORD. LV005
|
||||||
|
00004 * DTSWX120
|
||||||
|
00005 * EXCHANGES OWNER/PARTNER/OFFICER DATA BETWEEN MAINFRAME AND DTSWX120
|
||||||
|
00006 * SQL SERVER DATABASE. DTSWX120
|
||||||
|
00007 * DTSWX120
|
||||||
|
00008 * 11-10-14 ESSP IS PASSING COMMAS IN ADDRESS FIELDS, OUR CL**2
|
||||||
|
00009 * DELIMITER IN BX205 IS A COMMA FIELDS ARE BEING CL**2
|
||||||
|
00010 * CUTOFF, TO FIX PROBLEM DO NOT CALL BX205 FOR CL**2
|
||||||
|
00011 * ADDRESSES. MODIFIED W120 RECORD TO PASS ONLY CL**4
|
||||||
|
00012 * SIZE NEEDED FROM ESSP TO X120 ZL1 CL**4
|
||||||
|
00013 ***** DTSWX120
|
||||||
|
00014 DTSWX120
|
||||||
|
00015 15 W120-REC-TYPE PIC X(03) VALUE '120'. CL**4
|
||||||
|
00016 15 FILLER PIC X(01) VALUE ','. DTSWX120
|
||||||
|
00017 15 W120-EMP-NO PIC 9(06). CL**4
|
||||||
|
00018 15 FILLER PIC X(01) VALUE ','. DTSWX120
|
||||||
|
00019 15 W120-TYPE-IND PIC X(02). CL**4
|
||||||
|
00020 88 W120-TYPE-OPO-88 VALUE '00'. CL**4
|
||||||
|
00021 88 W120-TYPE-RPT-BSNS-88 VALUE '03'. CL**4
|
||||||
|
00022 88 W120-TYPE-RPT-TECH-88 VALUE '04'. CL**4
|
||||||
|
00023 88 W120-TYPE-FR500-88 VALUE '05'. CL**4
|
||||||
|
00024 88 W120-TYPE-CHARGE-88 VALUE '06'. CL**4
|
||||||
|
00025 88 W120-TYPE-BENEFITS-88 VALUE '07'. CL**4
|
||||||
|
00026 88 W120-TYPE-STATUS-88 VALUE '08'. CL**4
|
||||||
|
00027 15 FILLER PIC X(01) VALUE ','. DTSWX120
|
||||||
|
00028 15 W120-OPO-ESSP-FNAME. CL**4
|
||||||
|
00029 25 W120-OPO-FIRST-NAME PIC X(20). CL**4
|
||||||
|
00030 25 W120-OPO-FIRST-FILLER PIC X(20). CL**4
|
||||||
|
00031 15 FILLER PIC X(01) VALUE ','. DTSWX120
|
||||||
|
00032 15 W120-OPO-MID-INIT PIC X(01). CL**4
|
||||||
|
00033 15 FILLER PIC X(01) VALUE ','. DTSWX120
|
||||||
|
00034 15 W120-OPO-ESSP-LNAME. CL**4
|
||||||
|
00035 25 W120-OPO-LAST-NAME PIC X(20). CL**4
|
||||||
|
00036 25 W120-OPO-LAST-FILLER PIC X(20). CL**4
|
||||||
|
00037 15 FILLER PIC X(01) VALUE ','. DTSWX120
|
||||||
|
00038 15 W120-OPO-MEMBER-NAME PIC X(40). CL**4
|
||||||
|
00039 15 FILLER PIC X(01) VALUE ','. DTSWX120
|
||||||
|
00040 15 W120-OPO-SSN PIC X(09). CL**4
|
||||||
|
00041 15 FILLER PIC X(01) VALUE ','. DTSWX120
|
||||||
|
00042 15 W120-OPO-TITLE PIC X(40). CL**4
|
||||||
|
00043 15 FILLER PIC X(01) VALUE ','. DTSWX120
|
||||||
|
00044 15 W120-OPO-ATTENTION PIC X(40). CL**4
|
||||||
|
00045 15 FILLER PIC X(01) VALUE ','. DTSWX120
|
||||||
|
00046 15 W120-OPO-STREET-1 PIC X(40). CL**4
|
||||||
|
00047 15 FILLER PIC X(01) VALUE ','. DTSWX120
|
||||||
|
00048 15 W120-OPO-STREET-2 PIC X(40). CL**4
|
||||||
|
00049 15 FILLER PIC X(01) VALUE ','. DTSWX120
|
||||||
|
00050 15 W120-OPO-ESSP-CITY. CL**4
|
||||||
|
00051 25 W120-OPO-CITY PIC X(20). CL**4
|
||||||
|
00052 25 W120-OPO-CITY-FILLER PIC X(05). CL**4
|
||||||
|
00053 15 FILLER PIC X(01) VALUE ','. DTSWX120
|
||||||
|
00054 15 W120-OPO-STATE PIC X(02). CL**4
|
||||||
|
00055 15 FILLER PIC X(01) VALUE ','. DTSWX120
|
||||||
|
00056 15 W120-OPO-ZIP PIC X(10). CL**4
|
||||||
|
00057 15 FILLER PIC X(01) VALUE ','. DTSWX120
|
||||||
|
00058 15 W120-OPO-PHONE PIC X(15). CL**4
|
||||||
|
00059 15 FILLER PIC X(01) VALUE ','. DTSWX120
|
||||||
|
00060 15 W120-OPO-FAX PIC X(16). CL**5
|
||||||
|
00061 15 FILLER PIC X(01) VALUE ','. DTSWX120
|
||||||
|
00062 15 W120-OPO-EMAIL PIC X(40). CL**4
|
||||||
180
Copybook/OJRPE127.cpy
Normal file
180
Copybook/OJRPE127.cpy
Normal file
@ -0,0 +1,180 @@
|
|||||||
|
00001 I1000-EDIT-AND-DEFAULT-PARMS. 06/28/18
|
||||||
|
00002 PERFORM I1110-RESP-OP-ID THRU I1110-EXIT OJRPE127
|
||||||
|
00003 LV009
|
||||||
|
00004 IF WRK-EDIT-PASSED-88 OJRPE127
|
||||||
|
00005 PERFORM I1120-END-YRQ THRU I1120-EXIT OJRPE127
|
||||||
|
00006 END-IF OJRPE127
|
||||||
|
00007 OJRPE127
|
||||||
|
00008 IF WRK-EDIT-PASSED-88 OJRPE127
|
||||||
|
00009 PERFORM I1130-START-YRQ THRU I1130-EXIT OJRPE127
|
||||||
|
00010 END-IF OJRPE127
|
||||||
|
00011 OJRPE127
|
||||||
|
00012 IF WRK-EDIT-PASSED-88 OJRPE127
|
||||||
|
00013 COMPUTE WRK-PARM-NUMBER-QTRS OJRPE127
|
||||||
|
00014 = WRK-PARM-END-ABS-QTR - WRK-PARM-START-ABS-QTR + 1 OJRPE127
|
||||||
|
00015 END-IF OJRPE127
|
||||||
|
00016 CL**3
|
||||||
|
00017 DISPLAY '# QTRS NOT LIABLE THIS RUN ' WRK-PARM-NUMBER-QTRS CL**3
|
||||||
|
00018 CL**3
|
||||||
|
00019 IF WRK-EDIT-PASSED-88 OJRPE127
|
||||||
|
00020 PERFORM I1140-AUTOMATIC-INACT-IND THRU I1140-EXIT OJRPE127
|
||||||
|
00021 END-IF OJRPE127
|
||||||
|
00022 OJRPE127
|
||||||
|
00023 IF WRK-EDIT-PASSED-88 OJRPE127
|
||||||
|
00024 PERFORM I1150-EMP-CLASS THRU I1150-EXIT OJRPE127
|
||||||
|
00025 END-IF. OJRPE127
|
||||||
|
00026 I1000-EXIT. OJRPE127
|
||||||
|
00027 EXIT. OJRPE127
|
||||||
|
00028 SKIP3 OJRPE127
|
||||||
|
00029 OJRPE127
|
||||||
|
00030 I1110-RESP-OP-ID. OJRPE127
|
||||||
|
00031 IF OJR-PARM-RESP-OP-ID = SPACES OJRPE127
|
||||||
|
00032 MOVE 'PARM-RESP-OP-ID MISSING' TO ABEND-MSG OJRPE127
|
||||||
|
00033 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127
|
||||||
|
00034 END-IF OJRPE127
|
||||||
|
00035 OJRPE127
|
||||||
|
00036 IF WRK-EDIT-PASSED-88 OJRPE127
|
||||||
|
00037 MOVE OJR-PARM-RESP-OP-ID TO L082-OP-ID OJRPE127
|
||||||
|
00038 PERFORM S082-LOOKUP-OP-ID THRU S082-EXIT OJRPE127
|
||||||
|
00039 IF L082-NOT-VALID-OP OR L082-INTERNAL-88 OJRPE127
|
||||||
|
00040 MOVE 'OJR-PARM-RESP-OP-ID NOT VALID' OJRPE127
|
||||||
|
00041 TO ABEND-MSG OJRPE127
|
||||||
|
00042 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127
|
||||||
|
00043 END-IF OJRPE127
|
||||||
|
00044 END-IF OJRPE127
|
||||||
|
00045 OJRPE127
|
||||||
|
00046 IF WRK-EDIT-PASSED-88 OJRPE127
|
||||||
|
00047 MOVE OJR-PARM-RESP-OP-ID TO WRK-PARM-RESP-OP-ID OJRPE127
|
||||||
|
00048 END-IF. OJRPE127
|
||||||
|
00049 I1110-EXIT. OJRPE127
|
||||||
|
00050 EXIT. OJRPE127
|
||||||
|
00051 SKIP3 OJRPE127
|
||||||
|
00052 I1120-END-YRQ. OJRPE127
|
||||||
|
00053 IF OJR-PARM-END-YRQ = SPACES OJRPE127
|
||||||
|
00054 MOVE OJR-LAST-UC30-DEL-MAIL-YRQ TO WRK-PARM-END-YRQ OJRPE127
|
||||||
|
00055 ELSE OJRPE127
|
||||||
|
00056 MOVE OJR-PARM-END-YRQ TO L004-QTR-3-X OJRPE127
|
||||||
|
00057 PERFORM S004-FROM-3 THRU S004-EXIT OJRPE127
|
||||||
|
00058 IF L004-VALID-QTR OJRPE127
|
||||||
|
00059 MOVE L004-QTR-5-9 TO WRK-PARM-END-YRQ OJRPE127
|
||||||
|
00060 ELSE OJRPE127
|
||||||
|
00061 MOVE 'PARM-END-YRQ NOT VALID' OJRPE127
|
||||||
|
00062 TO ABEND-MSG OJRPE127
|
||||||
|
00063 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127
|
||||||
|
00064 END-IF OJRPE127
|
||||||
|
00065 END-IF OJRPE127
|
||||||
|
00066 OJRPE127
|
||||||
|
00067 OJRPE127
|
||||||
|
00068 IF WRK-EDIT-PASSED-88 OJRPE127
|
||||||
|
00069 IF WRK-PARM-END-YRQ > OJR-LAST-UC30-DEL-MAIL-YRQ OJRPE127
|
||||||
|
00070 MOVE 'PARM-END-YRQ > LAST-UC30-DEL-MAIL-YRQ' OJRPE127
|
||||||
|
00071 TO ABEND-MSG OJRPE127
|
||||||
|
00072 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127
|
||||||
|
00073 END-IF OJRPE127
|
||||||
|
00074 END-IF OJRPE127
|
||||||
|
00075 OJRPE127
|
||||||
|
00076 OJRPE127
|
||||||
|
00077 IF WRK-EDIT-PASSED-88 OJRPE127
|
||||||
|
00078 MOVE WRK-PARM-END-YRQ TO L004-QTR-5-9 OJRPE127
|
||||||
|
00079 OJRPE127
|
||||||
|
00080 PERFORM S004-FROM-5 THRU S004-EXIT OJRPE127
|
||||||
|
00081 OJRPE127
|
||||||
|
00082 MOVE L004-ABS-QTR TO WRK-PARM-END-ABS-QTR OJRPE127
|
||||||
|
00083 DISPLAY ' WRK END QTR ' WRK-PARM-END-YRQ CL**3
|
||||||
|
00084 MOVE L004-QTR-END-DATE TO WRK-END-YRQ-DATE CL**7
|
||||||
|
00085 END-IF. OJRPE127
|
||||||
|
00086 I1120-EXIT. OJRPE127
|
||||||
|
00087 EXIT. OJRPE127
|
||||||
|
00088 SKIP3 OJRPE127
|
||||||
|
00089 I1130-START-YRQ. OJRPE127
|
||||||
|
00090 IF OJR-PARM-START-YRQ = SPACES OJRPE127
|
||||||
|
00091 MOVE WRK-PARM-END-ABS-QTR TO L004-ABS-QTR OJRPE127
|
||||||
|
00092 SUBTRACT 7 FROM L004-ABS-QTR OJRPE127
|
||||||
|
00093 PERFORM S004-FROM-ABS THRU S004-EXIT OJRPE127
|
||||||
|
00094 MOVE L004-QTR-5-9 TO WRK-PARM-START-YRQ OJRPE127
|
||||||
|
00095 MOVE L004-ABS-QTR TO WRK-PARM-START-ABS-QTR OJRPE127
|
||||||
|
00096 DISPLAY 'WRK START QTR ' WRK-PARM-START-YRQ CL**3
|
||||||
|
00097 MOVE L004-QTR-START-DATE TO WRK-START-YRQ-DATE CL**7
|
||||||
|
00098 ELSE OJRPE127
|
||||||
|
00099 MOVE OJR-PARM-START-YRQ TO L004-QTR-3-X OJRPE127
|
||||||
|
00100 PERFORM S004-FROM-3 THRU S004-EXIT OJRPE127
|
||||||
|
00101 IF L004-VALID-QTR OJRPE127
|
||||||
|
00102 MOVE L004-QTR-5-9 TO WRK-PARM-START-YRQ OJRPE127
|
||||||
|
00103 MOVE L004-ABS-QTR TO WRK-PARM-START-ABS-QTR OJRPE127
|
||||||
|
00104 MOVE L004-QTR-START-DATE TO WRK-START-YRQ-DATE CL**7
|
||||||
|
00105 ELSE OJRPE127
|
||||||
|
00106 MOVE 'PARM-START-YRQ NOT VALID' OJRPE127
|
||||||
|
00107 TO ABEND-MSG OJRPE127
|
||||||
|
00108 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127
|
||||||
|
00109 END-IF OJRPE127
|
||||||
|
00110 END-IF OJRPE127
|
||||||
|
00111 OJRPE127
|
||||||
|
00112 IF WRK-EDIT-PASSED-88 OJRPE127
|
||||||
|
00113 IF WRK-PARM-START-YRQ < OJR-FIRST-PURSUED-RPT-YRQ OJRPE127
|
||||||
|
00114 MOVE 'PARM-START-YRQ < FIRST-PURSUED-RPT-YRQ' OJRPE127
|
||||||
|
00115 TO ABEND-MSG OJRPE127
|
||||||
|
00116 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127
|
||||||
|
00117 END-IF OJRPE127
|
||||||
|
00118 END-IF OJRPE127
|
||||||
|
00119 OJRPE127
|
||||||
|
00120 IF WRK-EDIT-PASSED-88 OJRPE127
|
||||||
|
00121 IF WRK-PARM-START-YRQ > WRK-PARM-END-YRQ OJRPE127
|
||||||
|
00122 MOVE 'PARM-START-YRQ GREATER THAN WRK-PARM-END-YRQ' OJRPE127
|
||||||
|
00123 TO ABEND-MSG OJRPE127
|
||||||
|
00124 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127
|
||||||
|
00125 END-IF OJRPE127
|
||||||
|
00126 END-IF. OJRPE127
|
||||||
|
00127 I1130-EXIT. OJRPE127
|
||||||
|
00128 EXIT. OJRPE127
|
||||||
|
00129 SKIP3 OJRPE127
|
||||||
|
00130 I1140-AUTOMATIC-INACT-IND. OJRPE127
|
||||||
|
00131 IF OJR-PARM-AUTO-INACT-IND = SPACES OR LOW-VALUES OJRPE127
|
||||||
|
00132 SET WRK-PARM-AUTO-INACT-NO-88 TO TRUE OJRPE127
|
||||||
|
00133 GO TO I1140-EXIT OJRPE127
|
||||||
|
00134 END-IF OJRPE127
|
||||||
|
00135 OJRPE127
|
||||||
|
00136 MOVE OJR-PARM-AUTO-INACT-IND TO WRK-PARM-AUTO-INACT-IND OJRPE127
|
||||||
|
00137 OJRPE127
|
||||||
|
00138 IF WRK-PARM-AUTO-INACT-YES-88 OJRPE127
|
||||||
|
00139 OR OJRPE127
|
||||||
|
00140 WRK-PARM-AUTO-INACT-NO-88 OJRPE127
|
||||||
|
00141 CONTINUE OJRPE127
|
||||||
|
00142 ELSE OJRPE127
|
||||||
|
00143 MOVE 'PARM-AUTO-INACT-IND NOT VALID' OJRPE127
|
||||||
|
00144 TO ABEND-MSG OJRPE127
|
||||||
|
00145 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127
|
||||||
|
00146 END-IF OJRPE127
|
||||||
|
00147 OJRPE127
|
||||||
|
00148 IF WRK-EDIT-PASSED-88 OJRPE127
|
||||||
|
00149 IF WRK-PARM-AUTO-INACT-YES-88 OJRPE127
|
||||||
|
00150 * IF WRK-PARM-NUMBER-QTRS = +12 CL**9
|
||||||
|
00151 IF WRK-PARM-NUMBER-QTRS = +08 CL**9
|
||||||
|
00152 CONTINUE OJRPE127
|
||||||
|
00153 ELSE OJRPE127
|
||||||
|
00154 * MOVE 'AUTO INACT = YES, BUT #QTRS NOT =12' CL**9
|
||||||
|
00155 MOVE 'AUTO INACT = YES, BUT #QTRS NOT =08' CL**9
|
||||||
|
00156 TO ABEND-MSG OJRPE127
|
||||||
|
00157 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127
|
||||||
|
00158 END-IF OJRPE127
|
||||||
|
00159 END-IF OJRPE127
|
||||||
|
00160 END-IF. OJRPE127
|
||||||
|
00161 I1140-EXIT. OJRPE127
|
||||||
|
00162 EXIT. OJRPE127
|
||||||
|
00163 SKIP3 OJRPE127
|
||||||
|
00164 OJRPE127
|
||||||
|
00165 I1150-EMP-CLASS. OJRPE127
|
||||||
|
00166 IF OJR-PARM-EMP-CLASS = SPACES OJRPE127
|
||||||
|
00167 SET WRK-PARM-CLASS-ALL-88 TO TRUE OJRPE127
|
||||||
|
00168 GO TO I1150-EXIT OJRPE127
|
||||||
|
00169 END-IF OJRPE127
|
||||||
|
00170 OJRPE127
|
||||||
|
00171 IF OJR-PARM-EMP-CLASS = 'R' OR 'S' OJRPE127
|
||||||
|
00172 MOVE OJR-PARM-EMP-CLASS TO WRK-PARM-EMP-CLASS OJRPE127
|
||||||
|
00173 ELSE OJRPE127
|
||||||
|
00174 MOVE 'PARM-EMP-CLASS NOT VALID' OJRPE127
|
||||||
|
00175 TO ABEND-MSG OJRPE127
|
||||||
|
00176 SET WRK-EDIT-FAILED-88 TO TRUE OJRPE127
|
||||||
|
00177 END-IF. OJRPE127
|
||||||
|
00178 I1150-EXIT. OJRPE127
|
||||||
|
00179 EXIT. OJRPE127
|
||||||
|
00180 EJECT OJRPE127
|
||||||
5
Copybook/WSDATES (2).cpy
Normal file
5
Copybook/WSDATES (2).cpy
Normal file
@ -0,0 +1,5 @@
|
|||||||
|
00001 01 WS-SYSTEM-DATE-TIME. 04/29/04
|
||||||
|
00002 05 WS-SYSTEM-DATE PIC 9(06). WSDATES
|
||||||
|
00003 05 WS-SYSTEM-TIME PIC 9(08). LV001
|
||||||
|
00004 05 WS-SYSTEM-DAY PIC 9(05). WSDATES
|
||||||
|
00005 05 WS-SYSTEM-DOW PIC 9(01). WSDATES
|
||||||
15
JCL/CAUDX144.JCL
Normal file
15
JCL/CAUDX144.JCL
Normal file
@ -0,0 +1,15 @@
|
|||||||
|
//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X
|
||||||
|
//*STEP001 EXEC PGM=IDCAMS
|
||||||
|
//*SYSPRINT DD SYSOUT=*
|
||||||
|
//*SYSIN DD *
|
||||||
|
//*DELETE ECNTSUP.DOESTAX.CONV.AUDIT.X144
|
||||||
|
//*SET MAXCC=0
|
||||||
|
//*
|
||||||
|
//STEP011 EXEC PGM=IEFBR14
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//DD0011 DD DOESTAX.PROD.BTC(+1),
|
||||||
|
// DISP=(NEW,CATLG,CATLG),
|
||||||
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8182),
|
||||||
|
// PATH=('E:\DUTASJOBS\DEFAULTVOLUME\DOESTAX.PROD.BD400.BTC.BACKUP(+0)',
|
||||||
|
// COPY)
|
||||||
@ -5,7 +5,7 @@
|
|||||||
// SET LVLNODE='PROD' 00000599
|
// SET LVLNODE='PROD' 00000599
|
||||||
// SET MSTNODE='PROD' 00000699
|
// SET MSTNODE='PROD' 00000699
|
||||||
// SET PGMNODE='PROD' 00000799
|
// SET PGMNODE='PROD' 00000799
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCLIB 00001399
|
//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCS.BATCH.LIB 00001399
|
||||||
//* 00001400
|
//* 00001400
|
||||||
//LOADLIBS INCLUDE MEMBER=&PGMNODE.JLIB 00001599
|
//LOADLIBS INCLUDE MEMBER=&PGMNODE.JLIB 00001599
|
||||||
//* 00001600
|
//* 00001600
|
||||||
|
|||||||
15
JCL/COPYMISSWAGS.JCL
Normal file
15
JCL/COPYMISSWAGS.JCL
Normal file
@ -0,0 +1,15 @@
|
|||||||
|
//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X
|
||||||
|
//STEP001 EXEC PGM=IDCAMS
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//SYSIN DD *
|
||||||
|
DELETE DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES
|
||||||
|
SET MAXCC=0
|
||||||
|
//*
|
||||||
|
//STEP011 EXEC PGM=IEFBR14
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//DD0011 DD DSN=DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES,
|
||||||
|
// DISP=(NEW,CATLG,CATLG),
|
||||||
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120),
|
||||||
|
// PATH=('E:\flat_files\DOESTAX.CONV.TDEC.ESSP.MISSING.WAGES',
|
||||||
|
// COPY)
|
||||||
15
JCL/COPYX999.JCL
Normal file
15
JCL/COPYX999.JCL
Normal file
@ -0,0 +1,15 @@
|
|||||||
|
//JOBINPUT JOB (INNOVA,DEV,TEAM),MANOJ,CLASS=S,MSGCLASS=X
|
||||||
|
//STEP001 EXEC PGM=IDCAMS
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//SYSIN DD *
|
||||||
|
DELETE ECNTSUP.DOESTAX.CONV.FROMESSP.X999
|
||||||
|
SET MAXCC=0
|
||||||
|
//*
|
||||||
|
//STEP011 EXEC PGM=IEFBR14
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//DD0011 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,
|
||||||
|
// DISP=(NEW,CATLG,CATLG),
|
||||||
|
// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=8000),
|
||||||
|
// PATH=('E:\flat_files\ECNTSUP.DOESTAX.CONV.FROMESSP.X999',
|
||||||
|
// COPY)
|
||||||
10
JCL/CopyFLAT.jcl
Normal file
10
JCL/CopyFLAT.jcl
Normal file
@ -0,0 +1,10 @@
|
|||||||
|
//TEST0200 JOB (INNOVA,DEV,TEAM),NEERAJ,CLASS=S,MSGCLASS=X
|
||||||
|
//* COPY DATA TO VSAM FILE
|
||||||
|
//STEP017 EXEC PGM=IEFBR14
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//DD1001 DD DSN=DOESTAX.PROD.RPT414R1,
|
||||||
|
// DISP=(NEW,CATLG,CATLG),
|
||||||
|
// DCB=(LRECL=134,RECFM=FBA),
|
||||||
|
// PATH=('E:\FLAT_FILES\DOESTAX.PROD.FTP.REFUND.X305PARM',
|
||||||
|
// COPY)
|
||||||
96
JCL/DELESSP.jcl
Normal file
96
JCL/DELESSP.jcl
Normal file
@ -0,0 +1,96 @@
|
|||||||
|
//LOADESSP JOB (UI,4300,03410,P),'DECRYPT/WAGES--TDEC',REGION=4000K,
|
||||||
|
// USER=#DOADTS,
|
||||||
|
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTZL1
|
||||||
|
/*ROUTE PRINT U@PRT65
|
||||||
|
//*STEP001 EXEC PGM=IEFBR14
|
||||||
|
//*SYSPRINT DD SYSOUT=*
|
||||||
|
//*SYSOUT DD SYSOUT=*
|
||||||
|
//*DD0011 DD DOESTAX.PROD.SRTDAILY.RPT(+1),
|
||||||
|
//* DISP=(NEW,CATLG,CATLG),
|
||||||
|
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192),
|
||||||
|
//* PATH=('E:\FLAT_FILES\DOESTAX.PROD.SRTDAILY.RPT.G6519V00',
|
||||||
|
//* COPY)
|
||||||
|
//STEP002 EXEC PGM=IEFBR14
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X102,
|
||||||
|
// DISP=(OLD,DELETE,DELETE)
|
||||||
|
//*
|
||||||
|
//STEP004 EXEC PGM=IEFBR14
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X104,
|
||||||
|
// DISP=(OLD,DELETE,DELETE)
|
||||||
|
//*
|
||||||
|
//STEP006 EXEC PGM=IEFBR14
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106,
|
||||||
|
// DISP=(OLD,DELETE,DELETE)
|
||||||
|
//*
|
||||||
|
//STEP007 EXEC PGM=IEFBR14
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X106UPD,
|
||||||
|
// DISP=(OLD,DELETE,DELETE)
|
||||||
|
//*
|
||||||
|
//STEP010 EXEC PGM=IEFBR14
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X108,
|
||||||
|
// DISP=(OLD,DELETE,DELETE)
|
||||||
|
//*
|
||||||
|
//STEP012 EXEC PGM=IEFBR14
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110,
|
||||||
|
// DISP=(OLD,DELETE,DELETE)
|
||||||
|
//*
|
||||||
|
//STEP014 EXEC PGM=IEFBR14
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X110UPD,
|
||||||
|
// DISP=(OLD,DELETE,DELETE)
|
||||||
|
//*
|
||||||
|
//STEP016 EXEC PGM=IEFBR14
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120,
|
||||||
|
// DISP=(OLD,DELETE,DELETE)
|
||||||
|
//*
|
||||||
|
//STEP018 EXEC PGM=IEFBR14
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X120UPD,
|
||||||
|
// DISP=(OLD,DELETE,DELETE)
|
||||||
|
//*
|
||||||
|
//STEP020 EXEC PGM=IEFBR14
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X140,
|
||||||
|
// DISP=(OLD,DELETE,DELETE)
|
||||||
|
//*
|
||||||
|
//STEP022 EXEC PGM=IEFBR14
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,
|
||||||
|
// DISP=(OLD,DELETE,DELETE)
|
||||||
|
//*
|
||||||
|
//STEP024 EXEC PGM=IEFBR14
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,
|
||||||
|
// DISP=(OLD,DELETE,DELETE)
|
||||||
|
//*
|
||||||
|
//STEP026 EXEC PGM=IEFBR14
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X147,
|
||||||
|
// DISP=(OLD,DELETE,DELETE)
|
||||||
|
//*
|
||||||
|
//STEP028 EXEC PGM=IEFBR14
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//SYSOUT DD SYSOUT=*
|
||||||
|
//DD1001 DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X999,
|
||||||
|
// DISP=(OLD,DELETE,DELETE)
|
||||||
|
//*
|
||||||
@ -10,7 +10,7 @@
|
|||||||
//****
|
//****
|
||||||
//* RPT101R1 = PACKING LIST REPORT
|
//* RPT101R1 = PACKING LIST REPORT
|
||||||
//****
|
//****
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||||
//****
|
//****
|
||||||
//**** /* GET PACKING LIST RECORD(S)
|
//**** /* GET PACKING LIST RECORD(S)
|
||||||
|
|||||||
@ -12,7 +12,7 @@
|
|||||||
// SET LVLNODE='DEVL' 00021008
|
// SET LVLNODE='DEVL' 00021008
|
||||||
// SET MSTNODE='PROD' 00021108
|
// SET MSTNODE='PROD' 00021108
|
||||||
//* 00021608
|
//* 00021608
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00021708
|
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00021708
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00021808
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00021808
|
||||||
//*LOADLIBS INCLUDE MEMBER=DTSIPJLB 00021908
|
//*LOADLIBS INCLUDE MEMBER=DTSIPJLB 00021908
|
||||||
//* 00022008
|
//* 00022008
|
||||||
@ -54,14 +54,19 @@
|
|||||||
//SYSABEND DD SYSOUT=* 00270000
|
//SYSABEND DD SYSOUT=* 00270000
|
||||||
//SYSUDUMP DD SYSOUT=* 00280000
|
//SYSUDUMP DD SYSOUT=* 00280000
|
||||||
//* 00290000
|
//* 00290000
|
||||||
//DTSFNAME DD DSN=DOESTAX.DEVL.VSAM.WAGENAME,DISP=SHR, 00300006
|
//DTSFNAME DD DSN=DOESTAX.PROD.VSAM.WAGENAME,DISP=SHR, 00300006
|
||||||
// AMP=('BUFNI=5,BUFND=10') 00310000
|
// AMP=('BUFNI=5,BUFND=10') 00310000
|
||||||
//* 00320000
|
//* 00320000
|
||||||
//DTSFX144 DD DSN=&&ESSPSSN,DISP=(OLD,PASS,DELETE) 00330006
|
//DTSFX144 DD DSN=&&ESSPSSN,DISP=(OLD,PASS,DELETE) 00330006
|
||||||
//*TSFX144 DD DSN=DOESTAX.CONV.ESSP.QTRWAGE.SSNONLY.Q20181,DISP=SHR 00331006
|
//*TSFX144 DD DSN=DOESTAX.CONV.ESSP.QTRWAGE.SSNONLY.Q20181,DISP=SHR 00331006
|
||||||
//* 00340000
|
//* 00340000
|
||||||
//*TSFX146 DD DSN=ECNTSUP.DOESTAX.CONV.TAXWEB.ESSPX146,DISP=SHR 00350013
|
//*TSFX146 DD DSN=ECNTSUP.DOESTAX.CONV.TAXWEB.ESSPX146,DISP=SHR 00350013
|
||||||
//DTSFX146 DD DSN=DOESTAX.PROD.WAGE.NAME.EXP,DISP=SHR 00351013
|
//DTSFX146 DD DSN=DOESTAX.PROD.WAGE.NAME.EXP,
|
||||||
|
//* DISP=SHR 00351013
|
||||||
|
// DISP=(NEW,CATLG,DELETE), 00050206
|
||||||
|
// UNIT=SYSDA,SPACE=(CYL,(20,15),RLSE),
|
||||||
|
// CODEPAGE=1252,AUTOENCODE=YES, 00050306
|
||||||
|
// DCB=(RECFM=LSEQ,LRECL=76,BLKSIZE=7600)
|
||||||
//* 00360000
|
//* 00360000
|
||||||
//********************************************************************* 00370000
|
//********************************************************************* 00370000
|
||||||
//*** COPY ESSP DAILY WAGES TO ARCHIVE BACKUP FILE. 00390007
|
//*** COPY ESSP DAILY WAGES TO ARCHIVE BACKUP FILE. 00390007
|
||||||
@ -71,7 +76,26 @@
|
|||||||
//COPYESSP EXEC PGM=IDCAMS,COND=(0,LT) 00430007
|
//COPYESSP EXEC PGM=IDCAMS,COND=(0,LT) 00430007
|
||||||
//IFILE DD DSN=&&ESSPSSN,DISP=(OLD,PASS,DELETE) 00440007
|
//IFILE DD DSN=&&ESSPSSN,DISP=(OLD,PASS,DELETE) 00440007
|
||||||
//** 00450007
|
//** 00450007
|
||||||
//OFILE DD DSN=DOESTAX.CONV.ESSP.QTRWAGE.SSNONLY.Q20213,DISP=MOD 00460011
|
//OFILE DD DSN=DOESTAX.CONV.ESSP.QTRWAGE.SSNONLY.Q20252,DISP=MOD 00460011
|
||||||
//SYSPRINT DD SYSOUT=(*) 00500007
|
//SYSPRINT DD SYSOUT=(*) 00500007
|
||||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR 00510007
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR 00510007
|
||||||
//** 00520007
|
//**
|
||||||
|
//*********************************************************************
|
||||||
|
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
//*
|
||||||
|
//**
|
||||||
|
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||||
|
//INPUT DD *
|
||||||
|
10.57.110.147 21
|
||||||
|
dutasrc
|
||||||
|
Today728rc!
|
||||||
|
cd //Dutasrc/intranet/Outbound_intranet
|
||||||
|
ascii
|
||||||
|
put 'DOESTAX.PROD.WAGE.NAME.EXP' +
|
||||||
|
DOESTAX.PROD.WAGE.NAME.EXP
|
||||||
|
QUIT
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//OUTOUT DD SYSOUT=*
|
||||||
|
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||||
|
//SYSGET DD *,DCB=BLKSIZE=80
|
||||||
|
//* 00520007
|
||||||
|
|||||||
@ -7,7 +7,7 @@
|
|||||||
// SET LVLNODE='PROD'
|
// SET LVLNODE='PROD'
|
||||||
//* 00000200
|
//* 00000200
|
||||||
//* 00000200
|
//* 00000200
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00000300
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00000300
|
||||||
//* 00000400
|
//* 00000400
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
||||||
//* 00001700
|
//* 00001700
|
||||||
|
|||||||
@ -8,7 +8,7 @@
|
|||||||
//**** 00000715
|
//**** 00000715
|
||||||
//* REBUILDS ALTERNATE INDEX FILE (AIX) 00001215
|
//* REBUILDS ALTERNATE INDEX FILE (AIX) 00001215
|
||||||
//**** 00001515
|
//**** 00001515
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001715
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001715
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001800
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001800
|
||||||
//** 00001915
|
//** 00001915
|
||||||
//STEP0100 EXEC DESUAIX 00002005
|
//STEP0100 EXEC DESUAIX 00002005
|
||||||
|
|||||||
@ -25,7 +25,7 @@
|
|||||||
//*** SET TRANEMI='DOESTAX.CONV.GBEMTRAN' 00120002
|
//*** SET TRANEMI='DOESTAX.CONV.GBEMTRAN' 00120002
|
||||||
//*** SET TRANW4I='DOESTAX.CONV.GBW4TRAN' 00130002
|
//*** SET TRANW4I='DOESTAX.CONV.GBW4TRAN' 00130002
|
||||||
//**** 00190002
|
//**** 00190002
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00210002
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00210002
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00220002
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00220002
|
||||||
//**** 00220106
|
//**** 00220106
|
||||||
//* BACKUP THE GBEMTRAN FILE 00220206
|
//* BACKUP THE GBEMTRAN FILE 00220206
|
||||||
|
|||||||
@ -15,7 +15,7 @@
|
|||||||
//* CICS REGION. *
|
//* CICS REGION. *
|
||||||
//* *
|
//* *
|
||||||
//**
|
//**
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
||||||
//* 00001700
|
//* 00001700
|
||||||
//STEP0100 EXEC DESBD300 EXTRACT DATA FROM WAGE FILE
|
//STEP0100 EXEC DESBD300 EXTRACT DATA FROM WAGE FILE
|
||||||
|
|||||||
@ -13,7 +13,7 @@
|
|||||||
// SET RUNTYPE='D'
|
// SET RUNTYPE='D'
|
||||||
//*
|
//*
|
||||||
//**
|
//**
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
||||||
//* 00001700
|
//* 00001700
|
||||||
//STEP0100 EXEC DESBD320 BUILD WORKER NAME FILE
|
//STEP0100 EXEC DESBD320 BUILD WORKER NAME FILE
|
||||||
|
|||||||
@ -7,7 +7,7 @@
|
|||||||
// SET LVLNODE='PROD'
|
// SET LVLNODE='PROD'
|
||||||
// SET BCKNODE='BACKUP'
|
// SET BCKNODE='BACKUP'
|
||||||
//****
|
//****
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00000300
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00000300
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
||||||
//**** 00000500
|
//**** 00000500
|
||||||
//* SPECIAL JOB TO RUN A CONVERSION OF EMT TO THE PROD REGION. 00000700
|
//* SPECIAL JOB TO RUN A CONVERSION OF EMT TO THE PROD REGION. 00000700
|
||||||
|
|||||||
@ -31,7 +31,7 @@
|
|||||||
//* - A1,A2,E1,O1, OR O2 (1ST CHARACTER IS ALPHA) 00300038
|
//* - A1,A2,E1,O1, OR O2 (1ST CHARACTER IS ALPHA) 00300038
|
||||||
//* 15-18 YYYY 00310038
|
//* 15-18 YYYY 00310038
|
||||||
//**----------------------------------------------------------------- 00320038
|
//**----------------------------------------------------------------- 00320038
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00330038
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00330038
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00340038
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00340038
|
||||||
//** 00350038
|
//** 00350038
|
||||||
//STEP0100 EXEC DTSTP715 00360038
|
//STEP0100 EXEC DTSTP715 00360038
|
||||||
|
|||||||
@ -31,7 +31,7 @@
|
|||||||
//* - A1,A2,E1,O1, OR O2 (1ST CHARACTER IS ALPHA) 00300038
|
//* - A1,A2,E1,O1, OR O2 (1ST CHARACTER IS ALPHA) 00300038
|
||||||
//* 15-18 YYYY 00310038
|
//* 15-18 YYYY 00310038
|
||||||
//**----------------------------------------------------------------- 00320038
|
//**----------------------------------------------------------------- 00320038
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00330038
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00330038
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00340038
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00340038
|
||||||
//** 00350038
|
//** 00350038
|
||||||
//STEP0100 EXEC DTSTP715 00360038
|
//STEP0100 EXEC DTSTP715 00360038
|
||||||
|
|||||||
@ -31,7 +31,7 @@
|
|||||||
//* - A1,A2,E1,O1, OR O2 (1ST CHARACTER IS ALPHA) 00300038
|
//* - A1,A2,E1,O1, OR O2 (1ST CHARACTER IS ALPHA) 00300038
|
||||||
//* 15-18 YYYY 00310038
|
//* 15-18 YYYY 00310038
|
||||||
//**----------------------------------------------------------------- 00320038
|
//**----------------------------------------------------------------- 00320038
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00330038
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00330038
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00340038
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00340038
|
||||||
//** 00350038
|
//** 00350038
|
||||||
//STEP0100 EXEC DTSTP715 00360038
|
//STEP0100 EXEC DTSTP715 00360038
|
||||||
|
|||||||
@ -25,7 +25,7 @@
|
|||||||
//** 3. CHANGE PARM CARD IN STEP0100 FOR REPORT NUMBER -DTSAR309 * 00000499
|
//** 3. CHANGE PARM CARD IN STEP0100 FOR REPORT NUMBER -DTSAR309 * 00000499
|
||||||
//******************************************************************** 00004549
|
//******************************************************************** 00004549
|
||||||
//** * 00000499
|
//** * 00000499
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00001399
|
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001399
|
||||||
//* 00001400
|
//* 00001400
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001599
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001599
|
||||||
//* 00001600
|
//* 00001600
|
||||||
|
|||||||
@ -24,7 +24,7 @@
|
|||||||
//** * 00000499
|
//** * 00000499
|
||||||
//******************************************************************** 00004549
|
//******************************************************************** 00004549
|
||||||
//** * 00000499
|
//** * 00000499
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00001399
|
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001399
|
||||||
//* 00001400
|
//* 00001400
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIXLIB 00001599
|
//LOADLIBS INCLUDE MEMBER=DTSIXLIB 00001599
|
||||||
//* 00001600
|
//* 00001600
|
||||||
|
|||||||
@ -13,9 +13,9 @@
|
|||||||
//* 1. RUN AFTER A SUCCESSFUL DAILY RUN
|
//* 1. RUN AFTER A SUCCESSFUL DAILY RUN
|
||||||
//* 2. THE CICS FILES MUST BE CLOSED FOR THIS RUN ALSO
|
//* 2. THE CICS FILES MUST BE CLOSED FOR THIS RUN ALSO
|
||||||
//****
|
//****
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB
|
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||||
//*
|
//* RAINCODE TESTED 08/30/25 ZL1
|
||||||
//*********************************************************************
|
//*********************************************************************
|
||||||
//STEP0100 EXEC DTSUEXT, BD400 PERIODIC EXTRACT
|
//STEP0100 EXEC DTSUEXT, BD400 PERIODIC EXTRACT
|
||||||
// RUNTYPE='QD',
|
// RUNTYPE='QD',
|
||||||
|
|||||||
@ -11,7 +11,7 @@
|
|||||||
// SET MSTNODE='PROD'
|
// SET MSTNODE='PROD'
|
||||||
// SET LVDHOLD='YES'
|
// SET LVDHOLD='YES'
|
||||||
//*
|
//*
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||||
//****
|
//****
|
||||||
//STEP0100 EXEC DTSBINIT
|
//STEP0100 EXEC DTSBINIT
|
||||||
|
|||||||
@ -6,7 +6,7 @@
|
|||||||
// SET MSTNODE='PROD'
|
// SET MSTNODE='PROD'
|
||||||
// SET LHOLD='YES'
|
// SET LHOLD='YES'
|
||||||
//* 00001700
|
//* 00001700
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
||||||
//* 00001700
|
//* 00001700
|
||||||
//STEP0050 EXEC DTSUTVSM,
|
//STEP0050 EXEC DTSUTVSM,
|
||||||
|
|||||||
@ -5,7 +5,7 @@
|
|||||||
// REGION=0M 00000514
|
// REGION=0M 00000514
|
||||||
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
||||||
//* 00000614
|
//* 00000614
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00000714
|
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00000714
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00000814
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00000814
|
||||||
//**** 00000914
|
//**** 00000914
|
||||||
//* UI TAX BACKUP EXTERNAL WEB FILES * 00001000
|
//* UI TAX BACKUP EXTERNAL WEB FILES * 00001000
|
||||||
|
|||||||
@ -8,11 +8,29 @@
|
|||||||
// SET LVLNODE='PROD'
|
// SET LVLNODE='PROD'
|
||||||
// SET MSTNODE='PROD'
|
// SET MSTNODE='PROD'
|
||||||
//*
|
//*
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
||||||
//*
|
//*
|
||||||
//STEP0100 EXEC DTSBX122
|
//STEP0100 EXEC DTSBX122
|
||||||
//STEP0100.DTSFVRI1 DD DSN=DOESTAX.PROD.SRTDAY07.RPT(+0),
|
//STEP0100.DTSFVRI1 DD DSN=DOESTAX.PROD.SRTDAY07.RPT(+0),
|
||||||
// DISP=SHR
|
// DISP=SHR
|
||||||
//*
|
//*
|
||||||
|
//*********************************************************************
|
||||||
|
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
//*
|
||||||
|
//**
|
||||||
|
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||||
|
//INPUT DD *
|
||||||
|
10.57.110.147 21
|
||||||
|
dutasrc
|
||||||
|
Today728rc!
|
||||||
|
cd //Dutasrc/intranet/Outbound_intranet
|
||||||
|
ascii
|
||||||
|
put 'ECNTSUP.DOESTAX.PROD.FTP.REG122' ECNTSUP.DOESTAX.PROD.FTP.REG122
|
||||||
|
QUIT
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//OUTOUT DD SYSOUT=*
|
||||||
|
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||||
|
//SYSGET DD *,DCB=BLKSIZE=80
|
||||||
|
//
|
||||||
//
|
//
|
||||||
|
|||||||
@ -5,8 +5,29 @@
|
|||||||
// SET LVLNODE='PROD' 00001700
|
// SET LVLNODE='PROD' 00001700
|
||||||
// SET MSTNODE='PROD' 00001700
|
// SET MSTNODE='PROD' 00001700
|
||||||
//* 00001700
|
//* 00001700
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
||||||
//* 00001700
|
//* 00001700
|
||||||
//STEP0100 EXEC DTSBX202
|
//STEP0100 EXEC DTSBX202
|
||||||
//*********************************************************************
|
//*********************************************************************
|
||||||
|
/*********************************************************************
|
||||||
|
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
//*
|
||||||
|
//**
|
||||||
|
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||||
|
//INPUT DD *
|
||||||
|
10.57.110.147 21
|
||||||
|
dutasrc
|
||||||
|
Today728rc!
|
||||||
|
cd //Dutasrc/intranet/Outbound_intranet
|
||||||
|
ascii
|
||||||
|
put 'ECNTSUP.DOESTAX.PROD.FTP.ERRTRN.AM' +
|
||||||
|
ECNTSUP.DOESTAX.PROD.FTP.ERRTRN.AM
|
||||||
|
PUT 'ECNTSUP.DOESTAX.PROD.FTP.BX217.AM' +
|
||||||
|
ECNTSUP.DOESTAX.PROD.FTP.BX217.AM
|
||||||
|
QUIT
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//OUTOUT DD SYSOUT=*
|
||||||
|
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||||
|
//SYSGET DD *,DCB=BLKSIZE=80
|
||||||
|
//*
|
||||||
@ -1,6 +1,6 @@
|
|||||||
//DTSBX215 JOB (UI,4300,3400,T),PROD.BX215,CLASS=A,MSGCLASS=X, 00000010
|
//DTSBX215 JOB (UI,4300,3400,T),PROD.BX215,CLASS=A,MSGCLASS=X, 00000010
|
||||||
//* TYPRUN=SCAN,
|
//* TYPRUN=SCAN,
|
||||||
// USER=#DOADTS,
|
// USER=#DOADTS,RESTART=STEP0900,
|
||||||
// NOTIFY=ECNTSUP,
|
// NOTIFY=ECNTSUP,
|
||||||
// REGION=0M
|
// REGION=0M
|
||||||
//*
|
//*
|
||||||
@ -9,18 +9,35 @@
|
|||||||
// SET LVLNODE='PROD'
|
// SET LVLNODE='PROD'
|
||||||
// SET MSTNODE='PROD'
|
// SET MSTNODE='PROD'
|
||||||
//*
|
//*
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
||||||
//*
|
//*
|
||||||
//* 00070000
|
//* RAINCODE TESTED 08/30/25 ZL1
|
||||||
|
//* 00070000
|
||||||
//STEP0200 EXEC DTSBX215
|
//STEP0200 EXEC DTSBX215
|
||||||
//* 00014000
|
//*
|
||||||
//*****************************************
|
//*
|
||||||
//STEP0210 EXEC PGM=FTP,
|
//*********************************************************************
|
||||||
// COND=(0,LT)
|
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
//*
|
||||||
|
//**
|
||||||
|
//STEP0900 EXEC PGM=FTP,PARM='(EXIT'
|
||||||
|
//INPUT DD *
|
||||||
|
10.57.110.147 21
|
||||||
|
dutasrc
|
||||||
|
Today728rc!
|
||||||
|
cd //Dutasrc/intranet/Outbound_intranet
|
||||||
|
ascii
|
||||||
|
put 'ECNTSUP.DOESTAX.PROD.FTP.BX215' +
|
||||||
|
ECNTSUP.DOESTAX.PROD.FTP.BX215
|
||||||
|
put 'ECNTSUP.DOESTAX.PROD.FTP.BX220' +
|
||||||
|
ECNTSUP.DOESTAX.PROD.FTP.BX220
|
||||||
|
PUT 'ECNTSUP.DOESTAX.PROD.FTP.DEPOSIT' +
|
||||||
|
ECNTSUP.DOESTAX.PROD.FTP.DEPOSIT
|
||||||
|
QUIT
|
||||||
//SYSPRINT DD SYSOUT=*
|
//SYSPRINT DD SYSOUT=*
|
||||||
//OUTOUT DD SYSOUT=*
|
//OUTOUT DD SYSOUT=*
|
||||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||||
//SYSGET DD *,DCB=BLKSIZE=80
|
//SYSGET DD *,DCB=BLKSIZE=80
|
||||||
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT310),DISP=SHR
|
//* 00014000
|
||||||
//
|
//*****************************************
|
||||||
|
|||||||
42
JCL/DTSBX216.jcl
Normal file
42
JCL/DTSBX216.jcl
Normal file
@ -0,0 +1,42 @@
|
|||||||
|
//DTSRQ202 JOB (UI,4300,3400,T),BY202,CLASS=A,MSGCLASS=X, 00000010
|
||||||
|
// NOTIFY=ECNTZL1,
|
||||||
|
// USER=#DOADTS,
|
||||||
|
//*** TYPRUN=SCAN,
|
||||||
|
// REGION=0M
|
||||||
|
//*
|
||||||
|
//******************************************************************
|
||||||
|
//*
|
||||||
|
//* JOB : EMAIL ICESA REPORTS AND INITILIZE ALL EXTERNAL INPUT
|
||||||
|
//* FILES USED BY DUTAS ZL1
|
||||||
|
//*
|
||||||
|
//* 10/08/14 ADD STEP TO DELETE AND CREATE NEW FILES FOR ESSP INPUT
|
||||||
|
//* TO DUTAS INCLUDING BTC FILES CREATED BY JOB DTSBX420
|
||||||
|
//* ZL1
|
||||||
|
//*
|
||||||
|
//* 01/04/15 ADD STEP TO DELETE AND CREATE NEW FILES FOR ESSP INPUT
|
||||||
|
//* TO DUTAS INCLUDING BTC FILES CREATED BY JOB DTSBX429
|
||||||
|
//* ZL1
|
||||||
|
//*
|
||||||
|
//* 02/23/15 ADD STEPS TO DELETE AND CREATE NEW FILES FOR ESSP ACH
|
||||||
|
//* PAYMENTS AND RETURNS FROM WELLS FARGO.
|
||||||
|
//* ZL1
|
||||||
|
//*
|
||||||
|
//* 03/30/15 ADD STEPS TO DELETE AND CREATE NEW FILES FOR TAXWEB
|
||||||
|
//* TO CHECK FOR DUPLICATE PAYMENTS
|
||||||
|
//* ZL1
|
||||||
|
//* 12/23/16 ADD STEP TO DELETE JOB DTSPACHD FTP LOG FILE
|
||||||
|
//*
|
||||||
|
//* 07/25/17 ADD STEP TO DELETE/CREATE NEW W4 WAGE FILE ZL1
|
||||||
|
//* 09/26/25 TESTING RAINCODE ZL1
|
||||||
|
//******************************************************************
|
||||||
|
// SET EXTNODE='CONV'
|
||||||
|
// SET MSTNODE='PROD'
|
||||||
|
// SET LVLNODE='PROD'
|
||||||
|
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB
|
||||||
|
//***
|
||||||
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||||
|
//*
|
||||||
|
//*********************************************************************
|
||||||
|
//STEP0100 EXEC DTSIX415 CREDIT MEMO PRINT
|
||||||
|
//*
|
||||||
|
//*
|
||||||
@ -11,7 +11,7 @@
|
|||||||
// SET LVLNODE='PROD'
|
// SET LVLNODE='PROD'
|
||||||
//* 00001700
|
//* 00001700
|
||||||
//****************************************************************** 00001700
|
//****************************************************************** 00001700
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
||||||
//* 00001700
|
//* 00001700
|
||||||
//*********************************************************************
|
//*********************************************************************
|
||||||
@ -21,22 +21,36 @@
|
|||||||
// DISP=(OLD,KEEP,KEEP),
|
// DISP=(OLD,KEEP,KEEP),
|
||||||
//* DISP=(,CATLG,DELETE),
|
//* DISP=(,CATLG,DELETE),
|
||||||
// SPACE=(7500,(10,20),RLSE),
|
// SPACE=(7500,(10,20),RLSE),
|
||||||
// DCB=(RECFM=FB,LRECL=750,BLKSIZE=7500)
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// DCB=(RECFM=LSEQ,LRECL=750,BLKSIZE=7500)
|
||||||
//*
|
//*
|
||||||
//******************************************************************
|
//******************************************************************
|
||||||
//* |
|
//* RAINCODE TESTED 08/20/25 ZL1 r
|
||||||
|
//******************************************************************
|
||||||
//* JOB : PUT REFUND TRANS FROM DUTAS INTO SOAR (ODC2)
|
//* JOB : PUT REFUND TRANS FROM DUTAS INTO SOAR (ODC2)
|
||||||
//**** NOTE: DO NOT SEND DATA TO SOAR ON 9/29 - 9/30 |
|
//**** NOTE: DO NOT SEND DATA TO SOAR ON 9/29 - 9/30 |
|
||||||
//******************************************************************
|
//******************************************************************
|
||||||
//**** STOP HERE AS OF 10/3/22 DIFS TAKES OVER FROM SOAR ZL1
|
//**** STOP HERE AS OF 10/3/22 DIFS TAKES OVER FROM SOAR ZL1
|
||||||
//*
|
//*
|
||||||
//*TEP0200 EXEC PGM=FTP,COND=(0,LT)
|
//*********************************************************************
|
||||||
//*YSPRINT DD SYSOUT=*
|
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
//*UTOUT DD SYSOUT=*
|
|
||||||
//*YSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
|
||||||
//*YSGET DD *,DCB=BLKSIZE=80
|
|
||||||
//*NPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT303),DISP=SHR
|
|
||||||
//*
|
//*
|
||||||
|
//**
|
||||||
|
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||||
|
//INPUT DD *
|
||||||
|
10.57.110.147 21
|
||||||
|
dutasrc
|
||||||
|
Today728rc!
|
||||||
|
ASCII
|
||||||
|
cd //Dutasrc/intranet/Outbound_intranet
|
||||||
|
PUT 'DOESTAX.PROD.FTP.REFUND.X303EXP' +
|
||||||
|
DOESTAX.PROD.FTP.REFUND.X303EXP
|
||||||
|
QUIT
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//OUTOUT DD SYSOUT=*
|
||||||
|
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||||
|
//SYSGET DD *,DCB=BLKSIZE=80
|
||||||
|
//
|
||||||
//*********************************************************************
|
//*********************************************************************
|
||||||
//* |
|
//* |
|
||||||
//* JOB : SAVE A COPY OF THE FTP REFUND FILE
|
//* JOB : SAVE A COPY OF THE FTP REFUND FILE
|
||||||
|
|||||||
@ -2,14 +2,14 @@
|
|||||||
// CLASS=S,MSGCLASS=X, 00000010
|
// CLASS=S,MSGCLASS=X, 00000010
|
||||||
//* TYPRUN=SCAN,
|
//* TYPRUN=SCAN,
|
||||||
// USER=#DOADTS,
|
// USER=#DOADTS,
|
||||||
// NOTIFY=ECNTSUP,
|
// NOTIFY=ECNTSUP,
|
||||||
// REGION=0M
|
// REGION=0M
|
||||||
//* 00001700
|
//* 00001700
|
||||||
// SET LVLNODE='PROD'
|
// SET LVLNODE='PROD'
|
||||||
// SET MSTNODE='PROD'
|
// SET MSTNODE='PROD'
|
||||||
// SET FTPNODE='PROD'
|
// SET FTPNODE='PROD'
|
||||||
//* 00001700
|
//* 00001700
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
||||||
//** 00001700
|
//** 00001700
|
||||||
//* IMPORT CFO REFUND CHECKS ISSUED FILE AND UPDATE 00001700
|
//* IMPORT CFO REFUND CHECKS ISSUED FILE AND UPDATE 00001700
|
||||||
@ -35,7 +35,7 @@
|
|||||||
//* JOB : SAVE A COPY OF THE DIFS-FTP REFUND FILE ZL1
|
//* JOB : SAVE A COPY OF THE DIFS-FTP REFUND FILE ZL1
|
||||||
//* |
|
//* |
|
||||||
//*********************************************************************
|
//*********************************************************************
|
||||||
//STEP0250 EXEC PGM=IDCAMS
|
//STEP0100 EXEC PGM=IDCAMS
|
||||||
//SYSPRINT DD SYSOUT=*
|
//SYSPRINT DD SYSOUT=*
|
||||||
//INDD01 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
|
//INDD01 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
|
||||||
//OUTDD01 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
|
//OUTDD01 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
|
||||||
@ -51,11 +51,11 @@
|
|||||||
//* JOB : SAVE A COPY OF THE DIFS-FTP REFUND FILE ZL1
|
//* JOB : SAVE A COPY OF THE DIFS-FTP REFUND FILE ZL1
|
||||||
//* |
|
//* |
|
||||||
//*********************************************************************
|
//*********************************************************************
|
||||||
//STEP0250 EXEC PGM=IDCAMS
|
//STEP0200 EXEC PGM=IDCAMS
|
||||||
//SYSPRINT DD SYSOUT=*
|
//SYSPRINT DD SYSOUT=*
|
||||||
//INDD01 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
|
//INDD01 DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
|
||||||
//OUTDD01 DD DSN=DOESTAX.PROD.DIFSRFND.X305IMP(+1),
|
//OUTDD01 DD DSN=DOESTAX.PROD.DIFSRFND.X305IMP(+1),
|
||||||
// DISP=(,CATLG,DELETE),
|
// DISP=(NEW,CATLG,DELETE),
|
||||||
// UNIT=SYSDA,SPACE=(CYL,(15,5),RLSE),
|
// UNIT=SYSDA,SPACE=(CYL,(15,5),RLSE),
|
||||||
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=109,BLKSIZE=5450)
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=109,BLKSIZE=5450)
|
||||||
//SYSIN DD *
|
//SYSIN DD *
|
||||||
@ -68,18 +68,42 @@
|
|||||||
//* LATEST UPDATES ARE SORTED TO THE BOTTOM OF FILE 00001700
|
//* LATEST UPDATES ARE SORTED TO THE BOTTOM OF FILE 00001700
|
||||||
//* 00001700
|
//* 00001700
|
||||||
//********************************************************************
|
//********************************************************************
|
||||||
//STEP0075 EXEC PGM=SORT SORT FTP RECORDS
|
//STEP0300 EXEC PGM=SORT SORT FTP RECORDS
|
||||||
//SYSOUT DD SYSOUT=*
|
//SYSOUT DD SYSOUT=*
|
||||||
//SORTIN DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
|
//SORTIN DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
|
||||||
//SORTOUT DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP,DISP=SHR
|
//SORTOUT DD DSN=DOESTAX.PROD.FTP.REFUND.X305IMP.SORTED,DISP=SHR
|
||||||
|
//** DISP=(,CATLG,DELETE),
|
||||||
|
//** UNIT=SYSDA,SPACE=(CYL,(15,5),RLSE),
|
||||||
|
//** DCB=(SYS3.MODEL,RECFM=FB,LRECL=109,BLKSIZE=5450)
|
||||||
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSX305),DISP=SHR
|
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSX305),DISP=SHR
|
||||||
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)
|
||||||
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)
|
||||||
//*********************************************************************
|
//*********************************************************************
|
||||||
//STEP0100 EXEC DTSUTVSM,
|
//*STEP0400 EXEC DTSUTVSM, 00002102
|
||||||
// BKUPGEN='(+1)'
|
//* BKUPGEN='(+1)',freq='DAILY'
|
||||||
//*****
|
//*****
|
||||||
//STEP0200 EXEC DTSBX305
|
//STEP0500 EXEC DTSBX305
|
||||||
//** 00001700
|
//** 00001700
|
||||||
//STEP0300 EXEC DTSBX306
|
//STEP0600 EXEC DTSBX306
|
||||||
//** 00001700
|
//** 00001700
|
||||||
|
//*********************************************************************
|
||||||
|
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
//*
|
||||||
|
//**
|
||||||
|
//STEP0700 EXEC PGM=FTP,PARM='(EXIT'
|
||||||
|
//INPUT DD *
|
||||||
|
10.57.110.147 21
|
||||||
|
dutasrc
|
||||||
|
Today728rc!
|
||||||
|
cd //Dutasrc/intranet/Outbound_intranet
|
||||||
|
ascii
|
||||||
|
put 'DOESTAX.PROD.FTP.REFUND.X305EXP' +
|
||||||
|
DOESTAX.PROD.FTP.REFUND.X305EXP
|
||||||
|
PUT 'ECNTSUP.DOESTAX.PROD.FTP.X306' +
|
||||||
|
ECNTSUP.DOESTAX.PROD.FTP.X306
|
||||||
|
QUIT
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//OUTOUT DD SYSOUT=*
|
||||||
|
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||||
|
//SYSGET DD *,DCB=BLKSIZE=80
|
||||||
|
//
|
||||||
@ -13,7 +13,7 @@
|
|||||||
// SET LVLNODE='PROD' 00140099
|
// SET LVLNODE='PROD' 00140099
|
||||||
// SET MSTNODE='PROD' 00150099
|
// SET MSTNODE='PROD' 00150099
|
||||||
//**** 00151099
|
//**** 00151099
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00160099
|
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00160099
|
||||||
//**** 00170036
|
//**** 00170036
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00180036
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00180036
|
||||||
//**** 00190086
|
//**** 00190086
|
||||||
|
|||||||
@ -1,7 +1,7 @@
|
|||||||
//DTSBX403 JOB (UI,4300,3400,T),SC,CLASS=A,MSGLEVEL=(1,1), JOB10082
|
//DTSBX403 JOB (UI,4300,3400,T),SC,CLASS=A,MSGLEVEL=(1,1), JOB10082
|
||||||
// USER=#DOADTS,
|
// USER=#DOADTS,
|
||||||
// MSGCLASS=X,NOTIFY=EUSC01K,REGION=4096K
|
// MSGCLASS=X,NOTIFY=EUSC01K,REGION=4096K
|
||||||
//*
|
//*-------------- RAINCODE TESTED 08/30/25 ZL1
|
||||||
//***************************************************
|
//***************************************************
|
||||||
//* TO EXTRACT 403/405 RECORDS, UNPACK AND WRITE TO OUTPUT FILE.
|
//* TO EXTRACT 403/405 RECORDS, UNPACK AND WRITE TO OUTPUT FILE.
|
||||||
//***************************************************
|
//***************************************************
|
||||||
@ -13,7 +13,7 @@
|
|||||||
// SET LDEST='LOCAL'
|
// SET LDEST='LOCAL'
|
||||||
// SET LHOLD='YES'
|
// SET LHOLD='YES'
|
||||||
//*
|
//*
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB
|
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||||
//*LOADLIBS INCLUDE MEMBER=DTSIPJLB
|
//*LOADLIBS INCLUDE MEMBER=DTSIPJLB
|
||||||
//*
|
//*
|
||||||
@ -34,10 +34,27 @@
|
|||||||
//DTSLN403 DD DSN=DOESTAX.CONV.LEIN403.RECORD,
|
//DTSLN403 DD DSN=DOESTAX.CONV.LEIN403.RECORD,
|
||||||
//* DISP=(NEW,CATLG,DELETE),
|
//* DISP=(NEW,CATLG,DELETE),
|
||||||
// DISP=SHR
|
// DISP=SHR
|
||||||
//* UNIT=SYSDA,
|
// UNIT=SYSDA,
|
||||||
//* SPACE=(CYL,(10,10),RLSE),
|
// SPACE=(CYL,(10,10),RLSE),
|
||||||
//* DCB=(RECFM=FB,LRECL=1732,BLKSIZE=0)
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// DCB=(RECFM=LSEQ,LRECL=1732,BLKSIZE=0)
|
||||||
//*
|
//*
|
||||||
//DTSLN405 DD DUMMY
|
//DTSLN405 DD DUMMY
|
||||||
//*
|
//*
|
||||||
//*********************************************************************
|
//*********************************************************************
|
||||||
|
//************************************************************** 00845099
|
||||||
|
//*
|
||||||
|
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||||
|
//INPUT DD *
|
||||||
|
10.57.110.147 21
|
||||||
|
dutasrc
|
||||||
|
Today728rc!
|
||||||
|
cd //Dutasrc/intranet/Outbound_intranet
|
||||||
|
ascii
|
||||||
|
put 'DOESTAX.CONV.LEIN403.RECORD' DOESTAX.CONV.LEIN403.RECORD
|
||||||
|
QUIT
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//OUTOUT DD SYSOUT=*
|
||||||
|
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||||
|
//SYSGET DD *,DCB=BLKSIZE=80
|
||||||
|
//
|
||||||
@ -13,10 +13,10 @@
|
|||||||
// SET LDEST='LOCAL'
|
// SET LDEST='LOCAL'
|
||||||
// SET LHOLD='YES'
|
// SET LHOLD='YES'
|
||||||
//*
|
//*
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB
|
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
||||||
//*LOADLIBS INCLUDE MEMBER=DTSIPJLB
|
//*LOADLIBS INCLUDE MEMBER=DTSIPJLB
|
||||||
//*
|
//* RAINCODE TESTED 08/30/25 ZL1
|
||||||
//******************************************************************
|
//******************************************************************
|
||||||
//STEP0100 EXEC PGM=DTSBX403,
|
//STEP0100 EXEC PGM=DTSBX403,
|
||||||
// COND=(0,LT),
|
// COND=(0,LT),
|
||||||
@ -34,10 +34,28 @@
|
|||||||
//DTSLN405 DD DSN=DOESTAX.CONV.LEIN405.RECORD,
|
//DTSLN405 DD DSN=DOESTAX.CONV.LEIN405.RECORD,
|
||||||
//* DISP=(NEW,CATLG,DELETE),
|
//* DISP=(NEW,CATLG,DELETE),
|
||||||
// DISP=SHR
|
// DISP=SHR
|
||||||
//* UNIT=SYSDA,
|
// UNIT=SYSDA,
|
||||||
//* SPACE=(CYL,(10,10),RLSE),
|
// SPACE=(CYL,(10,10),RLSE),
|
||||||
//* DCB=(RECFM=FB,LRECL=323,BLKSIZE=0)
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
// DCB=(RECFM=LSEQ,LRECL=323,BLKSIZE=0)
|
||||||
//*
|
//*
|
||||||
//DTSLN403 DD DUMMY
|
//DTSLN403 DD DUMMY
|
||||||
//*
|
//*
|
||||||
//*********************************************************************
|
//*********************************************************************
|
||||||
|
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
||||||
|
//*
|
||||||
|
//**
|
||||||
|
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
||||||
|
//INPUT DD *
|
||||||
|
10.57.110.147 21
|
||||||
|
dutasrc
|
||||||
|
Today728rc!
|
||||||
|
cd //Dutasrc/intranet/Outbound_intranet
|
||||||
|
ascii
|
||||||
|
put 'DOESTAX.CONV.LEIN405.RECORD' DOESTAX.CONV.LEIN405.RECORD
|
||||||
|
QUIT
|
||||||
|
//SYSPRINT DD SYSOUT=*
|
||||||
|
//OUTOUT DD SYSOUT=*
|
||||||
|
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||||
|
//SYSGET DD *,DCB=BLKSIZE=80
|
||||||
|
//
|
||||||
@ -12,7 +12,7 @@
|
|||||||
// SET IMPNODE='PROD'
|
// SET IMPNODE='PROD'
|
||||||
// SET EXPNODE='PROD'
|
// SET EXPNODE='PROD'
|
||||||
//* 00001700
|
//* 00001700
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00001600
|
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB 00001600
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
||||||
//** 00001700
|
//** 00001700
|
||||||
//* EXTRACT EMPLOYER DATA FROM MAINFRAME FOR DOWNLOAD 00001700
|
//* EXTRACT EMPLOYER DATA FROM MAINFRAME FOR DOWNLOAD 00001700
|
||||||
|
|||||||
@ -9,7 +9,7 @@
|
|||||||
// SET MSTNODE='PROD'
|
// SET MSTNODE='PROD'
|
||||||
// SET PRGNODE='PROD'
|
// SET PRGNODE='PROD'
|
||||||
//* 00001700
|
//* 00001700
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00001600
|
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB 00001600
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
||||||
//** 00001700
|
//** 00001700
|
||||||
//* EXTRACT EMPLOYER AND WAGE DATA FROM MAINFRAME FOR 00001700
|
//* EXTRACT EMPLOYER AND WAGE DATA FROM MAINFRAME FOR 00001700
|
||||||
|
|||||||
@ -12,7 +12,7 @@
|
|||||||
// SET MSTNODE='PROD'
|
// SET MSTNODE='PROD'
|
||||||
// SET PRGNODE='PROD'
|
// SET PRGNODE='PROD'
|
||||||
//* 00001700
|
//* 00001700
|
||||||
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00001600
|
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCS.BATCH.LIB 00001600
|
||||||
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
||||||
//** 00001700
|
//** 00001700
|
||||||
//* IMPORT EMPLOYER DATA FROM WEB DATABASE FOR UPLOAD 00001700
|
//* IMPORT EMPLOYER DATA FROM WEB DATABASE FOR UPLOAD 00001700
|
||||||
|
|||||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user