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

Compare commits

base: giteaadmin:c69d1eaef6a46f02d36ef9b708006c5f47dd46d3
Branches Tags
giteaadmin:main giteaadmin:Dutas-Dev-Update
...
compare: giteaadmin:Dutas-Dev-Update
Branches Tags
giteaadmin:Dutas-Dev-Update giteaadmin:main

31 Commits
c69d1eaef6 ... Dutas-Dev-

Author SHA1 Message Date
faizana
9e2a3afcc9 screen 73 was not updated, now it is synced with Raincode. 2025-11-12 23:44:24 -05:00
faizana
5da0179563 fixed the issue of code merging. 2025-11-11 06:44:49 -05:00
Manoj Patel
3972c4a856 Z updated PROCS 2025-11-03 12:09:06 -05:00
Manoj Patel
6537588163 Z updated JCL files on PROD Env 2025-11-03 12:05:56 -05:00
Neeraj Kumar
8fca292a50 Add updated SqlAgent folder 2025-11-02 14:50:48 -05:00
Neeraj Kumar
2c94b89801 Remove old SqlAgent folder 2025-11-02 14:49:47 -05:00
Manoj Patel
aebe4cd149 Merge branch 'innova-dev-update' of https://gitea.doesworks.net/giteaadmin/DUTAS into innova-dev-update 2025-10-24 08:40:06 -04:00
Manoj Patel
2a54f65e13 missing copybook for Annual job 2025-10-24 08:39:19 -04:00
Neeraj Kumar
49a18b5c47 Added latest changes for SQL Agent - Refer v2 2025-10-20 08:03:45 -04:00
Neeraj Kumar
716014d0bf Remove old SQLAgent completely 2025-10-20 08:00:40 -04:00
Neeraj Kumar
f8c32748c5 SQL Agen Scheduler - Updated 2025-10-20 07:54:46 -04:00
Manoj Patel
42a3da46ab updated scripts 2025-10-10 09:27:46 -04:00
Manoj Patel
c99f490664 Add Jobs and PROCs for PROD, TEST & DEVL 2025-10-10 08:34:42 -04:00
Manoj Patel
d3af779d95 All Z' modified PROD server code merge 09/10/2025 2025-10-10 08:02:01 -04:00
faizana
7408a12cc6 revert the changes which were over right by Mistakenly by Z. 2025-10-09 01:58:17 -04:00
faizana
d72b5da155 Merge branch 'innova-dev-update' of https://gitea.doesworks.net/giteaadmin/DUTAS into innova-dev-update 2025-10-09 01:57:24 -04:00
Neeraj Kumar
8c4bd2e7af SQLAgent - Version 0.2 2025-10-08 05:12:42 -04:00
faizana
0551b2671f Merge branch 'innova-dev-update' of https://gitea.doesworks.net/giteaadmin/DUTAS into innova-dev-update 2025-10-06 10:55:31 -04:00
faizana
fb675f820d changed the program with what provided by Z 2025-10-06 10:55:08 -04:00
Neeraj Kumar
a261268b5d Add SQLAgent folder 2025-10-06 08:06:01 -04:00
faizana
5254db068f Deleting this module as it is not more required , Johan has created a new .dll in c# with same name to print. 2025-10-04 05:11:33 -04:00
faizana
370b5f9c27 DTSCU351.cob is not required as per Z, so removing it from list of modules. 2025-09-20 04:50:29 -04:00
Manoj Patel
8dc0204972 From UAT Z's file modified 2025-09-19 12:33:15 -04:00
Manoj Patel
10597a27ba Backup Restore changes 2025-09-19 10:59:57 -04:00
Manoj Patel
156717a804 change DOES.PROD.PROCLIB to DOESTAX.PROD.PROCS.BATCH.LIB 2025-09-18 14:01:08 -04:00
faizana
858d631afe Neeraj Code. 2025-09-17 04:51:52 -04:00
faizana
2bdc775648 Johan's change, QR-56 2025-09-17 04:43:28 -04:00
faizana
e2e5d14e27 Merging code from main to dev branch 2025-09-16 11:16:45 -04:00
faizana
86d034de9c merge code from dutas git into dutas dev update. 2025-09-16 11:02:07 -04:00
faizana
00bf12a4f5 As per Srujani's email ,on sep-15, these are the updated programs. 2025-09-16 09:03:29 -04:00
faizana
8a1f878add Neeraj Changes 2025-09-16 08:52:41 -04:00
684 changed files with 48824 additions and 9373 deletions
Expand all files Collapse all files

1392
AddApplParms.jcl Normal file
View File

File diff suppressed because it is too large Load Diff

222
AddConvParms.jcl Normal file
View 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
View File

File diff suppressed because it is too large Load Diff

1682
AddProcs.jcl Normal file
View File

File diff suppressed because it is too large Load Diff

2102
AddToCatalog_JOBS_DEVL.txt Normal file
View File

File diff suppressed because it is too large Load Diff

2322
AddToCatalog_JOBS_PROD.txt Normal file
View File

File diff suppressed because it is too large Load Diff

2102
AddToCatalog_JOBS_TEST.txt Normal file
View File

File diff suppressed because it is too large Load Diff

1722
AddToCatalog_PROCS_DEVL.txt Normal file
View File

File diff suppressed because it is too large Load Diff

1722
AddToCatalog_PROCS_PROD.txt Normal file
View File

File diff suppressed because it is too large Load Diff

1722
AddToCatalog_PROCS_TEST.txt Normal file
View File

File diff suppressed because it is too large Load Diff

4
Batch/DESBD310.cob
View File

@ -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
View 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

2
Batch/DESBD471.cob
View File

@ -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

2
Batch/DESBD474.cob
View File

@ -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

2
Batch/DESBD475.cob
View File

@ -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

2
Batch/DESBD481.cob
View File

@ -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
View 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

2
Batch/DTSBD120.cob
View File

@ -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

3
Batch/DTSBD380.cob
View File

@ -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

2
Batch/DTSBS413.cob
View File

@ -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

17
Batch/DTSBU599.cob
View File

@ -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

4
Batch/DTSBU981.cob
View File

@ -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

20
Batch/DTSBX417.cob
View File

@ -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
View File

File diff suppressed because it is too large Load Diff

3118
Batch/DTSBX551.cob Normal file
View File

File diff suppressed because it is too large Load Diff

1221
Batch/DTSBX629.cob
View File

File diff suppressed because it is too large Load Diff

268
Batch/DTSBX802.cob Normal file
View 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
View File

File diff suppressed because it is too large Load Diff

638
BatchFileList.txt Normal file
View 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

5
CICS/DTSCS14.cob
View File

@ -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

5
CICS/DTSCS22.cob
View File

@ -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
View File

File diff suppressed because it is too large Load Diff

5
CICS/DTSCS72.cob
View File

@ -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

2
CICS/DTSCS8B.cob
View File

@ -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
View File

File diff suppressed because it is too large Load Diff

319
CICS/DTSCU357.cob
View File

@ -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

4
CICS/RCSIGNON.cob
View File

@ -66,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
@ -116,7 +116,7 @@
EXEC CICS EXEC CICS
SET TERMINAL(EIBTRMID) SET TERMINAL(EIBTRMID)
UCTRANST('UCTRAN') UCTRANST(DFHVALUE(UCTRAN))
END-EXEC END-EXEC
EXEC CICS EXEC CICS

2
CICSFiles.txt
View File

@ -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
View File

@ -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

6
CompileOptions.txt
View File

@ -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
View 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
View 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

383
Copybook/DTSIMQTR.cpy
View File

@ -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

4
Copybook/DTSIP007.cpy
View File

@ -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

62
Copybook/DTSIR316.cpy
View File

@ -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

3
Copybook/DTSIT001.cpy
View File

@ -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

3
Copybook/DTSIT002.cpy
View File

@ -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

3
Copybook/DTSIT003.cpy
View File

@ -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

3
Copybook/DTSIT011.cpy
View File

@ -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

3
Copybook/DTSIT016.cpy
View File

@ -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

3
Copybook/DTSIT021.cpy
View File

@ -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

3
Copybook/DTSIT025.cpy
View File

@ -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

3
Copybook/DTSIT026.cpy
View File

@ -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

3
Copybook/DTSIT027.cpy
View File

@ -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

3
Copybook/DTSIT028.cpy
View File

@ -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

3
Copybook/DTSIT031.cpy
View File

@ -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

3
Copybook/DTSIT036.cpy
View File

@ -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

3
Copybook/DTSIT040.cpy
View File

@ -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

3
Copybook/DTSIT051.cpy
View File

@ -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

8
Copybook/DTSIWWGH.cpy
View File

@ -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
View 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
View 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
View 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
View 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
View 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)

2
JCL/CHGBD800.jcl
View File

@ -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
View 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
View 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
View 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
View 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)
//*

2
JCL/DESBD100.jcl
View File

@ -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)

34
JCL/DESBD427.jcl
View File

@ -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

2
JCL/DESBD998.jcl
View File

@ -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

2
JCL/DESBLAIX.jcl
View File

@ -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

2
JCL/DESEMTD1.jcl
View File

@ -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

2
JCL/DESRQ300.jcl
View File

@ -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

2
JCL/DESRQ320.jcl
View 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

2
JCL/DESTTCNV.jcl
View 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

2
JCL/DTS715R1.jcl
View File

@ -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

2
JCL/DTS715R2.jcl
View File

@ -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

2
JCL/DTS715R3.jcl
View File

@ -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

2
JCL/DTSACH01.jcl
View File

@ -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

2
JCL/DTSACHZ1.jcl
View File

@ -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

4
JCL/DTSBE405.jcl
View File

@ -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',

2
JCL/DTSBINIT.jcl
View File

@ -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

2
JCL/DTSBK325.jcl
View File

@ -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,

2
JCL/DTSBKEXT.jcl
View File

@ -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

20
JCL/DTSBX122.jcl
View File

@ -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
//
// //

23
JCL/DTSBX202.jcl
View File

@ -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
//*

35
JCL/DTSBX215.jcl
View File

@ -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
View 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
//*
//*

32
JCL/DTSBX303.jcl
View File

@ -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

46
JCL/DTSBX305.jcl
View 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
//

2
JCL/DTSBX347.jcl
View File

@ -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

27
JCL/DTSBX403.jcl
View File

@ -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
//

28
JCL/DTSBX405.jcl
View File

@ -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
//

2
JCL/DTSBX410.jcl
View File

@ -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

2
JCL/DTSBX411.jcl
View File

@ -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

2
JCL/DTSBX415.jcl
View File

@ -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

2
JCL/DTSBX420.jcl
View File

@ -14,7 +14,7 @@
// SET IMPNODE='PROD' // SET IMPNODE='PROD'
// SET LVDHOLD='YES' 00001700 // SET LVDHOLD='YES' 00001700
//* 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