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

Compare commits

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

9 Commits
main ... 3d00916cd1

Author SHA1 Message Date
faizana
3d00916cd1 DTSCS37.cob screen crashing fixed. https://inow.myjetbrains.com/youtrack/issue/DR-57 2025-09-09 05:10:10 -04:00
faizana
6e760ad85e reverted the change 2025-09-08 05:57:39 -04:00
faizana
bec589af16 https://inow.myjetbrains.com/youtrack/issue/DR-56/QIX-not-accepting-lower-case-characters 2025-09-08 04:42:26 -04:00
faizana
7ca284b0f7 CICS/DTSCS13.cob 2025-09-04 08:56:50 -04:00
faizana
3d0b3b793e Fixed the bug 85. 2025-09-02 04:11:55 -04:00
faizana
47c88673c2 commiting everything bcz i am moving all stuff to another machine 10.57.100.120 2025-08-29 14:07:12 -04:00
faizana
ef98c08de5 Two missing Batch Programms are added, 
DTSBS413.cob and DTSBU985.cob
 2025-08-23 14:20:01 -04:00
faizana
deaa6ecb6a New programms added, GOback check added by Arturo in program USTRAN41.cob, DTSCU351.cob is not compiled yet, its copy book are missing. 2025-08-23 14:15:17 -04:00
Neeraj Kumar
cbd5346313 DUTAS re-platformed to Raincode - 29Jul2025-update-from-Srujani 2025-08-01 06:27:38 -04:00
129 changed files with 58365 additions and 25081 deletions
Expand all files Collapse all files

146
ASMB/UCTRAN41.asm Normal file
View File

@ -0,0 +1,146 @@
* DATA SET UCTRAN41 AT LEVEL 002 AS OF 08/25/98
* DATA SET UCTRAN41 AT LEVEL 001 AS OF 12/23/97 00001
TITLE 'U C T R A N SWITCH UPPER CASE TRANSLATION OPTION' 00002
*********************************************************************** 00003
* * 00004
* U C T R A N SWITCH UPPER CASE TRANSLATION OPTION * 00005
* * 00006
* CODE FOR CICS 4.1.0 * 00007
* * 00008
* THIS PROGRAM IS USED TO SWITCH THE UCTRAN OPTION FOR THE * 00009
* TERMINAL. AN APPLICATION PROGRAM CAN CALL THIS PROGRAM * 00010
* AS FOLLOWS: * 00011
* EXEC CICS LINK PROGRAM(UCTRAN) END-EXEC. * 00012
* OR * 00013
* EXEC CICS LINK PROGRAM(UCTRAN) COMMAREA(UCPARM) END-EXEC. * 00014
* * 00015
* THE FIRST FORM WILL FLIP THE CURRENT STATUS REGARDLESS OF * 00016
* THE CURRENT VALUE. THE SECOND FORM WILL SET THE OPTION TO * 00017
* THE REQUESTED VALUE IF NEEDED. UCPARM IS A 1 BYTE CHARACTER * 00018
* DEFINED AS 'U' FOR UPPERCASE TRANSLATION, OR 'L' FOR NO * 00019
* UPPERCASE TRANSLATION. * 00020
* * 00021
* IF THE TRANSACTION ID IS 'LC' SET THE LC OPTION. * 00022
* IF THE TRANSACTION ID IS 'UC' SET THE UC OPTION. * 00023
* * 00024
* IF THE PROGRAM IS INVOKED IN AN AOR THE PROGRAM WILL START * 00025
* ITSELF IN THE TOR WITH A 5 BYTE COMMAREA. THIS AREA WILL * 00026
* SPECIFY THE FUNCTION, 'U OR L' FOLLOWED BY THE TERMID TO BE * 00027
* SWITCHED. * 00028
* * 00029
* REGISTER USAGE: * 00030
* * 00031
* R0 RESERVED * 00032
* R1 PARM POINTER * 00033
* R2 * 00034
* R3 1ST CODE BASE REGISTER * 00035
* R4 2ND CODE BASE REGISTER * 00036
* R5 1ST DATA BASE REGISTER * 00037
* R6 WORK * 00038
* R7 EIB POINTER * 00039
* R8 WORK * 00040
* R9 BCT REGISTER / TEMP TIOA POINTER * 00041
* R10 TCTTE POINTER * 00042
* R11 EIB POINTER * 00043
* R12 * 00044
* R13 RESERVED * 00045
* R14 RESERVED * 00046
* R15 RESERVED * 00047
* * 00048
* * 00049
* * 00050
* * 00051
*********************************************************************** 00052
EJECT 00053
* XEQU 00054**2
DFHREGS ADDED BY WB 00055**2
EJECT 00056
DFHEISTG DSECT 00057
SPACE 3 00058
UCTRANST DS F 00059
LENGTH DS H 00060
CAPARM DS 0CL5 * COMMAREA PARM 00061
CATYPE DS CL1 * TYPE OF COMMAREA 00062
UCTRANU EQU C'U' * UPPERCASE TRANSLATION 00063
UCTRANL EQU C'L' * NO UPPERCASE TRANSLATION 00064
UCTRANF EQU C'F' * FLIP UPPERCASE TRANSLATION 00065
CATERM DS CL4 * TERMID FOR UCTRAN 00066
SYSID DS CL4 * SYSID FOR TOR 00067
SPACE 3 00068
******************************************************************* 00069
EJECT 00070
UCTRAN DFHEIENT CODEREG=(3,4),DATAREG=(5),EIBREG=7 00071
CLI EIBTRMID,X'40' Q-TERMINAL TASK 00072
BH GOODTERM BIF YES 00073
MVC LENGTH,=H'5' 00074
EXEC CICS RETRIEVE INTO(CAPARM) LENGTH(LENGTH) 00075
CLC LENGTH,=H'5' 00076
BNE ABEND BIF NO 00077
B CKPARM 00078
ABEND DS 0H 00079
EXEC CICS ABEND ABCODE('UCTR') 00080
GOODTERM DS 0H 00081
MVC CATERM,EIBTRMID 00082
MVI CATYPE,UCTRANU SET UP FOR UCTRAN ON 00083
CLC EIBTRNID,=CL4'UC' Q-UPPERCASE TRANSLATE REQUESTED 00084
BE UCYES BIF YES 00085
CLC EIBTRNID,=X'A4834040' 00086
BE UCYES 00087
MVI CATYPE,UCTRANL SET UP FOR UCTRAN OFF 00088
CLC EIBTRNID,=CL4'LC' Q-LOWERCASE REQUESTED 00089
BE UCNO BIF YES 00090
CLC EIBTRNID,=X'93834040' 00091
BE UCNO 00092
CLC EIBCALEN,=H'0' Q-COMMAREA 00093
BE UCFLIP BIF NO, 00094
L R1,DFHEICAP GET ADDRESS OF COMMAREA 00095
MVC CATYPE,0(R1) COPY IT 00096
CKPARM DS 0H 00097
CLI CATYPE,UCTRANU Q-UPPERCASE TRANSLATE REQUESTED 00098
BE UCYES BIF YES 00099
CLI CATYPE,UCTRANL Q-LOWERCASE REQUESTED 00100
BE UCNO BIF YES 00101
UCFLIP DS 0H 00102
EXEC CICS INQUIRE TERMINAL(CATERM) UCTRANST(UCTRANST) 00103
CLC UCTRANST,DFHVALUE(UCTRAN) Q-UCTRAN ACTIVE 00104
BE UCNO BIF YES, TURN IF OFF 00105
SPACE 1 00106
UCYES DS 0H 00107
MVC UCTRANST,DFHVALUE(UCTRAN) 00108
B UCSET 00109
UCNO DS 0H 00110
MVC UCTRANST,DFHVALUE(NOUCTRAN) 00111
SPACE 1 00112
UCSET DS 0H ** RETURN ** 00113
EXEC CICS SET TERMINAL(CATERM) UCTRANST(UCTRANST) 00114
EXEC CICS INQUIRE TERMINAL(CATERM) REMOTESYSTEM(SYSID) 00115
CLI SYSID,X'40' 00116
BNH CKTRAN 00117
MVC LENGTH,=Y(L'CAPARM) LENGTH OF COMMAREA 00118
EXEC CICS START TRANSID('UCTR') SYSID(SYSID) FROM(CAPARM) *00119
LENGTH(LENGTH) 00120
* IT MAY BE NECESSARY AT A FUTURE TIME TO BUILD A WAIT/POST MECHANISM 00121
* INTO THE PROCESS HERE TO ENSURE THAT THE BIT IS FLIPPED BEFORE THE 00122
* USER CAN ENTER THEIR NEXT TRAN. 00123
B RETURN 00124
CKTRAN DS 0H ** RETURN ** 00125
CLC EIBTRNID,=CL4'UC' Q-WAS THIS FOR UC TRAN 00126
BE CLEAR BIF YES 00127
CLC EIBTRNID,=X'A4834040' Q-WAS THIS FOR UC TRAN 00128
BE CLEAR BIF YES 00129
CLC EIBTRNID,=CL4'LC' Q-WAS THIS FOR LC TRAN 00130
BE CLEAR BIF YES 00131
CLC EIBTRNID,=X'93834040' Q-WAS THIS FOR LC TRAN 00132
BNE RETURN BIF NO 00133
CLEAR DS 0H 00134
EXEC CICS SEND CONTROL ERASE FREEKB 00135
RETURN DS 0H 00136
EXEC CICS RETURN 00137
SPACE 3 00138
PRINT OFF 00139
LTORG 00140
PRINT ON 00141
SPACE 3 00142
CSECT 001424
DC CL21'002UCTRAN41 08/25/98' 001425
END 00143

2
Batch/DESBD471.cob
View File

@ -212,7 +212,7 @@
00211 ++INCLUDE DTSIL981 DESBD471
00212 DESBD471
00213 01 WWGH-REC. DESBD471
00214 ++INCLUDE DTSIWWGH DESBD471
00214 ++INCLUDE DTSIWWGZ DESBD471
00215 DESBD471
00216 01 L983-LINK-AREA. DESBD471
00217 ++INCLUDE DTSIL983 DESBD471

2
Batch/DESBD481.cob
View File

@ -209,7 +209,7 @@
00208 ++INCLUDE DTSIL981 CL*69
00209 CL*69
00210 01 WWGH-REC. CL*69
00211 ++INCLUDE DTSIWWGH CL*69
00211 ++INCLUDE DTSIWWGZ CL*69
00212 CL*69
00213 01 L983-LINK-AREA. DESBD481
00214 ++INCLUDE DTSIL983 DESBD481

228
Batch/DOESU941.cob Normal file
View File

@ -0,0 +1,228 @@
00001 IDENTIFICATION DIVISION. 04/12/01
00002 PROGRAM-ID. DOESU941. DOESU941
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV009
00004 DATE-WRITTEN. FEBRUARY 1992. DOESU941
00005 DATE-COMPILED. DOESU941
00006 SKIP3 DOESU941
00007 ***** DOESU941
00008 * DOESU941
00009 * FUNCTION: VARIABLE LENGTH RECORD INPUT 1. DOESU941
00010 * DOESU941
00011 * DOESU941
00012 * MODIFICATION LOG: DOESU941
00013 * DOESU941
00014 * 02/13/92 INITIAL DEVELOPMENT. DOESU941
00015 * WORK ORDER: PROGRAMMER: TCL DOESU941
00016 * DOESU941
00017 * 09/30/1998 REVIEWED AND MODIFIED FOR DC. DOESU941
00018 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DOESU941
00019 * DOESU941
00020 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DOESU941
00021 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DOESU941
00022 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DOESU941
00023 * DOESU941
00024 * DOESU941
00025 * DESCRIPTION: DOESU941
00026 * DOESU941
00027 * DOESU941 PERFORMS ALL REQUIRED VARIABLE LENGTH RECORD CL**4
00028 * INPUT. DOESU941
00029 * DOESU941
00030 * DOESU941
00031 * GENERAL SPECIFICATIONS: DOESU941
00032 * DOESU941
00033 * INVENTED TO ADD FLEXIBILITY TO THE VARIABLE LENGTH DOESU941
00034 * RECORD (REPORT AND TRANSACTION) FILES. IT IS NOT DOESU941
00035 * CLEAR WHETHER QSAM OR A VSAM ESDS IS THE DOESU941
00036 * WAY TO GO. BY PUTTING THE READ IN A MODULE, IT WILL DOESU941
00037 * BE EASY TO SWITCH TECHNIQUES AT A FUTURE TIME. DOESU941
00038 * DOESU941
00039 * DOESU941
00040 * COMMAND SPECIFIC SPECIFICATIONS: DOESU941
00041 * DOESU941
00042 * OPEN-READ DOESU941
00043 * OPEN INPUT. DOESU941
00044 * DOESU941
00045 * CLOSE DOESU941
00046 * DOESU941
00047 * READ NEXT DOESU941
00048 * DOESU941
00049 * IF RSK1-REC-TYPE = '000' OR SPACES OR LOW-VALUES DOESU941
00050 * BYPASS THE RECORD. DOESU941
00051 * DOESU941
00052 * IF RVAR-LENGTH OF FILE-REC < RLEN-MIN-LENGTH DOESU941
00053 * OR DOESU941
00054 * RVAR-LENGTH OF FILE-REC > RLEN-MAX-LENGTH DOESU941
00055 * ABEND PROCESSING. DOESU941
00056 * DOESU941
00057 * VAR-CHAR-CNT MUST BE SET BEFORE THE MOVE FROM DOESU941
00058 * FILE-REC TO LINK-REC. DOESU941
00059 * DOESU941
00060 * VAR-CHAR-CNT = RVAR-LENGTH OF FILE-REC - 2. DOESU941
00061 * DOESU941
00062 ***** DOESU941
00063 SKIP3 DOESU941
00064 ENVIRONMENT DIVISION. DOESU941
00065 SKIP2 DOESU941
00066 INPUT-OUTPUT SECTION. DOESU941
00067 DOESU941
00068 FILE-CONTROL. DOESU941
00069 SELECT OPTIONAL VAR-FILE ASSIGN TO DOESVRI1 CL**6
00070 FILE STATUS IS FILE-STATUS. DOESU941
00071 SKIP3 DOESU941
00072 DATA DIVISION. DOESU941
00073 SKIP3 DOESU941
00074 FILE SECTION. DOESU941
00075 SKIP3 DOESU941
00076 FD VAR-FILE DOESU941
00077 RECORDING MODE IS V DOESU941
00078 BLOCK CONTAINS 0 RECORDS. DOESU941
00079 DOESU941
00080 01 FILE-REC. DOESU941
00081 ++INCLUDE DTSIRVAR DOESU941
00082 SKIP3 DOESU941
00083 01 RSK1-REC. DOESU941
00084 ++INCLUDE DTSIRSK1 DOESU941
00085 EJECT DOESU941
00086 WORKING-STORAGE SECTION. DOESU941
000865 77 PAN-VALET PICTURE X(24) VALUE '009DOESU941 04/12/01'. DOESU941
00087 SKIP3 DOESU941
00088 01 WRK-AREA. DOESU941
00089 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +941.DOESU941
00090 DOESU941
00091 05 VAR-CHAR-CNT PIC S9(04) COMP. DOESU941
00092 DOESU941
00093 05 WRK-REC-CNT PIC S9(07) COMP-3. DOESU941
00094 DOESU941
00095 05 FILE-STATUS PIC X(02). DOESU941
00096 88 FILE-OK-88 VALUE '00'. DOESU941
00097 88 FILE-NO-REC-88 VALUE '10'. DOESU941
00098 ***** 88 FILE-VERIFY-88 VALUE '97'. DOESU941
00099 EJECT DOESU941
00100 01 RLEN-LENGTH-LITERALS. DOESU941
00101 ++INCLUDE DTSIRLEN DOESU941
00102 EJECT DOESU941
00103 LINKAGE SECTION. DOESU941
00104 SKIP3 DOESU941
00105 01 L941-LINK-AREA. DOESU941
00106 ++INCLUDE DTSIL941 DOESU941
00107 EJECT DOESU941
00108 01 LINK-REC. DOESU941
00109 ++INCLUDE DTSIRVAR DOESU941
00110 EJECT DOESU941
00111 PROCEDURE DIVISION USING L941-LINK-AREA DOESU941
00112 LINK-REC. DOESU941
00113 DOESU941
00114 IF L941-TRACE-88 DOESU941
00115 PERFORM S9100-PRE-DISPLAY THRU S9100-EXIT. DOESU941
00116 DOESU941
00117 SET L941-OK-88 TO TRUE. DOESU941
00118 DOESU941
00119 IF L941-READ-NEXT-88 DOESU941
00120 PERFORM P2300-READ-NEXT THRU P2300-EXIT DOESU941
00121 ELSE DOESU941
00122 IF L941-OPEN-READ-88 DOESU941
00123 PERFORM P1100-OPEN-READ THRU P1100-EXIT DOESU941
00124 ELSE DOESU941
00125 IF L941-CLOSE-88 DOESU941
00126 PERFORM P1200-CLOSE THRU P1200-EXIT DOESU941
00127 ELSE DOESU941
00128 PERFORM S999-ABEND THRU S999-EXIT. DOESU941
00129 DOESU941
00130 IF L941-TRACE-88 DOESU941
00131 PERFORM S9200-POST-DISPLAY THRU S9200-EXIT. DOESU941
00132 DOESU941
00133 DOESU941
00134 GOBACK. DOESU941
00135 EJECT DOESU941
00136 P1100-OPEN-READ. DOESU941
00137 OPEN INPUT VAR-FILE. DOESU941
00138 IF FILE-OK-88 DOESU941
00139 NEXT SENTENCE DOESU941
00140 ELSE DOESU941
00141 PERFORM S999-ABEND THRU S999-EXIT. CL**5
00142 DOESU941
00143 MOVE +0 TO WRK-REC-CNT. DOESU941
00144 P1100-EXIT. DOESU941
00145 EXIT. DOESU941
00146 SKIP3 DOESU941
00147 P1200-CLOSE. DOESU941
00148 CLOSE VAR-FILE. DOESU941
00149 DOESU941
00150 IF NOT FILE-OK-88 DOESU941
00151 PERFORM S999-ABEND THRU S999-EXIT. DOESU941
00152 DOESU941
00153 DISPLAY '*** ' DOESU941
00154 WRK-REC-CNT DOESU941
00155 ' DOESVRII XEROX LABELS RECORDS READ'. CL**4
00156 P1200-EXIT. DOESU941
00157 EXIT. DOESU941
00158 EJECT DOESU941
00159 P2300-READ-NEXT. DOESU941
00160 READ VAR-FILE. DOESU941
00161 DOESU941
00162 IF FILE-NO-REC-88 DOESU941
00163 SET L941-NO-REC-88 TO TRUE DOESU941
00164 GO TO P2300-EXIT. DOESU941
00165 DOESU941
00166 IF NOT FILE-OK-88 DOESU941
00167 PERFORM S999-ABEND THRU S999-EXIT. DOESU941
00168 DOESU941
00169 IF RSK1-REC-TYPE = '000' OR SPACES OR LOW-VALUES CL**5
00170 GO TO P2300-READ-NEXT. CL**5
00171 CL**5
00172 IF (RSK1-LENGTH < RLEN-MIN-LENGTH) DOESU941
00173 OR DOESU941
00174 (RSK1-LENGTH > RLEN-MAX-LENGTH) DOESU941
00175 PERFORM S999-ABEND THRU S999-EXIT. DOESU941
00176 CL**5
00177 ADD +1 TO WRK-REC-CNT. DOESU941
00178 DOESU941
00179 COMPUTE VAR-CHAR-CNT = RVAR-LENGTH OF FILE-REC - 2. DOESU941
00180 DOESU941
00181 MOVE FILE-REC TO LINK-REC. DOESU941
00182 P2300-EXIT. DOESU941
00183 EXIT. DOESU941
00184 EJECT DOESU941
00185 S9100-PRE-DISPLAY. DOESU941
00186 DISPLAY ' '. DOESU941
00187 DOESU941
00188 DISPLAY ' '. DOESU941
00189 DOESU941
00190 DISPLAY '*** DOESU941 PRE TRACE DISPLAY ***'. CL**4
00191 DOESU941
00192 DISPLAY L941-MOD-NAME DOESU941
00193 ' = L941-MOD-NAME'. DOESU941
00194 DOESU941
00195 DISPLAY L941-CMND-CD DOESU941
00196 ' = L941-CMND-CD'. DOESU941
00197 S9100-EXIT. DOESU941
00198 EXIT. DOESU941
00199 SKIP3 DOESU941
00200 S9200-POST-DISPLAY. DOESU941
00201 DISPLAY ' '. DOESU941
00202 DOESU941
00203 DISPLAY '*** DOESU941 POST TRACE DISPLAY ***'. CL**4
00204 DOESU941
00205 DISPLAY L941-RESULT-IND DOESU941
00206 ' = L941-RESULT-IND'. DOESU941
00207 DOESU941
00208 DISPLAY RVAR-LENGTH OF LINK-REC DOESU941
00209 ' = RVAR-LENGTH OF LINK-REC'. DOESU941
00210 DOESU941
00211 DISPLAY RVAR-CHAR OF LINK-REC (1) DOESU941
00212 RVAR-CHAR OF LINK-REC (2) DOESU941
00213 RVAR-CHAR OF LINK-REC (3) DOESU941
00214 ' = REC-TYPE OF LINK-REC'. DOESU941
00215 S9200-EXIT. DOESU941
00216 EXIT. DOESU941
00217 EJECT DOESU941
00218 S999-ABEND. DOESU941
00219 DISPLAY '*** I/O MODULE ABENDING'. DOESU941
00220 DOESU941
00221 DISPLAY '*** CMND-CD = ' L941-CMND-CD. DOESU941
00222 DOESU941
00223 DISPLAY '*** FILE-STATUS = ' FILE-STATUS. DOESU941
00224 DOESU941
00225 CALL 'DTSBU999' USING WRK-ABEND-CD. DOESU941
00226 S999-EXIT. DOESU941
00227 EXIT. DOESU941

6
Batch/DTSBD998.cob
View File

@ -280,7 +280,11 @@
00280 01 WRK-REC. DTSBD998
00281 ++INCLUDE DTSIVSKL DTSBD998
00282 EJECT DTSBD998
00283 FD OLA-FILE. DTSBD998
00283 FD OLA-FILE DTSBD998
NEERAJ RECORDING MODE IS V DTSBD998
NEERAJ BLOCK CONTAINS 0 CHARACTERS DTSBD998
NEERAJ RECORD CONTAINS 1 TO 4089 CHARACTERS DTSBD998
NEERAJ LABEL RECORDS ARE STANDARD. DTSBD998
00284 DTSBD998
00285 01 RSKL-REC. DTSBD998
00286 ++INCLUDE DTSIRSK1 DTSBD998

24
Batch/DTSBE770.cob
View File

@ -764,18 +764,18 @@
00763 PROCEDURE DIVISION USING LECM-LINK-AREA DTSBE770
00764 MPRF-LINK-REC. DTSBE770
00765 DTSBE770
00766 IF LECM-PROCESS-88 DTSBE770
00767 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBE770
00768 ELSE DTSBE770
00769 IF LECM-INITIALIZE-88 DTSBE770
00770 PERFORM I0000-INITIALIZE THRU I0000-EXIT DTSBE770
00771 ELSE DTSBE770
00772 IF LECM-TERMINATE-88 DTSBE770
00773 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBE770
00774 ELSE DTSBE770
00775 MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED' DTSBE770
00776 TO ABEND-MSG DTSBE770
00777 PERFORM S999-ABEND THRU S999-EXIT. DTSBE770
00766 * IF LECM-PROCESS-88 DTSBE770
00767 * PERFORM P0000-PROCESS THRU P0000-EXIT DTSBE770
00768 * ELSE DTSBE770
00769 * IF LECM-INITIALIZE-88 DTSBE770
00770 * PERFORM I0000-INITIALIZE THRU I0000-EXIT DTSBE770
00771 * ELSE DTSBE770
00772 * IF LECM-TERMINATE-88 DTSBE770
00773 * PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBE770
00774 * ELSE DTSBE770
00775 * MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED' DTSBE770
00776 * TO ABEND-MSG DTSBE770
00777 * PERFORM S999-ABEND THRU S999-EXIT. DTSBE770
00778 SKIP2 DTSBE770
00779 GOBACK. DTSBE770
00780 EJECT DTSBE770

6
Batch/DTSBU924.cob
View File

@ -73,7 +73,11 @@
00073 SKIP3 DTSBU924
00074 FILE SECTION. DTSBU924
00075 SKIP3 DTSBU924
00076 FD OLA-FILE. DTSBU924
00076 FD OLA-FILE DTSBU924
NEERAJ RECORDING MODE IS V DTSBU924
NEERAJ BLOCK CONTAINS 0 CHARACTERS DTSBU924
NEERAJ RECORD CONTAINS 1 TO 4089 CHARACTERS DTSBU924
NEERAJ LABEL RECORDS ARE STANDARD. DTSBU924
00077 CL**2
00078 01 FILE-REC. DTSBU924
00079 ++INCLUDE DTSIRVAR CL**2

4
Batch/DTSBU981.cob
View File

@ -87,7 +87,7 @@
00087 FD WGH-FILE. DTSBU981
00088 DTSBU981
00089 01 FILE-REC. DTSBU981
00090 ++INCLUDE DTSIWWGH DTSBU981
00090 ++INCLUDE DTSIWWGZ DTSBU981
00091 EJECT DTSBU981
00092 WORKING-STORAGE SECTION. DTSBU981
000925 77 PAN-VALET PICTURE X(24) VALUE '011DTSBU981 04/05/04'. DTSBU981
@ -131,7 +131,7 @@
00130 EJECT DTSBU981
00131 01 LINK-REC. DTSBU981
00132 05 WWGH-REC. DTSBU981
00133 ++INCLUDE DTSIWWGH DTSBU981
00133 ++INCLUDE DTSIWWGZ DTSBU981
00134 EJECT DTSBU981
00135 PROCEDURE DIVISION USING L981-LINK-AREA DTSBU981
00136 LINK-REC. DTSBU981

372
Batch/DTSBU985.cob Normal file
View File

@ -0,0 +1,372 @@
00001 IDENTIFICATION DIVISION. 03/14/16
00002 PROGRAM-ID. DTSBU985. DTSBU985
00003 AUTHOR. NGI. LV006
00004 DATE-WRITTEN. DECEMBER 2015. CL**2
00005 DATE-COMPILED. DTSBU985
00006 SKIP3 DTSBU985
00007 ***** DTSBU985
00008 * DTSBU985
00009 * FUNCTION: GET BATCH NO FROM SERVER HISTORY FILE CL**2
00010 * DTSBU985
00011 * DTSBU985
00012 * MODIFICATION LOG: DTSBU985
00013 * DTSBU985
00014 * 12/15/2015 INITIAL DEVELOPMENT. CL**2
00015 * WORK ORDER: PROGRAMMER: ZL1 CL**2
00016 * DTSBU985
00017 * DTSBU985
00018 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU985
00019 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU985
00020 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBU985
00021 * DTSBU985
00022 * DTSBU985
00023 * DESCRIPTION: DTSBU985
00024 * DTSBU985
00025 * DTSBU985 PERFORMS ALL REQUIRED BATCH HISTORY FILE CL**2
00026 * INPUT/OUTPUT. DTSBU985
00027 * DTSBU985
00028 * DTSBU985
00029 * GENERAL SPECIFICATIONS: DTSBU985
00030 * DTSBU985
00031 * ALL COMMANDS ARE VALID. DTSBU985
00032 * DTSBU985
00033 * IF AN INVALID COMMAND IS REQUESTED, THEN ABEND THE DTSBU985
00034 * MODULE. DTSBU985
00035 * DTSBU985
00036 * IF A FILE-STATUS OF OTHER THAN '00', '10', OR '23' IS DTSBU985
00037 * ENCOUNTERED, THEN ABEND PROCESSING (TOLERATE A DTSBU985
00038 * FILE-STATUS OF '97' FROM AN OPEN COMMAND). DTSBU985
00039 * DTSBU985
00040 * DTSBU985
00041 * DTSBU985
00042 * COMMAND SPECIFIC SPECIFICATIONS: DTSBU985
00043 * DTSBU985
00044 * OPEN-READ DTSBU985
00045 * OPEN INPUT. DTSBU985
00046 * DTSBU985
00047 * OPEN-UPDATE DTSBU985
00048 * OPEN I-O. DTSBU985
00049 * DTSBU985
00050 * CLOSE DTSBU985
00051 * DTSBU985
00052 * READ DTSBU985
00053 * DTSBU985
00054 * START BROWSE DTSBU985
00055 * IF THE START-BROWSE IS SUCCESSFUL, THEN PERFORM THE DTSBU985
00056 * READ-NEXT LOGIC. A SUCCESSFUL START-BROWSE RETURNS DTSBU985
00057 * A RECORD. DTSBU985
00058 * DTSBU985
00059 * READ NEXT DTSBU985
00060 * DTSBU985
00061 * WRITE DTSBU985
00062 * DTSBU985
00063 * REWRITE DTSBU985
00064 * DTSBU985
00065 * DELETE DTSBU985
00066 * DTSBU985
00067 * DTSBU985
00068 ***** DTSBU985
00069 SKIP3 DTSBU985
00070 ENVIRONMENT DIVISION. DTSBU985
00071 SKIP2 DTSBU985
00072 INPUT-OUTPUT SECTION. DTSBU985
00073 DTSBU985
00074 FILE-CONTROL. DTSBU985
00075 SELECT BATCH-FILE ASSIGN TO DTSFBAT CL**2
00076 ORGANIZATION IS INDEXED DTSBU985
00077 RECORD KEY IS WBAT-KEY-AREA OF FILE-REC CL**2
00078 FILE STATUS IS FILE-STATUS DTSBU985
00079 ACCESS IS DYNAMIC. DTSBU985
00080 SKIP3 DTSBU985
00081 DATA DIVISION. DTSBU985
00082 SKIP3 DTSBU985
00083 FILE SECTION. DTSBU985
00084 SKIP3 DTSBU985
00085 FD BATCH-FILE. CL**2
00086 DTSBU985
00087 01 FILE-REC. DTSBU985
00088 ++INCLUDE DTSIWBAT CL**2
00089 EJECT DTSBU985
00090 WORKING-STORAGE SECTION. DTSBU985
000905 77 PAN-VALET PICTURE X(24) VALUE '006DTSBU985 03/14/16'. DTSBU985
00091 77 PAN-VALET PICTURE X(24) VALUE '011DTSBU981 04/05/04'. DTSBU985
00092 SKIP3 DTSBU985
00093 01 WRK-AREA. DTSBU985
00094 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +985. CL**2
00095 DTSBU985
00096 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBU985'. CL**2
00097 DTSBU985
00098 05 WRK-REC-PREFIX PIC X(04). DTSBU985
00099 DTSBU985
00100 05 WRK-KEY-LENGTH PIC S9(04) COMP DTSBU985
00101 VALUE +12. DTSBU985
00102 DTSBU985
00103 05 FILE-STATUS PIC X(02). DTSBU985
00104 88 FILE-OK-88 VALUE '00'. DTSBU985
00105 88 FILE-NO-REC-88 VALUE '10' '23'. DTSBU985
00106 88 FILE-DUP-REC-88 VALUE '22'. DTSBU985
00107 88 FILE-VERIFY-88 VALUE '97'. DTSBU985
00108 EJECT DTSBU985
00109 01 WS-SPEC-DISP-AREA. DTSBU985
00110 DTSBU985
00111 10 WS-KEY-AREA. DTSBU985
00112 15 WS-EMP-NO PIC 9(07). DTSBU985
00113 15 FILLER PIC X(01) VALUE SPACE. DTSBU985
00114 15 WS-YRQ PIC 9(05). DTSBU985
00115 15 FILLER PIC X(01) VALUE SPACE. DTSBU985
00116 15 WS-SSN PIC 9(09). DTSBU985
00117 15 FILLER PIC X(01) VALUE SPACE. DTSBU985
00118 DTSBU985
00119 10 WS-DATA-AREA. DTSBU985
00120 15 WS-EARNINGS PIC 9(09)V99-. DTSBU985
00121 EJECT DTSBU985
00122 01 L991-LINK-AREA. DTSBU985
00123 ++INCLUDE DTSIL991 DTSBU985
00124 EJECT DTSBU985
00125 LINKAGE SECTION. DTSBU985
00126 SKIP3 DTSBU985
00127 01 L985-LINK-AREA. CL**2
00128 ++INCLUDE DTSIL985 CL**2
00129 EJECT DTSBU985
00130 01 LINK-REC. DTSBU985
00131 05 WBAT-REC. CL**2
00132 ++INCLUDE DTSIWBAT CL**2
00133 EJECT DTSBU985
00134 PROCEDURE DIVISION USING L985-LINK-AREA CL**2
00135 LINK-REC. DTSBU985
00136 DTSBU985
00137 SET L985-OK-88 TO TRUE. CL**2
00138 DTSBU985
00139 IF L985-TRACE-88 CL**2
00140 PERFORM S9100-PRE-DISPLAY THRU S9100-EXIT. DTSBU985
00141 DTSBU985
00142 IF L985-READ-NEXT-88 CL**2
00143 PERFORM P2300-READ-NEXT THRU P2300-EXIT DTSBU985
00144 ELSE DTSBU985
00145 IF L985-READ-88 CL**2
00146 PERFORM P2100-READ THRU P2100-EXIT DTSBU985
00147 ELSE DTSBU985
00148 IF L985-START-BROWSE-88 CL**2
00149 PERFORM P2200-START-BROWSE THRU P2200-EXIT DTSBU985
00150 ELSE DTSBU985
00151 IF L985-WRITE-88 CL**2
00152 PERFORM P3100-WRITE THRU P3100-EXIT DTSBU985
00153 ELSE DTSBU985
00154 IF L985-REWRITE-88 CL**2
00155 PERFORM P3200-REWRITE THRU P3200-EXIT DTSBU985
00156 ELSE DTSBU985
00157 IF L985-DELETE-88 CL**2
00158 PERFORM P3300-DELETE THRU P3300-EXIT DTSBU985
00159 ELSE DTSBU985
00160 IF L985-OPEN-READ-88 CL**2
00161 OR DTSBU985
00162 L985-OPEN-UPDATE-88 CL**2
00163 PERFORM P1100-OPEN THRU P1100-EXIT DTSBU985
00164 ELSE DTSBU985
00165 IF L985-CLOSE-88 CL**2
00166 PERFORM P1200-CLOSE THRU P1200-EXIT DTSBU985
00167 ELSE DTSBU985
00168 PERFORM S999-ABEND THRU S999-EXIT. DTSBU985
00169 DTSBU985
00170 IF L985-TRACE-88 CL**2
00171 PERFORM S9200-POST-DISPLAY THRU S9200-EXIT. DTSBU985
00172 SKIP2 DTSBU985
00173 GOBACK. DTSBU985
00174 EJECT DTSBU985
00175 P1100-OPEN. DTSBU985
00176 IF L985-OPEN-UPDATE-88 CL**2
00177 OPEN I-O BATCH-FILE CL**2
00178 ELSE DTSBU985
00179 OPEN INPUT BATCH-FILE. CL**2
00180 DTSBU985
00181 IF FILE-OK-88 OR FILE-VERIFY-88 DTSBU985
00182 NEXT SENTENCE DTSBU985
00183 ELSE DTSBU985
00184 PERFORM S999-ABEND THRU S999-EXIT. DTSBU985
00185 P1100-EXIT. DTSBU985
00186 EXIT. DTSBU985
00187 SKIP3 DTSBU985
00188 P1200-CLOSE. DTSBU985
00189 CLOSE BATCH-FILE. CL**2
00190 DTSBU985
00191 IF FILE-OK-88 DTSBU985
00192 NEXT SENTENCE DTSBU985
00193 ELSE DTSBU985
00194 PERFORM S999-ABEND THRU S999-EXIT. DTSBU985
00195 P1200-EXIT. DTSBU985
00196 EXIT. DTSBU985
00197 EJECT DTSBU985
00198 P2100-READ. DTSBU985
00199 MOVE WBAT-KEY-AREA OF LINK-REC CL**2
00200 TO WBAT-KEY-AREA OF FILE-REC. CL**2
00201 DTSBU985
00202 READ BATCH-FILE. CL**2
00203 DTSBU985
00204 IF FILE-OK-88 DTSBU985
00205 * MOVE FILE-REC TO LINK-REC CL**3
00206 SET L985-OK-88 TO TRUE CL**5
00207 PERFORM P2300-READ-NEXT THRU P2300-EXIT CL**3
00208 ELSE DTSBU985
00209 IF FILE-NO-REC-88 DTSBU985
00210 PERFORM S1100-NO-REC THRU S1100-EXIT DTSBU985
00211 ELSE DTSBU985
00212 SET L985-FILE-CLOSED-88 TO TRUE CL**5
00213 DISPLAY '*** FILE-STATUS = ' FILE-STATUS CL**5
00214 PERFORM S999-ABEND THRU S999-EXIT. DTSBU985
00215 P2100-EXIT. DTSBU985
00216 EXIT. DTSBU985
00217 EJECT DTSBU985
00218 P2200-START-BROWSE. DTSBU985
00219 MOVE WBAT-KEY-AREA OF LINK-REC CL**2
00220 TO WBAT-KEY-AREA OF FILE-REC. CL**2
00221 DTSBU985
00222 START BATCH-FILE CL**2
00223 KEY IS NOT < WBAT-KEY-AREA OF FILE-REC. CL**2
00224 DTSBU985
00225 IF FILE-OK-88 DTSBU985
00226 SET L985-OK-88 TO TRUE CL**5
00227 PERFORM P2300-READ-NEXT THRU P2300-EXIT 2 TIMES CL**6
00228 * PERFORM P2100-READ THRU P2100-EXIT CL**6
00229 ELSE DTSBU985
00230 IF FILE-NO-REC-88 DTSBU985
00231 PERFORM S1100-NO-REC THRU S1100-EXIT DTSBU985
00232 ELSE DTSBU985
00233 SET L985-FILE-CLOSED-88 TO TRUE CL**5
00234 DISPLAY '*** FILE-STATUS = ' FILE-STATUS CL**5
00235 PERFORM S999-ABEND THRU S999-EXIT. DTSBU985
00236 P2200-EXIT. DTSBU985
00237 EXIT. DTSBU985
00238 EJECT DTSBU985
00239 P2300-READ-NEXT. DTSBU985
00240 READ BATCH-FILE NEXT. CL**2
00241 DTSBU985
00242 IF FILE-OK-88 DTSBU985
00243 MOVE FILE-REC TO LINK-REC DTSBU985
00244 SET L985-OK-88 TO TRUE CL**5
00245 ELSE DTSBU985
00246 IF FILE-NO-REC-88 DTSBU985
00247 PERFORM S1100-NO-REC THRU S1100-EXIT DTSBU985
00248 ELSE DTSBU985
00249 SET L985-FILE-CLOSED-88 TO TRUE CL**5
00250 DISPLAY '*** FILE-STATUS = ' FILE-STATUS CL**5
00251 PERFORM S999-ABEND THRU S999-EXIT. DTSBU985
00252 P2300-EXIT. DTSBU985
00253 EXIT. DTSBU985
00254 EJECT DTSBU985
00255 P3100-WRITE. DTSBU985
00256 MOVE LINK-REC TO FILE-REC. DTSBU985
00257 DTSBU985
00258 WRITE FILE-REC. DTSBU985
00259 DTSBU985
00260 IF FILE-OK-88 DTSBU985
00261 NEXT SENTENCE DTSBU985
00262 ELSE DTSBU985
00263 PERFORM S999-ABEND THRU S999-EXIT CL**2
00264 END-IF. DTSBU985
00265 P3100-EXIT. DTSBU985
00266 EXIT. DTSBU985
00267 EJECT DTSBU985
00268 P3200-REWRITE. DTSBU985
00269 MOVE LINK-REC TO FILE-REC. DTSBU985
00270 DTSBU985
00271 REWRITE FILE-REC. DTSBU985
00272 DTSBU985
00273 IF FILE-OK-88 DTSBU985
00274 NEXT SENTENCE DTSBU985
00275 ELSE DTSBU985
00276 PERFORM S999-ABEND THRU S999-EXIT. DTSBU985
00277 P3200-EXIT. DTSBU985
00278 EXIT. DTSBU985
00279 EJECT DTSBU985
00280 P3300-DELETE. DTSBU985
00281 MOVE WBAT-KEY-AREA OF LINK-REC CL**2
00282 TO WBAT-KEY-AREA OF FILE-REC. CL**2
00283 DTSBU985
00284 DELETE BATCH-FILE RECORD. CL**2
00285 DTSBU985
00286 IF FILE-OK-88 DTSBU985
00287 NEXT SENTENCE DTSBU985
00288 ELSE DTSBU985
00289 PERFORM S999-ABEND THRU S999-EXIT. DTSBU985
00290 P3300-EXIT. DTSBU985
00291 EXIT. DTSBU985
00292 EJECT DTSBU985
00293 S1100-NO-REC. DTSBU985
00294 SET L985-NO-REC-88 TO TRUE. CL**2
00295 S1100-EXIT. DTSBU985
00296 EXIT. DTSBU985
00297 SKIP3 DTSBU985
00298 S9100-PRE-DISPLAY. DTSBU985
00299 DISPLAY ' '. DTSBU985
00300 DTSBU985
00301 DISPLAY ' '. DTSBU985
00302 DTSBU985
00303 DISPLAY '*** DTSBU985 PRE TRACE DISPLAY ***'. CL**2
00304 DTSBU985
00305 DISPLAY L985-MOD-NAME CL**2
00306 ' = L985-MOD-NAME'. CL**2
00307 DTSBU985
00308 DISPLAY L985-CMND-CD CL**2
00309 ' = L985-CMND-CD'. CL**2
00310 DTSBU985
00311 PERFORM S9300-REC-DISPLAY THRU S9300-EXIT. DTSBU985
00312 S9100-EXIT. DTSBU985
00313 EXIT. DTSBU985
00314 SKIP3 DTSBU985
00315 S9200-POST-DISPLAY. DTSBU985
00316 DISPLAY ' '. DTSBU985
00317 DTSBU985
00318 DISPLAY ' '. DTSBU985
00319 DTSBU985
00320 DISPLAY '*** DTSBU985 POST TRACE DISPLAY ***'. CL**2
00321 DTSBU985
00322 DISPLAY L985-RESULT-IND CL**2
00323 ' = L985-RESULT-IND'. CL**2
00324 DTSBU985
00325 PERFORM S9300-REC-DISPLAY THRU S9300-EXIT. DTSBU985
00326 S9200-EXIT. DTSBU985
00327 EXIT. DTSBU985
00328 SKIP3 DTSBU985
00329 S9300-REC-DISPLAY. DTSBU985
00330 DISPLAY ' '. DTSBU985
00331 DTSBU985
00332 MOVE 'WBAT' TO WRK-REC-PREFIX. CL**2
00333 MOVE WRK-KEY-LENGTH TO L991-REQ-CHAR-CNT. DTSBU985
00334 DTSBU985
00335 MOVE WBAT-KEY-AREA OF LINK-REC TO L991-REQ-AREA. CL**2
00336 DTSBU985
00337 PERFORM S991-HEX-FORMAT THRU S991-EXIT. DTSBU985
00338 DTSBU985
00339 DISPLAY 'REC TYPE = ' DTSBU985
00340 WRK-REC-PREFIX. DTSBU985
00341 DTSBU985
00342 DISPLAY 'KEY AREA = ' DTSBU985
00343 L991-REPLY-HEX-1-AREA. DTSBU985
00344 DTSBU985
00345 DISPLAY ' ' DTSBU985
00346 L991-REPLY-HEX-2-AREA. DTSBU985
00347 DTSBU985
00348 DISPLAY ' ' DTSBU985
00349 L991-REPLY-AN-AREA. DTSBU985
00350 S9300-EXIT. DTSBU985
00351 EXIT. DTSBU985
00352 EJECT DTSBU985
00353 S991-HEX-FORMAT. DTSBU985
00354 CALL 'DTSBU991' USING L991-LINK-AREA. DTSBU985
00355 S991-EXIT. DTSBU985
00356 EXIT. DTSBU985
00357 EJECT DTSBU985
00358 S999-ABEND. DTSBU985
00359 DISPLAY '*** I/O MODULE ABENDING'. DTSBU985
00360 DTSBU985
00361 DISPLAY '*** CMND-CD = ' L985-CMND-CD. CL**2
00362 DTSBU985
00363 DISPLAY '*** FILE-STATUS = ' FILE-STATUS. DTSBU985
00364 DTSBU985
00365 DISPLAY '*** CALLING MODULE = ' L985-MOD-NAME. CL**2
00366 DTSBU985
00367 PERFORM S9300-REC-DISPLAY THRU S9300-EXIT. DTSBU985
00368 DTSBU985
00369 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBU985
00370 S999-EXIT. DTSBU985
00371 EXIT. DTSBU985

1060
Batch/DTSBX427.cob
View File

File diff suppressed because it is too large Load Diff

540
Batch/DTSBX478.cob
View File

@ -1,540 +0,0 @@
00001 IDENTIFICATION DIVISION. 11/14/24
00002 PROGRAM-ID. DTSBX478. DTSBX478
00003 AUTHOR. NGC. LV007
00004 DATE-WRITTEN. DECEMBER 2012. DTSBX478
00005 DATE-COMPILED. DTSBX478
00006 SKIP3 DTSBX478
00007 ***** DTSBX478
00008 * DTSBX478
00009 * ZUNCTION: DELETE WAGES TO WGH FILE FOR TESTING. DTSBX478
00010 * FOR TAX WAGES SINCE UIBS 01/21/24 ZL1 DTSBX478
00011 * DTSBX478
00012 * DTSBX478
00013 * MODIFICATION LOG: DTSBX478
00014 * DTSBX478
00015 * 12/06/2012 INITIAL DEVELOPMENT. DTSBX478
00016 * WORK ORDER: PROGRAMMER: GD DTSBX478
00017 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBX478
00018 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBX478
00019 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBX478
00020 * DTSBX478
00021 * DTSBX478
00022 * DESCRIPTION: DTSBX478
00023 * DTSBX478
00024 * DTSBX478
00025 * DTSBX478
00026 * DTSBX478
00027 * DTSBX478
00028 * DTSBX478
00029 * DTSBX478
00030 * DTSBX478
00031 * DTSBX478
00032 * DTSBX478
00033 * DTSBX478
00034 * GENERAL SPECIFICATIONS: DTSBX478
00035 * DTSBX478
00036 * ALL COMMANDS ARE VALID. DTSBX478
00037 * DTSBX478
00038 * IF AN INVALID COMMAND IS REQUESTED, THEN ABEND THE DTSBX478
00039 * MODULE. DTSBX478
00040 * DTSBX478
00041 * IF A FILE-STATUS OF OTHER THAN '00', '10', OR '23' IS DTSBX478
00042 * ENCOUNTERED, THEN ABEND PROCESSING (TOLERATE A DTSBX478
00043 * FILE-STATUS OF '97' FROM AN OPEN COMMAND). DTSBX478
00044 * DTSBX478
00045 * DTSBX478
00046 * DTSBX478
00047 * COMMAND SPECIFIC SPECIFICATIONS: DTSBX478
00048 * DTSBX478
00049 * OPEN-READ DTSBX478
00050 * OPEN INPUT. DTSBX478
00051 * DTSBX478
00052 * OPEN-UPDATE DTSBX478
00053 * OPEN I-O. DTSBX478
00054 * DTSBX478
00055 * CLOSE DTSBX478
00056 * DTSBX478
00057 * READ DTSBX478
00058 * DTSBX478
00059 * START BROWSE DTSBX478
00060 * IF THE START-BROWSE IS SUCCESSFUL, THEN PERFORM THE DTSBX478
00061 * READ-NEXT LOGIC. A SUCCESSFUL START-BROWSE RETURNS DTSBX478
00062 * A RECORD. DTSBX478
00063 * DTSBX478
00064 * READ NEXT DTSBX478
00065 * DTSBX478
00066 * WRITE DTSBX478
00067 * DTSBX478
00068 * REWRITE DTSBX478
00069 * DTSBX478
00070 * DELETE DTSBX478
00071 * DTSBX478
00072 * DTSBX478
00073 ***** DTSBX478
00074 DTSBX478
00075 ENVIRONMENT DIVISION. DTSBX478
00076 DTSBX478
00077 INPUT-OUTPUT SECTION. DTSBX478
00078 DTSBX478
00079 FILE-CONTROL. DTSBX478
00080 SELECT W2GE-TRANS-FILE ASSIGN TO DTSFW2 CL**3
00081 FILE STATUS IS WAGE-TRANS-STATUS. DTSBX478
00082 DTSBX478
00083 SELECT W4GE-TRANS-FILE ASSIGN TO DTSFW4 CL**3
00084 FILE STATUS IS WAGE-TRANS-STATUS. CL**3
00085 CL**5
00086 SELECT UIBS-TRANS-FILE ASSIGN TO DTSFUIBS CL**5
00087 FILE STATUS IS WAGE-TRANS-STATUS. CL**5
00088 CL**3
00089 * SELECT TAXWGH-FILE ASSIGN TO DTSXWGH DTSBX478
00090 * FILE STATUS IS DOWNLOAD-STATUS. DTSBX478
00091 DTSBX478
00092 DATA DIVISION. DTSBX478
00093 DTSBX478
00094 FILE SECTION. DTSBX478
00095 DTSBX478
00096 FD W2GE-TRANS-FILE CL**3
00097 RECORDING MODE IS F DTSBX478
00098 BLOCK CONTAINS 0 RECORDS. DTSBX478
00099 DTSBX478
00100 01 W2GE-TRANS-REC PIC X(80). CL**3
00101 DTSBX478
00102 FD UIBS-TRANS-FILE CL**5
00103 RECORDING MODE IS F CL**5
00104 BLOCK CONTAINS 0 RECORDS. CL**5
00105 CL**5
00106 01 UIBS-TRANS-REC PIC X(80). CL**5
00107 CL**5
00108 CL**3
00109 FD W4GE-TRANS-FILE CL**3
00110 RECORDING MODE IS F CL**3
00111 BLOCK CONTAINS 0 RECORDS. CL**3
00112 CL**3
00113 01 W4GE-TRANS-REC PIC X(80). CL**3
00114 CL**3
00115 *FD TAXWGH-FILE DTSBX478
00116 * RECORDING MODE IS F DTSBX478
00117 * BLOCK CONTAINS 0 RECORDS. DTSBX478
00118 DTSBX478
00119 *01 TAXWGH-REC PIC X(18). DTSBX478
00120 DTSBX478
00121 WORKING-STORAGE SECTION. DTSBX478
001215 77 PAN-VALET PICTURE X(24) VALUE '007DTSBX478 11/14/24'. DTSBX478
00122 SKIP3 DTSBX478
00123 01 WRK-AREA. DTSBX478
00124 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +480. DTSBX478
00125 DTSBX478
00126 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBU480'. DTSBX478
00127 DTSBX478
00128 05 W-CURR-EMP-NO PIC S9(06) COMP-3 VALUE +0. DTSBX478
00129 05 W-CURR-YRQ PIC S9(05) COMP-3 DTSBX478
00130 VALUE +20121. DTSBX478
00131 05 W-CURR-BATCH PIC S9(05) COMP-3 VALUE +0. DTSBX478
00132 05 W-CURR-ITEM PIC S9(03) COMP-3 VALUE +0. DTSBX478
00133 05 W-MQTR-TOT-WAGE PIC S9(11)V99 COMP-3 DTSBX478
00134 VALUE +0. DTSBX478
00135 05 W-WTC-BATCH-NO PIC S9(05) COMP-3 DTSBX478
00136 VALUE +90001. DTSBX478
00137 05 W-WTC-ITEM-NO PIC S9(03) COMP-3 DTSBX478
00138 VALUE +003. DTSBX478
00139 05 W-WTC-SEQ-NO PIC S9(03) COMP-3 DTSBX478
00140 VALUE +001. DTSBX478
00141 05 W-MAX-BATCH PIC S9(05) COMP-3 VALUE +0. DTSBX478
00142 05 W-MIN-BATCH PIC S9(05) COMP-3 DTSBX478
00143 VALUE +99999. DTSBX478
00144 05 WRK-W2-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX478
00145 05 WRK-W4-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX478
00146 05 WRK-WWGH-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX478
00147 05 WRK-DELETE-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX478
00148 05 W-BYPASSED-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX478
00149 05 W-BACKLOG PIC S9(07) COMP-3 VALUE +0. DTSBX478
00150 05 AMT-DISP1 PIC ----------9.99. DTSBX478
00151 05 AMT-DISP2 PIC ----------9.99. DTSBX478
00152 05 AMT-DISP3 PIC ----------9.99. DTSBX478
00153 05 AMT-DISP4 PIC ----------9.99. DTSBX478
00154 DTSBX478
00155 05 WRK-NET-WAGE PIC S9(11)V99 COMP-3 DTSBX478
00156 VALUE +0. DTSBX478
00157 05 W-WGH-WAGE PIC S9(11)V99 COMP-3 DTSBX478
00158 VALUE +0. DTSBX478
00159 05 W-WORKER-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX478
00160 05 W-DIFFERENCE PIC S9(11)V99 COMP-3 DTSBX478
00161 VALUE +0. DTSBX478
00162 DTSBX478
00163 05 W2-REC-READ PIC 9(9) VALUE 0. DTSBX478
00164 05 W4-REC-READ PIC 9(9) VALUE 0. DTSBX478
00165 05 W4-REC-FOUND PIC 9(9) VALUE 0. DTSBX478
00166 05 W4-REC-ADDED PIC 9(9) VALUE 0. DTSBX478
00167 05 W2-REC-DELETED PIC 9(9) VALUE 0. DTSBX478
00168 05 W2-REC-FOUND PIC 9(9) VALUE 0. DTSBX478
00169 DTSBX478
00170 05 W-RESP-OPID PIC X(08). DTSBX478
00171 05 WRK-ERROR-IND PIC X(01). DTSBX478
00172 88 WRK-ERROR-YES-88 VALUE 'Y'. DTSBX478
00173 88 WRK-ERROR-NO-88 VALUE 'N'. DTSBX478
00174 DTSBX478
00175 05 W-EMP-EXISTS-IND PIC X(01). DTSBX478
00176 88 W-EMP-EXISTS-YES-88 VALUE 'Y'. DTSBX478
00177 88 W-EMP-EXISTS-NO-88 VALUE 'N'. DTSBX478
00178 05 W-DELINQUENT-IND PIC X(01). DTSBX478
00179 88 W-DELINQUENT-YES-88 VALUE 'Y'. DTSBX478
00180 88 W-DELINQUENT-NO-88 VALUE 'N'. DTSBX478
00181 05 WAGE-TRANS-STATUS PIC X(02). DTSBX478
00182 88 WAGE-TRANS-FILE-OK-88 VALUE '00'. DTSBX478
00183 88 WAGE-TRANS-FILE-NO-REC-88 VALUE '10' '23'. DTSBX478
00184 88 WAGE-TRANS-FILE-VERIFY-88 VALUE '97'. DTSBX478
00185 DTSBX478
00186 05 DOWNLOAD-STATUS PIC X(02). DTSBX478
00187 88 DOWNLOAD-FILE-OK-88 VALUE '00'. DTSBX478
00188 DTSBX478
00189 05 WRK-YRQ PIC 9(05). DTSBX478
00190 05 FILLER REDEFINES WRK-YRQ. DTSBX478
00191 10 WRK-YRQ-YEAR PIC 9(04). DTSBX478
00192 10 WRK-YRQ-QTR PIC 9(01). DTSBX478
00193 DTSBX478
00194 05 WRK-YRQ-X. DTSBX478
00195 10 WRK-YRQ-YEAR-X PIC 9(04). DTSBX478
00196 10 FILLER PIC X(01) VALUE '/'. DTSBX478
00197 10 WRK-YRQ-QTR-X PIC 9(01). DTSBX478
00198 DTSBX478
00199 01 OUT-W4-REC. CL**5
00200 10 FILLER PIC X(10) VALUE SPACES. CL**5
00201 10 FILLER PIC X(35) VALUE CL**5
00202 'TOTAL W4 TRANS REC SENT TO UIBS = '. CL**7
00203 10 W4-COUNT PIC ZZZZ999. CL**6
00204 10 FILLER PIC X(28) VALUE SPACES. CL**6
00205 CL**5
00206 01 OUT-W2-REC. CL**6
00207 10 FILLER PIC X(10) VALUE SPACES. CL**6
00208 10 FILLER PIC X(35) VALUE CL**6
00209 'TOTAL W2 TRANS REC SENT TO UIBS = '. CL**7
00210 10 W2-COUNT PIC ZZZZ999. CL**6
00211 10 FILLER PIC X(28) VALUE SPACES. CL**6
00212 CL**6
00213 01 L004-COMM-AREA. CL**5
00214 ++INCLUDE DTSIL004 DTSBX478
00215 DTSBX478
00216 01 L424-LINK-AREA. DTSBX478
00217 ++INCLUDE DTSIL424 DTSBX478
00218 DTSBX478
00219 01 L516-LINK-AREA. DTSBX478
00220 ++INCLUDE DTSIL516 DTSBX478
00221 DTSBX478
00222 01 L910-LINK-AREA. DTSBX478
00223 ++INCLUDE DTSIL910 DTSBX478
00224 DTSBX478
00225 01 X147-REC. DTSBX478
00226 ++INCLUDE DTSIX147 DTSBX478
00227 DTSBX478
00228 01 MSKL-REC. DTSBX478
00229 ++INCLUDE DTSIMSKL DTSBX478
00230 DTSBX478
00231 01 MPRF-REC. DTSBX478
00232 ++INCLUDE DTSIMPRF DTSBX478
00233 DTSBX478
00234 01 MQTR-REC. DTSBX478
00235 ++INCLUDE DTSIMQTR DTSBX478
00236 DTSBX478
00237 01 L931-LINK-AREA. DTSBX478
00238 ++INCLUDE DTSIL931 DTSBX478
00239 DTSBX478
00240 01 FSKL-REC. DTSBX478
00241 ++INCLUDE DTSIFSKL DTSBX478
00242 DTSBX478
00243 01 L981-LINK-AREA. DTSBX478
00244 ++INCLUDE DTSIL981 DTSBX478
00245 DTSBX478
00246 01 WWGH-REC. DTSBX478
00247 ++INCLUDE DTSIWWGH DTSBX478
00248 DTSBX478
00249 01 L983-LINK-AREA. DTSBX478
00250 ++INCLUDE DTSIL983 DTSBX478
00251 DTSBX478
00252 01 WSKL-REC. DTSBX478
00253 ++INCLUDE DTSIWSKL DTSBX478
00254 DTSBX478
00255 01 W001-REC. DTSBX478
00256 ++INCLUDE DTSIW001 DTSBX478
00257 DTSBX478
00258 01 L982-LINK-AREA. DTSBX478
00259 ++INCLUDE DTSIL982 DTSBX478
00260 DTSBX478
00261 01 WNAM-REC. DTSBX478
00262 ++INCLUDE DTSIWNAM DTSBX478
00263 DTSBX478
00264 01 WAGE-TRANS-AREA. CL**4
00265 05 ESP-TRANSACTION-AREA PIC X(80). CL**4
00266 ++INCLUDE EWGTRNW2 DTSBX478
00267 ++INCLUDE EWGTRNW4 CL**3
00268 CL**3
00269 PROCEDURE DIVISION. DTSBX478
00270 DTSBX478
00271 PERFORM I0000-INIT THRU I0000-EXIT. DTSBX478
00272 IF WRK-ERROR-NO-88 DTSBX478
00273 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBX478
00274 PERFORM T0000-TERM THRU T0000-EXIT DTSBX478
00275 END-IF. DTSBX478
00276 DTSBX478
00277 GOBACK. DTSBX478
00278 EJECT DTSBX478
00279 I0000-INIT. DTSBX478
00280 SET WRK-ERROR-NO-88 TO TRUE. DTSBX478
00281 DTSBX478
00282 OPEN INPUT W2GE-TRANS-FILE. CL**3
00283 IF WAGE-TRANS-FILE-OK-88 DTSBX478
00284 OR WAGE-TRANS-FILE-VERIFY-88 DTSBX478
00285 NEXT SENTENCE DTSBX478
00286 ELSE DTSBX478
00287 PERFORM S999-ABEND THRU S999-EXIT DTSBX478
00288 END-IF. DTSBX478
00289 DTSBX478
00290 OPEN OUTPUT UIBS-TRANS-FILE. CL**6
00291 IF WAGE-TRANS-FILE-OK-88 CL**6
00292 OR WAGE-TRANS-FILE-VERIFY-88 CL**6
00293 NEXT SENTENCE CL**6
00294 ELSE CL**6
00295 PERFORM S999-ABEND THRU S999-EXIT CL**6
00296 END-IF. CL**6
00297 CL**6
00298 OPEN INPUT W4GE-TRANS-FILE. CL**3
00299 IF WAGE-TRANS-FILE-OK-88 CL**3
00300 OR WAGE-TRANS-FILE-VERIFY-88 CL**3
00301 NEXT SENTENCE CL**3
00302 ELSE CL**3
00303 PERFORM S999-ABEND THRU S999-EXIT CL**3
00304 END-IF. CL**3
00305 CL**3
00306 DTSBX478
00307 * OPEN OUTPUT TAXWGH-FILE. DTSBX478
00308 * IF WAGE-TRANS-FILE-OK-88 DTSBX478
00309 * OR WAGE-TRANS-FILE-VERIFY-88 DTSBX478
00310 * NEXT SENTENCE DTSBX478
00311 * ELSE DTSBX478
00312 * PERFORM S999-ABEND THRU S999-EXIT DTSBX478
00313 * END-IF. DTSBX478
00314 DTSBX478
00315 * PERFORM S981A-OPEN-UPDATE THRU S981A-EXIT. CL**3
00316 * PERFORM S983-OPEN-UPDATE THRU S983-EXIT. CL**3
00317 * PERFORM S931-OPEN-READ THRU S931-EXIT. CL**3
00318 DTSBX478
00319 I0000-EXIT. DTSBX478
00320 EXIT. DTSBX478
00321 DTSBX478
00322 P0000-PROCESS. DTSBX478
00323 READ W2GE-TRANS-FILE INTO ESP-TRANSACTION-AREA CL**4
00324 DTSBX478
00325 PERFORM UNTIL WAGE-TRANS-FILE-NO-REC-88 DTSBX478
00326 PERFORM P2000-W2-WAGE THRU P2000-EXIT CL**3
00327 READ W2GE-TRANS-FILE INTO ESP-TRANSACTION-AREA CL**4
00328 DTSBX478
00329 END-PERFORM. DTSBX478
00330 DTSBX478
00331 READ W4GE-TRANS-FILE INTO ESP-TRANSACTION-AREA CL**4
00332 CL**3
00333 PERFORM UNTIL WAGE-TRANS-FILE-NO-REC-88 CL**3
00334 PERFORM P3000-W4-WAGE THRU P3000-EXIT CL**3
00335 READ W4GE-TRANS-FILE INTO ESP-TRANSACTION-AREA CL**4
00336 CL**3
00337 END-PERFORM. CL**3
00338 P0000-EXIT. DTSBX478
00339 EXIT. DTSBX478
00340 DTSBX478
00341 DTSBX478
00342 P2000-W2-WAGE. CL**3
00343 ADD 1 TO W2-REC-READ. CL**3
00344 DTSBX478
00345 P2000-EXIT. DTSBX478
00346 EXIT. DTSBX478
00347 DTSBX478
00348 P3000-W4-WAGE. CL**3
00349 ADD 1 TO W4-REC-READ. CL**3
00350 CL**3
00351 P3000-EXIT. CL**3
00352 T0000-TERM. DTSBX478
00353 * PERFORM S981D-CLOSE THRU S981D-EXIT. CL**3
00354 * PERFORM S983-CLOSE THRU S983-EXIT. CL**3
00355 * PERFORM S931-CLOSE THRU S931-EXIT. CL**3
00356 DTSBX478
00357 * CLOSE WAGE-TRANS-FILE TAXWGH-FILE. DTSBX478
00358 CLOSE W2GE-TRANS-FILE. CL**3
00359 CLOSE W4GE-TRANS-FILE. CL**3
00360 DTSBX478
00361 DISPLAY '******************************************' DTSBX478
00362 DISPLAY '** DTSBX478 TERMINATION STATISTICS **'. CL**3
00363 DTSBX478
00364 DISPLAY 'TOTAL W4 TRANS REC READ = ' W4-REC-READ. DTSBX478
00365 * DISPLAY 'TOTAL W4 TRANS REC FOUND = ' W4-REC-FOUND. CL**3
00366 * DISPLAY 'TOTAL W4 TRANS REC ADDED = ' W4-REC-ADDED. CL**3
00367 DISPLAY 'TOTAL W2 TRANS REC READ = ' W2-REC-READ. DTSBX478
00368 * DISPLAY 'TOTAL W2 TRANS REC FOUND = ' W2-REC-FOUND. CL**3
00369 * DISPLAY 'TOTAL W2 TRANS REC DELETED = ' W2-REC-DELETED. CL**3
00370 DISPLAY ' '. DTSBX478
00371 MOVE W4-REC-READ TO W4-COUNT. CL**6
00372 MOVE W2-REC-READ TO W2-COUNT. CL**6
00373 WRITE UIBS-TRANS-REC FROM OUT-W2-REC. CL**6
00374 WRITE UIBS-TRANS-REC FROM OUT-W4-REC. CL**6
00375 CLOSE W4GE-TRANS-FILE. CL**6
00376 T0000-EXIT. DTSBX478
00377 EXIT. DTSBX478
00378 DTSBX478
00379 S004-EDIT-QTR. DTSBX478
00380 CALL 'DTSBU004' USING L004-COMM-AREA. DTSBX478
00381 DTSBX478
00382 S004-EXIT. DTSBX478
00383 EXIT. DTSBX478
00384 DTSBX478
00385 S516-LIABILITY-INFO. DTSBX478
00386 CALL 'DTSBU516' USING L516-LINK-AREA DTSBX478
00387 MPRF-REC. DTSBX478
00388 S516-EXIT. DTSBX478
00389 EXIT. DTSBX478
00390 DTSBX478
00391 S910-OPEN-READ. DTSBX478
00392 SET L910-OPEN-READ-88 TO TRUE. DTSBX478
00393 GO TO S910-MSTR-IO. DTSBX478
00394 DTSBX478
00395 S910-READ. DTSBX478
00396 SET L910-READ-88 TO TRUE. DTSBX478
00397 GO TO S910-MSTR-IO. DTSBX478
00398 DTSBX478
00399 S910-START-BROWSE. DTSBX478
00400 SET L910-START-BROWSE-88 TO TRUE. DTSBX478
00401 GO TO S910-MSTR-IO. DTSBX478
00402 DTSBX478
00403 S910-READ-NEXT. DTSBX478
00404 SET L910-READ-NEXT-88 TO TRUE. DTSBX478
00405 GO TO S910-MSTR-IO. DTSBX478
00406 DTSBX478
00407 S910-CLOSE. DTSBX478
00408 SET L910-CLOSE-88 TO TRUE. DTSBX478
00409 GO TO S910-MSTR-IO. DTSBX478
00410 DTSBX478
00411 S910-MSTR-IO. DTSBX478
00412 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX478
00413 MSKL-REC. DTSBX478
00414 S910-EXIT. DTSBX478
00415 EXIT. DTSBX478
00416 DTSBX478
00417 S931-OPEN-READ. DTSBX478
00418 SET L931-OPEN-READ-88 TO TRUE. DTSBX478
00419 GO TO S931-REF-IO. DTSBX478
00420 DTSBX478
00421 S931-CLOSE. DTSBX478
00422 SET L931-CLOSE-88 TO TRUE. DTSBX478
00423 GO TO S931-REF-IO. DTSBX478
00424 DTSBX478
00425 S931-REF-IO. DTSBX478
00426 CALL 'DTSBU931' USING L931-LINK-AREA DTSBX478
00427 FSKL-REC. DTSBX478
00428 S931-EXIT. DTSBX478
00429 EXIT. DTSBX478
00430 DTSBX478
00431 S981A-OPEN-UPDATE. DTSBX478
00432 SET L981-OPEN-UPDATE-88 TO TRUE. DTSBX478
00433 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. DTSBX478
00434 DTSBX478
00435 S981A-EXIT. DTSBX478
00436 EXIT. DTSBX478
00437 DTSBX478
00438 S981B-WRITE. DTSBX478
00439 SET L981-WRITE-88 TO TRUE. DTSBX478
00440 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. DTSBX478
00441 DTSBX478
00442 S981B-EXIT. DTSBX478
00443 EXIT. DTSBX478
00444 S981C-READ. DTSBX478
00445 SET L981-READ-88 TO TRUE. DTSBX478
00446 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. DTSBX478
00447 DTSBX478
00448 S981C-EXIT. DTSBX478
00449 EXIT. DTSBX478
00450 S981E-DELETE. DTSBX478
00451 SET L981-DELETE-88 TO TRUE. DTSBX478
00452 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. DTSBX478
00453 DTSBX478
00454 S981E-EXIT. DTSBX478
00455 EXIT. DTSBX478
00456 DTSBX478
00457 S981D-CLOSE. DTSBX478
00458 SET L981-CLOSE-88 TO TRUE. DTSBX478
00459 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. DTSBX478
00460 DTSBX478
00461 S981D-EXIT. DTSBX478
00462 EXIT. DTSBX478
00463 DTSBX478
00464 S981Z-WWGH-IO. DTSBX478
00465 CALL 'DTSBU981' USING L981-LINK-AREA DTSBX478
00466 WWGH-REC. DTSBX478
00467 S981Z-EXIT. DTSBX478
00468 EXIT. DTSBX478
00469 DTSBX478
00470 S983-OPEN-UPDATE. DTSBX478
00471 SET L983-OPEN-UPDATE-88 TO TRUE. DTSBX478
00472 GO TO S983-WAGE-I. DTSBX478
00473 DTSBX478
00474 S983-WRITE. DTSBX478
00475 SET L983-WRITE-88 TO TRUE. DTSBX478
00476 GO TO S983-WAGE-I. DTSBX478
00477 DTSBX478
00478 S983-DELETE. DTSBX478
00479 SET L983-DELETE-88 TO TRUE. DTSBX478
00480 GO TO S983-WAGE-I. DTSBX478
00481 DTSBX478
00482 S983-CLOSE. DTSBX478
00483 SET L983-CLOSE-88 TO TRUE. DTSBX478
00484 GO TO S983-WAGE-I. DTSBX478
00485 DTSBX478
00486 S983-WAGE-I. DTSBX478
00487 CALL 'DTSBU983' USING L983-LINK-AREA DTSBX478
00488 WSKL-REC. DTSBX478
00489 S983-EXIT. DTSBX478
00490 EXIT. DTSBX478
00491 DTSBX478
00492 S982A-START-BROWSE. DTSBX478
00493 SET L982-START-BROWSE-88 TO TRUE. DTSBX478
00494 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DTSBX478
00495 DTSBX478
00496 S982A-EXIT. DTSBX478
00497 EXIT. DTSBX478
00498 DTSBX478
00499 S982B-READ-NEXT. DTSBX478
00500 SET L982-READ-NEXT-88 TO TRUE. DTSBX478
00501 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DTSBX478
00502 DTSBX478
00503 S982B-EXIT. DTSBX478
00504 EXIT. DTSBX478
00505 DTSBX478
00506 S982C-OPEN-READ. DTSBX478
00507 SET L982-OPEN-READ-88 TO TRUE. DTSBX478
00508 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DTSBX478
00509 DTSBX478
00510 S982C-EXIT. DTSBX478
00511 EXIT. DTSBX478
00512 DTSBX478
00513 S982D-CLOSE. DTSBX478
00514 SET L982-CLOSE-88 TO TRUE. DTSBX478
00515 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DTSBX478
00516 DTSBX478
00517 S982D-EXIT. DTSBX478
00518 EXIT. DTSBX478
00519 DTSBX478
00520 S982Z-WNAM-IO. DTSBX478
00521 CALL 'DTSBU982' USING L982-LINK-AREA DTSBX478
00522 WNAM-REC. DTSBX478
00523 S982Z-EXIT. DTSBX478
00524 EXIT. DTSBX478
00525 DTSBX478
00526 DTSBX478
00527 S999-ABEND. DTSBX478
00528 DISPLAY '*** I/O MODULE ABENDING'. DTSBX478
00529 DTSBX478
00530 DISPLAY '*** CMND-CD = ' L983-CMND-CD. DTSBX478
00531 DTSBX478
00532 DISPLAY '*** FILE-STATUS = ' WAGE-TRANS-STATUS. DTSBX478
00533 DTSBX478
00534 DISPLAY '*** CALLING MODULE = ' L983-MOD-NAME. DTSBX478
00535 DTSBX478
00536 DTSBX478
00537 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBX478
00538 S999-EXIT. DTSBX478
00539 EXIT. DTSBX478

963
Batch/DTSBX601.cob
View File

@ -1,963 +0,0 @@
00001 IDENTIFICATION DIVISION. 09/24/18
00002 PROGRAM-ID. DTSBX601. DTSBX601
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV124
00004 DATE-WRITTEN. DECEMBER 1998. CL**5
00005 DATE-COMPILED. DTSBX601
00006 SKIP3 DTSBX601
00007 ***** DTSBX601
00008 * DTSBX601
00009 * FUNCTION: REPORT ALL RETURN FLAG UPDATED PRIOR DAY. CL*83
00010 * DTSBX601
00011 * DTSBX601
00012 ***** DTSBX601
00013 SKIP3 DTSBX601
00014 ENVIRONMENT DIVISION. DTSBX601
00015 SKIP2 DTSBX601
00016 CONFIGURATION SECTION. CL*74
00017 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. CL*74
00018 CL*74
00019 INPUT-OUTPUT SECTION. CL193
00020 CL*74
00021 FILE-CONTROL. CL193
00022 SELECT EXP-FILE1 ASSIGN TO DTSFX601 CL*85
00023 FILE STATUS IS EXP-STATUS. CL*85
00024 CL*74
00025 DATA DIVISION. CL*74
00026 CL*74
00027 FILE SECTION. CL193
00028 CL193
00029 FD EXP-FILE1 CL*85
00030 RECORDING MODE IS F. CL*85
00031 01 EXP-REC1 PIC X(80). CL*85
00032 EJECT CL*74
00033 CL*74
00034 WORKING-STORAGE SECTION. DTSBX601
000345 77 PAN-VALET PICTURE X(24) VALUE '124DTSBX601 09/24/18'. DTSBX601
00035 SKIP3 DTSBX601
00036 01 WRK-AREA. DTSBX601
00037 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +400.DTSBX601
00038 DTSBX601
00039 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD400'. CL**2
00040 CL181
00041 05 WRK-RATE-TYPE-AREA. CL181
00042 10 WRK-RATE-YR-SCHED PIC X(01). CL181
00043 88 WRK-RATE-YR-ANN-88 VALUE 'Y'. CL181
00044 10 WRK-RATE-YR-MINUS-1-SCHED PIC X(01). CL181
00045 88 WRK-RATE-YR-MINUS1-ANN-88 VALUE 'Y'. CL181
00046 10 WRK-RATE-YR-MINUS-2-SCHED PIC X(01). CL181
00047 88 WRK-RATE-YR-MINUS2-ANN-88 VALUE 'Y'. CL181
00048 05 FILLER REDEFINES WRK-RATE-TYPE-AREA PIC X(03). CL181
00049 88 WRK-ESTIMATE-NEEDED-88 VALUE 'YYY' 'NYY'. CL185
00050 88 WRK-TRANSITION-YEAR-88 VALUE 'YYN' 'NYN'. CL185
00051 88 WRK-INIT-VALUES-88 VALUE 'NNN'. CL181
00052 DTSBX601
00053 05 WRK-SEQ PIC 9(05) CL*29
00054 VALUE ZERO. CL*21
00055 05 MLOG-CNT PIC 9(05) CL*86
00056 VALUE ZERO. CL*86
00057 05 WRK-ZIP PIC X(10). CL197
00058 05 FILLER REDEFINES WRK-ZIP. CL197
00059 10 WRK-ZIP5 PIC X(05). CL197
00060 10 FILLER PIC X(05). CL197
00061 CL197
00062 05 EXP-STATUS PIC X(02). CL193
00063 88 EXP-STATUS-OK-88 VALUE '00'. CL194
00064 05 WRK-ERROR-IND PIC X(01). CL193
00065 88 WRK-ERROR-YES-88 VALUE 'Y'. CL193
00066 88 WRK-ERROR-NO-88 VALUE 'N'. CL193
00067 05 WRK-MPRF-IND PIC X(01). CL*93
00068 88 MPRF-OK-YES-88 VALUE 'Y'. CL*93
00069 88 MPRF-NO-REC-88 VALUE 'N'. CL*93
00070 05 WRK-WRITE-REC-IND PIC X(01). CL225
00071 88 WRK-WRITE-REC-YES-88 VALUE 'Y'. CL225
00072 88 WRK-WRITE-REC-NO-88 VALUE 'N'. CL225
00073 05 WRK-OP-ID PIC X(08). CL236
00074 05 WRK-IND-CODE PIC X(06). CL**9
00075 05 WRK-REC1. CL193
00076 10 REC1-EMP-NO PIC 999999. CL*21
00077 10 FILLER PIC X(01) VALUE ','. CL*29
00078 10 REC1-FLAG PIC X(01). CL*99
00079 10 FILLER PIC X(01) VALUE ','. CL*33
00080 10 REC1-DATE PIC 9(08). CL100
00081 10 FILLER PIC X(01) VALUE ','. CL*44
00082 10 REC1-OPID PIC X(08). CL*99
00083 10 WRK-R1-SPACES PIC X(54). CL108
00084 05 WRK-REC1-OLD. CL*21
00085 10 REC1-BALANCE PIC --------9.99. CL*53
00086 10 REC1-LP-BAL PIC --------9.99. CL*53
00087 10 REC1-INT-BAL PIC --------9.99. CL*53
00088 10 REC1-ZIP PIC 9(05). CL*53
00089 10 REC1-ORG-TYPE PIC X(03). CL*47
00090 10 REC1-CLASS PIC X(02). CL*47
00091 10 REC1-LIAB-CD PIC X(02). CL*47
00092 10 REC1-RCVD-DATE PIC X(10). CL*44
00093 10 REC1-BATCH PIC 9(05). CL*44
00094 10 REC1-ITEM PIC 9(03). CL*44
00095 10 REC1-LP-CHG PIC --------9.99. CL*44
00096 10 REC1-INT-CHG PIC --------9.99. CL*37
00097 10 REC1-SOURCE PIC X(02). CL*31
00098 10 REC1-MLOG-DATE PIC X(10). CL**8
00099 10 REC1-IND-CODE PIC X(06). CL**8
00100 10 REC1-OP-ID PIC X(08). CL**8
00101 10 REC1-LIAB-DATE PIC X(10). CL**8
00102 10 REC1-ASSIGN PIC 9(09). CL**5
00103 10 REC1-COUNT PIC 9(07). CL**5
00104 10 REC1-DEPOSIT-DATE PIC X(10). CL253
00105 10 REC1-PROCESS-DATE PIC X(10). CL253
00106 10 REC1-LIAB-ENTER-DATE PIC X(10). CL232
00107 10 REC1-INACT-CODE PIC X(05). CL235
00108 88 REC1-INACT-YES-88 VALUE 'INACT'. CL235
00109 88 REC1-INACT-NO-88 VALUE 'ACT '. CL235
00110 10 REC1-REACT PIC X(05). CL235
00111 88 REC1-REACT-NO-88 VALUE 'NEW '. CL235
00112 88 REC1-REACT-YES-88 VALUE 'REACT'. CL235
00113 10 REC1-CREDIT PIC --------9.99. CL249
00114 10 REC1-AREA PIC X(03). CL249
00115 10 REC1-PFX PIC X(03). CL249
00116 10 REC1-SFX PIC X(04). CL249
00117 10 REC1-EXT PIC X(05). CL249
00118 10 REC1-PAY-TYPE PIC X(02). CL225
00119 10 REC1-AMT PIC --------9.99. CL225
00120 05 WRK-ABS-QTR1 PIC S9(04) COMP-3 CL206
00121 VALUE +0. CL206
00122 05 WRK-ABS-QTR2 PIC S9(04) COMP-3 CL206
00123 VALUE +0. CL206
00124 05 WRK-ABS-DATE1 PIC S9(08) COMP. CL**1
00125 05 WRK-ABS-DATE2 PIC S9(08) COMP. CL**1
00126 05 WRK-EXT-CURRENT-DATE PIC S9(09) COMP-3. CL*84
00127 05 WRK-DIFF PIC S9(07) COMP-3. CL*84
00128 05 WRK-UNDER-30-CNT PIC S9(04) COMP-3 CL*19
00129 VALUE +0. CL220
00130 05 WRK-OVER-31-CNT PIC S9(04) COMP-3 CL*19
00131 VALUE +0. CL220
00132 05 WRK-MEVL-READ-CNT PIC S9(04) COMP-3 CL*72
00133 VALUE +0. CL*72
00134 05 WRK-MPRF-CNT PIC S9(07) COMP-3. CL220
00135 05 WRK-FISCAL-AGENT-CD PIC X(03). CL239
00136 05 WRK-BNK-IND PIC X(02). CL*38
00137 05 WRK-FIRST-NEW-EMP-NO PIC S9(07) COMP-3. CL101
00138 *& VALUE +123778. CL101
00139 05 WRK-FEIN PIC 9(09). CL104
00140 05 WRK-MQTR-BAL PIC S9(11)V99 COMP-3 VALUE +0. CL136
00141 05 WRK-MQTR-CHG PIC S9(09)V99 COMP-3. CL**6
00142 05 WRK-MQTR-ANN-BAL PIC S9(07)V99 COMP-3. CL234
00143 05 WRK-MQTR-PEN-BAL PIC S9(07)V99 COMP-3. CL**1
00144 05 WRK-MQTR-PEN-CHG PIC S9(07)V99 COMP-3. CL*34
00145 05 WRK-MQTR-INT-BAL PIC S9(07)V99 COMP-3. CL**1
00146 05 WRK-MQTR-INT-CHG PIC S9(07)V99 COMP-3. CL*34
00147 05 WRK-RECEIVED-DATE PIC S9(09) COMP-3. CL*18
00148 05 WRK-RPT-BAL-CNT PIC S9(07) COMP-3. CL*18
00149 05 WRK-RPT-CNT PIC S9(07) COMP-3. CL195
00150 05 WRK-BAL-CNT PIC S9(07) COMP-3. CL195
00151 05 WRK-REL-CNT PIC S9(07) COMP-3. CL195
00152 05 WRK-RATED-CNT PIC S9(07) COMP-3. CL*99
00153 05 WRK-SELF-INS-CNT PIC S9(07) COMP-3. CL*99
00154 05 WRK-HOTEL-CNT PIC S9(07) COMP-3 VALUE +0. CL251
00155 05 WRK-TOT-EMPS PIC S9(07) COMP-3 VALUE +0. CL251
00156 05 WRK-TOT-WORKERS PIC S9(11) COMP-3 VALUE +0. CL251
00157 05 WRK-PURSUED-RPT-CNT PIC S9(07) COMP-3. CL205
00158 05 WRK-LATE-RPT-CNT PIC S9(07) COMP-3. CL104
00159 05 WRK-MEVL-DELETED-CNT PIC S9(07) COMP-3. CL*61
00160 05 WRK-UC30-SENT-CNT PIC S9(07) COMP-3. CL188
00161 05 WRK-UC30-RCVD-CNT PIC S9(07) COMP-3. CL188
00162 05 WRK-OVER-1000-CNT PIC S9(07) COMP-3. CL*42
00163 05 WRK-UNDER-1000-CNT PIC S9(07) COMP-3. CL*42
00164 05 WRK-HOUSEHOLD-PAYMENTS PIC S9(11)V99 COMP-3. CL*43
00165 05 WRK-TOT-WAGES PIC S9(11)V99 COMP-3. CL*43
00166 05 WRK-ALL-BNK-RATED PIC S9(11)V99 COMP-3. CL154
00167 05 WRK-OPN-BNK-RATED PIC S9(11)V99 COMP-3. CL154
00168 05 WRK-ALL-BNK-SI PIC S9(11)V99 COMP-3. CL154
00169 05 WRK-OPN-BNK-SI PIC S9(11)V99 COMP-3. CL154
00170 05 WRK-BOND-AMT PIC S9(11)V99 COMP-3. CL142
00171 05 WRK-OVER-100-CNT PIC S9(07) COMP-3 CL112
00172 VALUE +0. CL112
00173 05 WRK-OVER-100-AMT PIC S9(11)V99 COMP-3 CL112
00174 VALUE +0. CL112
00175 05 WRK-1-10-CNT PIC S9(07) COMP-3 CL113
00176 VALUE +0. CL112
00177 05 WRK-1-10-AMT PIC S9(11)V99 COMP-3 CL112
00178 VALUE +0. CL112
00179 05 WRK-11-100-CNT PIC S9(07) COMP-3 CL113
00180 VALUE +0. CL112
00181 05 WRK-11-100-AMT PIC S9(11)V99 COMP-3 CL112
00182 VALUE +0. CL112
00183 05 WRK-OVER-100-WRKRS PIC S9(07) COMP-3. CL190
00184 05 WRK-100-249-CNT PIC S9(07) COMP-3. CL*47
00185 05 WRK-100-249-WRKRS PIC S9(07) COMP-3. CL*56
00186 05 WRK-50-100-CNT PIC S9(07) COMP-3. CL190
00187 05 WRK-50-100-WRKRS PIC S9(07) COMP-3. CL190
00188 05 WRK-25-49-CNT PIC S9(07) COMP-3. CL*59
00189 05 WRK-25-49-WRKRS PIC S9(07) COMP-3. CL190
00190 05 WRK-10-24-CNT PIC S9(07) COMP-3. CL190
00191 05 WRK-10-24-WRKRS PIC S9(07) COMP-3. CL190
00192 05 WRK-6-9-CNT PIC S9(07) COMP-3. CL225
00193 05 WRK-5-9-WRKRS PIC S9(07) COMP-3. CL*94
00194 05 WRK-5-CNT PIC S9(07) COMP-3. CL*97
00195 05 WRK-4-CNT PIC S9(07) COMP-3. CL*97
00196 05 WRK-3-CNT PIC S9(07) COMP-3. CL*97
00197 05 WRK-2-CNT PIC S9(07) COMP-3. CL*97
00198 05 WRK-1-CNT PIC S9(07) COMP-3. CL*97
00199 05 WRK-UNDER-5-CNT PIC S9(07) COMP-3. CL*94
00200 05 WRK-UNDER-5-WRKRS PIC S9(07) COMP-3. CL*94
00201 05 WRK-UNDER-10-CNT PIC S9(07) COMP-3. CL*47
00202 05 WRK-OVER-10-CNT PIC S9(07) COMP-3. CL225
00203 05 WRK-UNDER-10-WRKRS PIC S9(07) COMP-3. CL*56
00204 05 WRK-NO-EMPS-CNT PIC S9(07) COMP-3. CL*52
00205 05 WRK-MRCT-TOT-WAGES PIC S9(11)V99 COMP-3. CL*72
00206 05 WRK-MRCT-TAX-WAGES PIC S9(11)V99 COMP-3. CL*72
00207 05 WRK-MRCT-UI-PAID PIC S9(11)V99 COMP-3. CL*72
00208 05 WRK-TOT-UI PIC S9(11)V99 COMP-3. CL**6
00209 05 WRK-TOT-INT PIC S9(11)V99 COMP-3. CL**6
00210 05 WRK-TOT-PEN PIC S9(11)V99 COMP-3. CL**6
00211 05 WRK-MQTR-ANN-TOT-WAGE PIC S9(12)V99 COMP-3. CL*84
00212 05 WRK-MQTR-ANN-TAX-WAGE PIC S9(12)V99 COMP-3. CL*84
00213 05 WRK-MJRN-TOT-NEG-CHG PIC S9(11)V99 COMP-3 CL252
00214 VALUE +0. CL252
00215 05 WRK-MQTR-TOT-UI-CHARGED PIC S9(11)V99 COMP-3. CL*76
00216 05 WRK-START-DATE PIC S9(09) COMP-3. CL*10
00217 05 WRK-END-DATE PIC S9(09) COMP-3. CL*10
00218 05 WRK-LIAB-DATE PIC S9(09) COMP-3. CL*71
00219 05 WRK-FIRST-LIAB-DATE PIC S9(09) COMP-3. CL*71
00220 05 WRK-ALL-NINES-DATE PIC S9(09) COMP-3 CL*71
00221 VALUE +999999999. CL*71
00222 05 WRK-BNK-PETITION-DATE PIC 9(08). CL*89
00223 05 FILLER REDEFINES WRK-BNK-PETITION-DATE. CL*89
00224 10 WRK-BNK-PETITION-DATE-YYYY PIC 9(04). CL*89
00225 10 WRK-BNK-PETITION-DATE-MM PIC 9(02). CL*89
00226 10 WRK-BNK-PETITION-DATE-DD PIC 9(02). CL*89
00227 05 WRK-BNK-PETITION-YRQ PIC 9(05). CL*89
00228 05 FILLER REDEFINES WRK-BNK-PETITION-YRQ. CL*89
00229 10 WRK-BNK-PETITION-YRQ-YYYY PIC 9(04). CL*89
00230 10 WRK-BNK-PETITION-YRQ-Q PIC 9(01). CL*89
00231 05 WRK-BNK-FIRST-BILL-YRQ PIC S9(05) COMP-3. CL*89
00232 05 WRK-EST-RPT-IND PIC X(01). CL*90
00233 88 WRK-EST-RPT-YES VALUE 'Y'. CL*90
00234 88 WRK-EST-RPT-NO VALUE 'N'. CL*90
00235 CL*19
00236 05 WRK-ZERO-FOUND-IND PIC X(01). CL100
00237 88 WRK-ZERO-FOUND-YES-88 VALUE 'Y'. CL100
00238 88 WRK-ZERO-FOUND-NO-88 VALUE 'N'. CL100
00239 CL*41
00240 05 WRK-WITHDRAWN-IND PIC X(01). CL*41
00241 88 WRK-WITHDRAWN-YES VALUE 'Y'. CL*41
00242 88 WRK-WITHDRAWN-NO VALUE 'N'. CL*41
00243 CL153
00244 05 WRK-ORIG-IND PIC X(01). CL153
00245 88 WRK-ORIG-YES VALUE 'Y'. CL153
00246 88 WRK-ORIG-NO VALUE 'N'. CL153
00247 CL*72
00248 05 WRK-MQTR-CNT PIC S9(07) COMP-3. CL**9
00249 05 WRK-MRPT-CNT PIC S9(07) COMP-3. CL191
00250 05 WRK-MSOL-CNT PIC S9(07) COMP-3. CL*32
00251 05 WRK-MLIN-CNT PIC S9(07) COMP-3. CL118
00252 05 WRK-MFAS-CNT PIC S9(07) COMP-3. CL198
00253 05 WRK-MFAE-CNT PIC S9(07) COMP-3. CL237
00254 05 WRK-MPAY-CNT PIC S9(07) COMP-3. CL150
00255 05 WRK-MADJ-CNT PIC S9(07) COMP-3. CL153
00256 05 WRK-MJRN-CNT PIC S9(08) COMP-3. CL155
00257 05 WRK-MERA-CNT PIC S9(08) COMP-3. CL231
00258 05 WRK-MRTE-CNT PIC S9(08) COMP-3. CL**9
00259 05 WRK-MRTE-CNT1 PIC S9(08) COMP-3. CL163
00260 05 WRK-MLOG-CNT PIC S9(08) COMP-3. DTSBX601
00261 05 WRK-MFSC-CNT PIC S9(08) COMP-3 CL*40
00262 VALUE +0. CL*40
00263 05 WRK-CR-TOL-CNT PIC S9(07) COMP-3. CL146
00264 05 SUB PIC S9(04) COMP. CL147
00265 05 RPT-SUB PIC S9(04) COMP. CL147
00266 05 QTR-SUB PIC S9(04) COMP. CL113
00267 05 WRK-QTR-AREA OCCURS 20 TIMES. CL113
00268 10 WRK-QTR-YRQ PIC S9(05) COMP-3. CL113
00269 10 WRK-QTR-CHG PIC S9(09)V99 COMP-3. CL113
00270 10 WRK-QTR-PAID PIC S9(09)V99 COMP-3. CL113
00271 10 WRK-QTR-WAIVED PIC S9(09)V99 COMP-3. CL113
00272 10 WRK-QTR-TOLERATED PIC S9(09)V99 COMP-3. CL113
00273 05 WRK-TIMELY-PMT-AREA. CL190
00274 10 WRK-PEN-INT-BAL-CNT PIC S9(07) COMP-3. CL181
00275 10 WRK-INT-MANUAL-CNT PIC S9(07) COMP-3. CL181
00276 10 WRK-QTR-TAX-BAL PIC S9(09)V9(02) COMP-3. CL170
00277 10 WRK-QTR-TAX-CHG PIC S9(09)V9(02) COMP-3. CL170
00278 10 WRK-QTR-INT-PEN-BAL PIC S9(09)V9(02) COMP-3. CL170
00279 10 WRK-AVG-PMT PIC S9(09)V9(02) COMP-3. CL116
00280 10 WRK-TIMELY-PMT PIC S9(09)V9(02) COMP-3. CL133
00281 10 WRK-OLD-PEN-CHG PIC S9(09)V9(02) COMP-3. CL132
00282 CL170
00283 05 WRK-YRQ PIC S9(05) COMP-3 CL171
00284 VALUE +20041. CL*51
00285 05 WRK-PCT PIC S9(03)V9(04) COMP-3 CL142
00286 VALUE +0. CL142
00287 05 WRK-AVG-PCT PIC S9(09)V9(04) COMP-3 CL142
00288 VALUE +0. CL142
00289 05 WRK-PCT-DISP PIC Z(02)9.9999. CL118
00290 05 WRK-PCT-DISP1 PIC Z(02)9.9999. CL119
00291 05 WRK-UI-RATE PIC S9(01)V9(04) COMP-3. CL118
00292 05 DISP-UI-RATE1 PIC 9.9(04). CL135
00293 05 DISP-UI-RATE2 PIC 9.9(04). CL135
00294 05 AMT-DISP PIC ---,---,--9.99. CL242
00295 05 WRK-AMT-DISP PIC --------9.99. CL*82
00296 05 AMT-DISP1 PIC Z(11)9.99-. CL102
00297 05 AMT-DISP2 PIC Z(11)9.99-. CL141
00298 05 AMT-DISP3 PIC Z(11)9-. CL237
00299 05 EMP-ACCT-DISP PIC 9(06). CL183
00300 05 EMP-SUCC-DISP PIC 9(06). CL*86
00301 05 EMP-SUCC-DISP-X REDEFINES EMP-SUCC-DISP CL*88
00302 PIC X(06). CL*87
00303 05 DISP-DATE1 PIC X(10). CL232
00304 05 DISP-DATE2 PIC X(10). CL232
00305 05 INACT-LBL PIC X(10). CL*71
00306 05 WRK-MPRF-IND PIC X(01). CL*42
00307 88 WRK-MPRF-OK VALUE 'Y'. CL*42
00308 88 WRK-MPRF-NO-REC VALUE 'N'. CL*42
00309 05 WRK-MQTR-IND PIC X(01). CL*42
00310 88 WRK-MQTR-OK VALUE 'Y'. CL*42
00311 88 WRK-MQTR-NO-REC VALUE 'N'. CL*42
00312 05 WRK-MRPT-IND PIC X(01). CL*77
00313 88 WRK-MRPT-OK VALUE 'Y'. CL*77
00314 88 WRK-MRPT-NO-REC VALUE 'N'. CL*77
00315 05 WRK-MDST-IND PIC X(01). CL169
00316 88 WRK-MDST-OK VALUE 'Y'. CL169
00317 88 WRK-MDST-NO-REC VALUE 'N'. CL169
00318 05 WRK-MEVL-IND PIC X(01). CL111
00319 88 WRK-MEVL-OK VALUE 'Y'. CL111
00320 88 WRK-MEVL-NO-REC VALUE 'N'. CL111
00321 05 WRK-MLIN-IND PIC X(01). CL116
00322 88 WRK-MLIN-OK VALUE 'Y'. CL116
00323 88 WRK-MLIN-NO-REC VALUE 'N'. CL116
00324 05 WRK-MFAS-IND PIC X(01). CL198
00325 88 WRK-MFAS-OK VALUE 'Y'. CL198
00326 88 WRK-MFAS-NO-REC VALUE 'N'. CL198
00327 05 WRK-MFAE-IND PIC X(01). CL237
00328 88 WRK-MFAE-OK VALUE 'Y'. CL237
00329 88 WRK-MFAE-NO-REC VALUE 'N'. CL237
00330 05 WRK-MSOL-IND PIC X(01). CL237
00331 88 WRK-MSOL-OK VALUE 'Y'. CL160
00332 88 WRK-MSOL-NO-REC VALUE 'N'. CL160
00333 05 WRK-MLOG-IND PIC X(01). DTSBX601
00334 88 WRK-MLOG-OK VALUE 'Y'. DTSBX601
00335 88 WRK-MLOG-NO-REC VALUE 'N'. DTSBX601
00336 88 WRK-MLOG-COMPLETE VALUE 'C'. DTSBX601
00337 05 WRK-MRPT-FOUND-IND PIC X(01). CL*96
00338 88 WRK-MRPT-FOUND-YES VALUE 'Y'. CL*98
00339 88 WRK-MRPT-FOUND-NO VALUE 'N'. CL*98
00340 05 WRK-CR-TOL-IND PIC X(01). CL146
00341 88 WRK-CR-TOL-YES VALUE 'Y'. CL146
00342 88 WRK-CR-TOL-NO VALUE 'N'. CL146
00343 05 WRK-DUP-FOUND-IND PIC X(01). CL193
00344 88 WRK-DUP-FOUND-YES VALUE 'Y'. CL193
00345 88 WRK-DUP-FOUND-NO VALUE 'N'. CL193
00346 05 WRK-LAST-MRPT-TYPE PIC X(02). CL*77
00347 05 WRK-DISP-AREA. CL216
00348 10 WRK-DISP-STAR PIC X(01). CL216
00349 10 FILLER PIC X(01) VALUE SPACE. CL216
00350 10 WRK-DISP-AMT PIC Z(10)9.99-. CL216
00351 CL**9
00352 05 WRK-INACT-DATE PIC S9(09) COMP-3 CL184
00353 VALUE +0. CL184
00354 05 WRK-INACT-CODE PIC X(02). CL232
00355 05 WRK-INACT-YRQ PIC S9(05) COMP-3 CL184
00356 VALUE +0. CL184
00357 05 WRK-LAST-YRQ PIC S9(05) COMP-3 CL184
00358 VALUE +0. CL184
00359 05 WRK-FIRST-LIAB-YRQ PIC S9(05) COMP-3 CL232
00360 VALUE +0. CL217
00361 05 WRK-LAST-LIAB-YRQ PIC S9(05) COMP-3 CL232
00362 VALUE +0. CL232
00363 05 WRK-NEXT-YRQ PIC S9(05) COMP-3 CL196
00364 VALUE +0. CL196
00365 05 WRK-UPDATED-CNT PIC S9(07) COMP-3. DTSBX601
00366 DTSBX601
00367 05 PARM-REC-CNT PIC S9(07) COMP-3. DTSBX601
00368 DTSBX601
00369 05 PARM-EOF-IND PIC X(01). DTSBX601
00370 DTSBX601
00371 05 WRK-EMP-NO PIC 9(06). CL*31
00372 DTSBX601
00373 05 WRK-TRACE-IND PIC X(01). DTSBX601
00374 DTSBX601
00375 05 WRK-MST-OPEN-IND PIC X(01). DTSBX601
00376 DTSBX601
00377 05 WRK-REF-OPEN-IND PIC X(01). DTSBX601
00378 CL221
00379 05 WRK-SIC-SCAN-AREA. CL221
00380 10 WRK-RPT-FOUND-IND PIC X(01). CL222
00381 88 WRK-RPT-FOUND-YES VALUE 'Y'. CL222
00382 88 WRK-RPT-FOUND-NO VALUE 'N'. CL222
00383 10 WRK-EMPL-CNT PIC S9(07) COMP-3. CL222
00384 10 WRK-SIC-4 PIC X(04). CL221
00385 10 FILLER REDEFINES WRK-SIC-4. CL221
00386 15 WRK-SIC-3 PIC X(03). CL221
00387 15 FILLER PIC X(01). CL221
00388 10 WRK-NO-SIC-CNT PIC S9(07) COMP-3. CL221
00389 10 WRK-SIC-7911-AREA. CL221
00390 15 WRK-SIC-7911-WORKERS PIC S9(07) COMP-3. CL224
00391 15 WRK-SIC-7911-BUSINESSES PIC S9(07) COMP-3. CL224
00392 10 WRK-SIC-794-AREA. CL221
00393 15 WRK-SIC-794-WORKERS PIC S9(07) COMP-3. CL221
00394 15 WRK-SIC-794-BUSINESSES PIC S9(07) COMP-3. CL221
00395 10 WRK-SIC-799-AREA. CL221
00396 15 WRK-SIC-799-WORKERS PIC S9(07) COMP-3. CL221
00397 15 WRK-SIC-799-BUSINESSES PIC S9(07) COMP-3. CL221
00398 10 WRK-SIC-8351-AREA. CL221
00399 15 WRK-SIC-8351-WORKERS PIC S9(07) COMP-3. CL221
00400 15 WRK-SIC-8351-BUSINESSES PIC S9(07) COMP-3. CL221
00401 10 WRK-SIC-8641-AREA. CL221
00402 15 WRK-SIC-8641-WORKERS PIC S9(07) COMP-3. CL221
00403 15 WRK-SIC-8641-BUSINESSES PIC S9(07) COMP-3. CL221
00404 10 WRK-NAICS-6 PIC X(06). CL217
00405 10 FILLER REDEFINES WRK-NAICS-6. CL217
00406 15 WRK-NAICS-2 PIC X(02). CL217
00407 15 FILLER PIC X(04). CL217
00408 *RW1 CL*74
00409 05 WRK-ABEND-MSG PIC X(60) VALUE SPACES. CL*74
00410 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. CL*74
00411 05 WS-NUMBER-ONE PIC S9(05) COMP-3 VALUE +0. CL*74
00412 CL*80
00413 05 DISP-DATE PIC X(08). CL*80
00414 05 DISP-TIME PIC X(08). CL*81
00415 CL*79
00416 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. CL*74
00417 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. CL*74
00418 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. CL*74
00419 CL*74
00420 01 HEADER-1. CL*74
00421 05 FILLER PIC X(01) VALUE SPACES. CL*74
00422 05 FILLER PIC X(49) VALUE '016R1'. CL*79
00423 05 FILLER PIC X(60) VALUE CL*74
00424 'DISTRICT OF COLUMBIA'. CL*74
00425 05 FILLER PIC X(06) VALUE 'DATE:'. CL*74
00426 05 HDR1-LRCM-SYS-DATE PIC X(08). CL*74
00427 CL*74
00428 01 HEADER-2. CL*74
00429 05 FILLER PIC X(54) VALUE SPACES. CL*74
00430 05 FILLER PIC X(56) VALUE CL*74
00431 'TAX DIVISION'. CL*74
00432 05 FILLER PIC X(06) VALUE 'TIME:'. CL*74
00433 05 HDR2-LRCM-SYS-TIME PIC X(08). CL*74
00434 CL*74
00435 01 HEADER-3. CL*74
00436 05 FILLER PIC X(01) VALUE SPACES. CL*74
00437 05 FILLER PIC X(38) VALUE CL*74
00438 'ROUTE TO: ACCOUNTING UNIT'. CL*74
00439 05 HDR3-LITERAL PIC X(43) VALUE CL*74
00440 ' EMPLOYERS REGISTERED SINCE 09/11/01 '. CL*82
00441 05 FILLER PIC X(28) VALUE SPACES. CL*74
00442 05 FILLER PIC X(06) VALUE 'PAGE:'. CL*74
00443 05 HDR3-PAGE PIC ZZ,ZZ9. CL*74
00444 CL*74
00445 01 HEADER-4. CL*82
00446 05 FILLER PIC X(01) VALUE SPACES. CL*74
00447 05 FILLER PIC X(132) VALUE SPACES. CL*74
00448 CL*74
00449 01 HEADER-5. CL*82
00450 05 FILLER PIC X(01) VALUE SPACES. CL*74
00451 05 FILLER PIC X(05) VALUE SPACES. CL*74
00452 05 FILLER PIC X(06) VALUE CL*74
00453 'EMP NO'. CL*74
00454 05 FILLER PIC X(05) VALUE SPACES. CL*74
00455 05 FILLER PIC X(12) VALUE CL*74
00456 'PRIMARY NAME'. CL*74
00457 05 FILLER PIC X(28) VALUE SPACES. CL*74
00458 05 FILLER PIC X(04) VALUE SPACES. CL*74
00459 05 FILLER PIC X(14) VALUE CL*82
00460 'LIABILITY DATE'. CL*82
00461 05 FILLER PIC X(04) VALUE SPACES. CL*82
00462 05 FILLER PIC X(13) VALUE CL*82
00463 'INACTIVE DATE'. CL*82
00464 05 FILLER PIC X(12) VALUE SPACES. CL*74
00465 05 FILLER PIC X(18) VALUE SPACES. CL*74
00466 CL*74
00467 01 HEADER-6. CL*82
00468 05 FILLER PIC X(01) VALUE SPACES. CL*74
00469 05 FILLER PIC X(132) VALUE SPACES. CL*74
00470 CL*74
00471 01 DETAIL-LINE-1. CL*74
00472 05 FILLER PIC X(05) VALUE SPACES. CL*77
00473 05 WS-EMP-NO PIC 999B999. CL*74
00474 05 FILLER PIC X(02) VALUE SPACES. CL*77
00475 05 WS-PRIMARY-NAME PIC X(40). CL*74
00476 05 FILLER PIC X(02) VALUE SPACES. CL*77
00477 05 WS-DATE1 PIC X(10). CL*77
00478 05 FILLER PIC X(02) VALUE SPACES. CL*77
00479 05 WS-DATE2 PIC X(10). CL*77
00480 * 05 FILLER PIC X(05) VALUE SPACES. CL*77
00481 * 05 WS-BALANCE-AMT PIC ZZZ,ZZZ,ZZ9.99. CL*77
00482 * 05 FILLER PIC X(09) VALUE SPACES. CL*77
00483 * 05 WS-PURSUED-RPT PIC ZZ9. CL*77
00484 * 05 FILLER PIC X(10) VALUE SPACES. CL*77
00485 * 05 WS-DPC PIC X(01). CL*77
00486 * 05 FILLER PIC X(06) VALUE SPACES. CL*77
00487 * 05 WS-LIEN PIC X(01). CL*77
00488 * 05 FILLER PIC X(21) VALUE SPACES. CL*77
00489 CL*74
00490 01 FOOTING-LINE-1 PIC X(133) VALUE SPACES. CL*74
00491 01 FOOTING-LINE-2 PIC X(133) VALUE SPACES. CL*74
00492 CL*74
00493 01 FOOTING-LINE-3. CL*74
00494 05 FILLER PIC X(25) VALUE SPACES. CL*74
00495 05 WS-FOOTING-CNT PIC ZZ,ZZ9. CL*74
00496 05 FILLER PIC X(02) VALUE SPACES. CL*74
00497 05 FILLER PIC X(43) VALUE CL*74
00498 'DEBIT WRITE OFF CANDIDATES LISTED ON REPORT'. CL*74
00499 05 FILLER PIC X(23) VALUE SPACES. CL*74
00500 01 FOOTING-LINE-4 PIC X(133) VALUE SPACES. CL*74
00501 01 FOOTING-LINE-5 PIC X(133) VALUE SPACES. CL*74
00502 01 FOOTING-LINE-6. CL*74
00503 05 FILLER PIC X(25) VALUE SPACES. CL*74
00504 05 FILLER PIC X(17) VALUE CL*74
00505 '*** END OF REPORT'. CL*74
00506 *RW2 CL*74
00507 CL*74
00508 01 L001-LINK-AREA. CL232
00509 ++INCLUDE DTSIL001 CL232
00510 EJECT CL232
00511 01 L005-COMM-AREA. CL*81
00512 ++INCLUDE DTSIL005 CL*79
00513 EJECT CL*79
00514 01 L102-LINK-AREA. CL133
00515 ++INCLUDE DTSIL102 CL133
00516 EJECT CL133
00517 01 L054-LINK-AREA. CL206
00518 ++INCLUDE DTSIL054 CL206
00519 EJECT DTSBX601
00520 01 L410-LINK-AREA. CL*46
00521 ++INCLUDE DTSIL410 CL*46
00522 EJECT CL*46
00523 01 L600-LINK-AREA. CL*86
00524 ++INCLUDE DTSIL600 CL*86
00525 EJECT CL*86
00526 01 L910-LINK-AREA. DTSBX601
00527 ++INCLUDE DTSIL910 CL**2
00528 EJECT DTSBX601
00529 01 MSKL-REC. DTSBX601
00530 ++INCLUDE DTSIMSKL CL**2
00531 EJECT DTSBX601
00532 01 MHDR-REC. CL**9
00533 ++INCLUDE DTSIMHDR CL**2
00534 EJECT DTSBX601
00535 01 MPRF-REC. CL**9
00536 ++INCLUDE DTSIMPRF CL**9
00537 EJECT DTSBX601
00538 01 MQTR-REC. CL**9
00539 ++INCLUDE DTSIMQTR CL**9
00540 EJECT CL**9
00541 01 MRPT-REC. CL*70
00542 ++INCLUDE DTSIMRPT CL*70
00543 EJECT CL*70
00544 01 MSOL-REC. CL*53
00545 ++INCLUDE DTSIMSOL CL*53
00546 EJECT CL*56
00547 01 MRCT-REC. CL*56
00548 ++INCLUDE DTSIMRCT CL*56
00549 EJECT DTSBX601
00550 01 MEVL-REC. CL111
00551 ++INCLUDE DTSIMEVL CL111
00552 EJECT CL111
00553 01 MLIN-REC. CL116
00554 ++INCLUDE DTSIMLIN CL116
00555 EJECT CL116
00556 01 MRTE-REC. CL137
00557 ++INCLUDE DTSIMRTE CL137
00558 EJECT CL137
00559 01 MDST-REC. CL144
00560 ++INCLUDE DTSIMDST CL144
00561 EJECT CL144
00562 01 MPAY-REC. CL151
00563 ++INCLUDE DTSIMPAY CL151
00564 EJECT CL151
00565 01 MADJ-REC. CL153
00566 ++INCLUDE DTSIMADJ CL153
00567 EJECT CL153
00568 01 MJRN-REC. CL155
00569 ++INCLUDE DTSIMJRN CL155
00570 EJECT CL155
00571 01 MERA-REC. CL157
00572 ++INCLUDE DTSIMERA CL157
00573 EJECT CL157
00574 01 MCOL-REC. CL*91
00575 ++INCLUDE DTSIMCOL CL*91
00576 EJECT CL*91
00577 01 MFAS-REC. CL253
00578 ++INCLUDE DTSIMFAS CL253
00579 EJECT CL198
00580 01 MFAE-REC. CL237
00581 ++INCLUDE DTSIMFAE CL237
00582 EJECT CL237
00583 01 MLOG-REC. DTSBX601
00584 ++INCLUDE DTSIMLOG DTSBX601
00585 EJECT DTSBX601
00586 01 MOPO-REC. CL*85
00587 ++INCLUDE DTSIMOPO CL*85
00588 EJECT CL*85
00589 01 MTAD-REC. CL193
00590 ++INCLUDE DTSIMTAD CL193
00591 EJECT CL*86
00592 01 MTAA-REC. CL193
00593 ++INCLUDE DTSIMTAA CL193
00594 EJECT CL193
00595 01 MBAA-REC. CL227
00596 ++INCLUDE DTSIMBAA CL227
00597 EJECT CL227
00598 01 MFSC-REC. CL*39
00599 ++INCLUDE DTSIMFSC CL*39
00600 EJECT CL*39
00601 01 MERD-REC. CL*22
00602 ++INCLUDE DTSIMERD CL*22
00603 EJECT CL*22
00604 01 L921-LINK-AREA. CL*89
00605 ++INCLUDE DTSIL921 CL*89
00606 EJECT CL*89
00607 01 ISKL-REC. CL*89
00608 ++INCLUDE DTSIISKL CL*89
00609 EJECT CL*89
00610 01 L931-LINK-AREA. CL132
00611 ++INCLUDE DTSIL931 CL132
00612 EJECT CL132
00613 01 FSKL-REC. CL132
00614 ++INCLUDE DTSIFSKL CL132
00615 EJECT CL132
00616 01 FQTR-REC. CL132
00617 ++INCLUDE DTSIFQTR CL132
00618 EJECT CL132
00619 01 FFIS-REC. CL239
00620 ++INCLUDE DTSIFFIS CL239
00621 EJECT CL239
00622 01 L004-COMM-AREA. CL239
00623 ++INCLUDE DTSIL004 CL183
00624 CL*53
00625 01 L061-LINK-AREA. CL*54
00626 ++INCLUDE DTSIL061 CL*53
00627 EJECT CL*53
00628 01 L516-LINK-AREA. CL185
00629 ++INCLUDE DTSIL516 CL185
00630 EJECT CL185
00631 PROCEDURE DIVISION. CL183
00632 SKIP2 DTSBX601
00633 PERFORM I0000-INITIATE THRU I0000-EXIT. CL**5
00634 IF WRK-ERROR-NO-88 CL193
00635 PERFORM P0000-PROCESS THRU P0000-EXIT CL193
00636 PERFORM T0000-TERMINATE THRU T0000-EXIT. CL193
00637 SKIP2 DTSBX601
00638 GOBACK. DTSBX601
00639 EJECT DTSBX601
00640 I0000-INITIATE. CL**5
00641 SKIP2 CL**5
00642 MOVE 'N' TO WRK-TRACE-IND. CL**8
00643 SET WRK-ERROR-NO-88 TO TRUE. CL193
00644 DTSBX601
00645 PERFORM I2000-OPEN-FILES-1 THRU I2000-EXIT. CL**5
00646 CL113
00647 SKIP2 DTSBX601
00648 I0000-EXIT. CL**7
00649 EXIT. CL**7
00650 I2000-OPEN-FILES-1. DTSBX601
00651 OPEN OUTPUT EXP-FILE1. CL*86
00652 IF NOT EXP-STATUS-OK-88 CL*86
00653 DISPLAY 'CANNOT OPEN EXP FILE ' EXP-STATUS CL*86
00654 SET WRK-ERROR-YES-88 TO TRUE CL*86
00655 GO TO I2000-EXIT. CL*86
00656 MOVE WRK-TRACE-IND TO L910-TRACE-IND. CL**5
00657 CL**3
00658 MOVE WRK-MOD-NAME TO L910-MOD-NAME. CL**5
00659 DTSBX601
00660 PERFORM S910-OPEN-READ THRU S910-EXIT. CL*68
00661 ** PERFORM S910-OPEN-UPDATE-NO-AIX THRU S910-EXIT. CL*68
00662 CL*89
00663 PERFORM S921-OPEN-READ THRU S921-EXIT. CL*68
00664 DTSBX601
00665 PERFORM S931-OPEN-READ THRU S931-EXIT. CL*68
00666 *** PERFORM S931-OPEN-UPDATE THRU S931-EXIT. CL*34
00667 MOVE LOW-VALUES TO MSKL-KEY-AREA. CL*84
00668 CL*84
00669 MOVE +0 TO MSKL-EMP-NO. CL*84
00670 CL*84
00671 SET MSKL-HDR-88 TO TRUE. CL*84
00672 CL*84
00673 PERFORM S910-READ THRU S910-EXIT. CL*84
00674 CL*84
00675 IF L910-NO-REC-88 CL*84
00676 MOVE 'MHDR RECORD NOT FOUND' CL*84
00677 TO WRK-ABEND-MSG CL*84
00678 PERFORM S999-ABEND THRU S999-EXIT. CL*84
00679 CL*84
00680 MOVE MSKL-REC TO MHDR-REC. CL*84
00681 CL*84
00682 MOVE MHDR-PRIOR-RUN-DATE TO WRK-EXT-CURRENT-DATE. CL*84
00683 CL*84
00684 DISPLAY ' PRIOR RUN DATE: ' MHDR-PRIOR-RUN-DATE. CL*84
00685 CL*21
00686 I2000-EXIT. DTSBX601
00687 EXIT. DTSBX601
00688 CL113
00689 P0000-PROCESS. DTSBX601
00690 DTSBX601
00691 MOVE +0 TO WRK-MPRF-CNT CL**9
00692 CL*16
00693 MOVE LOW-VALUES TO MPRF-KEY-AREA. CL*89
00694 MOVE 0 TO MLOG-CNT. CL*86
00695 SET WRK-MLOG-OK TO TRUE. DTSBX601
00696 MOVE LOW-VALUES TO MPRF-KEY-AREA. CL*92
00697 MOVE +000001 TO MPRF-EMP-NO. CL*92
00698 SET MPRF-PRF-88 TO TRUE. CL*92
00699 MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA. CL*92
00700 DTSBX601
00701 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBX601
00702 IF L910-NO-REC-88 DTSBX601
00703 NEXT SENTENCE CL*83
00704 ELSE DTSBX601
00705 PERFORM P1100-SCAN-MPRF THRU P1100-EXIT CL*89
00706 UNTIL MPRF-NO-REC-88. CL*92
00707 DTSBX601
00708 P0000-EXIT. CL*83
00709 EXIT. CL*83
00710 EJECT CL*83
00711 CL*83
00712 DTSBX601
00713 P1100-SCAN-MPRF. CL*89
00714 CL*84
00715 MOVE MSKL-REC TO MPRF-REC. CL*96
00716 PERFORM P2100-PROCESS-MLOG THRU P2100-EXIT CL*89
00717 MOVE MPRF-REC TO MSKL-REC CL*94
00718 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBX601
00719 IF NOT L910-OK-88 CL*92
00720 SET MPRF-NO-REC-88 TO TRUE. CL*92
00721 DTSBX601
00722 P1100-EXIT. CL*87
00723 EXIT. DTSBX601
00724 SKIP3 CL*56
00725 CL**1
00726 CL*89
00727 P2100-PROCESS-MLOG. CL*89
00728 CL*89
00729 MOVE +0 TO WRK-MPRF-CNT CL*89
00730 CL*89
00731 SET WRK-MLOG-OK TO TRUE. CL*89
00732 MOVE LOW-VALUES TO MLOG-KEY-AREA. CL*89
00733 MOVE MPRF-EMP-NO TO MLOG-EMP-NO. CL*89
00734 SET MLOG-LOG-88 TO TRUE. CL*89
00735 MOVE MLOG-KEY-AREA TO MSKL-KEY-AREA. CL*89
00736 CL*89
00737 PERFORM S910-START-BROWSE THRU S910-EXIT. CL*89
00738 IF L910-NO-REC-88 CL*89
00739 NEXT SENTENCE CL*89
00740 ELSE CL*89
00741 PERFORM P2200-SCAN-MLOG THRU P2200-EXIT CL*89
00742 UNTIL WRK-MLOG-NO-REC. CL*90
00743 CL*89
00744 P2100-EXIT. CL*89
00745 EXIT. CL*89
00746 EJECT CL*89
00747 CL*89
00748 CL*89
00749 P2200-SCAN-MLOG. CL*89
00750 MOVE MSKL-REC TO MLOG-REC. CL*89
00751 ADD 1 TO MLOG-CNT CL*89
00752 IF MLOG-EMP-NO = 010021 OR 010727 OR 010729 CL119
00753 * DISPLAY 'MNAME: ' MLOG-DATA-ELEMENT-NAME(1:20) CL*99
00754 DISPLAY 'MDATE: ' MLOG-EMP-NO ' ' MLOG-ESTB-DATE CL115
00755 ' ' MLOG-OP-ID CL120
00756 ' ' MLOG-DATA-ELEMENT-NAME(1:15). CL120
00757 CL121
00758 * IF MLOG-ESTB-DATE = MHDR-PRIOR-RUN-DATE CL123
00759 IF MLOG-ESTB-DATE = 20180924 CL124
00760 IF MLOG-DATA-ELEMENT-NAME(1:20) = 'MPRF-RETURN-MAIL-IND' CL*97
00761 OR CL103
00762 MLOG-DATA-ELEMENT-NAME(1:12) = 'MRTE-UI-RATE' CL103
00763 OR CL104
00764 MLOG-DATA-ELEMENT-NAME(1:15) = 'RETURN MAIL IND' CL105
00765 MOVE SPACES TO WRK-R1-SPACES CL108
00766 * MOVE MLOG-ESTB-DATE TO REC1-DATE CL123
00767 MOVE 20180924 TO REC1-DATE CL124
00768 MOVE MPRF-RETURN-MAIL-IND TO REC1-FLAG CL*99
00769 MOVE MLOG-EMP-NO TO REC1-EMP-NO CL*99
00770 MOVE MLOG-OP-ID TO REC1-OPID CL113
00771 * SET WRK-MLOG-NO-REC TO TRUE CL120
00772 WRITE EXP-REC1 FROM WRK-REC1. CL121
00773 * GO TO P2200-EXIT. CL121
00774 CL112
00775 PERFORM S910-READ-NEXT THRU S910-EXIT. CL*89
00776 IF L910-NO-REC-88 CL*89
00777 SET L910-OK-88 TO TRUE CL*90
00778 SET WRK-MLOG-NO-REC TO TRUE. CL*89
00779 CL*89
00780 P2200-EXIT. CL*89
00781 EXIT. CL*89
00782 SKIP3 CL*89
00783 CL*89
00784 T0000-TERMINATE. DTSBX601
00785 CL**4
00786 DISPLAY ' '. DTSBX601
00787 CL**4
00788 DISPLAY '*** DTSBX601 TERMINATION STATISTICS ***'. CL*83
00789 CL**4
00790 DISPLAY ' '. DTSBX601
00791 CL**4
00792 PERFORM S910-CLOSE THRU S910-EXIT. CL**4
00793 CLOSE EXP-FILE1. CL*86
00794 DTSBX601
00795 T0000-EXIT. DTSBX601
00796 EXIT. DTSBX601
00797 EJECT DTSBX601
00798 S001-FROM-FED-8. CL232
00799 SET L001-FROM-FED-8 TO TRUE. CL232
00800 GO TO S001-DATE. CL232
00801 CL232
00802 S001-FROM-ABS-DAY. CL*10
00803 SET L001-FROM-ABS-DAY TO TRUE. CL*10
00804 GO TO S001-DATE. CL*10
00805 CL*10
00806 S001-DATE. CL232
00807 CALL 'DTSBU001' USING L001-LINK-AREA. CL232
00808 CL232
00809 S001-EXIT. CL232
00810 EXIT. CL232
00811 SKIP3 DTSBX601
00812 S004-FROM-5. CL*10
00813 SET L004-FROM-5 TO TRUE. CL*10
00814 GO TO S004-EDIT-QTR. CL*10
00815 CL*10
00816 S004-FROM-ABS. CL*10
00817 SET L004-FROM-ABS TO TRUE. CL*10
00818 GO TO S004-EDIT-QTR. CL*10
00819 CL*10
00820 S004-EDIT-QTR. CL183
00821 CALL 'DTSBU004' USING L004-COMM-AREA. CL183
00822 CL183
00823 S004-EXIT. CL183
00824 EXIT. CL183
00825 SKIP3 CL183
00826 S005-SYS-DATE. CL*80
00827 CALL 'DTSBU005' USING L005-COMM-AREA. CL*80
00828 CL*80
00829 S005-EXIT. CL*80
00830 EXIT. CL*80
00831 SKIP3 CL*80
00832 CL*80
00833 S054-RATE-DETERMINATION. CL206
00834 CALL 'DTSBU054' USING L054-LINK-AREA CL206
00835 MRCT-REC. CL206
00836 CL206
00837 S054-EXIT. CL206
00838 EXIT. CL206
00839 SKIP3 CL206
00840 S061-FLD-REP-INFO. CL*53
00841 SKIP1 CL*53
00842 CALL 'DTSBU061' USING L061-LINK-AREA. CL*53
00843 SKIP2 CL*53
00844 S061-EXIT. CL*53
00845 EXIT. CL*53
00846 CL*53
00847 S410-FILING-SCHED. CL*46
00848 CALL 'DTSBU410' USING L410-LINK-AREA. CL*46
00849 CL*46
00850 S410-EXIT. CL*46
00851 EXIT. CL*46
00852 SKIP3 CL*46
00853 S516-LIABILITY. CL185
00854 CALL 'DTSBU516' USING L516-LINK-AREA CL185
00855 MPRF-REC. CL185
00856 CL185
00857 S516-EXIT. CL185
00858 EXIT. CL185
00859 SKIP3 CL185
00860 S910-OPEN-READ. DTSBX601
00861 SET L910-OPEN-READ-88 TO TRUE. DTSBX601
00862 GO TO S910-MSTR-IO. DTSBX601
00863 DTSBX601
00864 S910-OPEN-UPDATE-NO-AIX. CL*18
00865 SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE. CL*18
00866 GO TO S910-MSTR-IO. CL*15
00867 DTSBX601
00868 S910-READ. DTSBX601
00869 SET L910-READ-88 TO TRUE. DTSBX601
00870 GO TO S910-MSTR-IO. DTSBX601
00871 DTSBX601
00872 S910-START-BROWSE. DTSBX601
00873 SET L910-START-BROWSE-88 TO TRUE. DTSBX601
00874 GO TO S910-MSTR-IO. DTSBX601
00875 DTSBX601
00876 S910-READ-NEXT. DTSBX601
00877 SET L910-READ-NEXT-88 TO TRUE. DTSBX601
00878 GO TO S910-MSTR-IO. DTSBX601
00879 DTSBX601
00880 S910-COUNT. CL**9
00881 SET L910-COUNT-88 TO TRUE. CL**9
00882 GO TO S910-MSTR-IO. CL**9
00883 CL**9
00884 S910-REWRITE. CL*15
00885 SET L910-REWRITE-88 TO TRUE. CL*15
00886 GO TO S910-MSTR-IO. CL*15
00887 DTSBX601
00888 S910-DELETE. CL119
00889 SET L910-DELETE-88 TO TRUE. CL119
00890 GO TO S910-MSTR-IO. CL119
00891 CL119
00892 S910-CLOSE. DTSBX601
00893 SET L910-CLOSE-88 TO TRUE. DTSBX601
00894 GO TO S910-MSTR-IO. DTSBX601
00895 DTSBX601
00896 S910-MSTR-IO. DTSBX601
00897 CALL 'DTSBU910' USING L910-LINK-AREA CL**2
00898 MSKL-REC. DTSBX601
00899 S910-EXIT. DTSBX601
00900 EXIT. DTSBX601
00901 SKIP3 DTSBX601
00902 S921-OPEN-READ. CL*89
00903 SET L921-OPEN-READ-88 TO TRUE. CL*89
00904 GO TO S921-AIX-IO. CL*89
00905 CL*89
00906 S921-CLOSE. CL*89
00907 SET L921-CLOSE-88 TO TRUE. CL*89
00908 GO TO S921-AIX-IO. CL*89
00909 CL*89
00910 S921-AIX-IO. CL*89
00911 CALL 'DTSBU921' USING L921-LINK-AREA CL*89
00912 ISKL-REC. CL*89
00913 S921-EXIT. CL*89
00914 EXIT. CL*89
00915 SKIP3 CL*89
00916 CL*89
00917 S931-OPEN-READ. CL132
00918 SET L931-OPEN-READ-88 TO TRUE. CL132
00919 GO TO S931-REF-IO. CL132
00920 CL132
00921 S931-OPEN-UPDATE. CL*31
00922 SET L931-OPEN-UPDATE-88 TO TRUE. CL*31
00923 GO TO S931-REF-IO. CL*31
00924 CL*31
00925 S931-START-BROWSE. CL*31
00926 SET L931-START-BROWSE-88 TO TRUE. CL**6
00927 GO TO S931-REF-IO. CL**6
00928 CL**6
00929 S931-READ. CL132
00930 SET L931-READ-88 TO TRUE. CL132
00931 GO TO S931-REF-IO. CL132
00932 CL133
00933 S931-READ-NEXT. CL**6
00934 SET L931-READ-NEXT-88 TO TRUE. CL**6
00935 GO TO S931-REF-IO. CL**6
00936 CL**6
00937 S931-DELETE. CL*32
00938 SET L931-DELETE-88 TO TRUE. CL*32
00939 GO TO S931-REF-IO. CL*32
00940 CL*32
00941 S931-REWRITE. CL*29
00942 SET L931-REWRITE-88 TO TRUE. CL*29
00943 GO TO S931-REF-IO. CL*29
00944 CL*29
00945 S931-WRITE. CL*33
00946 SET L931-WRITE-88 TO TRUE. CL*33
00947 GO TO S931-REF-IO. CL*33
00948 CL*33
00949 S931-CLOSE. CL134
00950 SET L931-CLOSE-88 TO TRUE. CL133
00951 GO TO S931-REF-IO. CL133
00952 CL133
00953 S931-REF-IO. CL132
00954 CALL 'DTSBU931' USING L931-LINK-AREA CL132
00955 FSKL-REC. CL132
00956 S931-EXIT. CL132
00957 EXIT. CL132
00958 SKIP3 CL132
00959 S999-ABEND. DTSBX601
00960 CALL 'DTSBU999' USING WRK-ABEND-CD. CL**2
00961 S999-EXIT. DTSBX601
00962 EXIT. DTSBX601

1
BatchFile.txt
View File

@ -1 +0,0 @@
E:\Faizan_Folder\Dutas_git\DUTAS\Batch\DTSBX478.cob

5378
CICS/DTSCS13.cob
View File

File diff suppressed because it is too large Load Diff

9573
CICS/DTSCS26.cob
View File

File diff suppressed because it is too large Load Diff

1492
CICS/DTSCS37.cob
View File

File diff suppressed because it is too large Load Diff

6673
CICS/DTSCS44.cob
View File

File diff suppressed because it is too large Load Diff

3411
CICS/DTSCS82.cob
View File

File diff suppressed because it is too large Load Diff

2765
CICS/DTSCS85.cob
View File

File diff suppressed because it is too large Load Diff

3253
CICS/DTSCS89.cob
View File

File diff suppressed because it is too large Load Diff

4502
CICS/DTSCSL1.cob
View File

File diff suppressed because it is too large Load Diff

1059
CICS/DTSCU351.cob Normal file
View File

File diff suppressed because it is too large Load Diff

633
CICS/DTSCU415.cob
View File

@ -1,6 +1,6 @@
00001 IDENTIFICATION DIVISION. 01/29/03
00001 IDENTIFICATION DIVISION. 04/09/13
00002 PROGRAM-ID. DTSCU415. DTSCU415
00003 AUTHOR. TRW. LV003
00003 AUTHOR. TRW. LV002
00004 DATE-WRITTEN. OCTOBER 20001. DTSCU415
00005 DATE-COMPILED. DTSCU415
00006 DTSCU415
@ -34,318 +34,319 @@
00034 DATA DIVISION. DTSCU415
00035 SKIP3 DTSCU415
00036 WORKING-STORAGE SECTION. DTSCU415
000365 77 PAN-VALET PICTURE X(24) VALUE '003DTSCU415 01/29/03'. DTSCU415
00037 SKIP3 DTSCU415
00038 01 WRK-AREA. DTSCU415
00039 05 WRK-ABEND-CODE PIC X(04) VALUE 'U415'. DTSCU415
00040 DTSCU415
00041 05 WRK-YR PIC S9(05) COMP-3. DTSCU415
00042 05 WRK-FIRST-HSEHLD-YR PIC S9(05) COMP-3 DTSCU415
00043 VALUE +2002. DTSCU415
00044 DTSCU415
00045 05 WRK-YRQ-AREA PIC 9(05). DTSCU415
00046 05 FILLER REDEFINES WRK-YRQ-AREA. DTSCU415
00047 10 WRK-YRQ-CCYY PIC 9(04). DTSCU415
00048 10 WRK-YRQ-Q PIC 9(01). DTSCU415
00049 DTSCU415
00050 05 WRK-LAST-YRQ PIC 9(05). DTSCU415
00051 05 FILLER REDEFINES WRK-LAST-YRQ. DTSCU415
00052 10 WRK-LAST-YYYY PIC 9(04). DTSCU415
00053 10 WRK-LAST-Q PIC 9(01). DTSCU415
00054 DTSCU415
00055 05 WRK-LAST-MASS-MAIL-DATE PIC S9(09) COMP-3. DTSCU415
00056 05 WRK-LAST-MASS-MAIL-YR PIC S9(05) COMP-3. DTSCU415
00057 05 WRK-LAST-LATE-PEN-DATE PIC S9(09) COMP-3. DTSCU415
00058 05 WRK-LAST-LATE-PEN-YR PIC S9(05) COMP-3. DTSCU415
00059 05 WRK-LAST-FIRST-DEL-DATE PIC S9(09) COMP-3. DTSCU415
00060 05 WRK-LAST-FIRST-DEL-YR PIC S9(05) COMP-3. DTSCU415
00061 05 WRK-LAST-FINAL-DEL-DATE PIC S9(09) COMP-3. DTSCU415
00062 05 WRK-LAST-FINAL-DEL-YR PIC S9(05) COMP-3. DTSCU415
00063 05 WRK-LAST-FINAL-ACTION-DATE PIC S9(09) COMP-3. DTSCU415
00064 DTSCU415
00065 05 WRK-FAFD-FOUND-IND PIC X(01). DTSCU415
00066 88 WRK-FAFD-FOUND-YES-88 VALUE 'Y'. DTSCU415
00067 88 WRK-FAFD-FOUND-NO-88 VALUE 'N'. DTSCU415
00068 DTSCU415
00069 01 L831-COMM-AREA. DTSCU415
00070 05 L831-CONTROL-BLOCK. DTSCU415
00071 ++INCLUDE DTSIL831 DTSCU415
00072 05 FSKL-REC. DTSCU415
00073 ++INCLUDE DTSIFSKL DTSCU415
00074 EJECT DTSCU415
00075 05 FAFD-REC REDEFINES FSKL-REC. DTSCU415
00076 ++INCLUDE DTSIFAFD DTSCU415
00077 EJECT DTSCU415
00078 LINKAGE SECTION. DTSCU415
00079 SKIP3 DTSCU415
00080 01 DFHCOMMAREA. DTSCU415
00081 ++INCLUDE DTSIL415 DTSCU415
00082 EJECT DTSCU415
00083 PROCEDURE DIVISION. DTSCU415
00084 SKIP2 DTSCU415
00085 DTSCU400-MAINLINE. DTSCU415
00086 PERFORM I0000-INITIALIZE THRU I0000-EXIT. DTSCU415
00087 DTSCU415
00088 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSCU415
00089 DTSCU415
00090 DTSCU400-MAINLINE-EXIT. DTSCU415
00091 EXEC CICS DTSCU415
00092 RETURN DTSCU415
00093 END-EXEC. DTSCU415
00094 DTSCU415
00095 EJECT DTSCU415
00096 I0000-INITIALIZE. DTSCU415
00097 PERFORM I1000-EDIT-INPUT THRU I1000-EXIT. DTSCU415
00098 DTSCU415
00099 PERFORM I2000-INIT-RETURN THRU I2000-EXIT. DTSCU415
00100 DTSCU415
00101 I0000-EXIT. DTSCU415
00102 EXIT. DTSCU415
00103 I1000-EDIT-INPUT. DTSCU415
00104 IF L415-MODE-INPUT-YEAR-88 DTSCU415
00105 IF L415-YR NOT NUMERIC DTSCU415
00106 PERFORM S899-ABEND THRU S899-EXIT DTSCU415
00107 ELSE DTSCU415
00108 MOVE L415-YR TO WRK-YR DTSCU415
00109 ELSE DTSCU415
00110 MOVE ZERO TO WRK-YR. DTSCU415
00111 DTSCU415
00112 I1000-EXIT. DTSCU415
00113 EXIT. DTSCU415
00114 DTSCU415
00115 I2000-INIT-RETURN. DTSCU415
00116 MOVE ZERO TO L415-UC30H-RPT-DUE-DATE DTSCU415
00117 L415-UC30H-MASS-MAIL-DATE DTSCU415
00118 L415-UC30H-MASS-MAIL-STRT-YRQ DTSCU415
00119 L415-UC30H-MASS-MAIL-END-YRQ DTSCU415
00120 L415-UC30H-LATE-PEN-DATE DTSCU415
00121 L415-UC30H-LATE-PEN-STRT-YRQ DTSCU415
00122 L415-UC30H-LATE-PEN-END-YRQ DTSCU415
00123 L415-UC30H-FIRST-DEL-DATE DTSCU415
00124 L415-UC30H-FIRST-DEL-STRT-YRQ DTSCU415
00125 L415-UC30H-FIRST-DEL-END-YRQ DTSCU415
00126 L415-UC30H-FINAL-DEL-DATE DTSCU415
00127 L415-UC30H-FINAL-DEL-STRT-YRQ DTSCU415
00128 L415-UC30H-FINAL-DEL-END-YRQ DTSCU415
00129 L415-UC30H-FINAL-ACTION-DATE DTSCU415
00130 WRK-LAST-MASS-MAIL-DATE DTSCU415
00131 WRK-LAST-MASS-MAIL-YR DTSCU415
00132 WRK-LAST-LATE-PEN-DATE DTSCU415
00133 WRK-LAST-LATE-PEN-YR DTSCU415
00134 WRK-LAST-FIRST-DEL-DATE DTSCU415
00135 WRK-LAST-FIRST-DEL-YR DTSCU415
00136 WRK-LAST-FINAL-DEL-DATE DTSCU415
00137 WRK-LAST-FINAL-DEL-YR DTSCU415
00138 WRK-LAST-FINAL-ACTION-DATE. DTSCU415
00139 DTSCU415
000365 77 PAN-VALET PICTURE X(24) VALUE '002DTSCU415 04/09/13'. DTSCU415
00037 77 PAN-VALET PICTURE X(24) VALUE '003DTSCU415 01/29/03'. DTSCU415
00038 SKIP3 DTSCU415
00039 01 WRK-AREA. DTSCU415
00040 05 WRK-ABEND-CODE PIC X(04) VALUE 'U415'. DTSCU415
00041 DTSCU415
00042 05 WRK-YR PIC S9(05) COMP-3. DTSCU415
00043 05 WRK-FIRST-HSEHLD-YR PIC S9(05) COMP-3 DTSCU415
00044 VALUE +2002. DTSCU415
00045 DTSCU415
00046 05 WRK-YRQ-AREA PIC 9(05). DTSCU415
00047 05 FILLER REDEFINES WRK-YRQ-AREA. DTSCU415
00048 10 WRK-YRQ-CCYY PIC 9(04). DTSCU415
00049 10 WRK-YRQ-Q PIC 9(01). DTSCU415
00050 DTSCU415
00051 05 WRK-LAST-YRQ PIC 9(05). DTSCU415
00052 05 FILLER REDEFINES WRK-LAST-YRQ. DTSCU415
00053 10 WRK-LAST-YYYY PIC 9(04). DTSCU415
00054 10 WRK-LAST-Q PIC 9(01). DTSCU415
00055 DTSCU415
00056 05 WRK-LAST-MASS-MAIL-DATE PIC S9(09) COMP-3. DTSCU415
00057 05 WRK-LAST-MASS-MAIL-YR PIC S9(05) COMP-3. DTSCU415
00058 05 WRK-LAST-LATE-PEN-DATE PIC S9(09) COMP-3. DTSCU415
00059 05 WRK-LAST-LATE-PEN-YR PIC S9(05) COMP-3. DTSCU415
00060 05 WRK-LAST-FIRST-DEL-DATE PIC S9(09) COMP-3. DTSCU415
00061 05 WRK-LAST-FIRST-DEL-YR PIC S9(05) COMP-3. DTSCU415
00062 05 WRK-LAST-ESTIMATED-DATE PIC S9(09) COMP-3. CL**2
00063 05 WRK-LAST-FINAL-DEL-YR PIC S9(05) COMP-3. DTSCU415
00064 05 WRK-LAST-FINAL-ACTION-DATE PIC S9(09) COMP-3. DTSCU415
00065 DTSCU415
00066 05 WRK-FAFD-FOUND-IND PIC X(01). DTSCU415
00067 88 WRK-FAFD-FOUND-YES-88 VALUE 'Y'. DTSCU415
00068 88 WRK-FAFD-FOUND-NO-88 VALUE 'N'. DTSCU415
00069 DTSCU415
00070 01 L831-COMM-AREA. DTSCU415
00071 05 L831-CONTROL-BLOCK. DTSCU415
00072 ++INCLUDE DTSIL831 DTSCU415
00073 05 FSKL-REC. DTSCU415
00074 ++INCLUDE DTSIFSKL DTSCU415
00075 EJECT DTSCU415
00076 05 FAFD-REC REDEFINES FSKL-REC. DTSCU415
00077 ++INCLUDE DTSIFAFD DTSCU415
00078 EJECT DTSCU415
00079 LINKAGE SECTION. DTSCU415
00080 SKIP3 DTSCU415
00081 01 DFHCOMMAREA. DTSCU415
00082 ++INCLUDE DTSIL415 DTSCU415
00083 EJECT DTSCU415
00084 PROCEDURE DIVISION. DTSCU415
00085 SKIP2 DTSCU415
00086 DTSCU400-MAINLINE. DTSCU415
00087 PERFORM I0000-INITIALIZE THRU I0000-EXIT. DTSCU415
00088 DTSCU415
00089 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSCU415
00090 DTSCU415
00091 DTSCU400-MAINLINE-EXIT. DTSCU415
00092 EXEC CICS DTSCU415
00093 RETURN DTSCU415
00094 END-EXEC. DTSCU415
00095 DTSCU415
00096 EJECT DTSCU415
00097 I0000-INITIALIZE. DTSCU415
00098 PERFORM I1000-EDIT-INPUT THRU I1000-EXIT. DTSCU415
00099 DTSCU415
00100 PERFORM I2000-INIT-RETURN THRU I2000-EXIT. DTSCU415
00101 DTSCU415
00102 I0000-EXIT. DTSCU415
00103 EXIT. DTSCU415
00104 I1000-EDIT-INPUT. DTSCU415
00105 IF L415-MODE-INPUT-YEAR-88 DTSCU415
00106 IF L415-YR NOT NUMERIC DTSCU415
00107 PERFORM S899-ABEND THRU S899-EXIT DTSCU415
00108 ELSE DTSCU415
00109 MOVE L415-YR TO WRK-YR DTSCU415
00110 ELSE DTSCU415
00111 MOVE ZERO TO WRK-YR. DTSCU415
00112 DTSCU415
00113 I1000-EXIT. DTSCU415
00114 EXIT. DTSCU415
00115 DTSCU415
00116 I2000-INIT-RETURN. DTSCU415
00117 MOVE ZERO TO L415-UC30H-RPT-DUE-DATE DTSCU415
00118 L415-UC30H-MASS-MAIL-DATE DTSCU415
00119 L415-UC30H-MASS-MAIL-STRT-YRQ DTSCU415
00120 L415-UC30H-MASS-MAIL-END-YRQ DTSCU415
00121 L415-UC30H-LATE-PEN-DATE DTSCU415
00122 L415-UC30H-LATE-PEN-STRT-YRQ DTSCU415
00123 L415-UC30H-LATE-PEN-END-YRQ DTSCU415
00124 L415-UC30H-FIRST-DEL-DATE DTSCU415
00125 L415-UC30H-FIRST-DEL-STRT-YRQ DTSCU415
00126 L415-UC30H-FIRST-DEL-END-YRQ DTSCU415
00127 L415-UC30H-ESTIMATED-DATE CL**2
00128 L415-UC30H-FINAL-DEL-STRT-YRQ DTSCU415
00129 L415-UC30H-FINAL-DEL-END-YRQ DTSCU415
00130 L415-UC30H-FINAL-ACTION-DATE DTSCU415
00131 WRK-LAST-MASS-MAIL-DATE DTSCU415
00132 WRK-LAST-MASS-MAIL-YR DTSCU415
00133 WRK-LAST-LATE-PEN-DATE DTSCU415
00134 WRK-LAST-LATE-PEN-YR DTSCU415
00135 WRK-LAST-FIRST-DEL-DATE DTSCU415
00136 WRK-LAST-FIRST-DEL-YR DTSCU415
00137 WRK-LAST-ESTIMATED-DATE CL**2
00138 WRK-LAST-FINAL-DEL-YR DTSCU415
00139 WRK-LAST-FINAL-ACTION-DATE. DTSCU415
00140 DTSCU415
00141 I2000-EXIT. DTSCU415
00142 EXIT. DTSCU415
00143 DTSCU415
00144 P0000-PROCESS. DTSCU415
00145 SET L415-NOT-FOUND-88 TO TRUE. DTSCU415
00146 DTSCU415
00147 IF L415-MODE-INPUT-YEAR-88 DTSCU415
00148 PERFORM P1000-INPUT-YEAR THRU P1000-EXIT DTSCU415
00149 IF L415-OK-88 DTSCU415
00150 PERFORM P1100-RETURN-VALUES THRU P1100-EXIT DTSCU415
00151 END-IF DTSCU415
00152 ELSE DTSCU415
00153 PERFORM P2000-MOST-RECENT THRU P2000-EXIT DTSCU415
00154 PERFORM P2200-RETURN-VALUES THRU P2200-EXIT. DTSCU415
00155 DTSCU415
00156 P0000-EXIT. DTSCU415
00157 EXIT. DTSCU415
00158 DTSCU415
00159 P1000-INPUT-YEAR. DTSCU415
00160 MOVE LOW-VALUES TO FAFD-KEY-AREA. DTSCU415
00161 MOVE WRK-YR TO FAFD-YR. DTSCU415
00162 SET FAFD-AFD-88 TO TRUE. DTSCU415
00163 MOVE FAFD-KEY-AREA TO FSKL-KEY-AREA. DTSCU415
00164 PERFORM S831-READ THRU S831-EXIT. DTSCU415
00165 IF L831-NO-REC-88 DTSCU415
00166 NEXT SENTENCE DTSCU415
00167 ELSE DTSCU415
00168 MOVE FSKL-REC TO FAFD-REC DTSCU415
00169 SET L415-OK-88 TO TRUE. DTSCU415
00170 DTSCU415
00171 P1000-EXIT. DTSCU415
00172 EXIT. DTSCU415
00173 DTSCU415
00174 P1100-RETURN-VALUES. DTSCU415
00175 MOVE FAFD-UC30H-RPT-DUE-DATE DTSCU415
00176 TO L415-UC30H-RPT-DUE-DATE. DTSCU415
00177 DTSCU415
00178 MOVE FAFD-UC30H-MASS-MAIL-DATE DTSCU415
00179 TO L415-UC30H-MASS-MAIL-DATE. DTSCU415
00180 MOVE FAFD-YR TO WRK-LAST-YYYY. DTSCU415
00181 MOVE 1 TO WRK-LAST-Q. DTSCU415
00182 MOVE WRK-LAST-YRQ DTSCU415
00183 TO L415-UC30H-MASS-MAIL-STRT-YRQ. DTSCU415
00184 MOVE 4 TO WRK-LAST-Q. DTSCU415
00185 MOVE WRK-LAST-YRQ DTSCU415
00186 TO L415-UC30H-MASS-MAIL-END-YRQ. DTSCU415
00187 DTSCU415
00188 MOVE FAFD-LATE-PEN-ASSESSED-DATE DTSCU415
00189 TO L415-UC30H-LATE-PEN-DATE. DTSCU415
00190 MOVE FAFD-YR TO WRK-LAST-YYYY DTSCU415
00191 MOVE 1 TO WRK-LAST-Q. DTSCU415
00192 MOVE WRK-LAST-YRQ DTSCU415
00193 TO L415-UC30H-LATE-PEN-STRT-YRQ. DTSCU415
00194 MOVE 4 TO WRK-LAST-Q. DTSCU415
00195 MOVE WRK-LAST-YRQ DTSCU415
00196 TO L415-UC30H-LATE-PEN-END-YRQ. DTSCU415
00197 DTSCU415
00198 MOVE FAFD-UC30H-FIRST-DEL-DATE DTSCU415
00199 TO L415-UC30H-FIRST-DEL-DATE. DTSCU415
00200 MOVE FAFD-YR TO WRK-LAST-YYYY DTSCU415
00201 MOVE 1 TO WRK-LAST-Q. DTSCU415
00202 MOVE WRK-LAST-YRQ DTSCU415
00203 TO L415-UC30H-FIRST-DEL-STRT-YRQ. DTSCU415
00204 MOVE 4 TO WRK-LAST-Q. DTSCU415
00205 MOVE WRK-LAST-YRQ DTSCU415
00206 TO L415-UC30H-FIRST-DEL-END-YRQ. DTSCU415
00207 DTSCU415
00208 MOVE FAFD-UC30H-FINAL-DEL-DATE DTSCU415
00209 TO L415-UC30H-FINAL-DEL-DATE. DTSCU415
00210 MOVE FAFD-YR TO WRK-LAST-YYYY DTSCU415
00211 MOVE 1 TO WRK-LAST-Q. DTSCU415
00212 MOVE WRK-LAST-YRQ DTSCU415
00213 TO L415-UC30H-FINAL-DEL-STRT-YRQ. DTSCU415
00214 MOVE 4 TO WRK-LAST-Q. DTSCU415
00215 MOVE WRK-LAST-YRQ DTSCU415
00216 TO L415-UC30H-FINAL-DEL-END-YRQ. DTSCU415
00217 DTSCU415
00218 MOVE FAFD-UC30H-FINAL-ACTION-DATE DTSCU415
00219 TO L415-UC30H-FINAL-ACTION-DATE. DTSCU415
00220 DTSCU415
00221 P1100-EXIT. DTSCU415
00222 EXIT. DTSCU415
00223 DTSCU415
00224 P2000-MOST-RECENT. DTSCU415
00225 MOVE LOW-VALUES TO FAFD-KEY-AREA. DTSCU415
00226 SET FAFD-AFD-88 TO TRUE. DTSCU415
00227 MOVE FAFD-KEY-AREA TO FSKL-KEY-AREA. DTSCU415
00228 PERFORM S831-START-BROWSE THRU S831-EXIT. DTSCU415
00229 IF L831-OK-88 DTSCU415
00230 SET L415-OK-88 TO TRUE DTSCU415
00231 PERFORM P2100-SCAN-FAFD THRU P2100-EXIT DTSCU415
00232 UNTIL L831-NO-REC-88. DTSCU415
00233 DTSCU415
00234 P2000-EXIT. DTSCU415
00235 EXIT. DTSCU415
00236 DTSCU415
00237 P2100-SCAN-FAFD. DTSCU415
00238 MOVE FSKL-REC TO FAFD-REC. DTSCU415
00239 DTSCU415
00240 IF FAFD-UC30H-MASS-MAIL-DATE > DTSCU415
00241 WRK-LAST-MASS-MAIL-DATE DTSCU415
00242 MOVE FAFD-UC30H-MASS-MAIL-DATE TO DTSCU415
00243 WRK-LAST-MASS-MAIL-DATE DTSCU415
00244 MOVE FAFD-YR TO WRK-LAST-MASS-MAIL-YR. DTSCU415
00245 DTSCU415
00246 IF FAFD-LATE-PEN-ASSESSED-DATE > DTSCU415
00247 WRK-LAST-LATE-PEN-DATE DTSCU415
00248 MOVE FAFD-LATE-PEN-ASSESSED-DATE TO DTSCU415
00249 WRK-LAST-LATE-PEN-DATE DTSCU415
00250 MOVE FAFD-YR TO WRK-LAST-LATE-PEN-YR. DTSCU415
00251 DTSCU415
00252 IF FAFD-UC30H-FIRST-DEL-DATE > DTSCU415
00253 WRK-LAST-FIRST-DEL-DATE DTSCU415
00254 MOVE FAFD-UC30H-FIRST-DEL-DATE TO DTSCU415
00255 WRK-LAST-FIRST-DEL-DATE DTSCU415
00256 MOVE FAFD-YR TO WRK-LAST-FIRST-DEL-YR. DTSCU415
00257 DTSCU415
00258 IF FAFD-UC30H-FINAL-DEL-DATE > DTSCU415
00259 WRK-LAST-FINAL-DEL-DATE DTSCU415
00260 MOVE FAFD-UC30H-FINAL-DEL-DATE TO DTSCU415
00261 WRK-LAST-FINAL-DEL-DATE DTSCU415
00262 MOVE FAFD-YR TO WRK-LAST-FINAL-DEL-YR. DTSCU415
00263 DTSCU415
00264 IF FAFD-UC30H-FINAL-ACTION-DATE > DTSCU415
00265 WRK-LAST-FINAL-ACTION-DATE DTSCU415
00266 MOVE FAFD-UC30H-FINAL-ACTION-DATE TO DTSCU415
00267 WRK-LAST-FINAL-ACTION-DATE. DTSCU415
00268 DTSCU415
00269 PERFORM S831-READ-NEXT THRU S831-EXIT. DTSCU415
00270 DTSCU415
00271 P2100-EXIT. DTSCU415
00272 EXIT. DTSCU415
00273 DTSCU415
00274 P2200-RETURN-VALUES. DTSCU415
00275 MOVE ZERO TO L415-UC30H-RPT-DUE-DATE. DTSCU415
00276 DTSCU415
00277 MOVE WRK-LAST-MASS-MAIL-DATE DTSCU415
00278 TO L415-UC30H-MASS-MAIL-DATE. DTSCU415
00279 IF WRK-LAST-MASS-MAIL-YR > 0 DTSCU415
00280 MOVE WRK-LAST-MASS-MAIL-YR DTSCU415
00281 TO WRK-LAST-YYYY DTSCU415
00282 MOVE 1 TO WRK-LAST-Q DTSCU415
00283 MOVE WRK-LAST-YRQ TO L415-UC30H-MASS-MAIL-STRT-YRQ DTSCU415
00284 MOVE 4 TO WRK-LAST-Q DTSCU415
00285 MOVE WRK-LAST-YRQ TO L415-UC30H-MASS-MAIL-END-YRQ. DTSCU415
00286 DTSCU415
00287 MOVE WRK-LAST-LATE-PEN-DATE DTSCU415
00288 TO L415-UC30H-LATE-PEN-DATE. DTSCU415
00289 IF WRK-LAST-LATE-PEN-YR > 0 DTSCU415
00290 MOVE WRK-LAST-LATE-PEN-YR DTSCU415
00291 TO WRK-LAST-YYYY DTSCU415
00292 MOVE 1 TO WRK-LAST-Q DTSCU415
00293 MOVE WRK-LAST-YRQ TO L415-UC30H-LATE-PEN-STRT-YRQ DTSCU415
00294 MOVE 4 TO WRK-LAST-Q DTSCU415
00295 MOVE WRK-LAST-YRQ TO L415-UC30H-LATE-PEN-END-YRQ. DTSCU415
00296 DTSCU415
00297 MOVE WRK-LAST-FIRST-DEL-DATE DTSCU415
00298 TO L415-UC30H-FIRST-DEL-DATE. DTSCU415
00299 IF WRK-LAST-FIRST-DEL-YR > 0 DTSCU415
00300 MOVE WRK-LAST-FIRST-DEL-YR DTSCU415
00301 TO WRK-LAST-YYYY DTSCU415
00302 MOVE 1 TO WRK-LAST-Q DTSCU415
00303 MOVE WRK-LAST-YRQ TO L415-UC30H-FIRST-DEL-STRT-YRQ DTSCU415
00304 MOVE 4 TO WRK-LAST-Q DTSCU415
00305 MOVE WRK-LAST-YRQ TO L415-UC30H-FIRST-DEL-END-YRQ. DTSCU415
00306 DTSCU415
00307 MOVE WRK-LAST-FINAL-DEL-DATE DTSCU415
00308 TO L415-UC30H-FINAL-DEL-DATE. DTSCU415
00309 IF WRK-LAST-FINAL-DEL-YR > 0 DTSCU415
00310 MOVE WRK-LAST-FINAL-DEL-YR DTSCU415
00311 TO WRK-LAST-YYYY DTSCU415
00312 MOVE 1 TO WRK-LAST-Q DTSCU415
00313 MOVE WRK-LAST-YRQ TO L415-UC30H-FINAL-DEL-STRT-YRQ DTSCU415
00314 MOVE 4 TO WRK-LAST-Q DTSCU415
00315 MOVE WRK-LAST-YRQ TO L415-UC30H-FINAL-DEL-END-YRQ. DTSCU415
00316 DTSCU415
00317 MOVE WRK-LAST-FINAL-ACTION-DATE DTSCU415
00318 TO L415-UC30H-FINAL-ACTION-DATE. DTSCU415
00319 DTSCU415
00320 P2200-EXIT. DTSCU415
00321 EXIT. DTSCU415
00322 DTSCU415
00323 S831-READ. DTSCU415
00324 SET L831-READ-88 TO TRUE. DTSCU415
00325 GO TO S831-REF-IO. DTSCU415
00326 DTSCU415
00327 S831-START-BROWSE. DTSCU415
00328 SET L831-START-BROWSE-88 TO TRUE. DTSCU415
00329 GO TO S831-REF-IO. DTSCU415
00330 DTSCU415
00331 S831-READ-NEXT. DTSCU415
00332 SET L831-READ-NEXT-88 TO TRUE. DTSCU415
00333 GO TO S831-REF-IO. DTSCU415
00334 DTSCU415
00335 S831-REF-IO. DTSCU415
00336 EXEC CICS LINK DTSCU415
00337 PROGRAM ('DTSCU831') DTSCU415
00338 COMMAREA (L831-COMM-AREA) DTSCU415
00339 END-EXEC. DTSCU415
00340 SKIP1 DTSCU415
00341 S831-EXIT. DTSCU415
00342 EXIT. DTSCU415
00343 DTSCU415
00344 S899-ABEND. DTSCU415
00345 EXEC CICS ABEND DTSCU415
00346 ABCODE(WRK-ABEND-CODE) DTSCU415
00347 END-EXEC. DTSCU415
00348 DTSCU415
00349 S899-EXIT. DTSCU415
00350 EXIT. DTSCU415
00141 DTSCU415
00142 I2000-EXIT. DTSCU415
00143 EXIT. DTSCU415
00144 DTSCU415
00145 P0000-PROCESS. DTSCU415
00146 SET L415-NOT-FOUND-88 TO TRUE. DTSCU415
00147 DTSCU415
00148 IF L415-MODE-INPUT-YEAR-88 DTSCU415
00149 PERFORM P1000-INPUT-YEAR THRU P1000-EXIT DTSCU415
00150 IF L415-OK-88 DTSCU415
00151 PERFORM P1100-RETURN-VALUES THRU P1100-EXIT DTSCU415
00152 END-IF DTSCU415
00153 ELSE DTSCU415
00154 PERFORM P2000-MOST-RECENT THRU P2000-EXIT DTSCU415
00155 PERFORM P2200-RETURN-VALUES THRU P2200-EXIT. DTSCU415
00156 DTSCU415
00157 P0000-EXIT. DTSCU415
00158 EXIT. DTSCU415
00159 DTSCU415
00160 P1000-INPUT-YEAR. DTSCU415
00161 MOVE LOW-VALUES TO FAFD-KEY-AREA. DTSCU415
00162 MOVE WRK-YR TO FAFD-YR. DTSCU415
00163 SET FAFD-AFD-88 TO TRUE. DTSCU415
00164 MOVE FAFD-KEY-AREA TO FSKL-KEY-AREA. DTSCU415
00165 PERFORM S831-READ THRU S831-EXIT. DTSCU415
00166 IF L831-NO-REC-88 DTSCU415
00167 NEXT SENTENCE DTSCU415
00168 ELSE DTSCU415
00169 MOVE FSKL-REC TO FAFD-REC DTSCU415
00170 SET L415-OK-88 TO TRUE. DTSCU415
00171 DTSCU415
00172 P1000-EXIT. DTSCU415
00173 EXIT. DTSCU415
00174 DTSCU415
00175 P1100-RETURN-VALUES. DTSCU415
00176 MOVE FAFD-UC30H-RPT-DUE-DATE DTSCU415
00177 TO L415-UC30H-RPT-DUE-DATE. DTSCU415
00178 DTSCU415
00179 MOVE FAFD-UC30H-MASS-MAIL-DATE DTSCU415
00180 TO L415-UC30H-MASS-MAIL-DATE. DTSCU415
00181 MOVE FAFD-YR TO WRK-LAST-YYYY. DTSCU415
00182 MOVE 1 TO WRK-LAST-Q. DTSCU415
00183 MOVE WRK-LAST-YRQ DTSCU415
00184 TO L415-UC30H-MASS-MAIL-STRT-YRQ. DTSCU415
00185 MOVE 4 TO WRK-LAST-Q. DTSCU415
00186 MOVE WRK-LAST-YRQ DTSCU415
00187 TO L415-UC30H-MASS-MAIL-END-YRQ. DTSCU415
00188 DTSCU415
00189 MOVE FAFD-LATE-PEN-ASSESSED-DATE DTSCU415
00190 TO L415-UC30H-LATE-PEN-DATE. DTSCU415
00191 MOVE FAFD-YR TO WRK-LAST-YYYY DTSCU415
00192 MOVE 1 TO WRK-LAST-Q. DTSCU415
00193 MOVE WRK-LAST-YRQ DTSCU415
00194 TO L415-UC30H-LATE-PEN-STRT-YRQ. DTSCU415
00195 MOVE 4 TO WRK-LAST-Q. DTSCU415
00196 MOVE WRK-LAST-YRQ DTSCU415
00197 TO L415-UC30H-LATE-PEN-END-YRQ. DTSCU415
00198 DTSCU415
00199 MOVE FAFD-UC30H-FIRST-DEL-DATE DTSCU415
00200 TO L415-UC30H-FIRST-DEL-DATE. DTSCU415
00201 MOVE FAFD-YR TO WRK-LAST-YYYY DTSCU415
00202 MOVE 1 TO WRK-LAST-Q. DTSCU415
00203 MOVE WRK-LAST-YRQ DTSCU415
00204 TO L415-UC30H-FIRST-DEL-STRT-YRQ. DTSCU415
00205 MOVE 4 TO WRK-LAST-Q. DTSCU415
00206 MOVE WRK-LAST-YRQ DTSCU415
00207 TO L415-UC30H-FIRST-DEL-END-YRQ. DTSCU415
00208 DTSCU415
00209 MOVE FAFD-UC30H-ESTIMATED-DATE CL**2
00210 TO L415-UC30H-ESTIMATED-DATE. CL**2
00211 MOVE FAFD-YR TO WRK-LAST-YYYY DTSCU415
00212 MOVE 1 TO WRK-LAST-Q. DTSCU415
00213 MOVE WRK-LAST-YRQ DTSCU415
00214 TO L415-UC30H-FINAL-DEL-STRT-YRQ. DTSCU415
00215 MOVE 4 TO WRK-LAST-Q. DTSCU415
00216 MOVE WRK-LAST-YRQ DTSCU415
00217 TO L415-UC30H-FINAL-DEL-END-YRQ. DTSCU415
00218 DTSCU415
00219 MOVE FAFD-UC30H-FINAL-ACTION-DATE DTSCU415
00220 TO L415-UC30H-FINAL-ACTION-DATE. DTSCU415
00221 DTSCU415
00222 P1100-EXIT. DTSCU415
00223 EXIT. DTSCU415
00224 DTSCU415
00225 P2000-MOST-RECENT. DTSCU415
00226 MOVE LOW-VALUES TO FAFD-KEY-AREA. DTSCU415
00227 SET FAFD-AFD-88 TO TRUE. DTSCU415
00228 MOVE FAFD-KEY-AREA TO FSKL-KEY-AREA. DTSCU415
00229 PERFORM S831-START-BROWSE THRU S831-EXIT. DTSCU415
00230 IF L831-OK-88 DTSCU415
00231 SET L415-OK-88 TO TRUE DTSCU415
00232 PERFORM P2100-SCAN-FAFD THRU P2100-EXIT DTSCU415
00233 UNTIL L831-NO-REC-88. DTSCU415
00234 DTSCU415
00235 P2000-EXIT. DTSCU415
00236 EXIT. DTSCU415
00237 DTSCU415
00238 P2100-SCAN-FAFD. DTSCU415
00239 MOVE FSKL-REC TO FAFD-REC. DTSCU415
00240 DTSCU415
00241 IF FAFD-UC30H-MASS-MAIL-DATE > DTSCU415
00242 WRK-LAST-MASS-MAIL-DATE DTSCU415
00243 MOVE FAFD-UC30H-MASS-MAIL-DATE TO DTSCU415
00244 WRK-LAST-MASS-MAIL-DATE DTSCU415
00245 MOVE FAFD-YR TO WRK-LAST-MASS-MAIL-YR. DTSCU415
00246 DTSCU415
00247 IF FAFD-LATE-PEN-ASSESSED-DATE > DTSCU415
00248 WRK-LAST-LATE-PEN-DATE DTSCU415
00249 MOVE FAFD-LATE-PEN-ASSESSED-DATE TO DTSCU415
00250 WRK-LAST-LATE-PEN-DATE DTSCU415
00251 MOVE FAFD-YR TO WRK-LAST-LATE-PEN-YR. DTSCU415
00252 DTSCU415
00253 IF FAFD-UC30H-FIRST-DEL-DATE > DTSCU415
00254 WRK-LAST-FIRST-DEL-DATE DTSCU415
00255 MOVE FAFD-UC30H-FIRST-DEL-DATE TO DTSCU415
00256 WRK-LAST-FIRST-DEL-DATE DTSCU415
00257 MOVE FAFD-YR TO WRK-LAST-FIRST-DEL-YR. DTSCU415
00258 DTSCU415
00259 IF FAFD-UC30H-ESTIMATED-DATE > CL**2
00260 WRK-LAST-ESTIMATED-DATE CL**2
00261 MOVE FAFD-UC30H-ESTIMATED-DATE TO CL**2
00262 WRK-LAST-ESTIMATED-DATE CL**2
00263 MOVE FAFD-YR TO WRK-LAST-FINAL-DEL-YR. DTSCU415
00264 DTSCU415
00265 IF FAFD-UC30H-FINAL-ACTION-DATE > DTSCU415
00266 WRK-LAST-FINAL-ACTION-DATE DTSCU415
00267 MOVE FAFD-UC30H-FINAL-ACTION-DATE TO DTSCU415
00268 WRK-LAST-FINAL-ACTION-DATE. DTSCU415
00269 DTSCU415
00270 PERFORM S831-READ-NEXT THRU S831-EXIT. DTSCU415
00271 DTSCU415
00272 P2100-EXIT. DTSCU415
00273 EXIT. DTSCU415
00274 DTSCU415
00275 P2200-RETURN-VALUES. DTSCU415
00276 MOVE ZERO TO L415-UC30H-RPT-DUE-DATE. DTSCU415
00277 DTSCU415
00278 MOVE WRK-LAST-MASS-MAIL-DATE DTSCU415
00279 TO L415-UC30H-MASS-MAIL-DATE. DTSCU415
00280 IF WRK-LAST-MASS-MAIL-YR > 0 DTSCU415
00281 MOVE WRK-LAST-MASS-MAIL-YR DTSCU415
00282 TO WRK-LAST-YYYY DTSCU415
00283 MOVE 1 TO WRK-LAST-Q DTSCU415
00284 MOVE WRK-LAST-YRQ TO L415-UC30H-MASS-MAIL-STRT-YRQ DTSCU415
00285 MOVE 4 TO WRK-LAST-Q DTSCU415
00286 MOVE WRK-LAST-YRQ TO L415-UC30H-MASS-MAIL-END-YRQ. DTSCU415
00287 DTSCU415
00288 MOVE WRK-LAST-LATE-PEN-DATE DTSCU415
00289 TO L415-UC30H-LATE-PEN-DATE. DTSCU415
00290 IF WRK-LAST-LATE-PEN-YR > 0 DTSCU415
00291 MOVE WRK-LAST-LATE-PEN-YR DTSCU415
00292 TO WRK-LAST-YYYY DTSCU415
00293 MOVE 1 TO WRK-LAST-Q DTSCU415
00294 MOVE WRK-LAST-YRQ TO L415-UC30H-LATE-PEN-STRT-YRQ DTSCU415
00295 MOVE 4 TO WRK-LAST-Q DTSCU415
00296 MOVE WRK-LAST-YRQ TO L415-UC30H-LATE-PEN-END-YRQ. DTSCU415
00297 DTSCU415
00298 MOVE WRK-LAST-FIRST-DEL-DATE DTSCU415
00299 TO L415-UC30H-FIRST-DEL-DATE. DTSCU415
00300 IF WRK-LAST-FIRST-DEL-YR > 0 DTSCU415
00301 MOVE WRK-LAST-FIRST-DEL-YR DTSCU415
00302 TO WRK-LAST-YYYY DTSCU415
00303 MOVE 1 TO WRK-LAST-Q DTSCU415
00304 MOVE WRK-LAST-YRQ TO L415-UC30H-FIRST-DEL-STRT-YRQ DTSCU415
00305 MOVE 4 TO WRK-LAST-Q DTSCU415
00306 MOVE WRK-LAST-YRQ TO L415-UC30H-FIRST-DEL-END-YRQ. DTSCU415
00307 DTSCU415
00308 MOVE WRK-LAST-ESTIMATED-DATE CL**2
00309 TO L415-UC30H-ESTIMATED-DATE. CL**2
00310 IF WRK-LAST-FINAL-DEL-YR > 0 DTSCU415
00311 MOVE WRK-LAST-FINAL-DEL-YR DTSCU415
00312 TO WRK-LAST-YYYY DTSCU415
00313 MOVE 1 TO WRK-LAST-Q DTSCU415
00314 MOVE WRK-LAST-YRQ TO L415-UC30H-FINAL-DEL-STRT-YRQ DTSCU415
00315 MOVE 4 TO WRK-LAST-Q DTSCU415
00316 MOVE WRK-LAST-YRQ TO L415-UC30H-FINAL-DEL-END-YRQ. DTSCU415
00317 DTSCU415
00318 MOVE WRK-LAST-FINAL-ACTION-DATE DTSCU415
00319 TO L415-UC30H-FINAL-ACTION-DATE. DTSCU415
00320 DTSCU415
00321 P2200-EXIT. DTSCU415
00322 EXIT. DTSCU415
00323 DTSCU415
00324 S831-READ. DTSCU415
00325 SET L831-READ-88 TO TRUE. DTSCU415
00326 GO TO S831-REF-IO. DTSCU415
00327 DTSCU415
00328 S831-START-BROWSE. DTSCU415
00329 SET L831-START-BROWSE-88 TO TRUE. DTSCU415
00330 GO TO S831-REF-IO. DTSCU415
00331 DTSCU415
00332 S831-READ-NEXT. DTSCU415
00333 SET L831-READ-NEXT-88 TO TRUE. DTSCU415
00334 GO TO S831-REF-IO. DTSCU415
00335 DTSCU415
00336 S831-REF-IO. DTSCU415
00337 EXEC CICS LINK DTSCU415
00338 PROGRAM ('DTSCU831') DTSCU415
00339 COMMAREA (L831-COMM-AREA) DTSCU415
00340 END-EXEC. DTSCU415
00341 SKIP1 DTSCU415
00342 S831-EXIT. DTSCU415
00343 EXIT. DTSCU415
00344 DTSCU415
00345 S899-ABEND. DTSCU415
00346 EXEC CICS ABEND DTSCU415
00347 ABCODE(WRK-ABEND-CODE) DTSCU415
00348 END-EXEC. DTSCU415
00349 DTSCU415
00350 S899-EXIT. DTSCU415
00351 EXIT. DTSCU415

264
CICS/DTSIS76.cob
View File

@ -1,264 +0,0 @@
00001 ***** 11/14/05
00002 * DTSSIS76 MISCELLANEOUS BATCH PRINT REQUESTS DTSIS76
00003 * SEND/RECEIVE AREA LV011
00004 ***** DTSIS76
00005 10 FILLER PIC X(12). DTSIS76
00006 DTSIS76
00007 10 MAP-SCR-TYPE-AREA. DTSIS76
00008 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS76
00009 15 MAP-SCR-TYPE-A PIC X(01). DTSIS76
00010 15 MAP-SCR-TYPE PIC X(02). DTSIS76
00011 DTSIS76
00012 10 MAP-CICS-REGION-NAME-AREA. DTSIS76
00013 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS76
00014 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS76
00015 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS76
00016 DTSIS76
00017 10 MAP-SYS-DATE-AREA. DTSIS76
00018 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS76
00019 15 MAP-SYS-DATE-A PIC X(01). DTSIS76
00020 15 MAP-SYS-DATE PIC X(08). DTSIS76
00021 DTSIS76
00022 10 MAP-SYS-TIME-AREA. DTSIS76
00023 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS76
00024 15 MAP-SYS-TIME-A PIC X(01). DTSIS76
00025 15 MAP-SYS-TIME PIC X(08). DTSIS76
00026 DTSIS76
00027 10 MAP-EMP-NO-AREA. DTSIS76
00028 15 F760312. DTSIS76
00029 20 MAP-EMP-NO-1-L PIC S9(04) COMP. DTSIS76
00030 20 MAP-EMP-NO-1-A PIC X(01). DTSIS76
00031 20 MAP-EMP-NO-1 PIC X(03). DTSIS76
00032 15 F760316. DTSIS76
00033 20 MAP-EMP-NO-2-L PIC S9(04) COMP. DTSIS76
00034 20 MAP-EMP-NO-2-A PIC X(01). DTSIS76
00035 20 MAP-EMP-NO-2 PIC X(03). DTSIS76
00036 DTSIS76
00037 10 F760323. DTSIS76
00038 15 MAP-PRIMARY-NAME-L PIC S9(04) COMP. DTSIS76
00039 15 MAP-PRIMARY-NAME-A PIC X(01). DTSIS76
00040 15 MAP-PRIMARY-NAME PIC X(40). DTSIS76
00041 DTSIS76
00042 10 MAP-MAILING-LABELS-AREA. DTSIS76
00043 15 MAP-MAILING-LABELS-L PIC S9(04) COMP. DTSIS76
00044 15 MAP-MAILING-LABELS-A PIC X(01). DTSIS76
00045 15 MAP-MAILING-LABELS PIC X(02). DTSIS76
00046 15 MAP-MAILING-LABELS-N REDEFINES DTSIS76
00047 MAP-MAILING-LABELS PIC ZZ. DTSIS76
00048 DTSIS76
00049 10 MAP-FROM-YRQ-AREA. DTSIS76
00050 15 MAP-FROM-YRQ-YR-L PIC S9(04) COMP. DTSIS76
00051 15 MAP-FROM-YRQ-YR-A PIC X(01). DTSIS76
00052 15 MAP-FROM-YRQ-YR PIC X(02). DTSIS76
00053 DTSIS76
00054 15 MAP-FROM-YRQ-Q-L PIC S9(04) COMP. DTSIS76
00055 15 MAP-FROM-YRQ-Q-A PIC X(01). DTSIS76
00056 15 MAP-FROM-YRQ-Q PIC X(01). DTSIS76
00057 DTSIS76
00058 10 MAP-TO-YRQ-AREA. DTSIS76
00059 15 MAP-TO-YRQ-YR-L PIC S9(04) COMP. DTSIS76
00060 15 MAP-TO-YRQ-YR-A PIC X(01). DTSIS76
00061 15 MAP-TO-YRQ-YR PIC X(02). DTSIS76
00062 DTSIS76
00063 15 MAP-TO-YRQ-Q-L PIC S9(04) COMP. DTSIS76
00064 15 MAP-TO-YRQ-Q-A PIC X(01). DTSIS76
00065 15 MAP-TO-YRQ-Q PIC X(01). DTSIS76
00066 DTSIS76
00067 10 MAP-FORCE-PRINT-AREA. DTSIS76
00068 15 MAP-FORCE-PRINT-L PIC S9(04) COMP. DTSIS76
00069 15 MAP-FORCE-PRINT-A PIC X(01). DTSIS76
00070 15 MAP-FORCE-PRINT PIC X(01). DTSIS76
00071 88 MAP-FORCE-PRINT-NO VALUE 'N'. DTSIS76
00072 88 MAP-FORCE-PRINT-YES VALUE 'Y'. DTSIS76
00073 88 MAP-FORCE-PRINT-VALID VALUE 'Y' 'N'. DTSIS76
00074 DTSIS76
00075 10 MAP-WAIVE-EXT-DATE-AREA. DTSIS76
00076 15 MAP-WAIVE-EXT-MO-AREA. DTSIS76
00077 20 MAP-WAIVE-EXT-MO-L PIC S9(04) COMP. DTSIS76
00078 20 MAP-WAIVE-EXT-MO-A PIC X(01). DTSIS76
00079 20 MAP-WAIVE-EXT-MO PIC X(02). DTSIS76
00080 15 MAP-WAIVE-EXT-DA-AREA. DTSIS76
00081 20 MAP-WAIVE-EXT-DA-L PIC S9(04) COMP. DTSIS76
00082 20 MAP-WAIVE-EXT-DA-A PIC X(01). DTSIS76
00083 20 MAP-WAIVE-EXT-DA PIC X(02). DTSIS76
00084 15 MAP-WAIVE-EXT-YR-AREA. DTSIS76
00085 20 MAP-WAIVE-EXT-YR-L PIC S9(04) COMP. DTSIS76
00086 20 MAP-WAIVE-EXT-YR-A PIC X(01). DTSIS76
00087 20 MAP-WAIVE-EXT-YR PIC X(02). DTSIS76
00088 DTSIS76
00089 *****10 MAP-ONLINE-FROM-YRQ-AREA. DTSIS76
00090 *********15 MAP-ONLINE-FROM-YRQ-YR-L PIC S9(04) COMP. DTSIS76
00091 *********15 MAP-ONLINE-FROM-YRQ-YR-A PIC X(01). DTSIS76
00092 *********15 MAP-ONLINE-FROM-YRQ-YR PIC X(02). DTSIS76
00093 DTSIS76
00094 *********15 MAP-ONLINE-FROM-YRQ-Q-L PIC S9(04) COMP. DTSIS76
00095 *********15 MAP-ONLINE-FROM-YRQ-Q-A PIC X(01). DTSIS76
00096 *********15 MAP-ONLINE-FROM-YRQ-Q PIC X(01). DTSIS76
00097 DTSIS76
00098 *****10 MAP-ONLINE-TO-YRQ-AREA. DTSIS76
00099 *********15 MAP-ONLINE-TO-YRQ-YR-L PIC S9(04) COMP. DTSIS76
00100 *********15 MAP-ONLINE-TO-YRQ-YR-A PIC X(01). DTSIS76
00101 *********15 MAP-ONLINE-TO-YRQ-YR PIC X(02). DTSIS76
00102 DTSIS76
00103 *********15 MAP-ONLINE-TO-YRQ-Q-L PIC S9(04) COMP. DTSIS76
00104 *********15 MAP-ONLINE-TO-YRQ-Q-A PIC X(01). DTSIS76
00105 *********15 MAP-ONLINE-TO-YRQ-Q PIC X(01). DTSIS76
00106 DTSIS76
00107 *****10 MAP-ONLINE-FORCE-PRINT-AREA. DTSIS76
00108 *********15 MAP-ONLINE-FORCE-PRINT-L PIC S9(04) COMP. DTSIS76
00109 *********15 MAP-ONLINE-FORCE-PRINT-A PIC X(01). DTSIS76
00110 *********15 MAP-ONLINE-FORCE-PRINT PIC X(01). DTSIS76
00111 *************88 MAP-ONLINE-FORCE-PRINT-NO VALUE 'N'. DTSIS76
00112 *************88 MAP-ONLINE-FORCE-PRINT-YES VALUE 'Y'. DTSIS76
00113 *************88 MAP-ONLINE-FORCE-PRINT-VALID VALUE 'Y' 'N'. DTSIS76
00114 DTSIS76
00115 *****10 MAP-ONLINE-PRINTER-ID-AREA. DTSIS76
00116 *********15 MAP-ONLINE-PRINTER-ID-L PIC S9(04) COMP. DTSIS76
00117 *********15 MAP-ONLINE-PRINTER-ID-A PIC X(01). DTSIS76
00118 *********15 MAP-ONLINE-PRINTER-ID PIC X(04). DTSIS76
00119 DTSIS76
00120 10 F761133. DTSIS76
00121 15 MAP-NOTICE-OF-SUBJECT-L PIC S9(04) COMP. DTSIS76
00122 15 MAP-NOTICE-OF-SUBJECT-A PIC X(01). DTSIS76
00123 15 MAP-NOTICE-OF-SUBJECT PIC X(01). DTSIS76
00124 88 MAP-NOTICE-OF-SUBJECT-NO VALUE 'N'. DTSIS76
00125 88 MAP-NOTICE-OF-SUBJECT-YES VALUE 'Y'. DTSIS76
00126 88 MAP-NOTICE-OF-SUBJECT-VALID VALUE 'Y' 'N'. DTSIS76
00127 DTSIS76
00128 10 F761333. DTSIS76
00129 15 MAP-REQUEST-FOR-FEIN-L PIC S9(04) COMP. DTSIS76
00130 15 MAP-REQUEST-FOR-FEIN-A PIC X(01). DTSIS76
00131 15 MAP-REQUEST-FOR-FEIN PIC X(01). DTSIS76
00132 88 MAP-REQUEST-FOR-FEIN-YES VALUE 'Y'. DTSIS76
00133 88 MAP-REQUEST-FOR-FEIN-NO VALUE 'N'. DTSIS76
00134 88 MAP-REQUEST-FOR-FEIN-VALID VALUE 'Y' 'N'. DTSIS76
00135 DTSIS76
00136 10 MAP-ADDR-TYPE-AREA. DTSIS76
00137 15 MAP-ADDR-TYPE-L PIC S9(04) COMP. DTSIS76
00138 15 MAP-ADDR-TYPE-A PIC X(01). DTSIS76
00139 15 MAP-ADDR-TYPE PIC X(01). DTSIS76
00140 88 MAP-ADDR-TAX-88 VALUE 'T'. DTSIS76
00141 88 MAP-ADDR-TAX-ALT-88 VALUE 'A'. DTSIS76
00142 88 MAP-ADDR-PHY-88 VALUE 'P'. DTSIS76
00143 88 MAP-ADDR-OPO-88 VALUE 'O'. DTSIS76
00144 88 MAP-ADDR-TAD-88 VALUE 'T' 'P'. DTSIS76
00145 88 MAP-ADDR-TAA-OPO-88 VALUE 'A' 'O'. DTSIS76
00146 88 MAP-ADDR-VALID-88 VALUE 'T' 'A' 'P' 'O'. DTSIS76
00147 DTSIS76
00148 10 MAP-ADDR-ID-NO-AREA. DTSIS76
00149 15 MAP-ADDR-ID-NO-L PIC S9(04) COMP. DTSIS76
00150 15 MAP-ADDR-ID-NO-A PIC X(01). DTSIS76
00151 15 MAP-ADDR-ID-NO PIC X(03). DTSIS76
00152 15 MAP-ADDR-ID-NO-N REDEFINES MAP-ADDR-ID-NO DTSIS76
00153 PIC ZZZ. DTSIS76
00154 DTSIS76
00155 10 F761733. DTSIS76
00156 15 MAP-AR-AUDIT-TRAIL-L PIC S9(04) COMP. DTSIS76
00157 15 MAP-AR-AUDIT-TRAIL-A PIC X(01). DTSIS76
00158 15 MAP-AR-AUDIT-TRAIL PIC X(01). DTSIS76
00159 88 MAP-AR-AUDIT-TRAIL-NO VALUE 'N'. DTSIS76
00160 88 MAP-AR-AUDIT-TRAIL-YES VALUE 'Y'. DTSIS76
00161 88 MAP-AR-AUDIT-TRAIL-VALID VALUE 'Y' 'N'. DTSIS76
00162 DTSIS76
00163 10 MAP-STMT-FROM-YRQ-AREA. DTSIS76
00164 15 MAP-STMT-FROM-YRQ-YR-L PIC S9(04) COMP. DTSIS76
00165 15 MAP-STMT-FROM-YRQ-YR-A PIC X(01). DTSIS76
00166 15 MAP-STMT-FROM-YRQ-YR PIC X(02). DTSIS76
00167 DTSIS76
00168 15 MAP-STMT-FROM-YRQ-Q-L PIC S9(04) COMP. DTSIS76
00169 15 MAP-STMT-FROM-YRQ-Q-A PIC X(01). DTSIS76
00170 15 MAP-STMT-FROM-YRQ-Q PIC X(01). DTSIS76
00171 DTSIS76
00172 10 MAP-STMT-TO-YRQ-AREA. DTSIS76
00173 15 MAP-STMT-TO-YRQ-YR-L PIC S9(04) COMP. DTSIS76
00174 15 MAP-STMT-TO-YRQ-YR-A PIC X(01). DTSIS76
00175 15 MAP-STMT-TO-YRQ-YR PIC X(02). DTSIS76
00176 DTSIS76
00177 15 MAP-STMT-TO-YRQ-Q-L PIC S9(04) COMP. DTSIS76
00178 15 MAP-STMT-TO-YRQ-Q-A PIC X(01). DTSIS76
00179 15 MAP-STMT-TO-YRQ-Q PIC X(01). DTSIS76
00180 DTSIS76
00181 10 F762133. DTSIS76
00182 15 MAP-RESPONSIBLE-OP-ID-L PIC S9(04) COMP. DTSIS76
00183 15 MAP-RESPONSIBLE-OP-ID-A PIC X(01). DTSIS76
00184 15 MAP-RESPONSIBLE-OP-ID PIC X(08). DTSIS76
00185 DTSIS76
00186 10 F762141. DTSIS76
00187 15 MAP-RESPONSIBLE-OP-ID-DSCR-L PIC S9(04) COMP. DTSIS76
00188 15 MAP-RESPONSIBLE-OP-ID-DSCR-A PIC X(01). DTSIS76
00189 15 MAP-RESPONSIBLE-OP-ID-DSCR PIC X(32). DTSIS76
00190 DTSIS76
00191 10 MAP-SSN-AREA. DTSIS76
00192 15 MAP-SSN-1-AREA. DTSIS76
00193 20 MAP-SSN-1-L PIC S9(04) COMP. DTSIS76
00194 20 MAP-SSN-1-A PIC X(01). DTSIS76
00195 20 MAP-SSN-1 PIC X(03). DTSIS76
00196 15 MAP-SSN-2-AREA. DTSIS76
00197 20 MAP-SSN-2-L PIC S9(04) COMP. DTSIS76
00198 20 MAP-SSN-2-A PIC X(01). DTSIS76
00199 20 MAP-SSN-2 PIC X(02). DTSIS76
00200 15 MAP-SSN-3-AREA. DTSIS76
00201 20 MAP-SSN-3-L PIC S9(04) COMP. DTSIS76
00202 20 MAP-SSN-3-A PIC X(01). DTSIS76
00203 20 MAP-SSN-3 PIC X(04). DTSIS76
00204 DTSIS76
00205 10 MAP-WR-YRQ1-AREA. DTSIS76
00206 15 MAP-WR-YRQ1-YR-L PIC S9(04) COMP. DTSIS76
00207 15 MAP-WR-YRQ1-YR-A PIC X(01). DTSIS76
00208 15 MAP-WR-YRQ1-YR PIC X(02). DTSIS76
00209 DTSIS76
00210 15 MAP-WR-YRQ1-Q-L PIC S9(04) COMP. DTSIS76
00211 15 MAP-WR-YRQ1-Q-A PIC X(01). DTSIS76
00212 15 MAP-WR-YRQ1-Q PIC X(01). DTSIS76
00213 DTSIS76
00214 10 MAP-WR-YRQ2-AREA. DTSIS76
00215 15 MAP-WR-YRQ2-YR-L PIC S9(04) COMP. DTSIS76
00216 15 MAP-WR-YRQ2-YR-A PIC X(01). DTSIS76
00217 15 MAP-WR-YRQ2-YR PIC X(02). DTSIS76
00218 DTSIS76
00219 15 MAP-WR-YRQ2-Q-L PIC S9(04) COMP. DTSIS76
00220 15 MAP-WR-YRQ2-Q-A PIC X(01). DTSIS76
00221 15 MAP-WR-YRQ2-Q PIC X(01). DTSIS76
00222 DTSIS76
00223 10 MAP-WR-YRQ3-AREA. DTSIS76
00224 15 MAP-WR-YRQ3-YR-L PIC S9(04) COMP. DTSIS76
00225 15 MAP-WR-YRQ3-YR-A PIC X(01). DTSIS76
00226 15 MAP-WR-YRQ3-YR PIC X(02). DTSIS76
00227 DTSIS76
00228 15 MAP-WR-YRQ3-Q-L PIC S9(04) COMP. DTSIS76
00229 15 MAP-WR-YRQ3-Q-A PIC X(01). DTSIS76
00230 15 MAP-WR-YRQ3-Q PIC X(01). DTSIS76
00231 DTSIS76
00232 10 MAP-WR-YRQ4-AREA. DTSIS76
00233 15 MAP-WR-YRQ4-YR-L PIC S9(04) COMP. DTSIS76
00234 15 MAP-WR-YRQ4-YR-A PIC X(01). DTSIS76
00235 15 MAP-WR-YRQ4-YR PIC X(02). DTSIS76
00236 DTSIS76
00237 15 MAP-WR-YRQ4-Q-L PIC S9(04) COMP. DTSIS76
00238 15 MAP-WR-YRQ4-Q-A PIC X(01). DTSIS76
00239 15 MAP-WR-YRQ4-Q PIC X(01). DTSIS76
00240 DTSIS76
00241 10 F762233. DTSIS76
00242 15 MAP-CLAIMANT-NAME-L PIC S9(04) COMP. DTSIS76
00243 15 MAP-CLAIMANT-NAME-A PIC X(01). DTSIS76
00244 15 MAP-CLAIMANT-NAME PIC X(32). DTSIS76
00245 DTSIS76
00246 10 F762318. DTSIS76
00247 15 MAP-KEY-ADD-L PIC S9(04) COMP. DTSIS76
00248 15 MAP-KEY-ADD-A PIC X(01). DTSIS76
00249 15 MAP-KEY-ADD PIC X(06). DTSIS76
00250 DTSIS76
00251 10 MAP-MSG-AREA. DTSIS76
00252 15 MAP-MSG-ID-AREA. DTSIS76
00253 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS76
00254 20 MAP-MSG-ID-A PIC X(01). DTSIS76
00255 20 MAP-MSG-ID PIC X(08). DTSIS76
00256 15 MAP-MSG-TEXT-AREA. DTSIS76
00257 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS76
00258 20 MAP-MSG-TEXT-A PIC X(01). DTSIS76
00259 20 MAP-MSG-TEXT PIC X(58). DTSIS76
00260 DTSIS76
00261 10 MAP-GOTO-AREA. DTSIS76
00262 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS76
00263 15 MAP-GOTO-A PIC X(01). DTSIS76
00264 15 MAP-GOTO PIC X(02). DTSIS76

3
CICS/UCTRAN41.cob
View File

@ -38,8 +38,9 @@
PERFORM APPLY-SETTING
END-IF
EXEC CICS RETURN END-EXEC.
EXEC CICS RETURN END-EXEC.
GOBACK.
FLIP-UCTRAN.
EXEC CICS INQUIRE TERMINAL(EIBTRMID) UCTRANST(UCTRANST)
END-EXEC

11
CICSFiles.txt
View File

@ -1,6 +1,5 @@
E:\Faizan_Folder\Dutas_git\DUTAS\CICS\DTSCS44.cob
E:\Faizan_Folder\Dutas_git\DUTAS\CICS\DTSCS82.cob
E:\Faizan_Folder\Dutas_git\DUTAS\CICS\DTSCS89.cob
E:\Faizan_Folder\Dutas_git\DUTAS\CICS\DTSCSL1.cob
E:\Faizan_Folder\Dutas_git\DUTAS\CICS\DTSCU415.cob
E:\Faizan_Folder\Dutas_git\DUTAS\CICS\DTSIS76.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCS26.cob

10
CompileOptions.txt
View File

@ -1,10 +1,8 @@
-IgnoreParseError=TRUE
-OutputDir=E:/Faizan_Folder/Dutas_git/bin/CICS
-KeepPreProFiles=TRUE
-OutputDir=E:\Faizan_Folder\DUTAS_DEV_UPDATE\bin\CICS\dll
-RemoveFileVerifyFailed=FALSE
-IncrementalMode=TRUE
-DBDriver=sqlite
-DBConnectString=MetaData.db3
-MaxMem=1000
-IncludeSearchPath=E:/Faizan_Folder/Dutas_git/DUTAS/Copybook;E:\DUTAS\src\Copybook;
-IncludeSearchPath=E:\Faizan_Folder\DUTAS_DEV_UPDATE/DUTAS/Copybook
-IncludeExtension=.txt
-StringRuntimeEncoding=037
-DefInit=TRUE

21
Copybook/DTSEX140.cpy Normal file
View File

@ -0,0 +1,21 @@
00001 ***** 07/10/18
00002 ***************THIS IS ESSP X144 FORMAT ****************** DTSEX140
00003 * DTSEX140 EMPLOYER REPORT EXTRACT RECORD - ESSP FORMAT LV013
00004 * DTSEX140
00005 * IMPORTS EMPLOYR REPORTS IN ESSP FORMAT CL*11
00006 * APPLICATIONS. DTSEX140
00007 * DTSEX140
00008 * 01-21-2016 ADDED TO VERIFY AMENDED REPORTS ZL1. CL*11
00009 * DTSEX140
00010 * DTSEX140
00011 ***** DTSEX140
00012 DTSEX140
00013 15 X140-REC-TYPE PIC X(03) VALUE '144'. CL*11
00014 15 FILLER PIC X(01) VALUE ','. DTSEX140
00015 15 X140-EMP-NO PIC 9(06). CL*11
00016 15 FILLER PIC X(01) VALUE ','. DTSEX140
00017 15 X140-QUARTER. CL*12
00018 25 X140-QUARTER-YY PIC X(04). CL*12
00019 25 FILLER PIC X(01) VALUE ','. CL*13
00020 25 X140-QUARTER-Q PIC X(01). CL*12
00021 15 FILLER PIC X(495). CL*11

28
Copybook/DTSEX144.cpy Normal file
View File

@ -0,0 +1,28 @@
00001 ***** 01/21/16
00002 ***************THIS IS ESSP X144 FORMAT ****************** DTSEX144
00003 * DTSEX144 EMPLOYEE WAGE EXTRACT RECORD - ESSP FORMAT LV010
00004 * DTSEX144
00005 * IMPORTS EMPLOYEE WAGES AND NAME IN ESSP FORMAT CL**9
00006 * APPLICATIONS. DTSEX144
00007 * DTSEX144
00008 * 01-21-2016 ADDED TO VERIFY CLAIMS FOR X147 SSNS ZL1. CL**9
00009 * DTSEX144
00010 * DTSEX144
00011 ***** DTSEX144
00012 DTSEX144
00013 15 X144-REC-TYPE PIC X(03) VALUE '144'. DTSEX144
00014 15 FILLER PIC X(01) VALUE ','. DTSEX144
00015 15 X144-EMP-NO PIC 9(06). DTSEX144
00016 15 FILLER PIC X(01) VALUE ','. DTSEX144
00017 15 X144-QUARTER PIC X(06). DTSEX144
00018 15 FILLER PIC X(10) VALUE ','. CL*10
00019 15 X144-SSN PIC 9(09). DTSEX144
00020 15 FILLER PIC X(01) VALUE ','. DTSEX144
00021 15 X144-LAST-NAME PIC X(30). CL**9
00022 15 FILLER PIC X(01) VALUE ','. DTSEX144
00023 15 X144-FIRST-NAME PIC X(30). CL**9
00024 15 FILLER PIC X(01) VALUE ','. CL**9
00025 15 X144-MID-INIT PIC X(01). CL**9
00026 15 FILLER PIC X(01) VALUE ','. CL**9
00027 15 X144-EARNINGS PIC ----------9.99. CL**9
00028 15 FILLER PIC X(398). CL*10

33
Copybook/DTSEX147.cpy Normal file
View File

@ -0,0 +1,33 @@
00001 ***** 03/20/18
00002 * DTSEX147
00003 * DTSIX147 EMPLOYEE AMENDED WAGES TO BE DELETED LV005
00004 * DTSEX147
00005 * IMPORTS EMPLOYEE WAGES AND NAME FROM EXTERNAL DTSEX147
00006 * APPLICATIONS. DTSEX147
00007 * DTSEX147
00008 * 02-23-2012 MODIFIED SOURCE CODES TO MATCH DTSIW001. GD DTSEX147
00009 * 06-11-2012 ADDED INTRANET REPORTS TO WAGE STATUS. GD DTSEX147
00010 * 09-01-2015 COPIED FROM IX147, USED FOR AMENDED WAGES ZL1 DTSEX147
00011 * DTSEX147
00012 * DTSEX147
00013 ***** DTSEX147
00014 DTSEX147
00015 15 X147-REC-TYPE PIC X(03) VALUE '147'. DTSEX147
00016 15 FILLER PIC X(01) VALUE ','. DTSEX147
00017 15 X147-EMP-NO PIC 9(06). DTSEX147
00018 15 FILLER PIC X(01) VALUE ','. DTSEX147
00019 15 X147-QUARTER. CL**5
00020 20 X147-YR PIC X(04). CL**5
00021 20 FILLER PIC X(01). CL**5
00022 20 X147-QTR PIC X(01). CL**5
00023 15 FILLER PIC X(01) VALUE ','. DTSEX147
00024 15 FILLER PIC X(08). CL**2
00025 15 FILLER PIC X(01) VALUE ','. CL**2
00026 15 X147-SSN PIC 9(09). DTSEX147
00027 15 FILLER PIC X(01) VALUE ','. DTSEX147
00028 15 X147-FNAME PIC X(30). CL**2
00029 15 FILLER PIC X(01) VALUE ','. CL**2
00030 15 X147-LNAME PIC X(30). CL**2
00031 15 FILLER PIC X(03) VALUE ','. CL**3
00032 15 X147-WAGES PIC ----------9.99. CL**4
00033 15 FILLER PIC X(432). CL**2

6
Copybook/DTSIL415.cpy
View File

@ -1,6 +1,6 @@
00001 ***** 07/17/03
00001 ***** 04/09/13
00002 * DTSIL415
00003 * DTSIL415 KEY DATES FOR ANNUAL FILING LV005
00003 * DTSIL415 KEY DATES FOR ANNUAL FILING LV002
00004 * MODULE LINKAGE. DTSIL415
00005 * DTSIL415
00006 * THE SETTING OF L415-MODE DETERMINES WHETHER THE PROGRAM WILL DTSIL415
@ -48,7 +48,7 @@
00048 PIC S9(05) COMP-3. DTSIL415
00049 15 L415-UC30H-FIRST-DEL-END-YRQ DTSIL415
00050 PIC S9(05) COMP-3. DTSIL415
00051 15 L415-UC30H-FINAL-DEL-DATE DTSIL415
00051 15 L415-UC30H-ESTIMATED-DATE CL**2
00052 PIC S9(09) COMP-3. DTSIL415
00053 15 L415-UC30H-FINAL-DEL-STRT-YRQ DTSIL415
00054 PIC S9(05) COMP-3. DTSIL415

1
Copybook/DTSIP007.cpy
View File

@ -11,6 +11,7 @@
00011 ***** DTSIP007
00012 CL**2
00013 S7000-IO-DATA-TO-WRK-DATA. DTSIP007
DISPLAY 'MIO-COMPRESSION-IND:' MIO-COMPRESSION-IND. DTSIP007
00014 IF MIO-COMPRESS-NO-88 DTSIP007
00015 PERFORM S7100-EXPAND-NO THRU S7100-EXIT DTSIP007
00016 ELSE DTSIP007

20
Copybook/DTSIS13.cpy
View File

@ -1,6 +1,6 @@
00001 ***** 09/13/12
00001 ***** 05/11/17
00002 * DTSIS13
00003 * DTSIS13 TAX ADDRESS INQUIRY/UPDATE SEND/RECEIVE AREA. LV012
00003 * DTSIS13 TAX ADDRESS INQUIRY/UPDATE SEND/RECEIVE AREA. LV003
00004 * DTSIS13
00005 ***** DTSIS13
00006 SKIP1 DTSIS13
@ -126,15 +126,15 @@
00126 25 MAP-PHONE-EXT-A PIC X(01). DTSIS13
00127 25 MAP-PHONE-EXT PIC X(05). DTSIS13
00128 SKIP1 DTSIS13
00129 15 MAP-EMAIL-AREA. DTSIS13
00130 20 MAP-EMAIL-L PIC S9(04) COMP. DTSIS13
00131 20 MAP-EMAIL-A PIC X(01). DTSIS13
00132 20 MAP-EMAIL PIC X(40). DTSIS13
00129 15 MAP-EMAIL-AREA. CL**3
00130 20 MAP-EMAIL-L PIC S9(04) COMP. CL**3
00131 20 MAP-EMAIL-A PIC X(01). CL**3
00132 20 MAP-EMAIL PIC X(40). CL**3
00133 SKIP1 DTSIS13
00134 15 MAP-EMAIL-UC30-AREA. DTSIS13
00135 20 MAP-EMAIL-UC30-L PIC S9(04) COMP. DTSIS13
00136 20 MAP-EMAIL-UC30-A PIC X(01). DTSIS13
00137 20 MAP-EMAIL-UC30 PIC X(01). DTSIS13
00134 * 15 MAP-EMAIL-UC30-AREA. CL**3
00135 * 20 MAP-EMAIL-UC30-L PIC S9(04) COMP. CL**3
00136 * 20 MAP-EMAIL-UC30-A PIC X(01). CL**3
00137 * 20 MAP-EMAIL-UC30 PIC X(01). CL**3
00138 SKIP1 DTSIS13
00139 15 MAP-MEMO-AREA. DTSIS13
00140 20 MAP-MEMO-L PIC S9(04) COMP. DTSIS13

30
Copybook/DTSIS82.cpy
View File

@ -1,6 +1,6 @@
00001 ***** 04/13/17
00001 ***** 08/14/25
00002 * DTSIS82
00003 * DTSIS82 QUARTER INQUIRY/UPDATE SEND/RECEIVE AREA. LV004
00003 * DTSIS82 QUARTER INQUIRY/UPDATE SEND/RECEIVE AREA. LV005
00004 * DTSIS82
00005 * 02-13-2013 REMOVED INTENT TO ESTIMATE DATE. ADDED DTSIS82
00006 * REIMBURSABLE LATE PENALTY ASSESSMENT DT DTSIS82
@ -139,19 +139,19 @@
00139 20 MAP-UC30-FINAL-DEL-YY-A PIC X(01). DTSIS82
00140 20 MAP-UC30-FINAL-DEL-YY PIC X(02). DTSIS82
00141 SKIP1 DTSIS82
00142 10 MAP-DELQ-LTR-SENT-DATE-AREA. CL**3
00143 15 MAP-DELQ-LTR-SENT-MM-AREA. CL**2
00144 20 MAP-DELQ-LTR-SENT-MM-L PIC S9(04) COMP. CL**2
00145 20 MAP-DELQ-LTR-SENT-MM-A PIC X(01). CL**2
00146 20 MAP-DELQ-LTR-SENT-MM PIC X(02). CL**2
00147 15 MAP-DELQ-LTR-SENT-DD-AREA. CL**2
00148 20 MAP-DELQ-LTR-SENT-DD-L PIC S9(04) COMP. CL**2
00149 20 MAP-DELQ-LTR-SENT-DD-A PIC X(01). CL**2
00150 20 MAP-DELQ-LTR-SENT-DD PIC X(02). CL**2
00151 15 MAP-DELQ-LTR-SENT-YY-AREA. CL**2
00152 20 MAP-DELQ-LTR-SENT-YY-L PIC S9(04) COMP. CL**2
00153 20 MAP-DELQ-LTR-SENT-YY-A PIC X(01). CL**2
00154 20 MAP-DELQ-LTR-SENT-YY PIC X(02). CL**2
00142 * 10 MAP-DELQ-LTR-SENT-DATE-AREA. CL**5
00143 * 15 MAP-DELQ-LTR-SENT-MM-AREA. CL**5
00144 * 20 MAP-DELQ-LTR-SENT-MM-L PIC S9(04) COMP. CL**5
00145 * 20 MAP-DELQ-LTR-SENT-MM-A PIC X(01). CL**5
00146 * 20 MAP-DELQ-LTR-SENT-MM PIC X(02). CL**5
00147 * 15 MAP-DELQ-LTR-SENT-DD-AREA. CL**5
00148 * 20 MAP-DELQ-LTR-SENT-DD-L PIC S9(04) COMP. CL**5
00149 * 20 MAP-DELQ-LTR-SENT-DD-A PIC X(01). CL**5
00150 * 20 MAP-DELQ-LTR-SENT-DD PIC X(02). CL**5
00151 * 15 MAP-DELQ-LTR-SENT-YY-AREA. CL**5
00152 * 20 MAP-DELQ-LTR-SENT-YY-L PIC S9(04) COMP. CL**5
00153 * 20 MAP-DELQ-LTR-SENT-YY-A PIC X(01). CL**5
00154 * 20 MAP-DELQ-LTR-SENT-YY PIC X(02). CL**5
00155 SKIP1 DTSIS82
00156 10 MAP-UC30-FINAL-ACT-DATE-AREA. DTSIS82
00157 15 MAP-UC30-FINAL-ACTION-MM-AREA. DTSIS82

58
Copybook/DTSIS89.cpy
View File

@ -1,6 +1,6 @@
00001 ***** 11/11/02
00001 ***** 04/09/13
00002 * DTSIS89
00003 * DTSIS89 ANNUAL FILING INQUIRY/UPDATE LV001
00003 * DTSIS89 ANNUAL FILING INQUIRY/UPDATE LV003
00004 * DTSIS89
00005 ***** DTSIS89
00006 SKIP1 DTSIS89
@ -88,33 +88,33 @@
00088 20 MAP-UC30H-FIRST-DEL-YY-A PIC X(01). DTSIS89
00089 20 MAP-UC30H-FIRST-DEL-YY PIC X(02). DTSIS89
00090 SKIP1 DTSIS89
00091 10 MAP-UC30H-FINAL-DEL-DATE-AREA. DTSIS89
00092 15 MAP-UC30H-FINAL-DEL-MM-AREA. DTSIS89
00093 20 MAP-UC30H-FINAL-DEL-MM-L PIC S9(04) COMP. DTSIS89
00094 20 MAP-UC30H-FINAL-DEL-MM-A PIC X(01). DTSIS89
00095 20 MAP-UC30H-FINAL-DEL-MM PIC X(02). DTSIS89
00096 15 MAP-UC30H-FINAL-DEL-DD-AREA. DTSIS89
00097 20 MAP-UC30H-FINAL-DEL-DD-L PIC S9(04) COMP. DTSIS89
00098 20 MAP-UC30H-FINAL-DEL-DD-A PIC X(01). DTSIS89
00099 20 MAP-UC30H-FINAL-DEL-DD PIC X(02). DTSIS89
00100 15 MAP-UC30H-FINAL-DEL-YY-AREA. DTSIS89
00101 20 MAP-UC30H-FINAL-DEL-YY-L PIC S9(04) COMP. DTSIS89
00102 20 MAP-UC30H-FINAL-DEL-YY-A PIC X(01). DTSIS89
00103 20 MAP-UC30H-FINAL-DEL-YY PIC X(02). DTSIS89
00104 SKIP1 DTSIS89
00105 10 MAP-UC30H-FINAL-ACT-DATE-AREA. DTSIS89
00106 15 MAP-UC30H-FINAL-ACTION-MM-AREA. DTSIS89
00107 20 MAP-UC30H-FINAL-ACTION-MM-L PIC S9(04) COMP. DTSIS89
00108 20 MAP-UC30H-FINAL-ACTION-MM-A PIC X(01). DTSIS89
00109 20 MAP-UC30H-FINAL-ACTION-MM PIC X(02). DTSIS89
00110 15 MAP-UC30H-FINAL-ACTION-DD-AREA. DTSIS89
00111 20 MAP-UC30H-FINAL-ACTION-DD-L PIC S9(04) COMP. DTSIS89
00112 20 MAP-UC30H-FINAL-ACTION-DD-A PIC X(01). DTSIS89
00113 20 MAP-UC30H-FINAL-ACTION-DD PIC X(02). DTSIS89
00114 15 MAP-UC30H-FINAL-ACTION-YY-AREA. DTSIS89
00115 20 MAP-UC30H-FINAL-ACTION-YY-L PIC S9(04) COMP. DTSIS89
00116 20 MAP-UC30H-FINAL-ACTION-YY-A PIC X(01). DTSIS89
00117 20 MAP-UC30H-FINAL-ACTION-YY PIC X(02). DTSIS89
00091 10 MAP-UC30H-FINAL-ACT-DATE-AREA. DTSIS89
00092 15 MAP-UC30H-FINAL-ACTION-MM-AREA. DTSIS89
00093 20 MAP-UC30H-FINAL-ACTION-MM-L PIC S9(04) COMP. DTSIS89
00094 20 MAP-UC30H-FINAL-ACTION-MM-A PIC X(01). DTSIS89
00095 20 MAP-UC30H-FINAL-ACTION-MM PIC X(02). DTSIS89
00096 15 MAP-UC30H-FINAL-ACTION-DD-AREA. DTSIS89
00097 20 MAP-UC30H-FINAL-ACTION-DD-L PIC S9(04) COMP. DTSIS89
00098 20 MAP-UC30H-FINAL-ACTION-DD-A PIC X(01). DTSIS89
00099 20 MAP-UC30H-FINAL-ACTION-DD PIC X(02). DTSIS89
00100 15 MAP-UC30H-FINAL-ACTION-YY-AREA. DTSIS89
00101 20 MAP-UC30H-FINAL-ACTION-YY-L PIC S9(04) COMP. DTSIS89
00102 20 MAP-UC30H-FINAL-ACTION-YY-A PIC X(01). DTSIS89
00103 20 MAP-UC30H-FINAL-ACTION-YY PIC X(02). DTSIS89
00104 SKIP1 CL**2
00105 10 MAP-UC30H-ESTIMATED-DATE-AREA. CL**3
00106 15 MAP-UC30H-ESTIMATED-MM-AREA. CL**3
00107 20 MAP-UC30H-ESTIMATED-MM-L PIC S9(04) COMP. CL**3
00108 20 MAP-UC30H-ESTIMATED-MM-A PIC X(01). CL**3
00109 20 MAP-UC30H-ESTIMATED-MM PIC X(02). CL**3
00110 15 MAP-UC30H-ESTIMATED-DD-AREA. CL**3
00111 20 MAP-UC30H-ESTIMATED-DD-L PIC S9(04) COMP. CL**3
00112 20 MAP-UC30H-ESTIMATED-DD-A PIC X(01). CL**3
00113 20 MAP-UC30H-ESTIMATED-DD PIC X(02). CL**3
00114 15 MAP-UC30H-ESTIMATED-YY-AREA. CL**3
00115 20 MAP-UC30H-ESTIMATED-YY-L PIC S9(04) COMP. CL**3
00116 20 MAP-UC30H-ESTIMATED-YY-A PIC X(01). CL**3
00117 20 MAP-UC30H-ESTIMATED-YY PIC X(02). CL**3
00118 SKIP1 DTSIS89
00119 10 MAP-ESTB-DATE-AREA. DTSIS89
00120 15 MAP-ESTB-DATE-L PIC S9(04) COMP. DTSIS89

6
Copybook/DTSISL1.cpy
View File

@ -1,6 +1,6 @@
00001 ***** 07/19/99
00001 ***** 08/14/25
00002 * DTSISL1 LMI INQUIRY/UPDATE SEND/RECEIVE AREA DTSISL1
00003 ***** LV009
00003 ***** LV010
00004 10 FILLER PIC X(12). DTSISL1
00005 DTSISL1
00006 10 MAP-SCR-TYPE-AREA. DTSISL1
@ -190,7 +190,7 @@
00190 15 MAP-MULTI-IND-DSCR-A PIC X(01). DTSISL1
00191 15 MAP-MULTI-IND-DSCR PIC X(10). DTSISL1
00192 DTSISL1
00193 10 FR12015. CL**3
00193 10 FR12023. CL*10
00194 15 MAP-WARD-CD-L PIC S9(04) COMP. CL**3
00195 15 MAP-WARD-CD-A PIC X(01). CL**3
00196 15 MAP-WARD-CD PIC X(02). CL**5

19
Copybook/DTSIWBAT.cpy Normal file
View File

@ -0,0 +1,19 @@
00001 ***** 02/22/16
00002 * DTSIWBAT
00003 * DTSIWBAT BATCH NO HISTORY FILE 'FROM SERVER' LV006
00004 * RECORD DEFINITION. DTSIWBAT
00005 * DTSIWBAT
00006 * DTSIWBAT
00007 * 12/18/2015 INITIAL DEVELOPMENT. ZL1 CL**2
00008 * DTSIWBAT
00009 * KEY = 5 LENGTH = 10 CL**6
00010 * DTSIWBAT
00011 ***** DTSIWBAT
00012 DTSIWBAT
00013 10 WBAT-KEY-AREA. CL**2
00014 15 WBAT-BATCH-NO PIC 9(05). CL**4
00015 DTSIWBAT
00016 10 WBAT-DATA-AREA. CL**2
00017 15 WBAT-BALANCED-IND PIC X(01). CL**3
00018 15 WBAT-HELD-IND PIC X(01). CL**3
00019 15 WBAT-CNTL-TRAN-CNT PIC 9(03). CL**3

2
Copybook/DTSIWWGH.cpy
View File

@ -21,4 +21,4 @@
00021 DTSIWWGH
00022 10 WWGH-DATA-AREA. 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

24
Copybook/DTSIWWGZ.cpy Normal file
View File

@ -0,0 +1,24 @@
00001 ***** 02/27/24
00002 * DTSIWWGH
00003 * DTSIWWGH WAGE HISTORY FILE 'WAGE ITEM' LV003
00004 * RECORD DEFINITION. DTSIWWGH
00005 * DTSIWWGH
00006 * >>> NEW WWGH INCLUDE DATE RECEIVED FROM ESSP/DOCS ZL1 <<< CL**3
00007 * >>> INCLUDES LAST CHANGE DATE FROM DOCS FILE. <<< CL**2
00008 * DTSIWWGH
00009 * 02/18/2002 INITIAL DEVELOPMENT. 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
00012 * DTSIWWGH
00013 * KEY = 12 LENGTH = 23 CL**2
00014 * DTSIWWGH
00015 ***** DTSIWWGH
00016 DTSIWWGH
00017 10 WWGH-KEY-AREA. DTSIWWGH
00018 15 WWGH-EMP-NO PIC S9(07) COMP-3. DTSIWWGH
00019 15 WWGH-YRQ PIC S9(05) COMP-3. DTSIWWGH
00020 15 WWGH-SSN PIC S9(09) COMP-3. DTSIWWGH
00021 DTSIWWGH
00022 10 WWGH-DATA-AREA. 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

43
Copybook/DTSUX110.TXT
View File

@ -1,43 +0,0 @@
00001 ***** 11/28/18
00002 * DTSUX110
00003 * DTSUX110 COPY OF EMPLOYER ADDRESS EXTRACT RECORD (X110) LV006
00004 * DTSUX110
00005 * THIS COPYBOOK IS USED TO UPDATE THE EMPLOYER ADDRESS INFO CL**4
00006 * ON THE MAILING AND BUSINESS OPO ADDRESS NOT UPDATED CL**5
00007 * DTSUX110
00008 * ADDED FILLER AT END FOR REC LEN 512 09/23/14 ZL1 CL**4
00009 ***** DTSUX110
00010 DTSUX110
00011 15 X110-REC-TYPE PIC X(03) VALUE '110'. DTSUX110
00012 15 FILLER PIC X(01) VALUE ','. DTSUX110
00013 15 X110-EMP-NO PIC 9(06). DTSUX110
00014 15 FILLER PIC X(01) VALUE ','. DTSUX110
00015 15 X110-ADDR-TYPE PIC X(02). DTSUX110
00016 88 X110-ADDR-TYPE-MAIL-88 VALUE '01'. DTSUX110
00017 88 X110-ADDR-TYPE-RECS-88 VALUE '02'. DTSUX110
00018 88 X110-ADDR-TYPE-WORK-88 VALUE '03'. DTSUX110
00019 15 FILLER PIC X(01) VALUE ','. DTSUX110
00020 15 X110-ATTENTION PIC X(40). DTSUX110
00021 15 FILLER PIC X(01) VALUE ','. DTSUX110
00022 15 X110-STREET-1 PIC X(40). DTSUX110
00023 15 FILLER PIC X(01) VALUE ','. DTSUX110
00024 15 X110-STREET-2 PIC X(40). DTSUX110
00025 15 FILLER PIC X(01) VALUE ','. DTSUX110
00026 15 X110-CITY PIC X(25). DTSUX110
00027 15 FILLER PIC X(01) VALUE ','. DTSUX110
00028 15 X110-STATE PIC X(02). DTSUX110
00029 15 FILLER PIC X(01) VALUE ','. DTSUX110
00030 15 X110-ZIP PIC X(10). DTSUX110
00031 15 FILLER PIC X(01) VALUE ','. DTSUX110
00032 15 X110-PHONE PIC X(15). DTSUX110
00033 15 FILLER PIC X(01) VALUE ','. DTSUX110
00034 15 X110-FAX PIC X(15). DTSUX110
00035 15 FILLER PIC X(01) VALUE ','. DTSUX110
00036 15 X110-EMAIL PIC X(40). DTSUX110
00037 15 FILLER PIC X(01) VALUE ','. DTSUX110
00038 15 X110-WEB-SITE PIC X(40). DTSUX110
00039 15 FILLER PIC X(01) VALUE ','. DTSUX110
00040 15 X110-EMP-NAME PIC X(40). DTSUX110
00041 15 FILLER PIC X(01) VALUE ','. CL**6
00042 15 X110-QAS-FLAG PIC X(01). CL**6
00043 15 FILLER PIC X(179). CL**6

28
CreateGDG.jcl
View File

@ -1,28 +0,0 @@
//JOBINPUT JOB (INNOVA,DEV,TEAM),FAIZAN,CLASS=S,MSGCLASS=X
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.PROD.BE320.FTP.BX212) -
LIMIT(10) -
NOEMPTY -
SCRATCH)
//*
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.PROD.BE320.RPT) -
LIMIT(10) -
NOEMPTY -
SCRATCH)
//*
//STEP001 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE GDG(NAME(DOESTAX.PROD.EXTRQ.RPT) -
LIMIT(10) -
NOEMPTY -
SCRATCH)
//*

46
Filestorevert.txt Normal file
View File

@ -0,0 +1,46 @@
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCDRV.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCS00.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCS10.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCS20.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCS30.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCS40.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCS50.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCS60.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCS70.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCS80.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCS90.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCSL0.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU003.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU026.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU101.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU109.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU201.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU202.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU221.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU222.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU331.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU356.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU357.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU371.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU372.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU373.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU381.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU801.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU810.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU821.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU823.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU825.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU826.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU827.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU829.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU831.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU833.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU834.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU835.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU851.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU880.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU881.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU882.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU899.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\UCTRAN41.cob
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCU351.cob

30
JCL/DTSBK325.jcl Normal file
View File

@ -0,0 +1,30 @@
//DTSRQ325 JOB (UI,4300,3400,T),COMP-SUR-CHG,CLASS=Z,MSGCLASS=X, 00000010
// USER=#DOADTS,
// NOTIFY=ECNTSUP
//* 00001700
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
// SET LHOLD='YES'
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//STEP0050 EXEC DTSUTVSM,
// BKUPGEN='(+1)'
//* 00001700
//STEP0100 EXEC DTSUX325,
// RUNTYPE='OR'
//*
//STEP0100.EXTPARM DD *
325
/*
//****
//*******************************************************************
//*** SEND DATA TO SERVER FOR UPLOAD
//STEP0300 EXEC PGM=FTP TO DATA VALIDATION DATABASE
//SYSPRINT DD SYSOUT=*
//OUTPUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT325),DISP=SHR
//****

2
JCL/DTSBX479.jcl
View File

@ -71,6 +71,6 @@
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBCHGOB),DISP=SHR
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(UIBCHGOB),DISP=SHR
//
//*******************************************************************

7
JCL/DTSBX552.jcl
View File

@ -32,7 +32,8 @@
//* SPACE=(30720,(2000,4000),RLSE), 00211048
// SPACE=(CYL,(20,50),RLSE), 00211149
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00212007
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR 00213007
//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX552),DISP=SHR 00213007
//* 00214007
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00216009
// COND=(0,LT) 00217009
@ -49,7 +50,7 @@
//* SPACE=(30720,(2000,4000),RLSE), 00330048
// SPACE=(CYL,(50,50),RLSE), 00331048
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00340021
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR 00350009
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX552),DISP=SHR 00350009
//* 00360009
//* 00370041
//STEP0150 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00380041
@ -66,7 +67,7 @@
// UNIT=SYSDA, 00490041
// SPACE=(30720,(2000,4000),RLSE), 00500041
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00510041
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR 00520041
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX552),DISP=SHR 00520041
//* 00530041
//************************************************************** 01210000
//* CREATE REPORT FROM DC SORTED ECTRACT AND UI MASTER FILES FOR 01220000

6
JCL/DTSBX553.jcl
View File

@ -31,7 +31,7 @@
// UNIT=SYSDA, 00210000
// SPACE=(30720,(2000,2000),RLSE), 00211000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00212000
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX553),DISP=SHR 00213003
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX553),DISP=SHR 00213003
//* 00214000
//* 00215001
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00216002
@ -48,7 +48,7 @@
// UNIT=SYSDA, 00320000
// SPACE=(30720,(2000,2000),RLSE), 00330000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00340000
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX553),DISP=SHR 00350003
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX553),DISP=SHR 00350003
//* 00360000
//* 00370005
//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00380005
@ -65,7 +65,7 @@
// UNIT=SYSDA, 00490005
// SPACE=(30720,(2000,2000),RLSE), 00500005
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00510005
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX553),DISP=SHR 00520005
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX553),DISP=SHR 00520005
//* 00530005
//************************************************************** 01210000
//* CREATE REPORT FROM DC SORTED ECTRACT AND UI MASTER FILES FOR 01220000

3
JCL/DTSBX629.jcl
View File

@ -57,7 +57,8 @@
// UNIT=SYSDA, 00320000
// SPACE=(30720,(2000,2000),RLSE), 00330000
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00340000
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSBX629),DISP=SHR 00350001
//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSBX629),DISP=SHR
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBX629),DISP=SHR 00350001
//* 00360000
//************************************************************** 01210000
//* CREATE REPORT FOR STAFF TO REVIEW TDEC MISSING REPORTS. MISSING 01220012

32
JCL/DTSFT902.jcl Normal file
View File

@ -0,0 +1,32 @@
//DTSFT902 JOB (UI,4300,03410,P),'ENCRYPT AND TRANSFER',REGION=4000K,
//* USER=#DOADTS,
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65
//*SET QTR='084'
//********************************************************************
//* *
//* THIS JOB ENCRYPTS AND FTPS THE MAIL BAG QUARTERLY UC30 FILE *
//* *
//* *
//* KEYID IS THE KEY IN THE PUBLIC KEY RING YOU ARE ENCRYPTING TO *
//* PASSPARM CWFEB1ES *
//********************************************************************
//********************************************************************
//PGPEMBAG EXEC PROC=PGP,COND=(0,LT)
//*
//TEXTIN DD DSN=DOESTAX.PROD.UC30DATA,DISP=SHR
//ENCOUT DD DSN=DOESTAX.PROD.UC30.CRYPTD.DDOC,
// DISP=(,PASS,DELETE),
//* DISP=OLD,
// UNIT=SYSDA,SPACE=(TRK,(800,100),RLSE),
// DCB=(RECFM=FB,LRECL=385,BLKSIZE=5775)
//IN DD DSN=DOESTAX.CONV.USER.PARMLIB(PGPEDDOC),DISP=SHR
//*
//********************************************************************
//FTPMBAG EXEC PGM=FTP,PARM='(EXIT TIMEOUT 120)',COND=(0,LT)
//*
//SYSPRINT DD SYSOUT=(*)
//SYSMDUMP DD SYSOUT=(*)
//OUTPUT DD SYSOUT=(*)
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSFT902),DISP=SHR
//*

32
JCL/DTSFT910.jcl Normal file
View File

@ -0,0 +1,32 @@
//DTSFT910 JOB (UI,4300,03410,P),'ENCRYPT AND TRANSFER',REGION=4000K,
//* USER=#DOADTS,
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65
//*
//********************************************************************
//* *
//* THIS JOB ENCRYPTS AND FTPS THE MAIL BAG QUARTERLY UC30 HOUSEHOLD *
//* FILE *
//* *
//* KEYID IS THE KEY IN THE PUBLIC KEY RING YOU ARE ENCRYPTING TO *
//* PASSPARM CWFEB1ES *
//********************************************************************
//********************************************************************
//PGPEMBAG EXEC PROC=PGP,COND=(0,LT)
//*
//TEXTIN DD DSN=DOESTAX.PROD.UC30HDAT,DISP=SHR
//ENCOUT DD DSN=DOESTAX.PROD.UC30H.CRYPTD.DDOC,
// DISP=(,PASS,DELETE),
//* DISP=OLD,
// UNIT=SYSDA,SPACE=(TRK,(800,100),RLSE),
// DCB=(RECFM=FB,LRECL=490,BLKSIZE=4900)
//IN DD DSN=DOESTAX.CONV.USER.PARMLIB(PGPEDDOC),DISP=SHR
//*
//********************************************************************
//FTPMBAG EXEC PGM=FTP,PARM='(EXIT TIMEOUT 120)',COND=(0,LT)
//*
//SYSPRINT DD SYSOUT=(*)
//SYSMDUMP DD SYSOUT=(*)
//OUTPUT DD SYSOUT=(*)
//INPUT DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSFT910),DISP=SHR
//*

2
JCL/DTSGSID0.jcl
View File

@ -62,7 +62,7 @@
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBGTCHG),DISP=SHR
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(UIBGTCHG),DISP=SHR
//*NPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBGUCHG),DISP=SHR
//*******************************************************************
//*

2
JCL/DTSPDAY1.jcl
View File

@ -74,7 +74,7 @@
//****
//****
//STEP0075 EXEC DTSBX415
//* /* GET EMLOYER DATA FRROM WEB
//* /* GET EMLOYER DATA FRROM WEB
//****0100 EXEC DTSBX420 (JOB RUNS AFTER RQ325 AND PASSES BTC FILES)
//****
//* /* MERGE WAGE.BTC TO BTC

2
JCL/DTSPMON1.jcl
View File

@ -92,7 +92,7 @@
332, ,Y
/*
//*********************************************************************
//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS
//STEP0400 EXEC PGM=SORT, SORT REPORT RECORDS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.PROD.PER.RPT(+1),DISP=SHR

15
JCL/DTSPODC2.jcl Normal file
View File

@ -0,0 +1,15 @@
//DTSPODC2 JOB (PCFHF,CA7),'FTP NOTIFY',CLASS=G,MSGCLASS=2,
// MSGLEVEL=(1,1),USER=PCUCC7
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS
//*LOGONID PCUCC7
//**********************************************************************
//* GOV1 FTP GET FILE PROCESS *
//* RUNS ON OS12 *
//* DEMANDS JOB DTSPG1G1 ON OS12 CA/7 TO PUT FILE TO GOV1 *
//**********************************************************************
/*JOBPARM SYSAFF=OS12
//CA7BAT EXEC PROC=CA7BTI
//BTERM.SYSIN DD DSN=SYS2.CA7.ODC2.TRAILERS(DTSPG1G1),DISP=SHR
//BTERM.SYSPRINT DD SYSOUT=R,DCB=BLKSIZE=133
//*

15
JCL/DTSPODC5.jcl Normal file
View File

@ -0,0 +1,15 @@
//DTSPODC5 JOB (TOPFF0,CA7),'FTP NOTIFY',CLASS=G,MSGCLASS=2,
// MSGLEVEL=(1,1),USER=PCUCC7
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS
//*LOGONID PCUCC7
//**********************************************************************
//* GOV1 FTP PUT FILE PROCESS *
//* RUNS ON OS12 *
//* DEMANDS JOB DTSPG1P1 ON OS12 CA/7 TO PUT FILE TO GOV1 *
//**********************************************************************
/*JOBPARM SYSAFF=OS12
//CA7BAT EXEC PROC=CA7BTI
//BTERM.SYSIN DD DSN=SYS2.CA7.ODC2.TRAILERS(DTSPG1P1),DISP=SHR
//BTERM.SYSPRINT DD SYSOUT=R,DCB=BLKSIZE=133
//*

3
JCL/DTSPODCA.jcl Normal file
View File

@ -0,0 +1,3 @@
/LOGON CA7BTCH,UIB1USR
DEMAND,JOB=DTSPODC4
/LOGOFF

8
JCL/DTSRQ320.jcl
View File

@ -7,7 +7,7 @@
//****
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
// SET PENQTR='Q244' <<<<<<< FOR FILE NAME ONLY
// SET PENQTR='Q253' <<<<<<< FOR FILE NAME ONLY
// SET LHOLD='NO' <<<<<<< FOR FILE NAME ONLY
//****
//* JOB : PENALTY ASSESSMENT PROCESS (RATED EMPLOYERS ONLY)
@ -23,14 +23,14 @@
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*
//* STD BACKUP BEFORE DATA FILE UPDATE
//STEP0100 EXEC DTSUTVSM,
// BKUPGEN='(+1)'
//*STEP0100 EXEC DTSUTVSM,
//* BKUPGEN='(+1)'
//*
//STEP0200 EXEC DTSUEXT3, BD400 PERIODIC EXTRACT
// RUNTYPE='QP',
// PREBACK='Y'
//STEP0100.EXTPARM DD *
320,244,
320
//* STD BACKUP AFTER DATA FILE UPDATE
//** (NOT NEEDED IF RUN IMMEDIATELY BEFORE
//STEP0200 EXEC DTSRS320

11
JCL/DTSRQ713.jcl
View File

@ -8,7 +8,7 @@
// SET MSTNODE='PROD'
// SET UINODE='PROD'
// SET SPCNODE='PROD'
//*** SET QTR='Q063'
// SET QTR='Q251'
// SET LHOLD='NO'
//****
//* BUILD TRANSACTION RECORDS TO CREATE BOTH THE RECONSTRUCTION FILE
@ -32,16 +32,17 @@
//****
//* SPEC BACKUP AT END OF QTR BEFORE 581 RPT - UP TO 12
//* QTRS TO BE USED FOR AUDITING PURPOSES.
//STEP0125 EXEC DTSUTVSQ,
// BKUPGEN='(+1)'
//*STEP0125 EXEC DTSUTVSQ,
//* BKUPGEN='(+1)'
//*** *
//STEP0200 EXEC DTSUX770, BD400 PERIODIC EXTRACT
//*STEP0200 EXEC DTSUX770, BD400 PERIODIC EXTRACT
//STEP0200 EXEC DTSUX777, BD400 PERIODIC EXTRACT
// RUNTYPE='QE',
// PREBACK='Y'
//*STEP0100.DTSFREF DD DSN=DOESTAX.&SPCNODE..VSAM.REF, /*1X SPECIAL
//* DISP=SHR,AMP=('BUFNI=5,BUFND=10')
//*STEP0100.DTSFBTCO DD DISP=(OLD,KEEP,KEEP)
//*STEP0100.BE770PRM DD DISP=(OLD,KEEP,KEEP)
//STEP0100.BE770PRM DD DISP=(OLD,KEEP,KEEP)
//STEP0100.EXTPARM DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ713),
// DISP=SHR
//*** USE THE FOLLOWING LINES FOR A RERUN **-->>

22
JCL/DTSUC30X.jcl Normal file
View File

@ -0,0 +1,22 @@
//DTSUC30X JOB (UI,4300,3400,T),PROD.SEND.UC30,
// CLASS=P,MSGCLASS=X,
// USER=#DOADTS,
// NOTIFY=ECNTJP2,
//**** TYPRUN=SCAN,
// REGION=0M /* RUNS AFTER DTSRQ902/ECNTV902
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS
//**
//** TRANSMIT THE QTRLY UC30 DATA FILE TO DHS. THIS DATA MUST
//** BE WRITTEN TO A 3480 CARTRIDGE FOR DELIVERY TO DOES, AND
//** THEN, **>TO A VENDOR FOR PRINTING & MAILING<** OF THE UC30'S.
//**
//** 1. CHECK NOTIFICATION OF ECNTJP2 (FOR JOB COMPLETION) AND
//** 2. NOTIFICATION OF ECNTSUP (FOR X'FER OF DATA) AND
//** JCL OUTPUT UNDER ODC1UC30 (FOR CART. NUMBER)
//**
//STEP0100 EXEC PROC=NJESEND, /* UC30 DATA
// INFILE='DOESTAX.PROD.UC30DATA',
// JCLSTART=NJEUC30S,
// JCLEND=NJEUC30E
//**

18
JCL/DTSUC3HX.jcl Normal file
View File

@ -0,0 +1,18 @@
//DTSUC3HX JOB (UI,4300,3400,T),PROD.SEND.UC30H,
// CLASS=P,MSGCLASS=X,
// NOTIFY=ECNTJP2,
// USER=#DOADTS,
//**** TYPRUN=SCAN,
// REGION=0M
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS
//**
//** TRANSMIT THE YRLY UC30H DATA FILE TO DHS. THIS DATA MUST
//** BE WRITTEN TO A 3480 CARTRIDGE FOR DELIVERY TO A **>VENDOR
//** FOR PRINTING & MAILING<** OF THE UC30H FORMS.
//**
//STEP0100 EXEC PROC=NJESEND, /* UC30 DATA
// INFILE='DOESTAX.PROD.UC30HDAT',
// JCLSTART=NJEUC3HS,
// JCLEND=NJEUC3HE
//**

24
JCL/DTSXMTBX.jcl Normal file
View File

@ -0,0 +1,24 @@
//DTSXMTBX JOB (UI,4300,3400,T),PROD.OTR.EMPLR.REXMT, 00000010
// CLASS=P,MSGCLASS=X, 00000010
// USER=#DOADTS,
//**** TYPRUN=SCAN,
// NOTIFY=ECNTJP2,REGION=0M
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**
// SET LVLNODE='PROD'
//**
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//** 00001700
//* RETRANSMIT THE FILE FOR OFF. OF TAX & REV. 00001700
//* (DATA ARE UPDATES TO UI TAX EMPLOYER NAMES AND ADDRESSES) 00001700
//* {FILE AT SHARE IS FRDWH.PRD.RS21.PRNDOTRE.DAT} 00001700
//* {CONTACT PERSON AT OTR IS MS. WIGGLESWORTH} 00001700
//* (NO BKP NEEDED FOR THIS RUN) 00001700
//** TRANSMIT FILES TO DC SHARE FOR FORWARDING
//** TO THE OFFICE OF TAX AND REVENUE
//STEP0400 EXEC PROC=NJESEND,
// INFILE='DOESTAX.PROD.OTR.TRNS.FILE(+0)',
// JCLSTART=NJEOTRES,
// JCLEND=NJEOTREE
//* 00047000

73
JCL/ECNTVCGQ.jcl Normal file
View File

@ -0,0 +1,73 @@
//ECNTVCGQ JOB (UI,4300,3400,T),CHGQTR.VIEWDIR, 00010016
// CLASS=P,MSGCLASS=X, 00011016
//*** TYPRUN=SCAN, 00020001
//*** USER=#DOADTS, 00021024
//**** NOTIFY=ECNTJP2,REGION=0M 00030031
// NOTIFY=ECNTSUP,REGION=0M 00031031
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00040000
// SET PRGNODE='PROD' /* CREATE THE QUARTERLY REPORTS 00050015
// SET LVLNODE='PROD' /* AND FILES FOR THE QTR GIVEN 00060015
// SET CHGNODE='PROD' 00070015
// SET CHGMNBR='CHGM002' 00071004
// SET CHGMSSN='CHGM030' 00072020
// SET QTRLY='QTR041' /* QTRYYQ 00080031
// SET LDEST=U@PRT65 00090027
// SET LHOLD='YES' /* CHK '<--' LINES BELOW FOR A RERUN 00100018
// SET LVDHOLD='YES' /* CHK '<--' LINES BELOW FOR A RERUN 00101018
//***** 00110000
/*JOBPARM LINECT=104 /* NEEDED FOR THE OLD XEROX AT DOES ONLY 00120000
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00130000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00140008
//**** 00150000
//* PERIODIC CHARGE REPORTING PROCESS CAN GENERATE CHARGE STATEMENTS 00160000
//* (W) FOR RATED EMPLOYERS, BILLS (I) FOR SELF-INSURED (S-I) 00170000
//* EMPLOYERS, MANAGEMENT REPORTS (O) FOR RATED, S-I, CWC & FEDS, 00180000
//* ALONG WITH LABELS FOR THE S-I, CWC & FEDS. 00200000
//**** 00210000
//* PARMS FOR CHGBD205: 00220000
//* COLS. RUN TYPE: 00240000
//* 01-03 QTR = QUARTERLY 00250000
//* ANN = ANNUAL 00260000
//* MNE = MONTHLY - WITH EMPLOYER ACCT NUMBER SPECIFIED 00270000
//* EMP = SPECIAL REPORT FOR SINGLE EMPLOYER ACCT NUMBER 00280000
//* RPT = REPRINT REPORTS SPECIFIED IN REPORT TYPE PARM 00300000
//* TEU = PRINT TEUC RPT SPECIFIED IN REPORT TYPE PARM 00320014
//* 00330000
//* 05-10 MMDDYY = START DATE OF SELECTION 00340000
//* 12-17 MMDDYY = END DATE OF SELECTION 00350000
//* 00351000
//* 19-23 YYYYY = (FOR RPT ONLY) REPORT TYPES DESIRED: 00360000
//* - Y/N RATED REPORT (W)(O) 00390000
//* - Y/N SELF-INSURED REPORT (I)(O) 00400000
//* - Y/N CWC REPORT (O) 00410000
//* - Y/N FEDERAL REPORT (O) 00420000
//* - Y/N TEUC REPORT (O) 00430012
//* 00431000
//* 25-30 NNNNNN = 6 DIGIT EMPLOYER ACCOUNT NUMBER 00440000
//* (USED WITH RUN TYPE = EMP/MNE) 00450000
//* 00460000
//****SET EXTRACT PARM IN DOESTAX.&LVLNODE.APPL.PARMLIB(CHGPARM) 00470000
//* (OR NOT... FOR NOW) 00471000
//**** 00480000
//STEP0200 EXEC DTSUXCGP 00490000
//STEP0100.SYSIN DD * 00491000
RPT,010104,033104,YYYYNY,000000 00492031
/* 00500000
//STEP0100.CHGPARM DD DISP=SHR /* CHARGE PARM 00500117
//STEP0100.DTSFVRO1 DD DISP=SHR /* CHG.BD205.RPT 00500218
//STEP0500.BD220CHG DD DISP=SHR /* CHG.BD220.RPT 00500317
//**** 00501000
//* SYSIN CARD: RPT,010102,033102,YYYYNY,000000 00502027
//**** 00504000
//STEP0300 EXEC DTSCVRPQ 00510019
//STEP0100.RPC100R1 DD DUMMY /* RATED (W) <-- 00511017
//STEP0100.RPC100R2 DD DUMMY /* FISC.AGNT. <-- 00511117
//STEP0100.RPC110R1 DD DUMMY /* S-I (I) <-- 00511217
//STEP0100.TPSCHRG DD DUMMY /* TPS FILE <-- 00512017
//STEP0100.DTSFBTCO DD DUMMY /* BTC FILE <-- 00513017
//STEP0200.RPT907R1 DD DUMMY /* UNUS.COND. <-- 00513118
//STEP0200.RPT907R2 DD DUMMY /* UNUS.COND. <-- 00513218
//STEP0200.RPT980R1 DD DUMMY /* CNTRL.RPT. <-- 00513318
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS <-- 00514017
//* 00515016

9
JCL/G1EPPUT3.jcl Normal file
View File

@ -0,0 +1,9 @@
10.27.12.1
FTG1DOS1
DESUSR
EBCDIC
MODE BLOCK
SITE TR PRI=500 SEC=300 UNIT=WORK
PUT 'DOESTAX.TEST.GOV1.EFTEXT' 'FTG1DOS1.DOESTAX.HDVL.EFTEXT'
DIR
QUIT

3
JCL/GOVPODCP.jcl Normal file
View File

@ -0,0 +1,3 @@
/LOGON CA7BTCH,UIB1USR
DEMAND,JOB=DTSPODC6
/LOGOFF

9
JCL/OD1TOOD2.jcl Normal file
View File

@ -0,0 +1,9 @@
10.27.12.1
FTG1DOS1
DESUSR
EBCDIC
MODE BLOCK
SITE TR PRI=500 SEC=300 UNIT=WORK
PUT 'DOESTAX.TEST.GOV1.EFTEXT' 'FTG1DOS1.DOESTAX.HDVL.EFTEXT'
DIR
QUIT

40
JCL/RUNBZ057.jcl Normal file
View File

@ -0,0 +1,40 @@
//RUNBZ057 JOB (UI,4300,3400,T),RUNBZ057,CLASS=S,MSGCLASS=X, 00000010
// USER=#DOADTS,
// NOTIFY=ECNTSUP
//*
//*
// SET MSTNODE='PROD'
// SET LVLNODE='DEVL'
//*
//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//STEP0100 EXEC PGM=DTSBZ057, CORRECT 09/4 REPORTS ENTERED
// COND=(0,LT), LATE BY MISTAKE
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWTC DD DSN=DOESTAX.&MSTNODE..VSAM.WTC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//DTSFBTCO DD DSN=DOESTAX.&MSTNODE..BTC(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(8192,(100,200),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//DTSFZ057 DD DSN=DOESTAX.PROD.FZ057,
//** DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(2300,(100,100),RLSE),
// DCB=(RECFM=FB,LRECL=23,BLKSIZE=2300)
//*
//*********************************************************************

30
JCL/RUNBZ084.jcl Normal file
View File

@ -0,0 +1,30 @@
//ECNTGD14 JOB (UI,4300,3400,T),RUNBZ084,CLASS=P,MSGCLASS=X, 00000010
// NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//* 00001700
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//* 00001700
//STEP0050 EXEC DTSUTVSM,
// BKUPGEN='(+1)'
//**** /* MERGE
//STEP0100 EXEC PGM=DTSBZ084, /* CORRECT DISCREPANCY BETWEEN
// COND=(0,LT), /* MQTR AND MJRN CAUSED BY
// REGION=4096K /* ERROR IN DTSBD350
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFBTCO DD DSN=DOESTAX.&LVLNODE..BTC(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(8192,(1000,1000),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
/*
//****

41
JCL/RUNBZ258.jcl Normal file
View File

@ -0,0 +1,41 @@
//ECNTSUPP JOB (UI,4300,3400,T),RUNBZ258,CLASS=S,MSGCLASS=X, 00000010
// NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//* 00001700
// SET LVLNODE='PROD' 00001700
// SET MSTNODE='PROD' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//STEP0100 EXEC PGM=DTSBZ258, SCAN ATC FOR ANNUAL REPORTS
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWTC DD DSN=DOESTAX.&MSTNODE..VSAM.WTC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//**
//EXPBZ258 DD DSN=DOESTAX.DEVL.DTSBZ258,
//** DISP=(NEW,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// UNIT=SYSDA,
// SPACE=(29000,(1000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=58,BLKSIZE=29000)
//*********************************************************************
//STEP0210 EXEC PGM=FTP,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT258),DISP=SHR
//*********************************************************************

22
JCL/RUNBZ268.jcl Normal file
View File

@ -0,0 +1,22 @@
//RUNBZ268 JOB (UI,4300,3400,T),RUNBZ268,CLASS=S,MSGCLASS=X, 00000010
// NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//* 00001700
// SET MSTNODE='PROD' REGION VSAM MASTER FILES
// SET LVLNODE='PROD' REGION NON MASTER FILES
// SET PGMNODE='DEVL' REGION BATCH LOADLIB/PROCLIB
//*
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=&PGMNODE.JLIB 00001600
//* 00001700
//STEP0100 EXEC PGM=DTSBZ268, INIT MADJ, MQTR
// COND=(0,LT),
// REGION=4096K
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//*
//*********************************************************************

25
JCL/RUNBZ279.jcl Normal file
View File

@ -0,0 +1,25 @@
//RUNBZ279 JOB (UI,4300,3400,T),RUNBZ279,CLASS=A,MSGCLASS=X, 00000010
//** TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTZL1
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**
// SET MSTNODE='PROD' REGION VSAM MASTER FILES
// SET LVLNODE='PROD' REGION NON VSAM MASTER FILES
// SET PGMNODE='DEVL' REGION BATCH LOADLIB/PROCLIB
//*
//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCLIB
//LOADLIBS INCLUDE MEMBER=&PGMNODE.JLIB
//**
//STEP0100 EXEC PGM=DTSBZ279, INIT AADJ
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//*
//DTSFATC DD DSN=DOESTAX.&LVLNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//

30
JCL/RUNBZ312.jcl Normal file
View File

@ -0,0 +1,30 @@
//ECNTGD14 JOB (UI,4300,3400,T),RUNBZ312,CLASS=P,MSGCLASS=X, 00000010
// NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//* 00001700
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//STEP0100 EXEC DTSUTVSM,
// BKUPGEN='(+1)'
//**** /* MERGE
//* 00001700
//STEP0100 EXEC PGM=DTSBZ312, /* WITHDRAW MISSING REPORT PENALTY
// COND=(0,LT), /* WHERE QTR IS NOT LIABLE
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//CAIMRPTS DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFBTCO DD DSN=DOESTAX.&LVLNODE..BTC(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(8192,(1000,1000),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
/*
//****

30
JCL/RUNBZ313.jcl Normal file
View File

@ -0,0 +1,30 @@
//ECNTGD11 JOB (UI,4300,3400,T),RUNWNAME,CLASS=A,MSGCLASS=X, 00000010
//** TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
//**
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//STEP0100 EXEC PGM=DTSBZ313,
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//WORKRIN DD DSN=DOESTAX.DEVL.NEWHIRE.WORKER,
// DISP=(OLD,KEEP,KEEP),
//** DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(30000,(400,200),RLSE),
// DCB=(RECFM=FB,LRECL=150,BLKSIZE=30000)
//*
//DTSFNAME DD DSN=DOESTAX.&MSTNODE..VSAM.WAGE.NAME,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//***
//*****

21
JCL/RUNBZ330.jcl Normal file
View File

@ -0,0 +1,21 @@
//ECNTGD1P JOB (UI,4300,3400,T),RUNBZ330,CLASS=S,MSGCLASS=X, 00000010
// NOTIFY=ECNTSUP
//* 00001700
// SET LVLNODE='PROD' 00001700
// SET MSTNODE='PROD' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//STEP0100 EXEC PGM=DTSBZ330, REPROCESS REPORTS
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*********************************************************************

21
JCL/RUNBZ365.jcl Normal file
View File

@ -0,0 +1,21 @@
//ECNTGD1P JOB (UI,4300,3400,T),RUNBZ365,CLASS=S,MSGCLASS=X, 00000010
// NOTIFY=ECNTSUP
//* 00001700
// SET LVLNODE='PROD' 00001700
// SET MSTNODE='PROD' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//STEP0100 EXEC PGM=DTSBZ365, REVERSE 2008/1 DELINQ
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*********************************************************************

21
JCL/RUNBZ385.jcl Normal file
View File

@ -0,0 +1,21 @@
//ECNTGD1P JOB (UI,4300,3400,T),RUNBZ385,CLASS=S,MSGCLASS=X, 00000010
// NOTIFY=ECNTSUP
//* 00001700
// SET LVLNODE='PROD' 00001700
// SET MSTNODE='PROD' 00001700
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//STEP0100 EXEC PGM=DTSBZ385, CORRECT 155378
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*********************************************************************

120
JCL/RUNBZ800.jcl Normal file
View File

@ -0,0 +1,120 @@
//ECNT800R JOB (UI,4300,3400,T),'CHGBD100',CLASS=A,MSGCLASS=X, 00000199
// NOTIFY=ECNTSUP 00000299
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//** 00000499
// SET LVLNODE='PROD' 00000599
// SET MSTNODE='PROD' 00000699
// SET PGMNODE='PROD' 00000799
//PROCLIB JCLLIB ORDER=DOESTAX.DEVL.PROCLIB 00001399
//* 00001400
//LOADLIBS INCLUDE MEMBER=&PGMNODE.JLIB 00001599
//* 00001600
//**** GENERATE A DUMMY RECORD FOR THE LABELS FILE 00001799
//DOESIEDG EXEC PGM=IEBDG 00001899
//SYSPRINT DD SYSOUT=* 00001999
//LBLOUT DD DSN=&&TEMP,DISP=(,PASS,DELETE), 00002099
// UNIT=SYSDA, 00002199
// SPACE=(TRK,1), 00002299
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002399
//SYSIN DD * 00002499
DSD OUTPUT=(LBLOUT) 00002599
FD NAME=F1,LENGTH=350,STARTLOC=1,FILL='0' 00002699
CREATE QUANTITY=1,NAME=(F1) 00002799
END 00002899
/* 00002999
//DOESICAN EXEC PGM=IDCAMS 00003099
//SYSPRINT DD SYSOUT=* 00003199
//FILEIN DD DSN=&&TEMP, 00003299
// DISP=(OLD,PASS), 00003399
// UNIT=SYSDA 00003499
//*OESVRO1 DD DSN=DOESTAX.DEVL.TESTR901.LABELS,DISP=SHR 00003599
//DOESVRO1 DD DSN=&&LABELS, 00003699
// DISP=(NEW,PASS,DELETE), 00003799
// UNIT=SYSDA, 00003899
// SPACE=(8192,(1000,1000),RLSE), 00003999
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00004099
//SYSIN DD * 00004199
REPRO INFILE(FILEIN) OUTFILE(DOESVRO1) 00004299
/* 00004399
//* 00004499
//********************************************************************* 00004549
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00004600
// COND=(0,LT) 00004700
//SYSOUT DD SYSOUT=* 00004800
//SORTIN DD DSN=DOESTAX.PROD.PER.RPT.G1245V00,DISP=SHR 00005099
//* DD DSN=DOESTAX.PROD.SRTDAILY.RPT.G1569V00,DISP=SHR 00005099
//* 00006399
//SORTOUT DD DSN=&&SRTRPT, 00006899
// DISP=(,PASS,DELETE), 00006999
// UNIT=SYSDA, 00007099
// SPACE=(8192,(1000,1000),RLSE), 00007199
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00007299
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSRREC),DISP=SHR 00007399
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00007499
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00008099
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00009099
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00010099
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(150,10),RLSE) 00011099
//********************************************************************* 00018000
//STEP0200 EXEC PGM=DTSBD800, OUTPUT GENERATION 00018100
//** TIME=(0,20), 00018299
// COND=(0,LT) 00018300
//SYSOUT DD SYSOUT=* 00018400
//SYSABOUT DD SYSOUT=* 00018500
//SYSUDUMP DD SYSOUT=* 00018600
//*BD800,INC,102,103,105,108,109.112.115.117.127.319 00018799
//PARMIN DD * 00018899
DTSBD800,INC,117 00019199
/* 00019599
//** 00019699
//ATLSTIN DD * 00020000
DTSBD800, 00030000
/* 00031000
//** 117 W CLASS 00040099
//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE) 00050099
//**** NEED FOR 604 ONLY***** 00051099
//** 00060000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00070099
//DTSFREF DD DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR, 00071099
// AMP=('BUFNI=5,BUFND=10') 00080000
//* 00090099
//DOESVRO1 DD DSN=&&LABELS,DISP=(OLD,PASS,DELETE) 00100099
//* 00100199
//RPC100R1 DD SYSOUT=* 00100299
//RPC100R2 DD SYSOUT=* 00100399
//RPC100R3 DD SYSOUT=* 00100499
//RPC110R1 DD SYSOUT=* 00100699
//RPC110R2 DD SYSOUT=* 00100799
//RPT117R1 DD SYSOUT=* 00100899
//RPT117R2 DD SYSOUT=* 00100899
//RPC120R1 DD SYSOUT=* 00100899
//RPC130R1 DD SYSOUT=* 00100999
//RPT414R1 DD SYSOUT=* 00100999
//RPT414R2 DD SYSOUT=* 00100999
//RPT416R1 DD SYSOUT=* 00100999
//RPT416R2 DD SYSOUT=* 00100999
//RPT303R1 DD SYSOUT=* 00100999
//RPT303R2 DD SYSOUT=* 00100999
//RPT907R1 DD SYSOUT=* 00100999
//RPT907R2 DD SYSOUT=* 00101099
//RPC150R1 DD SYSOUT=* 00101199
//RPC160R1 DD SYSOUT=* 00101299
//RPT908R1 DD SYSOUT=* 00106799
//*************************************************************** 00106899
//PRINTER DD SYSOUT=* 00110599
//** CONTROL REPORT SUMMARY 00110699
//RPT980R1 DD SYSOUT=Q,COPIES=2, 00110799
// HOLD=YES, 00110899
// DEST=U@PRT65 00110999
//** 00111000
//* 00120099
//STEP0500 EXEC PGM=DOESLABL, PRINT DOES LABELS 00131099
// COND=(0,LT), 00140099
// REGION=4096K 00150099
//SYSOUT DD SYSOUT=* 00151099
//SYSABOUT DD SYSOUT=* 00152099
//SYSABEND DD SYSOUT=* 00153099
//CAIMRPTS DD SYSOUT=* 00154099
//DOESLBL1 DD SYSOUT=* 00155299
//DOESVRI1 DD DSN=&&LABELS,DISP=(OLD,DELETE,DELETE) 00156199
// 00157099

97
JCL/RUNGPAYT.jcl Normal file
View File

@ -0,0 +1,97 @@
//DTSGPAYT JOB (UI,4300,03410,P),'DECRYPT/PAYMTS-TDEC',REGION=4000K,
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65
//********************************************************************
//**** TDEC PAYMENT FILES ARE ENCRYPTED USING PKZIP
//**** WITH OCTO DATA CENTER PUBLIC KEY.
//****
//*** ANY QUESTIONS WITH PGP SHOULD BE DIRECTED TO SEAN DUNN
//****
//*** FILES COMING FROM TDEC SHOULD USE OUR (OCTO) PUBLIC KEY.
//****
//*** FILES GOING TO TDEC SHOULD USE TDEC PUBLIC KEY.
//****
//*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1.
//********************************************************************
//******** CHANGE QTR PARM TO CURRENT QTR **********
// SET CURRQTR='Q2017Q4'
//*
// SET LVLNODE='CONV'
// SET MSTNODE='PROD'
// SET PRGNODE='CONV'
// SET IMPNODE='CONV'
// SET LVDHOLD='YES'
// SET EXTNODE='CONV'
// SET RPTNODE='ESSP.BX420.RPT'
//*
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//* PROCESS ESSP PENDING DATA FILES (REPORTS PAYMENTS AND WAGES)
//**** GET TDEC ENCRYPTED REPORT PAYMENT FILE
//********************************************************************
//*********************************************************************
//*STEP0111 EXEC PGM=IDCAMS, INITIALIZE EMPTY PAYMENT FILE
//* COND=(4,LT) GENERATION
//*SYSPRINT DD SYSOUT=*
//*INDD01 DD DUMMY
//*OUTDD01 DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.PAYMT(+1),
//* DISP=(,CATLG,DELETE),
//* UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//*SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*********************************************************************
//*
//*TDECFTP EXEC PGM=FTP,COND=(0,LT)
//*SYSPRINT DD SYSOUT=*
//*OUTOUT DD SYSOUT=*
//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//*SYSGET DD *,DCB=BLKSIZE=80
//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDREPT),DISP=SHR
//*INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTEPT),DISP=SHR
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTDPT),DISP=SHR
//*
//********************************************************************
//**** DECRYPT TDEC PAYMENT FILE INTO DATAOUT
//********************************************************************
//*
//*ECRYPT EXEC SECPDEC,COND=(0,LT)
//DECRYPT EXEC SECODEC,COND=(0,LT)
//DATAIN DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.PYMTS,DISP=SHR
//DATAOUT DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//
//********************************************************************
//*** COPY TDEC WAGE DECRYPTED FILE TO BBACKUP FILE.
//**
//********************************************************************
//**
//COPYDELQ EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),DISP=SHR
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.PAYMT(+1),DISP=SHR
//* DISP=(NEW,CATLG,DELETE),
//* UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
//********************************************************************
//*** COPY TDEC REPORT PAYMENT FILE TO BACKUP QUARTER FILE
//**
//********************************************************************
//**
//COPYPAYT EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT(+1),DISP=SHR
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.PAYMT.&CURRQTR.,
//* DISP=(NEW,CATLG,DELETE),
// DISP=MOD,
// UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
//**

558
JobInputFiles.txt
View File

@ -1,560 +1,10 @@
//STEP250 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0250 DD DSN=DOESTAX.CONV.ESSP.X420.W4FILE,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.CONV.ESSP.X420.W4FILE',
// COPY)
//STEP251 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0251 DD DSN=DOESTAX.CONV.ESSP.X430.W4FILE,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.CONV.ESSP.X430.W4FILE',
// COPY)
//STEP252 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0252 DD DSN=DOESTAX.CONV.ESSP.X435.W4FILE,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.CONV.ESSP.X435.W4FILE',
// COPY)
//STEP253 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0253 DD DSN=DOESTAX.CONV.ESSP.X436.W4FILE,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.CONV.ESSP.X436.W4FILE',
// COPY)
//STEP254 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0254 DD DSN=DOESTAX.CONV.TDECX148.DELINQ.W4FILE,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.CONV.TDECX148.DELINQ.W4FILE',
// COPY)
//STEP255 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0255 DD DSN=DOESTAX.CONV.TDECX148.DELINQ.X153,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.CONV.TDECX148.DELINQ.X153',
// COPY)
//STEP256 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0256 DD DSN=DOESTAX.CONV.TDECX148.ONTIME.W4FILE,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.CONV.TDECX148.ONTIME.W4FILE',
// COPY)
//STEP257 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0257 DD DSN=DOESTAX.CONV.TDECX148.ONTIME.X153,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.CONV.TDECX148.ONTIME.X153',
// COPY)
//STEP258 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0258 DD DSN=DOESTAX.DEVL.ZL1.CREDIT,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.DEVL.ZL1.CREDIT',
// COPY)
//STEP259 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0259 DD DSN=DOESTAX.PROD.ARCHIVE.FY2009,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ARCHIVE.FY2009',
// COPY)
//STEP260 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0260 DD DSN=DOESTAX.PROD.BD110.BTC.G6588V00,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD110.BTC.G6588V00',
// COPY)
//STEP261 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0261 DD DSN=DOESTAX.PROD.BD110.RPT.G6588V00,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD110.RPT.G6588V00',
// COPY)
//STEP262 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0262 DD DSN=DOESTAX.PROD.BD110.TRN.G6588V00,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD110.TRN.G6588V00',
// COPY)
//STEP263 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0263 DD DSN=DOESTAX.PROD.BD120.RPT.G6586V00,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD120.RPT.G6586V00',
// COPY)
//STEP264 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0264 DD DSN=DOESTAX.PROD.BD120.TRN.G6586V00,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD120.TRN.G6586V00',
// COPY)
//STEP265 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0265 DD DSN=DOESTAX.PROD.BD130.BTC.G6587V00,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD130.BTC.G6587V00',
// COPY)
//STEP266 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0266 DD DSN=DOESTAX.PROD.BD130.RPT.G6586V00,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD130.RPT.G6586V00',
// COPY)
//STEP267 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0267 DD DSN=DOESTAX.PROD.BD130.TRN.G6586V00,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD130.TRN.G6586V00',
// COPY)
//STEP268 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0268 DD DSN=DOESTAX.PROD.BD140.RPT.G6572V00,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD140.RPT.G6572V00',
// COPY)
//STEP269 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0269 DD DSN=DOESTAX.PROD.BD140.TRN.G6572V00,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD140.TRN.G6572V00',
// COPY)
//STEP270 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0270 DD DSN=DOESTAX.PROD.BD145.BTC,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD145.BTC',
// COPY)
//STEP271 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0271 DD DSN=DOESTAX.PROD.BD145.ZEROWAGE,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD145.ZEROWAGE',
// COPY)
//STEP272 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0272 DD DSN=DOESTAX.PROD.BD150.RPT.G6565V00,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD150.RPT.G6565V00',
// COPY)
//STEP273 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0273 DD DSN=DOESTAX.PROD.BD180.RPT.G6491V00,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD180.RPT.G6491V00',
// COPY)
//STEP274 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0274 DD DSN=DOESTAX.PROD.BD200.TRN.G6564V00,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD200.TRN.G6564V00',
// COPY)
//STEP275 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0275 DD DSN=DOESTAX.PROD.BD300.RPT.G6495V00,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD300.RPT.G6495V00',
// COPY)
//STEP276 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0276 DD DSN=DOESTAX.PROD.BD400.BTC.BACKUP.G6575V00,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD400.BTC.BACKUP.G6575V00',
// COPY)
//STEP277 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0277 DD DSN=DOESTAX.PROD.BE327.RPT.G1988V00,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BE327.RPT.G1988V00',
// COPY)
//STEP278 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0278 DD DSN=DOESTAX.PROD.BX415.BTC,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BX415.BTC',
// COPY)
//STEP279 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0279 DD DSN=DOESTAX.PROD.BX420.BTC,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BX420.BTC',
// COPY)
//STEP280 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0280 DD DSN=DOESTAX.PROD.BX420.RPT,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BX420.RPT',
// COPY)
//STEP281 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0281 DD DSN=DOESTAX.PROD.BX440.BTC,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BX440.BTC',
// COPY)
//STEP282 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0282 DD DSN=DOESTAX.PROD.BX442.BTC,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BX442.BTC',
// COPY)
//STEP283 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0283 DD DSN=DOESTAX.PROD.DEPOSIT.X202EXP,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.DEPOSIT.X202EXP',
// COPY)
//STEP284 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0284 DD DSN=DOESTAX.PROD.DTS.W4FILE,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.DTS.W4FILE',
// COPY)
//STEP285 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0285 DD DSN=DOESTAX.PROD.ESSP.X418.BTC,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X418.BTC',
// COPY)
//STEP286 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0286 DD DSN=DOESTAX.PROD.ESSP.X420.BTC,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X420.BTC',
// COPY)
//STEP287 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0287 DD DSN=DOESTAX.PROD.ESSP.X421.BTC,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X421.BTC',
// COPY)
//STEP288 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0288 DD DSN=DOESTAX.PROD.ESSP.X424.BTC,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X424.BTC',
// COPY)
//STEP289 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0289 DD DSN=DOESTAX.PROD.ESSP.X426.BTC.G0002V00,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X426.BTC.G0002V00',
// COPY)
//STEP290 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0290 DD DSN=DOESTAX.PROD.ESSP.X427.BTC,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X427.BTC',
// COPY)
//STEP291 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0291 DD DSN=DOESTAX.PROD.ESSP.X430.BTC,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X430.BTC',
// COPY)
//STEP292 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0292 DD DSN=DOESTAX.PROD.ESSP.X435.BTC,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X435.BTC',
// COPY)
//STEP293 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0293 DD DSN=DOESTAX.PROD.ESSP.X436.BTC,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X436.BTC',
// COPY)
//STEP294 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0294 DD DSN=DOESTAX.PROD.ESSP.X451.BTC,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X451.BTC',
// COPY)
//STEP295 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0295 DD DSN=DOESTAX.PROD.ESSP.X451.W4FILE,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X451.W4FILE',
// COPY)
//STEP296 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0296 DD DSN=DOESTAX.PROD.ESSP.X452.BTC,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X452.BTC',
// COPY)
//STEP297 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0297 DD DSN=DOESTAX.PROD.ESSP.X530.BTC,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X530.BTC',
// COPY)
//STEP298 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0298 DD DSN=DOESTAX.PROD.ESSP.XN420.BTC,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.XN420.BTC',
// COPY)
//STEP299 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0299 DD DSN=DOESTAX.PROD.ESSP.XZ420.BTC,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.XZ420.BTC',
// COPY)
//STEP300 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0300 DD DSN=DOESTAX.PROD.FTP.REFUND.X303EXP,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.FTP.REFUND.X303EXP',
// COPY)
//STEP301 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0301 DD DSN=DOESTAX.PROD.MAG.W4FILE,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.MAG.W4FILE',
// COPY)
//STEP302 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0302 DD DSN=DOESTAX.PROD.R202.ICESA,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.R202.ICESA',
// COPY)
//STEP303 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0303 DD DSN=DOESTAX.PROD.R309.RPT.G4328V00,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.R309.RPT.G4328V00',
// COPY)
//STEP304 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0304 DD DSN=DOESTAX.PROD.R414.EXCL.RPT4,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.R414.EXCL.RPT4',
// COPY)
//STEP305 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0305 DD DSN=DOESTAX.PROD.R414.EXCL.RPT5,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.R414.EXCL.RPT5',
// COPY)
//STEP306 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0306 DD DSN=DOESTAX.PROD.R414.EXCL.RPT6,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.R414.EXCL.RPT6',
// COPY)
//STEP307 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0307 DD DSN=DOESTAX.PROD.RPT.R202,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.RPT.R202',
// COPY)
//STEP308 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0308 DD DSN=DOESTAX.PROD.RPT204,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.RPT204',
// COPY)
//STEP309 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0309 DD DSN=DOESTAX.PROD.SRTDAILY.RPT.G6486V00,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.SRTDAILY.RPT.G6486V00',
// COPY)
//STEP310 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0310 DD DSN=DOESTAX.PROD.WEBREG.ERR,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.WEBREG.ERR',
// COPY)
//STEP311 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0311 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.BX217,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.BX217',
// COPY)
//STEP312 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0312 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.CREDIT.NOTEPAD,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.CREDIT.NOTEPAD',
// COPY)
//STEP313 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0313 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.U542,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.U542',
// COPY)
//STEP314 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0314 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X148,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.X148',
// COPY)
//STEP315 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0315 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.X150',
// COPY)
//STEP316 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0316 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.X151',
// COPY)
//STEP317 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0317 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.X152',
// COPY)
//JOBINPUT JOB (INNOVA,DEV,TEAM),FAIZAN,CLASS=S,MSGCLASS=X
//STEP318 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0318 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X153,
//DD0318 DD DSN=DOESTAX.PROD.BE320.PENALTY.Q251,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.X153',
// COPY)
//STEP319 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0319 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X306,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.X306',
//* DCB=(RECFM=FB,LRECL=93,BLKSIZE=9300),
// PATH=('E:\IN\Quarterly\DTSRQ320\DOESTAX.PROD.BE320.PENALTY.Q251',
// COPY)

369
LoginApp/Logs/QIX Processing Server_NA_DUTAS_22082025_091440.log Normal file
View File

@ -0,0 +1,369 @@
[2025-08-22 09:14:40.847] [1] [INFO] [RainCodeLegacyRuntime]: Registering module RC_CHECKHEAP, from RainCodeLegacyRuntime.Module.BuiltinModules.CheckHeap, RainCodeLegacyRuntime, Version=5.0.220.0, Culture=neutral, PublicKeyToken=null, static memory size 0
[2025-08-22 09:14:40.850] [1] [INFO] [RainCodeLegacyRuntime]: Registering module DFHSNP, from RainCode.QIX.PredefinedTransactions.DFHSNP, PredefinedTransactions, Version=5.0.220.0, Culture=neutral, PublicKeyToken=null, static memory size 0
[2025-08-22 09:14:40.851] [1] [INFO] [RainCodeLegacyRuntime]: Registering module DFHSFP, from RainCode.QIX.PredefinedTransactions.DFHSFP, PredefinedTransactions, Version=5.0.220.0, Culture=neutral, PublicKeyToken=null, static memory size 0
[2025-08-22 09:14:40.853] [1] [INFO] [RainCode.Core.Plugin]: Plugin Implementation: RainCode.QIX.ProcessingServer.ProcessingServer+<>c, QIX.ProcessingServer, Version=5.0.220.0, Culture=neutral, PublicKeyToken=null.<Init>b__49_0 from QIX.ProcessingServer, Version=5.0.220.0, Culture=neutral, PublicKeyToken=null providing an implementation of plugin: QixFactory.Constructor
[2025-08-22 09:14:40.873] [1] [TRACE] [QIX]: SharedMemory consist of only CWA, no Area Init needed.
[2025-08-22 09:14:40.876] [1] [TRACE] [RainCode.Core.AssemblyLoading]: Creating a category 'RainCodePrograms'
[2025-08-22 09:14:40.876] [1] [TRACE] [RainCode.Core.AssemblyLoading]: Adding path 'LoginApp\bin\Debug\net8.0' in the category 'RainCodePrograms'
[2025-08-22 09:14:40.876] [1] [TRACE] [QIX]: ProcessingServer started running with ServerId: 7bd7b007-7a43-43f6-8a01-ffa50b89353c
[2025-08-22 09:14:40.879] [5] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:14:40.889] [7] [INFO] [ServiceBrokerContractHandler]: Created ServiceBroker ContractHandler for service ProcessingService on queue QIX_PS_DUTAS
[2025-08-22 09:15:10.901] [5] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:15:40.920] [5] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:16:10.933] [5] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:16:40.953] [5] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:17:10.964] [5] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:17:40.974] [5] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:18:10.979] [5] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:18:40.992] [5] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:19:10.999] [5] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:19:41.015] [5] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:20:11.030] [5] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:20:41.044] [5] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:21:11.061] [5] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:21:13.059] [7] [INFO] [ServiceBrokerContractHandler]: Receiving message from queue QIX_PS_DUTAS.
[2025-08-22 09:21:13.173] [7] [TRACE] [ProcessingServiceBrokerQueueListener::DUTAS]: Got Message ConversationId = 600f30df-5a7f-f011-88c1-0050569d2c8e, ExecQix
[2025-08-22 09:21:13.177] [12] [INFO] [ServiceBrokerContractHandler]: Created ServiceBroker ContractHandler for service https://qixsql.raincode.com/DUTAS/ProcessingService/exec on queue QIX_PS_DUTAS_EXEC
[2025-08-22 09:21:13.183] [12] [INFO] [ServiceBrokerContractHandler]: Started conversation with ID 610f30df-5a7f-f011-88c1-0050569d2c8e from https://qixsql.raincode.com/DUTAS/ProcessingService/exec to https://qixsql.raincode.com/DUTAS/TerminalService/exec
[2025-08-22 09:21:13.202] [12] [INFO] [ServiceBrokerContractHandler]: Sending message HeloTs on conversation 610f30df-5a7f-f011-88c1-0050569d2c8e
[2025-08-22 09:21:13.225] [5T21] [INFO] [QIX]: Executing transaction LOGO, program RCSIGNON
[2025-08-22 09:21:13.236] [5T21] [TRACE] [RainCodeLegacyRuntime.IO]: Loading configuration from file
[2025-08-22 09:21:13.253] [5T21] [INFO] [ConfigurationSerializer]: Deserializing file ConfigV2
[2025-08-22 09:21:13.259] [5T21] [TRACE] [RainCode.Core.AssemblyLoading]: Assembly not found at path '.\RainCodeLegacyFileDriver.XmlSerializers.dll' in the category '<null>'
[2025-08-22 09:21:13.260] [5T21] [TRACE] [RainCode.Core.AssemblyLoading]: Assembly not found at path 'C:\Program Files\Raincode\Crossbow\net8.0\bin\RainCodeLegacyFileDriver.XmlSerializers.dll' in the category '<null>'
[2025-08-22 09:21:13.262] [5T21] [TRACE] [RainCode.Core.AssemblyLoading]: Assembly not found at path 'C:\Program Files\Raincode\Crossbow\net8.0\plugins\QIX Processing Server\RainCodeLegacyFileDriver.XmlSerializers.dll' in the category '<null>'
[2025-08-22 09:21:13.263] [5T21] [TRACE] [RainCode.Core.AssemblyLoading]: Assembly not found at path 'LoginApp\bin\Debug\net8.0\RainCodeLegacyFileDriver.XmlSerializers.dll' in the category '<null>'
[2025-08-22 09:21:13.328] [5T21] [INFO] [ConfigurationSerializer]: Deserializing file ConfigV2 has succeeded.
[2025-08-22 09:21:13.330] [5T21] [INFO] [ConfigurationSerializer]: Applying default values for fields not present in XML.
[2025-08-22 09:21:13.334] [5T21] [WARNING] [RaincodeBatch]: Missing registry keys. Configuring with defaults.
[2025-08-22 09:21:13.339] [5T21] [TRACE] [RaincodeBatch]: Execution directory C:\Program Files\Raincode\Crossbow\net8.0\bin
[2025-08-22 09:21:13.346] [5T21] [TRACE] [RainCode.Core.AssemblyLoading]: Assembly not found at path '.\RainCodeLegacyBatchCatalog.XmlSerializers.dll' in the category '<null>'
[2025-08-22 09:21:13.347] [5T21] [TRACE] [RainCode.Core.AssemblyLoading]: Assembly found case sensitive at path 'C:\Program Files\Raincode\Crossbow\net8.0\bin\RainCodeLegacyBatchCatalog.XmlSerializers.dll' in the category '<null>'
[2025-08-22 09:21:13.349] [5T21] [TRACE] [RainCode.Core.AssemblyLoading]: Search 'RainCodeLegacyBatchCatalog.XmlSerializers' at 'C:\PROGRAM FILES\RAINCODE\CROSSBOW\NET8.0\BIN\RAINCODELEGACYBATCHCATALOG.XMLSERIALIZERS.DLL'
[2025-08-22 09:21:13.360] [5T21] [TRACE] [RainCode.Core.AssemblyLoading]: 'C:\PROGRAM FILES\RAINCODE\CROSSBOW\NET8.0\BIN\RAINCODELEGACYBATCHCATALOG.XMLSERIALIZERS.DLL' loaded by the framework
[2025-08-22 09:21:13.362] [5T21] [TRACE] [RainCode.Core.AssemblyLoading]: Adding assembly RainCodeLegacyBatchCatalog.XmlSerializers, Version=5.0.220.0, Culture=neutral, PublicKeyToken=null to the cache
[2025-08-22 09:21:13.364] [5T21] [TRACE] [RainCode.Core.AssemblyLoading]: Assembly matching. Expected name: RainCodeLegacyBatchCatalog.XmlSerializers, version 220. Received name RainCodeLegacyBatchCatalog.XmlSerializers, version 220 with the result: True
[2025-08-22 09:21:13.404] [5T21] [TRACE] [RaincodeBatch]: Starting init provider
[2025-08-22 09:21:13.407] [5T21] [TRACE] [RaincodeBatch]: Finished init provider from file C:\ProgramData\Raincode\Batch\RcDbConnections.csv
[2025-08-22 09:21:13.414] [5T21] [TRACE] [RaincodeBatch]: Lock manager GUID = 288f936d-567a-4621-923f-f3217760b029
[2025-08-22 09:21:13.418] [5T21] [TRACE] [RaincodeBatch]: Validating catalog configuration
[2025-08-22 09:21:13.429] [5T21] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\AIX.meta] forceRead[False]
[2025-08-22 09:21:13.431] [5T21] [TRACE] [RainCode.Core.RcThreadStatic]: Registering RcThreadStatic class RainCodeLegacyBatchDataset.Xml.FileCacheHelperThreadSpecific
[2025-08-22 09:21:13.432] [5T21] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\AIX.meta]
[2025-08-22 09:21:13.435] [5T21] [TRACE] [RainCode.Core.AssemblyLoading]: Assembly not found at path '.\RainCodeLegacyBatchDataset.XmlSerializers.dll' in the category '<null>'
[2025-08-22 09:21:13.437] [5T21] [TRACE] [RainCode.Core.AssemblyLoading]: Assembly found case sensitive at path 'C:\Program Files\Raincode\Crossbow\net8.0\bin\RainCodeLegacyBatchDataset.XmlSerializers.dll' in the category '<null>'
[2025-08-22 09:21:13.438] [5T21] [TRACE] [RainCode.Core.AssemblyLoading]: Search 'RainCodeLegacyBatchDataset.XmlSerializers' at 'C:\PROGRAM FILES\RAINCODE\CROSSBOW\NET8.0\BIN\RAINCODELEGACYBATCHDATASET.XMLSERIALIZERS.DLL'
[2025-08-22 09:21:13.440] [5T21] [TRACE] [RainCode.Core.AssemblyLoading]: 'C:\PROGRAM FILES\RAINCODE\CROSSBOW\NET8.0\BIN\RAINCODELEGACYBATCHDATASET.XMLSERIALIZERS.DLL' loaded by the framework
[2025-08-22 09:21:13.441] [5T21] [TRACE] [RainCode.Core.AssemblyLoading]: Adding assembly RainCodeLegacyBatchDataset.XmlSerializers, Version=5.0.220.0, Culture=neutral, PublicKeyToken=null to the cache
[2025-08-22 09:21:13.442] [5T21] [TRACE] [RainCode.Core.AssemblyLoading]: Assembly matching. Expected name: RainCodeLegacyBatchDataset.XmlSerializers, version 220. Received name RainCodeLegacyBatchDataset.XmlSerializers, version 220 with the result: True
[2025-08-22 09:21:13.463] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: AddInMetaCache XML [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\AIX.meta]
[2025-08-22 09:21:13.473] [5T21] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\ATC.meta] forceRead[False]
[2025-08-22 09:21:13.474] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: FindInCache [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\ATC.meta] not found
[2025-08-22 09:21:13.475] [5T21] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\ATC.meta]
[2025-08-22 09:21:13.479] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: AddInMetaCache XML [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\ATC.meta]
[2025-08-22 09:21:13.480] [5T21] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\BTNO.meta] forceRead[False]
[2025-08-22 09:21:13.481] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: FindInCache [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\BTNO.meta] not found
[2025-08-22 09:21:13.482] [5T21] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\BTNO.meta]
[2025-08-22 09:21:13.485] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: AddInMetaCache XML [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\BTNO.meta]
[2025-08-22 09:21:13.486] [5T21] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTA.meta] forceRead[False]
[2025-08-22 09:21:13.487] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: FindInCache [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTA.meta] not found
[2025-08-22 09:21:13.488] [5T21] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTA.meta]
[2025-08-22 09:21:13.489] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: AddInMetaCache XML [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTA.meta]
[2025-08-22 09:21:13.490] [5T21] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTB.meta] forceRead[False]
[2025-08-22 09:21:13.491] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: FindInCache [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTB.meta] not found
[2025-08-22 09:21:13.491] [5T21] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTB.meta]
[2025-08-22 09:21:13.492] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: AddInMetaCache XML [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTB.meta]
[2025-08-22 09:21:13.493] [5T21] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTC.meta] forceRead[False]
[2025-08-22 09:21:13.494] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: FindInCache [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTC.meta] not found
[2025-08-22 09:21:13.495] [5T21] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTC.meta]
[2025-08-22 09:21:13.496] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: AddInMetaCache XML [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTC.meta]
[2025-08-22 09:21:13.497] [5T21] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTD.meta] forceRead[False]
[2025-08-22 09:21:13.497] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: FindInCache [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTD.meta] not found
[2025-08-22 09:21:13.501] [5T21] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTD.meta]
[2025-08-22 09:21:13.502] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: AddInMetaCache XML [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTD.meta]
[2025-08-22 09:21:13.503] [5T21] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTE.meta] forceRead[False]
[2025-08-22 09:21:13.504] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: FindInCache [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTE.meta] not found
[2025-08-22 09:21:13.504] [5T21] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTE.meta]
[2025-08-22 09:21:13.505] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: AddInMetaCache XML [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTE.meta]
[2025-08-22 09:21:13.506] [5T21] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTF.meta] forceRead[False]
[2025-08-22 09:21:13.507] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: FindInCache [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTF.meta] not found
[2025-08-22 09:21:13.508] [5T21] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTF.meta]
[2025-08-22 09:21:13.509] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: AddInMetaCache XML [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTF.meta]
[2025-08-22 09:21:13.510] [5T21] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTG.meta] forceRead[False]
[2025-08-22 09:21:13.511] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: FindInCache [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTG.meta] not found
[2025-08-22 09:21:13.511] [5T21] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTG.meta]
[2025-08-22 09:21:13.512] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: AddInMetaCache XML [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTG.meta]
[2025-08-22 09:21:13.513] [5T21] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTH.meta] forceRead[False]
[2025-08-22 09:21:13.517] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: FindInCache [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTH.meta] not found
[2025-08-22 09:21:13.518] [5T21] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTH.meta]
[2025-08-22 09:21:13.519] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: AddInMetaCache XML [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTH.meta]
[2025-08-22 09:21:13.520] [5T21] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTI.meta] forceRead[False]
[2025-08-22 09:21:13.521] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: FindInCache [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTI.meta] not found
[2025-08-22 09:21:13.522] [5T21] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTI.meta]
[2025-08-22 09:21:13.523] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: AddInMetaCache XML [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTI.meta]
[2025-08-22 09:21:13.524] [5T21] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTJ.meta] forceRead[False]
[2025-08-22 09:21:13.524] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: FindInCache [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTJ.meta] not found
[2025-08-22 09:21:13.525] [5T21] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTJ.meta]
[2025-08-22 09:21:13.526] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: AddInMetaCache XML [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTJ.meta]
[2025-08-22 09:21:13.527] [5T21] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\OLA.meta] forceRead[False]
[2025-08-22 09:21:13.528] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: FindInCache [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\OLA.meta] not found
[2025-08-22 09:21:13.529] [5T21] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\OLA.meta]
[2025-08-22 09:21:13.533] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: AddInMetaCache XML [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\OLA.meta]
[2025-08-22 09:21:13.534] [5T21] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\REF.meta] forceRead[False]
[2025-08-22 09:21:13.535] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: FindInCache [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\REF.meta] not found
[2025-08-22 09:21:13.535] [5T21] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\REF.meta]
[2025-08-22 09:21:13.537] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: AddInMetaCache XML [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\REF.meta]
[2025-08-22 09:21:13.538] [5T21] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\WGH.meta] forceRead[False]
[2025-08-22 09:21:13.538] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: FindInCache [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\WGH.meta] not found
[2025-08-22 09:21:13.539] [5T21] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\WGH.meta]
[2025-08-22 09:21:13.540] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: AddInMetaCache XML [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\WGH.meta]
[2025-08-22 09:21:13.541] [5T21] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\WRK.meta] forceRead[False]
[2025-08-22 09:21:13.542] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: FindInCache [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\WRK.meta] not found
[2025-08-22 09:21:13.543] [5T21] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\WRK.meta]
[2025-08-22 09:21:13.544] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: AddInMetaCache XML [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\WRK.meta]
[2025-08-22 09:21:13.548] [5T21] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\WTC.meta] forceRead[False]
[2025-08-22 09:21:13.549] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: FindInCache [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\WTC.meta] not found
[2025-08-22 09:21:13.550] [5T21] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\WTC.meta]
[2025-08-22 09:21:13.551] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: AddInMetaCache XML [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\WTC.meta]
[2025-08-22 09:21:13.552] [5T21] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\ATH.meta] forceRead[False]
[2025-08-22 09:21:13.553] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: FindInCache [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\ATH.meta] not found
[2025-08-22 09:21:13.553] [5T21] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\ATH.meta]
[2025-08-22 09:21:13.555] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: AddInMetaCache XML [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\ATH.meta]
[2025-08-22 09:21:13.556] [5T21] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\NAIC.meta] forceRead[False]
[2025-08-22 09:21:13.556] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: FindInCache [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\NAIC.meta] not found
[2025-08-22 09:21:13.557] [5T21] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\NAIC.meta]
[2025-08-22 09:21:13.558] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: AddInMetaCache XML [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\NAIC.meta]
[2025-08-22 09:21:13.559] [5T21] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\SIC.meta] forceRead[False]
[2025-08-22 09:21:13.560] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: FindInCache [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\SIC.meta] not found
[2025-08-22 09:21:13.563] [5T21] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\SIC.meta]
[2025-08-22 09:21:13.565] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: AddInMetaCache XML [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\SIC.meta]
[2025-08-22 09:21:13.566] [5T21] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\WAGE\NAME.meta] forceRead[False]
[2025-08-22 09:21:13.566] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: FindInCache [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\WAGE\NAME.meta] not found
[2025-08-22 09:21:13.567] [5T21] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\WAGE\NAME.meta]
[2025-08-22 09:21:13.568] [5T21] [TRACE] [RainCodeLegacyBatchDataset.Xml.FileCacheHelper]: AddInMetaCache XML [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\WAGE\NAME.meta]
[2025-08-22 09:21:13.569] [5T21] [DEBUG] [RainCodeLegacyRuntime.IO]: File configuration loaded and registered
[2025-08-22 09:21:13.679] [5T21] [TRACE] [RainCode.QIX.ProcessingServer.Tools.Sql]: Building SqlServerRuntime with connection string Data Source=DOES-DUTAS-SQL1,1433;Integrated Security=True;Encrypt=False;Connection Timeout=30;initial catalog=DUTAS_QIXMS;MultipleActiveResultSets=True;
[2025-08-22 09:21:13.683] [5T21] [TRACE] [RainCodeLegacyRuntime.Sql]: Connection is not in an open state
[2025-08-22 09:21:13.697] [5T21] [INFO] [QIX]: Committing transaction LOGO
[2025-08-22 09:21:13.717] [5T21] [DEBUG] [QIX]: Exception occured when commiting transaction LOGO: System.NullReferenceException: Object reference not set to an instance of an object.
at RainCode.QIX.ProcessingServer.QIX.QIXTransactionInstance.Commit() in C:\Build\workspace\Crossbow_Win\raincode\dotnet\runtime\QIXMonitor\ProcessingServer\QIX\QIXTransactionInstance.cs:line 448
[2025-08-22 09:21:13.746] [5T21] [TRACE] [QIX]: Retrieved SharedMem Version -1
[2025-08-22 09:21:13.747] [5T21] [TRACE] [RainCodeLegacyRuntime.IO]: Configure IO
[2025-08-22 09:21:13.750] [5T21] [TRACE] [RainCodeLegacyRuntime.IO]: Creating file SYSPRINT for instance
[2025-08-22 09:21:13.751] [5T21] [TRACE] [RainCodeLegacyRuntime.IO]: get_handle logical_name=SYSPRINT is -1
[2025-08-22 09:21:13.752] [5T21] [TRACE] [RainCodeLegacyRuntime.IO]: SYSPRINT not defined, creating default SYSPRINT
[2025-08-22 09:21:13.753] [5T21] [TRACE] [RuntimeIOFileManager]: Configuring the file driver: [RainCodeLegacyFileDriver]RainCodeLegacyFileDriver.Driver.DotNetFHRecordBaseFile
[2025-08-22 09:21:13.757] [5T21] [TRACE] [FileConfig]: configuring file
[2025-08-22 09:21:13.759] [5T21] [TRACE] [FileConfig]: file_name=SYSPRINT path=SYSPRINT
[2025-08-22 09:21:13.760] [5T21] [TRACE] [FileConfig]: file_organization=Sequential
[2025-08-22 09:21:13.761] [5T21] [TRACE] [FileConfig]: recording_mode=Fixed
[2025-08-22 09:21:13.762] [5T21] [TRACE] [FileConfig]: access_mode=Sequential
[2025-08-22 09:21:13.762] [5T21] [TRACE] [FileConfig]: lock_mode=Manual
[2025-08-22 09:21:13.765] [5T21] [TRACE] [FileConfig]: file_line_end_CRLF=True
[2025-08-22 09:21:13.766] [5T21] [TRACE] [FileConfig]: Printer ControlCharacters=ASA
[2025-08-22 09:21:13.767] [5T21] [TRACE] [FileConfig]: DriverParameters =
[2025-08-22 09:21:13.769] [5T21] [TRACE] [RainCodeLegacyRuntime.IO]: Creating IORuntime RecordBasedFile associated with SYSPRINT file
[2025-08-22 09:21:13.771] [5T21] [TRACE] [RainCodeLegacyRuntime.IO]: SYSPRINT: set_open_mode Output
[2025-08-22 09:21:13.774] [5T21] [TRACE] [RainCodeLegacyRuntime.IO]: SYSPRINT id = 1
[2025-08-22 09:21:13.774] [5T21] [TRACE] [RainCodeLegacyRuntime.IO]: SYSPRINT: SYSPRINT will be treated as PRINT file by default
[2025-08-22 09:21:13.777] [5T21] [TRACE] [RainCodeLegacyRuntime.IO]: Creating file SYSIN for instance
[2025-08-22 09:21:13.778] [5T21] [TRACE] [RainCodeLegacyRuntime.IO]: get_handle logical_name=SYSIN is -2
[2025-08-22 09:21:13.779] [5T21] [TRACE] [RainCodeLegacyRuntime.IO]: SYSIN not defined, creating default
[2025-08-22 09:21:13.779] [5T21] [TRACE] [RuntimeIOFileManager]: Configuring the file driver: [RainCodeLegacyFileDriver]RainCodeLegacyFileDriver.Driver.DotNetFHRecordBaseFile
[2025-08-22 09:21:13.782] [5T21] [TRACE] [FileConfig]: configuring file
[2025-08-22 09:21:13.783] [5T21] [TRACE] [FileConfig]: file_name=SYSIN path=SYSIN
[2025-08-22 09:21:13.784] [5T21] [TRACE] [FileConfig]: file_organization=Sequential
[2025-08-22 09:21:13.784] [5T21] [TRACE] [FileConfig]: recording_mode=Fixed
[2025-08-22 09:21:13.785] [5T21] [TRACE] [FileConfig]: access_mode=Sequential
[2025-08-22 09:21:13.785] [5T21] [TRACE] [FileConfig]: lock_mode=Manual
[2025-08-22 09:21:13.786] [5T21] [TRACE] [FileConfig]: file_line_end_CRLF=True
[2025-08-22 09:21:13.787] [5T21] [TRACE] [FileConfig]: Printer ControlCharacters=ASA
[2025-08-22 09:21:13.787] [5T21] [TRACE] [FileConfig]: DriverParameters =
[2025-08-22 09:21:13.788] [5T21] [TRACE] [RainCodeLegacyRuntime.IO]: Creating IORuntime RecordBasedFile associated with SYSIN file
[2025-08-22 09:21:13.789] [5T21] [TRACE] [RainCodeLegacyRuntime.IO]: SYSIN: set_open_mode Input
[2025-08-22 09:21:13.790] [5T21] [TRACE] [RainCodeLegacyRuntime.IO]: SYSIN id = 2
[2025-08-22 09:21:13.791] [5T21] [TRACE] [RainCodeLegacyRuntime.IO]: Creating file SYSOUT for instance
[2025-08-22 09:21:13.792] [5T21] [TRACE] [RainCodeLegacyRuntime.IO]: get_handle logical_name=SYSOUT is -3
[2025-08-22 09:21:13.792] [5T21] [TRACE] [RainCodeLegacyRuntime.IO]: SYSOUT not defined, creating default SYSOUT
[2025-08-22 09:21:13.793] [5T21] [TRACE] [RuntimeIOFileManager]: Configuring the file driver: [RainCodeLegacyFileDriver]RainCodeLegacyFileDriver.Driver.DotNetFHRecordBaseFile
[2025-08-22 09:21:13.794] [5T21] [TRACE] [FileConfig]: configuring file
[2025-08-22 09:21:13.794] [5T21] [TRACE] [FileConfig]: file_name=SYSOUT path=SYSOUT
[2025-08-22 09:21:13.798] [5T21] [TRACE] [FileConfig]: file_organization=Sequential
[2025-08-22 09:21:13.798] [5T21] [TRACE] [FileConfig]: recording_mode=Fixed
[2025-08-22 09:21:13.799] [5T21] [TRACE] [FileConfig]: access_mode=Sequential
[2025-08-22 09:21:13.800] [5T21] [TRACE] [FileConfig]: lock_mode=Manual
[2025-08-22 09:21:13.800] [5T21] [TRACE] [FileConfig]: file_line_end_CRLF=True
[2025-08-22 09:21:13.801] [5T21] [TRACE] [FileConfig]: Printer ControlCharacters=ASA
[2025-08-22 09:21:13.802] [5T21] [TRACE] [FileConfig]: DriverParameters =
[2025-08-22 09:21:13.802] [5T21] [TRACE] [RainCodeLegacyRuntime.IO]: Creating IORuntime RecordBasedFile associated with SYSOUT file
[2025-08-22 09:21:13.803] [5T21] [TRACE] [RainCodeLegacyRuntime.IO]: SYSOUT: set_open_mode Output
[2025-08-22 09:21:13.804] [5T21] [TRACE] [RainCodeLegacyRuntime.IO]: SYSOUT id = 3
[2025-08-22 09:21:13.808] [5T21] [TRACE] [RainCodeQixRuntimeInterface.QixLogger]: Entering Link PROGRAM = RCSIGNON DATALENGTH = 0 INPUTMSG = IQixPointer: offset 0 size 0 SYSID = SYNCONRETURN NOT SET TRANSID = CHANNEL = APPLID = COMMAREA = IQixPointer: offset 0 size 0
[2025-08-22 09:21:13.810] [5T21] [INFO] [RainCodeLegacyRuntime]: Registering module QIXMODULE, from RainCodeLegacyRuntime.QIX.QixModule, RainCodeLegacyRuntime, Version=5.0.220.0, Culture=neutral, PublicKeyToken=null, static memory size 0
[2025-08-22 09:21:13.819] [5T21] [TRACE] [RainCode.Core.AssemblyLoading]: Assembly not found at path '.\RCSIGNON.dll' in the category 'RainCodePrograms'
[2025-08-22 09:21:13.820] [5T21] [TRACE] [RainCode.Core.AssemblyLoading]: Assembly not found at path 'C:\Program Files\Raincode\Crossbow\net8.0\bin\RCSIGNON.dll' in the category 'RainCodePrograms'
[2025-08-22 09:21:13.821] [5T21] [TRACE] [RainCode.Core.AssemblyLoading]: Assembly not found at path 'LoginApp\bin\Debug\net8.0\RCSIGNON.dll' in the category 'RainCodePrograms'
[2025-08-22 09:21:13.822] [5T21] [ERROR] [RainCodeLegacyRuntime]: Entry name not found: RCSIGNON
[2025-08-22 09:21:13.825] [5T21] [TRACE] [RainCodeLegacyRuntime.Allocation.TopLevelAllocator]: Checking envelopes when deleting RainCodeLegacyRuntime.Core.MemoryArea:6100/10
[2025-08-22 09:21:13.828] [5T21] [TRACE] [RainCodeLegacyRuntime.Allocation.TopLevelAllocator]: Checking memory signatures for envelope: RainCodeLegacyRuntime.Core.MemoryArea:6080/40
[2025-08-22 09:21:13.831] [5T21] [TRACE] [RainCodeQixRuntimeInterface.QixLogger]: Leaving Link RETCODE = COMMAREA = IQixPointer: offset 0 size 0
[2025-08-22 09:21:13.834] [5T21] [ERROR] [QIX]: Caught AbendException for transaction LOGO. Abend code: Transaction abended. RESP=PGMIDERR, RESP2=3.
RainCodeLegacyRuntime.Exceptions.QIX.AbendException: Transaction abended. RESP=PGMIDERR, RESP2=3.
at RainCode.QIX.ProcessingServer.QIX.QIXTransactionInstance.Execute() in C:\Build\workspace\Crossbow_Win\raincode\dotnet\runtime\QIXMonitor\ProcessingServer\QIX\QIXTransactionInstance.cs:line 313
[2025-08-22 09:21:13.836] [5T21] [TRACE] [RainCodeLegacyRuntime.Allocation.TopLevelAllocator]: Checking envelopes when deleting RainCodeLegacyRuntime.Core.MemoryArea:5396/12
[2025-08-22 09:21:13.837] [5T21] [TRACE] [RainCodeLegacyRuntime.Allocation.TopLevelAllocator]: Checking memory signatures for envelope: RainCodeLegacyRuntime.Core.MemoryArea:5376/40
[2025-08-22 09:21:13.838] [5T21] [ERROR] [QIX]: Failed transaction 'LOGO': ABEND (Transaction abended. RESP=PGMIDERR, RESP2=3.)
[2025-08-22 09:21:13.839] [5T21] [INFO] [QIX]: Rolling back transaction LOGO
[2025-08-22 09:21:13.849] [5T21] [INFO] [ServiceBrokerContractHandler]: Sending message FinishedQixTransaction on conversation 610f30df-5a7f-f011-88c1-0050569d2c8e
[2025-08-22 09:21:13.854] [5T21] [INFO] [QIX]: Finished executing LOGO after 630 ms
[2025-08-22 09:21:13.859] [5T21] [TRACE] [RainCodeLegacyRuntime.Allocation.TopLevelAllocator]: Checking envelopes when deleting RainCodeLegacyRuntime.Core.MemoryArea:4732/93
[2025-08-22 09:21:13.860] [5T21] [TRACE] [RainCodeLegacyRuntime.Allocation.TopLevelAllocator]: Checking memory signatures for envelope: RainCodeLegacyRuntime.Core.MemoryArea:4712/120
[2025-08-22 09:21:13.862] [5T21] [DEBUG] [RainCodeLegacyRuntime.IO]: Closing remaining files
[2025-08-22 09:21:13.864] [5T21] [TRACE] [RainCodeLegacyRuntime.Sql]: ExecuteNonQuery QIX_CLEANUP_SESSION
[2025-08-22 09:21:41.076] [5] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:22:11.090] [5] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:22:41.100] [5] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:23:11.108] [5] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:23:31.456] [7] [INFO] [ServiceBrokerContractHandler]: Receiving message from queue QIX_PS_DUTAS.
[2025-08-22 09:23:31.459] [7] [TRACE] [ProcessingServiceBrokerQueueListener::DUTAS]: Got Message ConversationId = 99a5e531-5b7f-f011-88c1-0050569d2c8e, ExecQix
[2025-08-22 09:23:31.460] [16] [INFO] [ServiceBrokerContractHandler]: Created ServiceBroker ContractHandler for service https://qixsql.raincode.com/DUTAS/ProcessingService/exec on queue QIX_PS_DUTAS_EXEC
[2025-08-22 09:23:31.461] [16] [INFO] [ServiceBrokerContractHandler]: Sending message HeloTs on conversation 610f30df-5a7f-f011-88c1-0050569d2c8e
[2025-08-22 09:23:31.473] [3OPS] [INFO] [QIX]: Executing transaction LOGO, program RCSIGNON
[2025-08-22 09:23:31.474] [3OPS] [TRACE] [RainCodeLegacyRuntime.IO]: Loading configuration from file
[2025-08-22 09:23:31.475] [3OPS] [INFO] [ConfigurationSerializer]: Deserializing file ConfigV2
[2025-08-22 09:23:31.477] [3OPS] [INFO] [ConfigurationSerializer]: Deserializing file ConfigV2 has succeeded.
[2025-08-22 09:23:31.478] [3OPS] [INFO] [ConfigurationSerializer]: Applying default values for fields not present in XML.
[2025-08-22 09:23:31.480] [3OPS] [WARNING] [RaincodeBatch]: Missing registry keys. Configuring with defaults.
[2025-08-22 09:23:31.481] [3OPS] [TRACE] [RaincodeBatch]: Execution directory C:\Program Files\Raincode\Crossbow\net8.0\bin
[2025-08-22 09:23:31.483] [3OPS] [TRACE] [RaincodeBatch]: Starting init provider
[2025-08-22 09:23:31.487] [3OPS] [TRACE] [RaincodeBatch]: Finished init provider from file C:\ProgramData\Raincode\Batch\RcDbConnections.csv
[2025-08-22 09:23:31.488] [3OPS] [TRACE] [RaincodeBatch]: Lock manager GUID = c0444478-b6de-4f58-b9be-92a19aab68e9
[2025-08-22 09:23:31.489] [3OPS] [TRACE] [RaincodeBatch]: Validating catalog configuration
[2025-08-22 09:23:31.490] [3OPS] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\AIX.meta] forceRead[False]
[2025-08-22 09:23:31.491] [3OPS] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\AIX.meta]
[2025-08-22 09:23:31.492] [3OPS] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\ATC.meta] forceRead[False]
[2025-08-22 09:23:31.493] [3OPS] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\ATC.meta]
[2025-08-22 09:23:31.494] [3OPS] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\BTNO.meta] forceRead[False]
[2025-08-22 09:23:31.494] [3OPS] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\BTNO.meta]
[2025-08-22 09:23:31.496] [3OPS] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTA.meta] forceRead[False]
[2025-08-22 09:23:31.496] [3OPS] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTA.meta]
[2025-08-22 09:23:31.497] [3OPS] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTB.meta] forceRead[False]
[2025-08-22 09:23:31.498] [3OPS] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTB.meta]
[2025-08-22 09:23:31.500] [3OPS] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTC.meta] forceRead[False]
[2025-08-22 09:23:31.504] [3OPS] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTC.meta]
[2025-08-22 09:23:31.505] [3OPS] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTD.meta] forceRead[False]
[2025-08-22 09:23:31.505] [3OPS] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTD.meta]
[2025-08-22 09:23:31.507] [3OPS] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTE.meta] forceRead[False]
[2025-08-22 09:23:31.507] [3OPS] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTE.meta]
[2025-08-22 09:23:31.508] [3OPS] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTF.meta] forceRead[False]
[2025-08-22 09:23:31.509] [3OPS] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTF.meta]
[2025-08-22 09:23:31.510] [3OPS] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTG.meta] forceRead[False]
[2025-08-22 09:23:31.511] [3OPS] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTG.meta]
[2025-08-22 09:23:31.512] [3OPS] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTH.meta] forceRead[False]
[2025-08-22 09:23:31.513] [3OPS] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTH.meta]
[2025-08-22 09:23:31.513] [3OPS] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTI.meta] forceRead[False]
[2025-08-22 09:23:31.514] [3OPS] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTI.meta]
[2025-08-22 09:23:31.518] [3OPS] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTJ.meta] forceRead[False]
[2025-08-22 09:23:31.519] [3OPS] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\MSTJ.meta]
[2025-08-22 09:23:31.520] [3OPS] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\OLA.meta] forceRead[False]
[2025-08-22 09:23:31.521] [3OPS] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\OLA.meta]
[2025-08-22 09:23:31.522] [3OPS] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\REF.meta] forceRead[False]
[2025-08-22 09:23:31.523] [3OPS] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\REF.meta]
[2025-08-22 09:23:31.524] [3OPS] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\WGH.meta] forceRead[False]
[2025-08-22 09:23:31.525] [3OPS] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\WGH.meta]
[2025-08-22 09:23:31.526] [3OPS] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\WRK.meta] forceRead[False]
[2025-08-22 09:23:31.527] [3OPS] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\WRK.meta]
[2025-08-22 09:23:31.528] [3OPS] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\WTC.meta] forceRead[False]
[2025-08-22 09:23:31.528] [3OPS] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\WTC.meta]
[2025-08-22 09:23:31.529] [3OPS] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\ATH.meta] forceRead[False]
[2025-08-22 09:23:31.530] [3OPS] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\ATH.meta]
[2025-08-22 09:23:31.535] [3OPS] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\NAIC.meta] forceRead[False]
[2025-08-22 09:23:31.536] [3OPS] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\NAIC.meta]
[2025-08-22 09:23:31.537] [3OPS] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\SIC.meta] forceRead[False]
[2025-08-22 09:23:31.537] [3OPS] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\SIC.meta]
[2025-08-22 09:23:31.538] [3OPS] [TRACE] [RaincodeBatch]: ReadDataSetMeta_File read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\WAGE\NAME.meta] forceRead[False]
[2025-08-22 09:23:31.539] [3OPS] [TRACE] [RaincodeBatch]: ReadMetaFile phy read [E:\DUTASJOBS\DefaultVolume\DOESTAX\PROD\VSAM\WAGE\NAME.meta]
[2025-08-22 09:23:31.540] [3OPS] [DEBUG] [RainCodeLegacyRuntime.IO]: File configuration loaded and registered
[2025-08-22 09:23:31.541] [3OPS] [TRACE] [RainCode.QIX.ProcessingServer.Tools.Sql]: Building SqlServerRuntime with connection string Data Source=DOES-DUTAS-SQL1,1433;Integrated Security=True;Encrypt=False;Connection Timeout=30;initial catalog=DUTAS_QIXMS;MultipleActiveResultSets=True;
[2025-08-22 09:23:31.542] [3OPS] [TRACE] [RainCodeLegacyRuntime.Sql]: Connection is not in an open state
[2025-08-22 09:23:31.543] [3OPS] [INFO] [QIX]: Committing transaction LOGO
[2025-08-22 09:23:31.545] [3OPS] [DEBUG] [QIX]: Exception occured when commiting transaction LOGO: System.NullReferenceException: Object reference not set to an instance of an object.
at RainCode.QIX.ProcessingServer.QIX.QIXTransactionInstance.Commit() in C:\Build\workspace\Crossbow_Win\raincode\dotnet\runtime\QIXMonitor\ProcessingServer\QIX\QIXTransactionInstance.cs:line 448
[2025-08-22 09:23:31.552] [3OPS] [TRACE] [QIX]: Retrieved SharedMem Version -1
[2025-08-22 09:23:31.552] [3OPS] [TRACE] [RainCodeLegacyRuntime.IO]: Configure IO
[2025-08-22 09:23:31.553] [3OPS] [TRACE] [RainCodeLegacyRuntime.IO]: Creating file SYSPRINT for instance
[2025-08-22 09:23:31.554] [3OPS] [TRACE] [RainCodeLegacyRuntime.IO]: get_handle logical_name=SYSPRINT is -1
[2025-08-22 09:23:31.555] [3OPS] [TRACE] [RainCodeLegacyRuntime.IO]: SYSPRINT not defined, creating default SYSPRINT
[2025-08-22 09:23:31.555] [3OPS] [TRACE] [RuntimeIOFileManager]: Configuring the file driver: [RainCodeLegacyFileDriver]RainCodeLegacyFileDriver.Driver.DotNetFHRecordBaseFile
[2025-08-22 09:23:31.556] [3OPS] [TRACE] [FileConfig]: configuring file
[2025-08-22 09:23:31.557] [3OPS] [TRACE] [FileConfig]: file_name=SYSPRINT path=SYSPRINT
[2025-08-22 09:23:31.558] [3OPS] [TRACE] [FileConfig]: file_organization=Sequential
[2025-08-22 09:23:31.558] [3OPS] [TRACE] [FileConfig]: recording_mode=Fixed
[2025-08-22 09:23:31.559] [3OPS] [TRACE] [FileConfig]: access_mode=Sequential
[2025-08-22 09:23:31.559] [3OPS] [TRACE] [FileConfig]: lock_mode=Manual
[2025-08-22 09:23:31.560] [3OPS] [TRACE] [FileConfig]: file_line_end_CRLF=True
[2025-08-22 09:23:31.561] [3OPS] [TRACE] [FileConfig]: Printer ControlCharacters=ASA
[2025-08-22 09:23:31.563] [3OPS] [TRACE] [FileConfig]: DriverParameters =
[2025-08-22 09:23:31.564] [3OPS] [TRACE] [RainCodeLegacyRuntime.IO]: Creating IORuntime RecordBasedFile associated with SYSPRINT file
[2025-08-22 09:23:31.565] [3OPS] [TRACE] [RainCodeLegacyRuntime.IO]: SYSPRINT: set_open_mode Output
[2025-08-22 09:23:31.566] [3OPS] [TRACE] [RainCodeLegacyRuntime.IO]: SYSPRINT id = 1
[2025-08-22 09:23:31.566] [3OPS] [TRACE] [RainCodeLegacyRuntime.IO]: SYSPRINT: SYSPRINT will be treated as PRINT file by default
[2025-08-22 09:23:31.566] [3OPS] [TRACE] [RainCodeLegacyRuntime.IO]: Creating file SYSIN for instance
[2025-08-22 09:23:31.567] [3OPS] [TRACE] [RainCodeLegacyRuntime.IO]: get_handle logical_name=SYSIN is -2
[2025-08-22 09:23:31.568] [3OPS] [TRACE] [RainCodeLegacyRuntime.IO]: SYSIN not defined, creating default
[2025-08-22 09:23:31.568] [3OPS] [TRACE] [RuntimeIOFileManager]: Configuring the file driver: [RainCodeLegacyFileDriver]RainCodeLegacyFileDriver.Driver.DotNetFHRecordBaseFile
[2025-08-22 09:23:31.569] [3OPS] [TRACE] [FileConfig]: configuring file
[2025-08-22 09:23:31.570] [3OPS] [TRACE] [FileConfig]: file_name=SYSIN path=SYSIN
[2025-08-22 09:23:31.570] [3OPS] [TRACE] [FileConfig]: file_organization=Sequential
[2025-08-22 09:23:31.571] [3OPS] [TRACE] [FileConfig]: recording_mode=Fixed
[2025-08-22 09:23:31.571] [3OPS] [TRACE] [FileConfig]: access_mode=Sequential
[2025-08-22 09:23:31.572] [3OPS] [TRACE] [FileConfig]: lock_mode=Manual
[2025-08-22 09:23:31.573] [3OPS] [TRACE] [FileConfig]: file_line_end_CRLF=True
[2025-08-22 09:23:31.573] [3OPS] [TRACE] [FileConfig]: Printer ControlCharacters=ASA
[2025-08-22 09:23:31.573] [3OPS] [TRACE] [FileConfig]: DriverParameters =
[2025-08-22 09:23:31.574] [3OPS] [TRACE] [RainCodeLegacyRuntime.IO]: Creating IORuntime RecordBasedFile associated with SYSIN file
[2025-08-22 09:23:31.575] [3OPS] [TRACE] [RainCodeLegacyRuntime.IO]: SYSIN: set_open_mode Input
[2025-08-22 09:23:31.576] [3OPS] [TRACE] [RainCodeLegacyRuntime.IO]: SYSIN id = 2
[2025-08-22 09:23:31.576] [3OPS] [TRACE] [RainCodeLegacyRuntime.IO]: Creating file SYSOUT for instance
[2025-08-22 09:23:31.580] [3OPS] [TRACE] [RainCodeLegacyRuntime.IO]: get_handle logical_name=SYSOUT is -3
[2025-08-22 09:23:31.581] [3OPS] [TRACE] [RainCodeLegacyRuntime.IO]: SYSOUT not defined, creating default SYSOUT
[2025-08-22 09:23:31.581] [3OPS] [TRACE] [RuntimeIOFileManager]: Configuring the file driver: [RainCodeLegacyFileDriver]RainCodeLegacyFileDriver.Driver.DotNetFHRecordBaseFile
[2025-08-22 09:23:31.582] [3OPS] [TRACE] [FileConfig]: configuring file
[2025-08-22 09:23:31.583] [3OPS] [TRACE] [FileConfig]: file_name=SYSOUT path=SYSOUT
[2025-08-22 09:23:31.583] [3OPS] [TRACE] [FileConfig]: file_organization=Sequential
[2025-08-22 09:23:31.584] [3OPS] [TRACE] [FileConfig]: recording_mode=Fixed
[2025-08-22 09:23:31.585] [3OPS] [TRACE] [FileConfig]: access_mode=Sequential
[2025-08-22 09:23:31.585] [3OPS] [TRACE] [FileConfig]: lock_mode=Manual
[2025-08-22 09:23:31.586] [3OPS] [TRACE] [FileConfig]: file_line_end_CRLF=True
[2025-08-22 09:23:31.586] [3OPS] [TRACE] [FileConfig]: Printer ControlCharacters=ASA
[2025-08-22 09:23:31.587] [3OPS] [TRACE] [FileConfig]: DriverParameters =
[2025-08-22 09:23:31.587] [3OPS] [TRACE] [RainCodeLegacyRuntime.IO]: Creating IORuntime RecordBasedFile associated with SYSOUT file
[2025-08-22 09:23:31.588] [3OPS] [TRACE] [RainCodeLegacyRuntime.IO]: SYSOUT: set_open_mode Output
[2025-08-22 09:23:31.588] [3OPS] [TRACE] [RainCodeLegacyRuntime.IO]: SYSOUT id = 3
[2025-08-22 09:23:31.589] [3OPS] [TRACE] [RainCodeQixRuntimeInterface.QixLogger]: Entering Link PROGRAM = RCSIGNON DATALENGTH = 0 INPUTMSG = IQixPointer: offset 0 size 0 SYSID = SYNCONRETURN NOT SET TRANSID = CHANNEL = APPLID = COMMAREA = IQixPointer: offset 0 size 0
[2025-08-22 09:23:31.591] [3OPS] [TRACE] [RainCode.Core.AssemblyLoading]: Assembly not found at path '.\RCSIGNON.dll' in the category 'RainCodePrograms'
[2025-08-22 09:23:31.591] [3OPS] [TRACE] [RainCode.Core.AssemblyLoading]: Assembly not found at path 'C:\Program Files\Raincode\Crossbow\net8.0\bin\RCSIGNON.dll' in the category 'RainCodePrograms'
[2025-08-22 09:23:31.592] [3OPS] [TRACE] [RainCode.Core.AssemblyLoading]: Assembly not found at path 'LoginApp\bin\Debug\net8.0\RCSIGNON.dll' in the category 'RainCodePrograms'
[2025-08-22 09:23:31.596] [3OPS] [ERROR] [RainCodeLegacyRuntime]: Entry name not found: RCSIGNON
[2025-08-22 09:23:31.596] [3OPS] [TRACE] [RainCodeLegacyRuntime.Allocation.TopLevelAllocator]: Checking envelopes when deleting RainCodeLegacyRuntime.Core.MemoryArea:6100/10
[2025-08-22 09:23:31.597] [3OPS] [TRACE] [RainCodeLegacyRuntime.Allocation.TopLevelAllocator]: Checking memory signatures for envelope: RainCodeLegacyRuntime.Core.MemoryArea:6080/40
[2025-08-22 09:23:31.598] [3OPS] [TRACE] [RainCodeQixRuntimeInterface.QixLogger]: Leaving Link RETCODE = COMMAREA = IQixPointer: offset 0 size 0
[2025-08-22 09:23:31.599] [3OPS] [ERROR] [QIX]: Caught AbendException for transaction LOGO. Abend code: Transaction abended. RESP=PGMIDERR, RESP2=3.
RainCodeLegacyRuntime.Exceptions.QIX.AbendException: Transaction abended. RESP=PGMIDERR, RESP2=3.
at RainCode.QIX.ProcessingServer.QIX.QIXTransactionInstance.Execute() in C:\Build\workspace\Crossbow_Win\raincode\dotnet\runtime\QIXMonitor\ProcessingServer\QIX\QIXTransactionInstance.cs:line 313
[2025-08-22 09:23:31.600] [3OPS] [TRACE] [RainCodeLegacyRuntime.Allocation.TopLevelAllocator]: Checking envelopes when deleting RainCodeLegacyRuntime.Core.MemoryArea:5396/12
[2025-08-22 09:23:31.601] [3OPS] [TRACE] [RainCodeLegacyRuntime.Allocation.TopLevelAllocator]: Checking memory signatures for envelope: RainCodeLegacyRuntime.Core.MemoryArea:5376/40
[2025-08-22 09:23:31.601] [3OPS] [ERROR] [QIX]: Failed transaction 'LOGO': ABEND (Transaction abended. RESP=PGMIDERR, RESP2=3.)
[2025-08-22 09:23:31.602] [3OPS] [INFO] [QIX]: Rolling back transaction LOGO
[2025-08-22 09:23:31.604] [3OPS] [INFO] [ServiceBrokerContractHandler]: Sending message FinishedQixTransaction on conversation 610f30df-5a7f-f011-88c1-0050569d2c8e
[2025-08-22 09:23:31.607] [3OPS] [INFO] [QIX]: Finished executing LOGO after 134 ms
[2025-08-22 09:23:31.614] [3OPS] [TRACE] [RainCodeLegacyRuntime.Allocation.TopLevelAllocator]: Checking envelopes when deleting RainCodeLegacyRuntime.Core.MemoryArea:4732/93
[2025-08-22 09:23:31.617] [3OPS] [TRACE] [RainCodeLegacyRuntime.Allocation.TopLevelAllocator]: Checking memory signatures for envelope: RainCodeLegacyRuntime.Core.MemoryArea:4712/120
[2025-08-22 09:23:31.618] [3OPS] [DEBUG] [RainCodeLegacyRuntime.IO]: Closing remaining files
[2025-08-22 09:23:31.618] [3OPS] [TRACE] [RainCodeLegacyRuntime.Sql]: ExecuteNonQuery QIX_CLEANUP_SESSION
[2025-08-22 09:23:41.121] [5] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:24:11.139] [5] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:24:41.153] [5] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:25:11.168] [5] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:25:41.178] [5] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:26:11.194] [5] [TRACE] [RainCode.QIX.Common.Config]: I'm alive

6
LoginApp/Logs/QIX Terminal Server_NA_DUTAS_22082025_091418.log Normal file
View File

@ -0,0 +1,6 @@
[2025-08-22 09:14:18.798] [1] [INFO] [RainCode.Core.Plugin]: Plugin Implementation: RainCode.QIX.Plugins.ADPlugin.QixAccountSecurityManager, ADPlugin, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null.TryBuild from ADPlugin, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null providing an implementation of plugin: TerminalServer.SecurityManagerPlugin
[2025-08-22 09:14:18.799] [1] [INFO] [QIX]: File C:\Program Files\Raincode\Crossbow\net8.0\plugins\QIX Terminal Server\ADPlugin.dll loaded as plugin
[2025-08-22 09:14:19.469] [1] [DEBUG] [RainCode.QIX.PredefinedTransactions]: Manifest resource name: RainCode.QIX.PredefinedTransactions.XmlMaps.resources
[2025-08-22 09:14:19.473] [1] [TRACE] [QIX]: TerminalServer started running with ServerId: b2d73def-b2fc-415c-b484-e336ab12b28d
[2025-08-22 09:14:19.476] [1] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:14:19.483] [.NET TP Worker] [INFO] [RainCode.QIX.TerminalServer.ConnectionListener]: Starting listening for incoming connections on [::]:992

147
LoginApp/Logs/QIX Terminal Server_NA_DUTAS_22082025_091430.log Normal file
View File

@ -0,0 +1,147 @@
[2025-08-22 09:14:30.242] [1] [INFO] [RainCode.Core.Plugin]: Plugin Implementation: RainCode.QIX.Plugins.ADPlugin.QixAccountSecurityManager, ADPlugin, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null.TryBuild from ADPlugin, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null providing an implementation of plugin: TerminalServer.SecurityManagerPlugin
[2025-08-22 09:14:30.244] [1] [INFO] [QIX]: File C:\Program Files\Raincode\Crossbow\net8.0\plugins\QIX Terminal Server\ADPlugin.dll loaded as plugin
[2025-08-22 09:14:30.558] [1] [DEBUG] [RainCode.QIX.PredefinedTransactions]: Manifest resource name: RainCode.QIX.PredefinedTransactions.XmlMaps.resources
[2025-08-22 09:14:30.562] [1] [TRACE] [QIX]: TerminalServer started running with ServerId: 2331eccd-60be-469e-af79-74b19c767cf3
[2025-08-22 09:14:30.564] [1] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:14:30.570] [.NET TP Worker] [INFO] [RainCode.QIX.TerminalServer.ConnectionListener]: Starting listening for incoming connections on [::]:992
[2025-08-22 09:15:00.577] [1] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:15:30.584] [1] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:16:00.605] [1] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:16:30.620] [1] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:17:00.636] [1] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:17:30.649] [1] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:18:00.664] [1] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:18:30.682] [1] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:18:53.053] [.NET TP Worker] [INFO] [RainCode.QIX.TerminalServer.ConnectionListener]: New incoming connection from [::ffff:10.57.110.221]:61482
[2025-08-22 09:18:53.060] [.NET TP Worker] [TRACE] [BaseTN3270Session]: constructor
[2025-08-22 09:18:53.067] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: BeginReceive [::ffff:10.57.110.120]:992 - [::ffff:10.57.110.221]:61482
[2025-08-22 09:18:53.068] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Receive (0) data from [::ffff:10.57.110.221]:61482
[2025-08-22 09:18:53.069] [.NET TP Worker] [INFO] [QIX]: Closing session QIX TN3270 server session @ ::ffff:10.57.110.221:61482
[2025-08-22 09:18:53.071] [.NET TP Worker] [TRACE] [QIX TN3270 server session @ ::ffff:10.57.110.221:61482]: Closing connection to client located at ::ffff:10.57.110.221:61482
[2025-08-22 09:18:53.072] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Closing connection to ::ffff:10.57.110.221:61482
[2025-08-22 09:18:53.074] [.NET TP Worker] [INFO] [QIX]: Session QIX TN3270 server session @ ::ffff:10.57.110.221:61482 was closed
[2025-08-22 09:18:53.079] [.NET TP Worker] [ERROR] [RainCode.Tn3270]: Tried to send data on closed socket
[2025-08-22 09:18:53.080] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Sending to ::ffff:10.57.110.221:61482 FFFD28 of length 3
[2025-08-22 09:18:53.099] [.NET TP Worker] [ERROR] [RainCode.Tn3270]: System.ObjectDisposedException: Cannot access a disposed object.
Object name: 'System.Net.Sockets.NetworkStream'.
at System.Net.Sockets.NetworkStream.Write(Byte[] buffer, Int32 offset, Int32 count)
at RainCode.Tn3270.TelnetEndpoint.Send(Byte[] msg) in C:\Build\workspace\Crossbow_Win\raincode\dotnet\runtime\QIXMonitor\Tn3270Lib\TelnetEndpoint.cs:line 248
[2025-08-22 09:18:53.101] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Closing connection to ::ffff:10.57.110.221:61482
[2025-08-22 09:19:00.700] [1] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:19:30.716] [1] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:20:00.730] [1] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:20:30.736] [1] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:21:00.753] [1] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:21:12.313] [.NET TP Worker] [INFO] [RainCode.QIX.TerminalServer.ConnectionListener]: New incoming connection from [::ffff:10.57.110.221]:61538
[2025-08-22 09:21:12.317] [.NET TP Worker] [TRACE] [BaseTN3270Session]: constructor
[2025-08-22 09:21:12.318] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: BeginReceive [::ffff:10.57.110.120]:992 - [::ffff:10.57.110.221]:61538
[2025-08-22 09:21:12.319] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Sending to ::ffff:10.57.110.221:61538 FFFD28 of length 3
[2025-08-22 09:21:12.321] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Receive (3) data from [::ffff:10.57.110.221]:61538
[2025-08-22 09:21:12.324] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Terminal WILL 40
[2025-08-22 09:21:12.326] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Sending to ::ffff:10.57.110.221:61538 FFFA280802FFF0 of length 7
[2025-08-22 09:21:12.327] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: BeginReceive [::ffff:10.57.110.120]:992 - [::ffff:10.57.110.221]:61538
[2025-08-22 09:21:12.330] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Receive (19) data from [::ffff:10.57.110.221]:61538
[2025-08-22 09:21:12.331] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: SB 40
[2025-08-22 09:21:12.332] [.NET TP Worker] [TRACE] [RainCode.Tn3270.Subnegotiation.TN3270E]: Found acceptable terminal type IBM-3278-4-E.
Terminal is IBM-3278-4-E, Default size: 24x80; Alternate size:43x80.
[2025-08-22 09:21:12.333] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Sending to ::ffff:10.57.110.221:61538 FFFA28020449424D2D333237382D342D450135543231FFF0 of length 24
[2025-08-22 09:21:12.334] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: BeginReceive [::ffff:10.57.110.120]:992 - [::ffff:10.57.110.221]:61538
[2025-08-22 09:21:12.335] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Receive (11) data from [::ffff:10.57.110.221]:61538
[2025-08-22 09:21:12.336] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: SB 40
[2025-08-22 09:21:12.337] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Sending to ::ffff:10.57.110.221:61538 FFFA280304FFF0 of length 7
[2025-08-22 09:21:12.338] [.NET TP Worker] [TRACE] [QIX TN3270 server session @ ::ffff:10.57.110.221:61538]: New TN3270 session negotiated and opened
[2025-08-22 09:21:12.341] [.NET TP Worker] [INFO] [AccountManagement]: Plugin Started
[2025-08-22 09:21:12.342] [.NET TP Worker] [TRACE] [AccountManagement]: Plugin Started faizan testing.
[2025-08-22 09:21:12.348] [.NET TP Worker] [INFO] [AccountManagement]: cfg is log soruce: ContextType=Domain;ContextName=does.dcgov.priv;ContextUser=faizan.ameen;ContextPassword=Pass#1!%6(;DefaultUser=faizan.ameen;IdentityType=SamAccountName;IdentityFormat={0};UserLogin=SamAccountName;UserOptions=SimpleBind;ExtensionAttributeNumber=1;ADGroups=DOES-DUTAS-DEV;SuperUsers=faizan.ameen1,dutas.superuser;DomainControllers=DOES-DC-001.does.dcgov.priv,DOES-DC-002.does.dcgov.priv,DOES-DC-003.does.dcgov.priv
[2025-08-22 09:21:12.365] [.NET TP Worker] [TRACE] [RainCode.Core.AssemblyLoading]: Assembly not found at path '.\System.DirectoryServices.Protocols.dll' in the category '<null>'
[2025-08-22 09:21:12.366] [.NET TP Worker] [TRACE] [RainCode.Core.AssemblyLoading]: Assembly found case sensitive at path 'C:\Program Files\Raincode\Crossbow\net8.0\bin\System.DirectoryServices.Protocols.dll' in the category '<null>'
[2025-08-22 09:21:12.367] [.NET TP Worker] [TRACE] [RainCode.Core.AssemblyLoading]: Search 'System.DirectoryServices.Protocols' at 'C:\PROGRAM FILES\RAINCODE\CROSSBOW\NET8.0\BIN\SYSTEM.DIRECTORYSERVICES.PROTOCOLS.DLL'
[2025-08-22 09:21:12.377] [.NET TP Worker] [TRACE] [RainCode.Core.AssemblyLoading]: 'C:\PROGRAM FILES\RAINCODE\CROSSBOW\NET8.0\BIN\SYSTEM.DIRECTORYSERVICES.PROTOCOLS.DLL' loaded by the framework
[2025-08-22 09:21:12.378] [.NET TP Worker] [TRACE] [RainCode.Core.AssemblyLoading]: Adding assembly System.DirectoryServices.Protocols, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a to the cache
[2025-08-22 09:21:12.379] [.NET TP Worker] [TRACE] [RainCode.Core.AssemblyLoading]: Assembly matching. Expected name: System.DirectoryServices.Protocols, version 0. Received name System.DirectoryServices.Protocols, version 0 with the result: True
[2025-08-22 09:21:12.649] [.NET TP Worker] [TRACE] [QIX TN3270 server session @ ::ffff:10.57.110.221:61538]: Unlocking keyboard
[2025-08-22 09:21:12.651] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Sending to ::ffff:10.57.110.221:61538 0000000001F1C2FFEF of length 9
[2025-08-22 09:21:12.653] [.NET TP Worker] [TRACE] [BaseTN3270Session]: StartTransaction logo
[2025-08-22 09:21:12.654] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: BeginReceive [::ffff:10.57.110.120]:992 - [::ffff:10.57.110.221]:61538
[2025-08-22 09:21:12.667] [27] [INFO] [ServiceBrokerContractHandler]: Created ServiceBroker ContractHandler for service https://qixsql.raincode.com/DUTAS/TerminalService on queue QIX_TS_DUTAS
[2025-08-22 09:21:12.677] [27] [INFO] [ServiceBrokerContractHandler]: Started conversation with ID 5d0f30df-5a7f-f011-88c1-0050569d2c8e from https://qixsql.raincode.com/DUTAS/TerminalService to https://qixsql.raincode.com/DUTAS/ProcessingService
[2025-08-22 09:21:12.769] [27] [INFO] [ServiceBrokerContractHandler]: Sending message ExecQix on conversation 5d0f30df-5a7f-f011-88c1-0050569d2c8e
[2025-08-22 09:21:13.222] [27] [INFO] [ServiceBrokerContractHandler]: Receiving message on conversation 5d0f30df-5a7f-f011-88c1-0050569d2c8e
[2025-08-22 09:21:13.255] [27] [INFO] [ServiceBrokerContractHandler]: Created ServiceBroker ContractHandler for service https://qixsql.raincode.com/DUTAS/TerminalService/exec on queue QIX_TS_DUTAS_EXEC
[2025-08-22 09:21:13.260] [27] [INFO] [ServiceBrokerContractHandler]: Receiving message on conversation 640f30df-5a7f-f011-88c1-0050569d2c8e
[2025-08-22 09:21:13.856] [27] [INFO] [ServiceBrokerContractHandler]: Receiving message on conversation 640f30df-5a7f-f011-88c1-0050569d2c8e
[2025-08-22 09:21:13.874] [27] [TRACE] [BaseTN3270Session]: endTran
[2025-08-22 09:21:13.875] [5T21] [TRACE] [QixProcessingServerCallback]: Return
[2025-08-22 09:21:13.878] [5T21] [TRACE] [RainCode.Tn3270]: Sending to ::ffff:10.57.110.221:61538 0000000002F1C21DF0E3998195A28183A38996954085A789A3858440A689A38840859999969940C1C2C5D5C4404DE3998195A28183A389969540818285958485844B40D9C5E2D77ED7C7D4C9C4C5D9D96B40D9C5E2D7F27EF34B5DFFEF of length 93
[2025-08-22 09:21:18.020] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Receive (10) data from [::ffff:10.57.110.221]:61538
[2025-08-22 09:21:18.028] [.NET TP Worker] [TRACE] [RainCode.Tn3270.Subnegotiation.TN3270E]: Data type is 3270
[2025-08-22 09:21:18.030] [.NET TP Worker] [TRACE] [QIX TN3270 server session @ ::ffff:10.57.110.221:61538]: Unlocking keyboard
[2025-08-22 09:21:18.031] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Sending to ::ffff:10.57.110.221:61538 0000000003F1C2FFEF of length 9
[2025-08-22 09:21:18.032] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: BeginReceive [::ffff:10.57.110.120]:992 - [::ffff:10.57.110.221]:61538
[2025-08-22 09:21:29.844] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Receive (10) data from [::ffff:10.57.110.221]:61538
[2025-08-22 09:21:29.847] [.NET TP Worker] [TRACE] [RainCode.Tn3270.Subnegotiation.TN3270E]: Data type is 3270
[2025-08-22 09:21:29.848] [.NET TP Worker] [TRACE] [QIX TN3270 server session @ ::ffff:10.57.110.221:61538]: Unlocking keyboard
[2025-08-22 09:21:29.849] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Sending to ::ffff:10.57.110.221:61538 0000000004F1C2FFEF of length 9
[2025-08-22 09:21:29.850] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: BeginReceive [::ffff:10.57.110.120]:992 - [::ffff:10.57.110.221]:61538
[2025-08-22 09:21:30.203] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Receive (10) data from [::ffff:10.57.110.221]:61538
[2025-08-22 09:21:30.205] [.NET TP Worker] [TRACE] [RainCode.Tn3270.Subnegotiation.TN3270E]: Data type is 3270
[2025-08-22 09:21:30.206] [.NET TP Worker] [TRACE] [QIX TN3270 server session @ ::ffff:10.57.110.221:61538]: Unlocking keyboard
[2025-08-22 09:21:30.207] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Sending to ::ffff:10.57.110.221:61538 0000000005F1C2FFEF of length 9
[2025-08-22 09:21:30.208] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: BeginReceive [::ffff:10.57.110.120]:992 - [::ffff:10.57.110.221]:61538
[2025-08-22 09:21:30.764] [1] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:21:41.249] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Receive (10) data from [::ffff:10.57.110.221]:61538
[2025-08-22 09:21:41.252] [.NET TP Worker] [TRACE] [RainCode.Tn3270.Subnegotiation.TN3270E]: Data type is 3270
[2025-08-22 09:21:41.253] [.NET TP Worker] [TRACE] [QIX TN3270 server session @ ::ffff:10.57.110.221:61538]: Unlocking keyboard
[2025-08-22 09:21:41.254] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Sending to ::ffff:10.57.110.221:61538 0000000006F1C2FFEF of length 9
[2025-08-22 09:21:41.254] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: BeginReceive [::ffff:10.57.110.120]:992 - [::ffff:10.57.110.221]:61538
[2025-08-22 09:21:41.453] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Receive (10) data from [::ffff:10.57.110.221]:61538
[2025-08-22 09:21:41.456] [.NET TP Worker] [TRACE] [RainCode.Tn3270.Subnegotiation.TN3270E]: Data type is 3270
[2025-08-22 09:21:41.457] [.NET TP Worker] [TRACE] [QIX TN3270 server session @ ::ffff:10.57.110.221:61538]: Unlocking keyboard
[2025-08-22 09:21:41.457] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Sending to ::ffff:10.57.110.221:61538 0000000007F1C2FFEF of length 9
[2025-08-22 09:21:41.458] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: BeginReceive [::ffff:10.57.110.120]:992 - [::ffff:10.57.110.221]:61538
[2025-08-22 09:21:45.718] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Receive (0) data from [::ffff:10.57.110.221]:61538
[2025-08-22 09:21:45.721] [.NET TP Worker] [INFO] [QIX]: Closing session QIX TN3270 server session @ ::ffff:10.57.110.221:61538
[2025-08-22 09:21:45.722] [.NET TP Worker] [TRACE] [QIX TN3270 server session @ ::ffff:10.57.110.221:61538]: Closing connection to client located at ::ffff:10.57.110.221:61538
[2025-08-22 09:21:45.723] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Closing connection to ::ffff:10.57.110.221:61538
[2025-08-22 09:21:45.724] [.NET TP Worker] [INFO] [QIX]: Session QIX TN3270 server session @ ::ffff:10.57.110.221:61538 was closed
[2025-08-22 09:22:00.774] [1] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:22:30.795] [1] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:23:00.811] [1] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:23:30.825] [1] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:23:31.416] [.NET TP Worker] [INFO] [RainCode.QIX.TerminalServer.ConnectionListener]: New incoming connection from [::ffff:127.0.0.1]:64110
[2025-08-22 09:23:31.419] [.NET TP Worker] [TRACE] [BaseTN3270Session]: constructor
[2025-08-22 09:23:31.419] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: BeginReceive [::ffff:127.0.0.1]:992 - [::ffff:127.0.0.1]:64110
[2025-08-22 09:23:31.420] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Sending to ::ffff:127.0.0.1:64110 FFFD28 of length 3
[2025-08-22 09:23:31.426] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Receive (3) data from [::ffff:127.0.0.1]:64110
[2025-08-22 09:23:31.427] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Terminal WILL 40
[2025-08-22 09:23:31.428] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Sending to ::ffff:127.0.0.1:64110 FFFA280802FFF0 of length 7
[2025-08-22 09:23:31.428] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: BeginReceive [::ffff:127.0.0.1]:992 - [::ffff:127.0.0.1]:64110
[2025-08-22 09:23:31.429] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Receive (19) data from [::ffff:127.0.0.1]:64110
[2025-08-22 09:23:31.430] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: SB 40
[2025-08-22 09:23:31.431] [.NET TP Worker] [TRACE] [RainCode.Tn3270.Subnegotiation.TN3270E]: Found acceptable terminal type IBM-3278-4-E.
Terminal is IBM-3278-4-E, Default size: 24x80; Alternate size:43x80.
[2025-08-22 09:23:31.431] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Sending to ::ffff:127.0.0.1:64110 FFFA28020449424D2D333237382D342D4501334F5053FFF0 of length 24
[2025-08-22 09:23:31.432] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: BeginReceive [::ffff:127.0.0.1]:992 - [::ffff:127.0.0.1]:64110
[2025-08-22 09:23:31.433] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Receive (11) data from [::ffff:127.0.0.1]:64110
[2025-08-22 09:23:31.434] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: SB 40
[2025-08-22 09:23:31.434] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Sending to ::ffff:127.0.0.1:64110 FFFA280304FFF0 of length 7
[2025-08-22 09:23:31.435] [.NET TP Worker] [TRACE] [QIX TN3270 server session @ ::ffff:127.0.0.1:64110]: New TN3270 session negotiated and opened
[2025-08-22 09:23:31.436] [.NET TP Worker] [TRACE] [QIX TN3270 server session @ ::ffff:127.0.0.1:64110]: Unlocking keyboard
[2025-08-22 09:23:31.440] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: Sending to ::ffff:127.0.0.1:64110 0000000001F1C2FFEF of length 9
[2025-08-22 09:23:31.441] [.NET TP Worker] [TRACE] [BaseTN3270Session]: StartTransaction logo
[2025-08-22 09:23:31.442] [.NET TP Worker] [TRACE] [RainCode.Tn3270]: BeginReceive [::ffff:127.0.0.1]:992 - [::ffff:127.0.0.1]:64110
[2025-08-22 09:23:31.442] [35] [INFO] [ServiceBrokerContractHandler]: Created ServiceBroker ContractHandler for service https://qixsql.raincode.com/DUTAS/TerminalService on queue QIX_TS_DUTAS
[2025-08-22 09:23:31.447] [35] [INFO] [ServiceBrokerContractHandler]: Started conversation with ID 96a5e531-5b7f-f011-88c1-0050569d2c8e from https://qixsql.raincode.com/DUTAS/TerminalService to https://qixsql.raincode.com/DUTAS/ProcessingService
[2025-08-22 09:23:31.448] [35] [INFO] [ServiceBrokerContractHandler]: Sending message ExecQix on conversation 96a5e531-5b7f-f011-88c1-0050569d2c8e
[2025-08-22 09:23:31.472] [35] [INFO] [ServiceBrokerContractHandler]: Receiving message on conversation 96a5e531-5b7f-f011-88c1-0050569d2c8e
[2025-08-22 09:23:31.478] [35] [INFO] [ServiceBrokerContractHandler]: Created ServiceBroker ContractHandler for service https://qixsql.raincode.com/DUTAS/TerminalService/exec on queue QIX_TS_DUTAS_EXEC
[2025-08-22 09:23:31.483] [35] [INFO] [ServiceBrokerContractHandler]: Receiving message on conversation 640f30df-5a7f-f011-88c1-0050569d2c8e
[2025-08-22 09:23:31.610] [35] [INFO] [ServiceBrokerContractHandler]: Receiving message on conversation 640f30df-5a7f-f011-88c1-0050569d2c8e
[2025-08-22 09:23:31.612] [35] [TRACE] [BaseTN3270Session]: endTran
[2025-08-22 09:23:31.613] [3OPS] [TRACE] [QixProcessingServerCallback]: Return
[2025-08-22 09:23:31.614] [3OPS] [TRACE] [RainCode.Tn3270]: Sending to ::ffff:127.0.0.1:64110 0000000002F1C21DF0E3998195A28183A38996954085A789A3858440A689A38840859999969940C1C2C5D5C4404DE3998195A28183A389969540818285958485844B40D9C5E2D77ED7C7D4C9C4C5D9D96B40D9C5E2D7F27EF34B5DFFEF of length 93
[2025-08-22 09:24:00.837] [1] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:24:30.859] [1] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:25:00.874] [1] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:25:30.890] [1] [TRACE] [RainCode.QIX.Common.Config]: I'm alive
[2025-08-22 09:26:00.906] [1] [TRACE] [RainCode.QIX.Common.Config]: I'm alive

643
Maps/DTSM13.bms
View File

@ -1,321 +1,322 @@
* DATA SET DTSM13 AT LEVEL 014 AS OF 09/29/04
* DATA SET DTSM13 AT LEVEL 002 AS OF 07/21/04 00001
* DATA SET DTSM13 AT LEVEL 012 AS OF 07/18/00 00002
* DATA SET DTSM13 AT LEVEL 002 AS OF 06/05/00 00003
* DATA SET DTSM13 AT LEVEL 010 AS OF 09/07/99 00004
* DATA SET MACM13 AT LEVEL 010 AS OF 10/30/95 00005
***** 00006
* 00007
* 13 TAX ADDRESS INQUIRY/UPDATE. 00008
* 00009
***** 00010
SPACE 00011
DTSM13 DFHMDI SIZE=(24,80),LINE=1,COLUMN=1 00012
SPACE 00013
F130101 DFHMDF POS=(01,01),LENGTH=02,ATTRB=(FSET,ASKIP), *00014
INITIAL='13' 00015
SPACE 00016
DFHMDF POS=(01,23),LENGTH=26,ATTRB=(ASKIP), *00017
INITIAL='TAX ADDRESS INQUIRY/UPDATE' 00018
SPACE 00019
F130162 DFHMDF POS=(01,62),LENGTH=08,ATTRB=ASKIP 00020
SPACE 00021
F130172 DFHMDF POS=(01,72),LENGTH=08,ATTRB=ASKIP 00022
SPACE 00023
F130272 DFHMDF POS=(02,72),LENGTH=08,ATTRB=ASKIP 00024
SPACE 00025
DFHMDF POS=(03,08),LENGTH=07,ATTRB=ASKIP, *00026
INITIAL='EMP NO:' 00027
SPACE 00028
F130316 DFHMDF POS=(03,16),LENGTH=03,ATTRB=ASKIP 00029
SPACE 00030
F130320 DFHMDF POS=(03,20),LENGTH=03,ATTRB=ASKIP 00031
SPACE 00032
DFHMDF POS=(03,24),LENGTH=01,ATTRB=ASKIP 00033
SPACE 00034
DFHMDF POS=(04,01),LENGTH=14,ATTRB=ASKIP, *00035
INITIAL=' PRIMARY NAME:' 00036
SPACE 00037
F130416 DFHMDF POS=(04,16),LENGTH=40,ATTRB=ASKIP 00038
SPACE 00039
DFHMDF POS=(04,57),LENGTH=01,ATTRB=ASKIP 00040
SPACE 00041
DFHMDF POS=(04,60),LENGTH=12,ATTRB=ASKIP, *00042
INITIAL='ENTITY NAME?' 00043
SPACE 00044
F130465 DFHMDF POS=(04,73),LENGTH=01,ATTRB=ASKIP 00045
SPACE 00046
DFHMDF POS=(04,75),LENGTH=01,ATTRB=ASKIP 00047
SPACE 00048
DFHMDF POS=(05,01),LENGTH=14,ATTRB=ASKIP, *00049
INITIAL=' ENTITY NAME:' 00050
SPACE 00051
F130516 DFHMDF POS=(05,16),LENGTH=40,ATTRB=ASKIP 00052
SPACE 00053
DFHMDF POS=(05,57),LENGTH=01,ATTRB=ASKIP 00054
SPACE 00055
F130609 DFHMDF POS=(06,09),LENGTH=07,ATTRB=(ASKIP) 00056
SPACE 00057
F130617 DFHMDF POS=(06,17),LENGTH=01,ATTRB=(ASKIP) 00058
SPACE 00059
DFHMDF POS=(06,19),LENGTH=01,ATTRB=(ASKIP) 00060
SPACE 00061
DFHMDF POS=(07,09),LENGTH=15,ATTRB=ASKIP, *00062
INITIAL='MAILING ADDRESS' 00063
SPACE 00064
DFHMDF POS=(07,56),LENGTH=13,ATTRB=ASKIP, *00065
INITIAL='FISCAL AGENT:' 00066
SPACE 00067
F130770 DFHMDF POS=(07,70),LENGTH=03,ATTRB=ASKIP 00068
SPACE 00069
DFHMDF POS=(07,74),LENGTH=01,ATTRB=ASKIP 00070
SPACE 00071
DFHMDF POS=(08,01),LENGTH=05,ATTRB=ASKIP, *00072
INITIAL='ATTN:' 00073
SPACE 00074
F130807 DFHMDF POS=(08,07),LENGTH=40,ATTRB=ASKIP 00075
SPACE 00076
DFHMDF POS=(08,48),LENGTH=01,ATTRB=ASKIP 00077
SPACE 00078
DFHMDF POS=(08,56),LENGTH=05,ATTRB=ASKIP, *00079
INITIAL='CASS?' 00080
SPACE 00081
F130862 DFHMDF POS=(08,62),LENGTH=01,ATTRB=ASKIP 00082
SPACE 00083
DFHMDF POS=(08,64),LENGTH=01,ATTRB=ASKIP 00084
SPACE 00085
DFHMDF POS=(09,01),LENGTH=05,ATTRB=ASKIP, *00086
INITIAL='DLV1:' 00087
SPACE 00088
F130907 DFHMDF POS=(09,07),LENGTH=40,ATTRB=ASKIP 00089
SPACE 00090
DFHMDF POS=(09,48),LENGTH=01,ATTRB=ASKIP 00091
SPACE 00092
DFHMDF POS=(09,56),LENGTH=07,ATTRB=ASKIP, *00093
INITIAL='CASS CD' 00094
SPACE 00095
DFHMDF POS=(10,01),LENGTH=05,ATTRB=ASKIP, *00096
INITIAL='DLV2:' 00097
SPACE 00098
F131007 DFHMDF POS=(10,07),LENGTH=40,ATTRB=ASKIP 00099
SPACE 00100
DFHMDF POS=(10,48),LENGTH=01,ATTRB=ASKIP 00101
SPACE 00102
F131054 DFHMDF POS=(10,54),LENGTH=25,ATTRB=ASKIP 00103
SPACE 00104
DFHMDF POS=(11,01),LENGTH=05,ATTRB=ASKIP, *00105
INITIAL='CITY:' 00106
SPACE 00107
F131107 DFHMDF POS=(11,07),LENGTH=25,ATTRB=ASKIP 00108
SPACE 00109
DFHMDF POS=(11,33),LENGTH=01,ATTRB=ASKIP, *00110
INITIAL=':' 00111
SPACE 00112
F131135 DFHMDF POS=(11,35),LENGTH=02,ATTRB=ASKIP 00113
SPACE 00114
DFHMDF POS=(11,38),LENGTH=01,ATTRB=ASKIP, *00115
INITIAL=':' 00116
SPACE 00117
F131140 DFHMDF POS=(11,40),LENGTH=10,ATTRB=ASKIP 00118
SPACE 00119
DFHMDF POS=(11,51),LENGTH=01,ATTRB=ASKIP 00120
SPACE 00121
DFHMDF POS=(12,01),LENGTH=05,ATTRB=ASKIP, *00122
INITIAL='TEL1:' 00123
SPACE 00124
F131207 DFHMDF POS=(12,07),LENGTH=03,ATTRB=ASKIP 00125
SPACE 00126
F131211 DFHMDF POS=(12,11),LENGTH=03,ATTRB=ASKIP 00127
SPACE 00128
F131215 DFHMDF POS=(12,15),LENGTH=04,ATTRB=ASKIP 00129
SPACE 00130
F131320 DFHMDF POS=(12,20),LENGTH=05,ATTRB=ASKIP 00131
SPACE 00132
DFHMDF POS=(12,26),LENGTH=01,ATTRB=ASKIP 00133
SPACE 00134
DFHMDF POS=(12,29),LENGTH=05,ATTRB=ASKIP, *00135
INITIAL='TEL2:' 00136
SPACE 00137
F131235 DFHMDF POS=(12,35),LENGTH=03,ATTRB=ASKIP 00138
SPACE 00139
F131239 DFHMDF POS=(12,39),LENGTH=03,ATTRB=ASKIP 00140
SPACE 00141
F131243 DFHMDF POS=(12,43),LENGTH=04,ATTRB=ASKIP 00142
SPACE 00143
F131248 DFHMDF POS=(12,48),LENGTH=05,ATTRB=ASKIP 00144
SPACE 00145
DFHMDF POS=(12,54),LENGTH=01,ATTRB=ASKIP 00146
SPACE 00147
DFHMDF POS=(12,57),LENGTH=04,ATTRB=ASKIP, *00148
INITIAL='FAX:' 00149
SPACE 00150
F131262 DFHMDF POS=(12,62),LENGTH=03,ATTRB=ASKIP 00151
SPACE 00152
F131266 DFHMDF POS=(12,66),LENGTH=03,ATTRB=ASKIP 00153
SPACE 00154
F131270 DFHMDF POS=(12,70),LENGTH=04,ATTRB=ASKIP 00155
SPACE 00156
F131275 DFHMDF POS=(12,75),LENGTH=05,ATTRB=ASKIP 00157
SPACE 00158
DFHMDF POS=(13,01),LENGTH=01,ATTRB=ASKIP 00159
SPACE 00160
DFHMDF POS=(13,03),LENGTH=06,ATTRB=ASKIP, *00161
INITIAL='EMAIL:' 00162
SPACE 00163
F131310 DFHMDF POS=(13,10),LENGTH=40,ATTRB=ASKIP 00164
SPACE 00165
DFHMDF POS=(13,51),LENGTH=01,ATTRB=ASKIP 00166
SPACE 00167
DFHMDF POS=(14,01),LENGTH=12,ATTRB=ASKIP, *00168
INITIAL=' DEBIT MEMO?' 00169
SPACE 00170
F131414 DFHMDF POS=(14,14),LENGTH=01,ATTRB=ASKIP 00171
SPACE 00172
DFHMDF POS=(14,16),LENGTH=01,ATTRB=ASKIP 00173
SPACE 00174
DFHMDF POS=(14,20),LENGTH=13,ATTRB=ASKIP, *00175
INITIAL='MISS RPT LTR?' 00176
SPACE 00177
F131433 DFHMDF POS=(14,34),LENGTH=01,ATTRB=ASKIP 00178
SPACE 00179
DFHMDF POS=(14,36),LENGTH=01,ATTRB=ASKIP 00180
SPACE 00181
DFHMDF POS=(14,40),LENGTH=14,ATTRB=ASKIP, *00182
INITIAL='PHYSICAL ADDR?' 00183
SPACE 00184
F131455 DFHMDF POS=(14,55),LENGTH=01,ATTRB=ASKIP 00185
SPACE 00186
DFHMDF POS=(14,57),LENGTH=01,ATTRB=ASKIP 00187
SPACE 00188
DFHMDF POS=(15,09),LENGTH=17,ATTRB=ASKIP, *00189
INITIAL='DC STREET ADDRESS' 00190
SPACE 00191
DFHMDF POS=(16,01),LENGTH=05,ATTRB=ASKIP, *00192
INITIAL='ATTN:' 00193
SPACE 00194
F131607 DFHMDF POS=(16,07),LENGTH=40,ATTRB=ASKIP 00195
SPACE 00196
DFHMDF POS=(16,48),LENGTH=01,ATTRB=ASKIP 00197
SPACE 00198
DFHMDF POS=(16,56),LENGTH=05,ATTRB=ASKIP, *00199
INITIAL='CASS?' 00200
SPACE 00201
F131662 DFHMDF POS=(16,62),LENGTH=01,ATTRB=ASKIP 00202
SPACE 00203
DFHMDF POS=(16,64),LENGTH=01,ATTRB=ASKIP 00204
SPACE 00205
DFHMDF POS=(17,01),LENGTH=05,ATTRB=ASKIP, *00206
INITIAL='DLV1:' 00207
SPACE 00208
F131707 DFHMDF POS=(17,07),LENGTH=40,ATTRB=ASKIP 00209
SPACE 00210
DFHMDF POS=(17,48),LENGTH=01,ATTRB=ASKIP 00211
SPACE 00212
DFHMDF POS=(17,56),LENGTH=07,ATTRB=ASKIP, *00213
INITIAL='CASS CD' 00214
SPACE 00215
DFHMDF POS=(18,01),LENGTH=05,ATTRB=ASKIP, *00216
INITIAL='DLV2:' 00217
SPACE 00218
F131807 DFHMDF POS=(18,07),LENGTH=40,ATTRB=ASKIP 00219
SPACE 00220
DFHMDF POS=(18,48),LENGTH=01,ATTRB=ASKIP 00221
SPACE 00222
F131854 DFHMDF POS=(18,54),LENGTH=25,ATTRB=ASKIP 00223
SPACE 00224
DFHMDF POS=(19,01),LENGTH=05,ATTRB=ASKIP, *00225
INITIAL='CITY:' 00226
SPACE 00227
F131907 DFHMDF POS=(19,07),LENGTH=25,ATTRB=ASKIP 00228
SPACE 00229
DFHMDF POS=(19,33),LENGTH=01,ATTRB=ASKIP, *00230
INITIAL=':' 00231
SPACE 00232
F131935 DFHMDF POS=(19,35),LENGTH=02,ATTRB=ASKIP 00233
SPACE 00234
DFHMDF POS=(19,38),LENGTH=01,ATTRB=ASKIP, *00235
INITIAL=':' 00236
SPACE 00237
F131940 DFHMDF POS=(19,40),LENGTH=10,ATTRB=ASKIP 00238
SPACE 00239
DFHMDF POS=(19,51),LENGTH=01,ATTRB=ASKIP 00240
SPACE 00241
DFHMDF POS=(20,01),LENGTH=05,ATTRB=ASKIP, *00242
INITIAL='TEL1:' 00243
SPACE 00244
F132007 DFHMDF POS=(20,07),LENGTH=03,ATTRB=ASKIP 00245
SPACE 00246
F132011 DFHMDF POS=(20,11),LENGTH=03,ATTRB=ASKIP 00247
SPACE 00248
F132015 DFHMDF POS=(20,15),LENGTH=04,ATTRB=ASKIP 00249
SPACE 00250
F132020 DFHMDF POS=(20,20),LENGTH=05,ATTRB=ASKIP 00251
SPACE 00252
DFHMDF POS=(20,26),LENGTH=01,ATTRB=ASKIP 00253
SPACE 00254
DFHMDF POS=(20,29),LENGTH=05,ATTRB=ASKIP, *00255
INITIAL='TEL2:' 00256
SPACE 00257
F132035 DFHMDF POS=(20,35),LENGTH=03,ATTRB=ASKIP 00258
SPACE 00259
F132039 DFHMDF POS=(20,39),LENGTH=03,ATTRB=ASKIP 00260
SPACE 00261
F132043 DFHMDF POS=(20,43),LENGTH=04,ATTRB=ASKIP 00262
SPACE 00263
F132048 DFHMDF POS=(20,48),LENGTH=05,ATTRB=ASKIP 00264
SPACE 00265
DFHMDF POS=(20,54),LENGTH=01,ATTRB=ASKIP 00266
SPACE 00267
DFHMDF POS=(20,57),LENGTH=04,ATTRB=ASKIP, *00268
INITIAL='FAX:' 00269
SPACE 00270
F132062 DFHMDF POS=(20,62),LENGTH=03,ATTRB=ASKIP 00271
SPACE 00272
F132066 DFHMDF POS=(20,66),LENGTH=03,ATTRB=ASKIP 00273
SPACE 00274
F132070 DFHMDF POS=(20,70),LENGTH=04,ATTRB=ASKIP 00275
SPACE 00276
F132075 DFHMDF POS=(20,75),LENGTH=05,ATTRB=ASKIP 00277
SPACE 00278
DFHMDF POS=(21,01),LENGTH=01,ATTRB=ASKIP 00279
SPACE 00280
DFHMDF POS=(21,03),LENGTH=06,ATTRB=ASKIP, *00281
INITIAL='EMAIL:' 00282
SPACE 00283
F132110 DFHMDF POS=(21,10),LENGTH=40,ATTRB=ASKIP 00284
SPACE 00285
DFHMDF POS=(21,51),LENGTH=01,ATTRB=ASKIP 00286
SPACE 00287
DFHMDF POS=(22,01),LENGTH=12,ATTRB=ASKIP, *00288
INITIAL=' DEBIT MEMO?' 00289
SPACE 00290
F132214 DFHMDF POS=(22,14),LENGTH=01,ATTRB=ASKIP 00291
SPACE 00292
DFHMDF POS=(22,16),LENGTH=01,ATTRB=ASKIP 00293
SPACE 00294
DFHMDF POS=(22,20),LENGTH=13,ATTRB=ASKIP, *00295
INITIAL='MISS RPT LTR?' 00296
SPACE 00297
F132233 DFHMDF POS=(22,34),LENGTH=01,ATTRB=ASKIP 00298
SPACE 00299
DFHMDF POS=(22,36),LENGTH=01,ATTRB=ASKIP 00300
SPACE 00301
DFHMDF POS=(22,40),LENGTH=14,ATTRB=ASKIP, *00302
INITIAL='PHYSICAL ADDR?' 00303
SPACE 00304
F132255 DFHMDF POS=(22,55),LENGTH=01,ATTRB=ASKIP 00305
SPACE 00306
DFHMDF POS=(22,57),LENGTH=01,ATTRB=ASKIP 00307
SPACE 00308
F132317 DFHMDF POS=(23,17),LENGTH=07,ATTRB=ASKIP 00309
SPACE 00310
F132401 DFHMDF POS=(24,01),LENGTH=08,ATTRB=ASKIP 00311
SPACE 00312
F132410 DFHMDF POS=(24,10),LENGTH=58,ATTRB=ASKIP 00313
SPACE 00314
DFHMDF POS=(24,69),LENGTH=06,ATTRB=ASKIP, *00315
INITIAL='GO TO:' 00316
SPACE 00317
F132476 DFHMDF POS=(24,76),LENGTH=02,ATTRB=ASKIP 00318
SPACE 00319
DFHMDF POS=(24,79),LENGTH=01,ATTRB=ASKIP 00320
* DATA SET DTSM13 AT LEVEL 001 AS OF 05/11/17
* DATA SET DTSM13 AT LEVEL 014 AS OF 09/29/04 00001
* DATA SET DTSM13 AT LEVEL 002 AS OF 07/21/04 00002
* DATA SET DTSM13 AT LEVEL 012 AS OF 07/18/00 00003
* DATA SET DTSM13 AT LEVEL 002 AS OF 06/05/00 00004
* DATA SET DTSM13 AT LEVEL 010 AS OF 09/07/99 00005
* DATA SET MACM13 AT LEVEL 010 AS OF 10/30/95 00006
***** 00007
* 00008
* 13 TAX ADDRESS INQUIRY/UPDATE. 00009
* 00010
***** 00011
SPACE 00012
DTSM13 DFHMDI SIZE=(24,80),LINE=1,COLUMN=1 00013
SPACE 00014
F130101 DFHMDF POS=(01,01),LENGTH=02,ATTRB=(FSET,ASKIP), *00015
INITIAL='13' 00016
SPACE 00017
DFHMDF POS=(01,23),LENGTH=26,ATTRB=(ASKIP), *00018
INITIAL='TAX ADDRESS INQUIRY/UPDATE' 00019
SPACE 00020
F130162 DFHMDF POS=(01,62),LENGTH=08,ATTRB=ASKIP 00021
SPACE 00022
F130172 DFHMDF POS=(01,72),LENGTH=08,ATTRB=ASKIP 00023
SPACE 00024
F130272 DFHMDF POS=(02,72),LENGTH=08,ATTRB=ASKIP 00025
SPACE 00026
DFHMDF POS=(03,08),LENGTH=07,ATTRB=ASKIP, *00027
INITIAL='EMP NO:' 00028
SPACE 00029
F130316 DFHMDF POS=(03,16),LENGTH=03,ATTRB=ASKIP 00030
SPACE 00031
F130320 DFHMDF POS=(03,20),LENGTH=03,ATTRB=ASKIP 00032
SPACE 00033
DFHMDF POS=(03,24),LENGTH=01,ATTRB=ASKIP 00034
SPACE 00035
DFHMDF POS=(04,01),LENGTH=14,ATTRB=ASKIP, *00036
INITIAL=' PRIMARY NAME:' 00037
SPACE 00038
F130416 DFHMDF POS=(04,16),LENGTH=40,ATTRB=ASKIP 00039
SPACE 00040
DFHMDF POS=(04,57),LENGTH=01,ATTRB=ASKIP 00041
SPACE 00042
DFHMDF POS=(04,60),LENGTH=12,ATTRB=ASKIP, *00043
INITIAL='ENTITY NAME?' 00044
SPACE 00045
F130465 DFHMDF POS=(04,73),LENGTH=01,ATTRB=ASKIP 00046
SPACE 00047
DFHMDF POS=(04,75),LENGTH=01,ATTRB=ASKIP 00048
SPACE 00049
DFHMDF POS=(05,01),LENGTH=14,ATTRB=ASKIP, *00050
INITIAL=' ENTITY NAME:' 00051
SPACE 00052
F130516 DFHMDF POS=(05,16),LENGTH=40,ATTRB=ASKIP 00053
SPACE 00054
DFHMDF POS=(05,57),LENGTH=01,ATTRB=ASKIP 00055
SPACE 00056
F130609 DFHMDF POS=(06,09),LENGTH=07,ATTRB=(ASKIP) 00057
SPACE 00058
F130617 DFHMDF POS=(06,17),LENGTH=01,ATTRB=(ASKIP) 00059
SPACE 00060
DFHMDF POS=(06,19),LENGTH=01,ATTRB=(ASKIP) 00061
SPACE 00062
DFHMDF POS=(07,09),LENGTH=15,ATTRB=ASKIP, *00063
INITIAL='MAILING ADDRESS' 00064
SPACE 00065
DFHMDF POS=(07,56),LENGTH=13,ATTRB=ASKIP, *00066
INITIAL='FISCAL AGENT:' 00067
SPACE 00068
F130770 DFHMDF POS=(07,70),LENGTH=03,ATTRB=ASKIP 00069
SPACE 00070
DFHMDF POS=(07,74),LENGTH=01,ATTRB=ASKIP 00071
SPACE 00072
DFHMDF POS=(08,01),LENGTH=05,ATTRB=ASKIP, *00073
INITIAL='ATTN:' 00074
SPACE 00075
F130807 DFHMDF POS=(08,07),LENGTH=40,ATTRB=ASKIP 00076
SPACE 00077
DFHMDF POS=(08,48),LENGTH=01,ATTRB=ASKIP 00078
SPACE 00079
DFHMDF POS=(08,56),LENGTH=05,ATTRB=ASKIP, *00080
INITIAL='CASS?' 00081
SPACE 00082
F130862 DFHMDF POS=(08,62),LENGTH=01,ATTRB=ASKIP 00083
SPACE 00084
DFHMDF POS=(08,64),LENGTH=01,ATTRB=ASKIP 00085
SPACE 00086
DFHMDF POS=(09,01),LENGTH=05,ATTRB=ASKIP, *00087
INITIAL='DLV1:' 00088
SPACE 00089
F130907 DFHMDF POS=(09,07),LENGTH=40,ATTRB=ASKIP 00090
SPACE 00091
DFHMDF POS=(09,48),LENGTH=01,ATTRB=ASKIP 00092
SPACE 00093
DFHMDF POS=(09,56),LENGTH=07,ATTRB=ASKIP, *00094
INITIAL='CASS CD' 00095
SPACE 00096
DFHMDF POS=(10,01),LENGTH=05,ATTRB=ASKIP, *00097
INITIAL='DLV2:' 00098
SPACE 00099
F131007 DFHMDF POS=(10,07),LENGTH=40,ATTRB=ASKIP 00100
SPACE 00101
DFHMDF POS=(10,48),LENGTH=01,ATTRB=ASKIP 00102
SPACE 00103
F131054 DFHMDF POS=(10,54),LENGTH=25,ATTRB=ASKIP 00104
SPACE 00105
DFHMDF POS=(11,01),LENGTH=05,ATTRB=ASKIP, *00106
INITIAL='CITY:' 00107
SPACE 00108
F131107 DFHMDF POS=(11,07),LENGTH=25,ATTRB=ASKIP 00109
SPACE 00110
DFHMDF POS=(11,33),LENGTH=01,ATTRB=ASKIP, *00111
INITIAL=':' 00112
SPACE 00113
F131135 DFHMDF POS=(11,35),LENGTH=02,ATTRB=ASKIP 00114
SPACE 00115
DFHMDF POS=(11,38),LENGTH=01,ATTRB=ASKIP, *00116
INITIAL=':' 00117
SPACE 00118
F131140 DFHMDF POS=(11,40),LENGTH=10,ATTRB=ASKIP 00119
SPACE 00120
DFHMDF POS=(11,51),LENGTH=01,ATTRB=ASKIP 00121
SPACE 00122
DFHMDF POS=(12,01),LENGTH=05,ATTRB=ASKIP, *00123
INITIAL='TEL1:' 00124
SPACE 00125
F131207 DFHMDF POS=(12,07),LENGTH=03,ATTRB=ASKIP 00126
SPACE 00127
F131211 DFHMDF POS=(12,11),LENGTH=03,ATTRB=ASKIP 00128
SPACE 00129
F131215 DFHMDF POS=(12,15),LENGTH=04,ATTRB=ASKIP 00130
SPACE 00131
F131320 DFHMDF POS=(12,20),LENGTH=05,ATTRB=ASKIP 00132
SPACE 00133
DFHMDF POS=(12,26),LENGTH=01,ATTRB=ASKIP 00134
SPACE 00135
DFHMDF POS=(12,29),LENGTH=05,ATTRB=ASKIP, *00136
INITIAL='TEL2:' 00137
SPACE 00138
F131235 DFHMDF POS=(12,35),LENGTH=03,ATTRB=ASKIP 00139
SPACE 00140
F131239 DFHMDF POS=(12,39),LENGTH=03,ATTRB=ASKIP 00141
SPACE 00142
F131243 DFHMDF POS=(12,43),LENGTH=04,ATTRB=ASKIP 00143
SPACE 00144
F131248 DFHMDF POS=(12,48),LENGTH=05,ATTRB=ASKIP 00145
SPACE 00146
DFHMDF POS=(12,54),LENGTH=01,ATTRB=ASKIP 00147
SPACE 00148
DFHMDF POS=(12,57),LENGTH=04,ATTRB=ASKIP, *00149
INITIAL='FAX:' 00150
SPACE 00151
F131262 DFHMDF POS=(12,62),LENGTH=03,ATTRB=ASKIP 00152
SPACE 00153
F131266 DFHMDF POS=(12,66),LENGTH=03,ATTRB=ASKIP 00154
SPACE 00155
F131270 DFHMDF POS=(12,70),LENGTH=04,ATTRB=ASKIP 00156
SPACE 00157
F131275 DFHMDF POS=(12,75),LENGTH=05,ATTRB=ASKIP 00158
SPACE 00159
DFHMDF POS=(13,01),LENGTH=01,ATTRB=ASKIP 00160
SPACE 00161
DFHMDF POS=(13,03),LENGTH=06,ATTRB=ASKIP, *00162
INITIAL='EMAIL:' 00163
SPACE 00164
F131310 DFHMDF POS=(13,10),LENGTH=40,ATTRB=ASKIP 00165
SPACE 00166
DFHMDF POS=(13,51),LENGTH=01,ATTRB=ASKIP 00167
SPACE 00168
DFHMDF POS=(14,01),LENGTH=12,ATTRB=ASKIP, *00169
INITIAL=' DEBIT MEMO?' 00170
SPACE 00171
F131414 DFHMDF POS=(14,14),LENGTH=01,ATTRB=ASKIP 00172
SPACE 00173
DFHMDF POS=(14,16),LENGTH=01,ATTRB=ASKIP 00174
SPACE 00175
DFHMDF POS=(14,20),LENGTH=13,ATTRB=ASKIP, *00176
INITIAL='MISS RPT LTR?' 00177
SPACE 00178
F131433 DFHMDF POS=(14,34),LENGTH=01,ATTRB=ASKIP 00179
SPACE 00180
DFHMDF POS=(14,36),LENGTH=01,ATTRB=ASKIP 00181
SPACE 00182
DFHMDF POS=(14,40),LENGTH=14,ATTRB=ASKIP, *00183
INITIAL='PHYSICAL ADDR?' 00184
SPACE 00185
F131455 DFHMDF POS=(14,55),LENGTH=01,ATTRB=ASKIP 00186
SPACE 00187
DFHMDF POS=(14,57),LENGTH=01,ATTRB=ASKIP 00188
SPACE 00189
DFHMDF POS=(15,09),LENGTH=17,ATTRB=ASKIP, *00190
INITIAL='DC STREET ADDRESS' 00191
SPACE 00192
DFHMDF POS=(16,01),LENGTH=05,ATTRB=ASKIP, *00193
INITIAL='ATTN:' 00194
SPACE 00195
F131607 DFHMDF POS=(16,07),LENGTH=40,ATTRB=ASKIP 00196
SPACE 00197
DFHMDF POS=(16,48),LENGTH=01,ATTRB=ASKIP 00198
SPACE 00199
DFHMDF POS=(16,56),LENGTH=05,ATTRB=ASKIP, *00200
INITIAL='CASS?' 00201
SPACE 00202
F131662 DFHMDF POS=(16,62),LENGTH=01,ATTRB=ASKIP 00203
SPACE 00204
DFHMDF POS=(16,64),LENGTH=01,ATTRB=ASKIP 00205
SPACE 00206
DFHMDF POS=(17,01),LENGTH=05,ATTRB=ASKIP, *00207
INITIAL='DLV1:' 00208
SPACE 00209
F131707 DFHMDF POS=(17,07),LENGTH=40,ATTRB=ASKIP 00210
SPACE 00211
DFHMDF POS=(17,48),LENGTH=01,ATTRB=ASKIP 00212
SPACE 00213
DFHMDF POS=(17,56),LENGTH=07,ATTRB=ASKIP, *00214
INITIAL='CASS CD' 00215
SPACE 00216
DFHMDF POS=(18,01),LENGTH=05,ATTRB=ASKIP, *00217
INITIAL='DLV2:' 00218
SPACE 00219
F131807 DFHMDF POS=(18,07),LENGTH=40,ATTRB=ASKIP 00220
SPACE 00221
DFHMDF POS=(18,48),LENGTH=01,ATTRB=ASKIP 00222
SPACE 00223
F131854 DFHMDF POS=(18,54),LENGTH=25,ATTRB=ASKIP 00224
SPACE 00225
DFHMDF POS=(19,01),LENGTH=05,ATTRB=ASKIP, *00226
INITIAL='CITY:' 00227
SPACE 00228
F131907 DFHMDF POS=(19,07),LENGTH=25,ATTRB=ASKIP 00229
SPACE 00230
DFHMDF POS=(19,33),LENGTH=01,ATTRB=ASKIP, *00231
INITIAL=':' 00232
SPACE 00233
F131935 DFHMDF POS=(19,35),LENGTH=02,ATTRB=ASKIP 00234
SPACE 00235
DFHMDF POS=(19,38),LENGTH=01,ATTRB=ASKIP, *00236
INITIAL=':' 00237
SPACE 00238
F131940 DFHMDF POS=(19,40),LENGTH=10,ATTRB=ASKIP 00239
SPACE 00240
DFHMDF POS=(19,51),LENGTH=01,ATTRB=ASKIP 00241
SPACE 00242
DFHMDF POS=(20,01),LENGTH=05,ATTRB=ASKIP, *00243
INITIAL='TEL1:' 00244
SPACE 00245
F132007 DFHMDF POS=(20,07),LENGTH=03,ATTRB=ASKIP 00246
SPACE 00247
F132011 DFHMDF POS=(20,11),LENGTH=03,ATTRB=ASKIP 00248
SPACE 00249
F132015 DFHMDF POS=(20,15),LENGTH=04,ATTRB=ASKIP 00250
SPACE 00251
F132020 DFHMDF POS=(20,20),LENGTH=05,ATTRB=ASKIP 00252
SPACE 00253
DFHMDF POS=(20,26),LENGTH=01,ATTRB=ASKIP 00254
SPACE 00255
DFHMDF POS=(20,29),LENGTH=05,ATTRB=ASKIP, *00256
INITIAL='TEL2:' 00257
SPACE 00258
F132035 DFHMDF POS=(20,35),LENGTH=03,ATTRB=ASKIP 00259
SPACE 00260
F132039 DFHMDF POS=(20,39),LENGTH=03,ATTRB=ASKIP 00261
SPACE 00262
F132043 DFHMDF POS=(20,43),LENGTH=04,ATTRB=ASKIP 00263
SPACE 00264
F132048 DFHMDF POS=(20,48),LENGTH=05,ATTRB=ASKIP 00265
SPACE 00266
DFHMDF POS=(20,54),LENGTH=01,ATTRB=ASKIP 00267
SPACE 00268
DFHMDF POS=(20,57),LENGTH=04,ATTRB=ASKIP, *00269
INITIAL='FAX:' 00270
SPACE 00271
F132062 DFHMDF POS=(20,62),LENGTH=03,ATTRB=ASKIP 00272
SPACE 00273
F132066 DFHMDF POS=(20,66),LENGTH=03,ATTRB=ASKIP 00274
SPACE 00275
F132070 DFHMDF POS=(20,70),LENGTH=04,ATTRB=ASKIP 00276
SPACE 00277
F132075 DFHMDF POS=(20,75),LENGTH=05,ATTRB=ASKIP 00278
SPACE 00279
DFHMDF POS=(21,01),LENGTH=01,ATTRB=ASKIP 00280
SPACE 00281
DFHMDF POS=(21,03),LENGTH=06,ATTRB=ASKIP, *00282
INITIAL='EMAIL:' 00283
SPACE 00284
F132110 DFHMDF POS=(21,10),LENGTH=40,ATTRB=ASKIP 00285
SPACE 00286
DFHMDF POS=(21,51),LENGTH=01,ATTRB=ASKIP 00287
SPACE 00288
DFHMDF POS=(22,01),LENGTH=12,ATTRB=ASKIP, *00289
INITIAL=' DEBIT MEMO?' 00290
SPACE 00291
F132214 DFHMDF POS=(22,14),LENGTH=01,ATTRB=ASKIP 00292
SPACE 00293
DFHMDF POS=(22,16),LENGTH=01,ATTRB=ASKIP 00294
SPACE 00295
DFHMDF POS=(22,20),LENGTH=13,ATTRB=ASKIP, *00296
INITIAL='MISS RPT LTR?' 00297
SPACE 00298
F132233 DFHMDF POS=(22,34),LENGTH=01,ATTRB=ASKIP 00299
SPACE 00300
DFHMDF POS=(22,36),LENGTH=01,ATTRB=ASKIP 00301
SPACE 00302
DFHMDF POS=(22,40),LENGTH=14,ATTRB=ASKIP, *00303
INITIAL='PHYSICAL ADDR?' 00304
SPACE 00305
F132255 DFHMDF POS=(22,55),LENGTH=01,ATTRB=ASKIP 00306
SPACE 00307
DFHMDF POS=(22,57),LENGTH=01,ATTRB=ASKIP 00308
SPACE 00309
F132317 DFHMDF POS=(23,17),LENGTH=07,ATTRB=ASKIP 00310
SPACE 00311
F132401 DFHMDF POS=(24,01),LENGTH=08,ATTRB=ASKIP 00312
SPACE 00313
F132410 DFHMDF POS=(24,10),LENGTH=58,ATTRB=ASKIP 00314
SPACE 00315
DFHMDF POS=(24,69),LENGTH=06,ATTRB=ASKIP, *00316
INITIAL='GO TO:' 00317
SPACE 00318
F132476 DFHMDF POS=(24,76),LENGTH=02,ATTRB=ASKIP 00319
SPACE 00320
DFHMDF POS=(24,79),LENGTH=01,ATTRB=ASKIP 00321

1019
Maps/DTSM44.bms
View File

File diff suppressed because it is too large Load Diff

332
Maps/DTSM82.bms
View File

@ -1,176 +1,166 @@
* DATA SET DTSM82 AT LEVEL 014 AS OF 04/01/13
* DATA SET DTSM82 AT LEVEL 002 AS OF 02/21/13 00001
* DATA SET DTSM82 AT LEVEL 012 AS OF 02/19/10 00002
* DATA SET DTSM82 AT LEVEL 006 AS OF 02/18/10 00003
* DATA SET DTSM82 AT LEVEL 010 AS OF 05/07/02 00004
* DATA SET DTSM82 AT LEVEL 003 AS OF 04/24/02 00005
* DATA SET DTSM82 AT LEVEL 008 AS OF 09/22/98 00006
* DATA SET MACM82 AT LEVEL 004 AS OF 01/23/95 00007
***** 00008
* 00009
* 82 QUARTER INQUIRY/UPDATE. 00010
* 00011
***** 00012
SPACE 00013
DTSM82 DFHMDI SIZE=(24,80),LINE=1,COLUMN=1 00014
SPACE 00015
F820101 DFHMDF POS=(01,01),LENGTH=02,ATTRB=(FSET,ASKIP), *00016
INITIAL='82' 00017
SPACE 00018
DFHMDF POS=(01,15),LENGTH=31,ATTRB=(ASKIP), *00019
INITIAL='CALENDAR QUARTER INQUIRY/UPDATE' 00020
SPACE 00021
F820162 DFHMDF POS=(01,62),LENGTH=08,ATTRB=ASKIP 00022
SPACE 00023
F820172 DFHMDF POS=(01,72),LENGTH=08,ATTRB=ASKIP 00024
SPACE 00025
F820272 DFHMDF POS=(02,72),LENGTH=08,ATTRB=ASKIP 00026
SPACE 00027
DFHMDF POS=(03,19),LENGTH=08,ATTRB=ASKIP, *00028
INITIAL='QUARTER:' 00029
SPACE 00030
F820328 DFHMDF POS=(03,28),LENGTH=02,ATTRB=ASKIP 00031
SPACE 00032
F820331 DFHMDF POS=(03,31),LENGTH=01,ATTRB=ASKIP 00033
SPACE 00034
DFHMDF POS=(03,33),LENGTH=01,ATTRB=ASKIP 00035
SPACE 00036
DFHMDF POS=(05,08),LENGTH=19,ATTRB=ASKIP, *00037
INITIAL='UC-30 MASS MAILING:' 00038
SPACE 00039
F820528 DFHMDF POS=(05,28),LENGTH=02,ATTRB=ASKIP 00040
SPACE 00041
F820531 DFHMDF POS=(05,31),LENGTH=02,ATTRB=ASKIP 00042
SPACE 00043
F820534 DFHMDF POS=(05,34),LENGTH=02,ATTRB=ASKIP 00044
SPACE 00045
DFHMDF POS=(05,37),LENGTH=01,ATTRB=ASKIP 00046
SPACE 00047
DFHMDF POS=(05,40),LENGTH=26,ATTRB=ASKIP, *00048
INITIAL=' SELF INSURED CHARGES RUN:' 00049
SPACE 00050
F820567 DFHMDF POS=(05,67),LENGTH=02,ATTRB=ASKIP 00051
SPACE 00052
F820570 DFHMDF POS=(05,70),LENGTH=02,ATTRB=ASKIP 00053
SPACE 00054
F820571 DFHMDF POS=(05,73),LENGTH=02,ATTRB=ASKIP 00055
SPACE 00056
DFHMDF POS=(05,76),LENGTH=01,ATTRB=ASKIP 00057
SPACE 00058
DFHMDF POS=(07,05),LENGTH=22,ATTRB=ASKIP, *00059
INITIAL='LATE PENALTY ASSESSED:' 00060
SPACE 00061
F820728 DFHMDF POS=(07,28),LENGTH=02,ATTRB=ASKIP 00062
SPACE 00063
F820731 DFHMDF POS=(07,31),LENGTH=02,ATTRB=ASKIP 00064
SPACE 00065
F820734 DFHMDF POS=(07,34),LENGTH=02,ATTRB=ASKIP 00066
SPACE 00067
DFHMDF POS=(07,37),LENGTH=01,ATTRB=ASKIP 00068
SPACE 00069
DFHMDF POS=(07,44),LENGTH=22,ATTRB=ASKIP, *00070
INITIAL=' SELF INSURED TAX DUE:' 00071
SPACE 00072
F820767 DFHMDF POS=(07,67),LENGTH=02,ATTRB=ASKIP 00073
SPACE 00074
F820770 DFHMDF POS=(07,70),LENGTH=02,ATTRB=ASKIP 00075
SPACE 00076
F820773 DFHMDF POS=(07,73),LENGTH=02,ATTRB=ASKIP 00077
SPACE 00078
DFHMDF POS=(07,76),LENGTH=01,ATTRB=ASKIP 00079
SPACE 00080
DFHMDF POS=(09,04),LENGTH=23,ATTRB=ASKIP, *00081
INITIAL='UC-30 FIRST DELINQUENT:' 00082
SPACE 00083
F820928 DFHMDF POS=(09,28),LENGTH=02,ATTRB=ASKIP 00084
SPACE 00085
F820931 DFHMDF POS=(09,31),LENGTH=02,ATTRB=ASKIP 00086
SPACE 00087
F820934 DFHMDF POS=(09,34),LENGTH=02,ATTRB=ASKIP 00088
SPACE 00089
DFHMDF POS=(09,37),LENGTH=01,ATTRB=ASKIP 00090
SPACE 00091
DFHMDF POS=(09,40),LENGTH=26,ATTRB=ASKIP, *00092
INITIAL=' SELF INSURED 2ND LETTER:' 00093
SPACE 00094
F820967 DFHMDF POS=(09,67),LENGTH=02,ATTRB=ASKIP 00095
SPACE 00096
F820970 DFHMDF POS=(09,70),LENGTH=02,ATTRB=ASKIP 00097
SPACE 00098
F820973 DFHMDF POS=(09,73),LENGTH=02,ATTRB=ASKIP 00099
SPACE 00100
DFHMDF POS=(09,76),LENGTH=01,ATTRB=ASKIP 00101
SPACE 00102
DFHMDF POS=(11,04),LENGTH=23,ATTRB=ASKIP, *00103
INITIAL=' UC-30 2ND DELINQUENT:' 00104
SPACE 00105
F821128 DFHMDF POS=(11,28),LENGTH=02,ATTRB=ASKIP 00106
SPACE 00107
F821131 DFHMDF POS=(11,31),LENGTH=02,ATTRB=ASKIP 00108
SPACE 00109
F821134 DFHMDF POS=(11,34),LENGTH=02,ATTRB=ASKIP 00110
SPACE 00111
DFHMDF POS=(11,37),LENGTH=01,ATTRB=ASKIP 00112
SPACE 00113
DFHMDF POS=(11,40),LENGTH=26,ATTRB=ASKIP, *00114
INITIAL='SELF INS LATE PENALTY RUN:' 00115
SPACE 00116
F821167 DFHMDF POS=(11,67),LENGTH=02,ATTRB=ASKIP 00117
SPACE 00118
F821170 DFHMDF POS=(11,70),LENGTH=02,ATTRB=ASKIP 00119
SPACE 00120
F821171 DFHMDF POS=(11,73),LENGTH=02,ATTRB=ASKIP 00121
SPACE 00122
DFHMDF POS=(11,76),LENGTH=01,ATTRB=ASKIP 00123
SPACE 00124
DFHMDF POS=(13,04),LENGTH=23,ATTRB=ASKIP, *00125
INITIAL='UC30 FINAL ACTION DATE:' 00126
SPACE 00127
F821328 DFHMDF POS=(13,28),LENGTH=02,ATTRB=ASKIP 00128
SPACE 00129
F821331 DFHMDF POS=(13,31),LENGTH=02,ATTRB=ASKIP 00130
SPACE 00131
F821334 DFHMDF POS=(13,34),LENGTH=02,ATTRB=ASKIP 00132
SPACE 00133
DFHMDF POS=(13,37),LENGTH=01,ATTRB=ASKIP 00134
SPACE 00135
DFHMDF POS=(15,03),LENGTH=24,ATTRB=ASKIP, *00136
INITIAL=' ESTIMATED NOTICE DATE:' 00137
SPACE 00138
F821728 DFHMDF POS=(15,28),LENGTH=02,ATTRB=ASKIP 00139
SPACE 00140
F821731 DFHMDF POS=(15,31),LENGTH=02,ATTRB=ASKIP 00141
SPACE 00142
F821734 DFHMDF POS=(15,34),LENGTH=02,ATTRB=ASKIP 00143
SPACE 00144
DFHMDF POS=(15,37),LENGTH=01,ATTRB=ASKIP 00145
SPACE 00146
DFHMDF POS=(20,10),LENGTH=10,ATTRB=ASKIP, *00147
INITIAL='ESTB DATE:' 00148
* DATA SET DTSM82 AT LEVEL 006 AS OF 08/14/25
* DATA SET DTSM82 AT LEVEL 014 AS OF 04/01/13 00001
* DATA SET DTSM82 AT LEVEL 002 AS OF 02/21/13 00002
* DATA SET DTSM82 AT LEVEL 012 AS OF 02/19/10 00003
* DATA SET DTSM82 AT LEVEL 006 AS OF 02/18/10 00004
* DATA SET DTSM82 AT LEVEL 010 AS OF 05/07/02 00005
* DATA SET DTSM82 AT LEVEL 003 AS OF 04/24/02 00006
* DATA SET DTSM82 AT LEVEL 008 AS OF 09/22/98 00007
* DATA SET MACM82 AT LEVEL 004 AS OF 01/23/95 00008
***** 00009
* 00010
* 82 QUARTER INQUIRY/UPDATE. 00011
* 00012
***** 00013
SPACE 00014
DTSM82 DFHMDI SIZE=(24,80),LINE=1,COLUMN=1 00015
SPACE 00016
F820101 DFHMDF POS=(01,01),LENGTH=02,ATTRB=(FSET,ASKIP), *00017
INITIAL='82' 00018
SPACE 00019
DFHMDF POS=(01,15),LENGTH=31,ATTRB=(ASKIP), *00020
INITIAL='CALENDAR QUARTER INQUIRY/UPDATE' 00021
SPACE 00022
F820162 DFHMDF POS=(01,62),LENGTH=08,ATTRB=ASKIP 00023
SPACE 00024
F820172 DFHMDF POS=(01,72),LENGTH=08,ATTRB=ASKIP 00025
SPACE 00026
F820272 DFHMDF POS=(02,72),LENGTH=08,ATTRB=ASKIP 00027
SPACE 00028
DFHMDF POS=(03,19),LENGTH=08,ATTRB=ASKIP, *00029
INITIAL='QUARTER:' 00030
SPACE 00031
F820328 DFHMDF POS=(03,28),LENGTH=02,ATTRB=ASKIP 00032
SPACE 00033
F820331 DFHMDF POS=(03,31),LENGTH=01,ATTRB=ASKIP 00034
SPACE 00035
DFHMDF POS=(03,33),LENGTH=01,ATTRB=ASKIP 00036
SPACE 00037
DFHMDF POS=(05,08),LENGTH=19,ATTRB=ASKIP, *00038
INITIAL='QUARTER START DATE:' 00039**4
SPACE 00040
F820528 DFHMDF POS=(05,28),LENGTH=02,ATTRB=ASKIP 00041
SPACE 00042
F820531 DFHMDF POS=(05,31),LENGTH=02,ATTRB=ASKIP 00043
SPACE 00044
F820534 DFHMDF POS=(05,34),LENGTH=02,ATTRB=ASKIP 00045
SPACE 00046
DFHMDF POS=(05,37),LENGTH=01,ATTRB=ASKIP 00047
SPACE 00048
DFHMDF POS=(05,40),LENGTH=26,ATTRB=ASKIP, *00049
INITIAL=' SELF INSURED CHARGES RUN:' 00050
SPACE 00051
F820567 DFHMDF POS=(05,67),LENGTH=02,ATTRB=ASKIP 00052
SPACE 00053
F820570 DFHMDF POS=(05,70),LENGTH=02,ATTRB=ASKIP 00054
SPACE 00055
F820571 DFHMDF POS=(05,73),LENGTH=02,ATTRB=ASKIP 00056
SPACE 00057
DFHMDF POS=(05,76),LENGTH=01,ATTRB=ASKIP 00058
SPACE 00059
DFHMDF POS=(07,05),LENGTH=22,ATTRB=ASKIP, *00060
INITIAL='LATE PENALTY ASSESSED:' 00061
SPACE 00062
F820728 DFHMDF POS=(07,28),LENGTH=02,ATTRB=ASKIP 00063
SPACE 00064
F820731 DFHMDF POS=(07,31),LENGTH=02,ATTRB=ASKIP 00065
SPACE 00066
F820734 DFHMDF POS=(07,34),LENGTH=02,ATTRB=ASKIP 00067
SPACE 00068
DFHMDF POS=(07,37),LENGTH=01,ATTRB=ASKIP 00069
SPACE 00070
DFHMDF POS=(07,44),LENGTH=22,ATTRB=ASKIP, *00071
INITIAL=' SELF INSURED TAX DUE:' 00072
SPACE 00073
F820767 DFHMDF POS=(07,67),LENGTH=02,ATTRB=ASKIP 00074
SPACE 00075
F820770 DFHMDF POS=(07,70),LENGTH=02,ATTRB=ASKIP 00076
SPACE 00077
F820773 DFHMDF POS=(07,73),LENGTH=02,ATTRB=ASKIP 00078
SPACE 00079
DFHMDF POS=(07,76),LENGTH=01,ATTRB=ASKIP 00080
SPACE 00081
DFHMDF POS=(09,04),LENGTH=23,ATTRB=ASKIP, *00082
INITIAL='UC-30 FIRST DELINQUENT:' 00083
SPACE 00084
F820928 DFHMDF POS=(09,28),LENGTH=02,ATTRB=ASKIP 00085
SPACE 00086
F820931 DFHMDF POS=(09,31),LENGTH=02,ATTRB=ASKIP 00087
SPACE 00088
F820934 DFHMDF POS=(09,34),LENGTH=02,ATTRB=ASKIP 00089
SPACE 00090
DFHMDF POS=(09,37),LENGTH=01,ATTRB=ASKIP 00091
SPACE 00092
DFHMDF POS=(09,40),LENGTH=26,ATTRB=ASKIP, *00093
INITIAL='LAST MONTHLY SOA RUN DATE:' 00094**4
SPACE 00095
F820967 DFHMDF POS=(09,67),LENGTH=02,ATTRB=ASKIP 00096
SPACE 00097
F820970 DFHMDF POS=(09,70),LENGTH=02,ATTRB=ASKIP 00098
SPACE 00099
F820973 DFHMDF POS=(09,73),LENGTH=02,ATTRB=ASKIP 00100
SPACE 00101
DFHMDF POS=(09,76),LENGTH=01,ATTRB=ASKIP 00102
SPACE 00103
DFHMDF POS=(11,04),LENGTH=23,ATTRB=ASKIP, *00104
INITIAL=' UC-30 2ND DELINQUENT:' 00105
SPACE 00106
F821128 DFHMDF POS=(11,28),LENGTH=02,ATTRB=ASKIP 00107
SPACE 00108
F821131 DFHMDF POS=(11,31),LENGTH=02,ATTRB=ASKIP 00109
SPACE 00110
F821134 DFHMDF POS=(11,34),LENGTH=02,ATTRB=ASKIP 00111
SPACE 00112
DFHMDF POS=(11,37),LENGTH=01,ATTRB=ASKIP 00113
SPACE 00114
DFHMDF POS=(13,04),LENGTH=23,ATTRB=ASKIP, *00115
INITIAL='UC30 FINAL ACTION DATE:' 00116
SPACE 00117
F821328 DFHMDF POS=(13,28),LENGTH=02,ATTRB=ASKIP 00118
SPACE 00119
F821331 DFHMDF POS=(13,31),LENGTH=02,ATTRB=ASKIP 00120
SPACE 00121
F821334 DFHMDF POS=(13,34),LENGTH=02,ATTRB=ASKIP 00122
SPACE 00123
DFHMDF POS=(13,37),LENGTH=01,ATTRB=ASKIP 00124
SPACE 00125
DFHMDF POS=(15,03),LENGTH=24,ATTRB=ASKIP, *00126
INITIAL=' ESTIMATED NOTICE DATE:' 00127
SPACE 00128
F821728 DFHMDF POS=(15,28),LENGTH=02,ATTRB=ASKIP 00129
SPACE 00130
F821731 DFHMDF POS=(15,31),LENGTH=02,ATTRB=ASKIP 00131
SPACE 00132
F821734 DFHMDF POS=(15,34),LENGTH=02,ATTRB=ASKIP 00133
SPACE 00134
DFHMDF POS=(15,37),LENGTH=01,ATTRB=ASKIP 00135
SPACE 00136
DFHMDF POS=(20,10),LENGTH=10,ATTRB=ASKIP, *00137
INITIAL='ESTB DATE:' 00138
SPACE 00139
F822021 DFHMDF POS=(20,21),LENGTH=08,ATTRB=ASKIP 00140
DFHMDF POS=(20,40),LENGTH=10,ATTRB=ASKIP, *00141
INITIAL='CHNG DATE:' 00142
SPACE 00143
F822051 DFHMDF POS=(20,51),LENGTH=08,ATTRB=ASKIP 00144
SPACE 00145
F822318 DFHMDF POS=(23,18),LENGTH=07,ATTRB=ASKIP 00146
SPACE 00147
F822327 DFHMDF POS=(23,27),LENGTH=07,ATTRB=ASKIP 00148
SPACE 00149
F822021 DFHMDF POS=(20,21),LENGTH=08,ATTRB=ASKIP 00150
DFHMDF POS=(20,40),LENGTH=10,ATTRB=ASKIP, *00151
INITIAL='CHNG DATE:' 00152
F822338 DFHMDF POS=(23,38),LENGTH=07,ATTRB=ASKIP 00150
SPACE 00151
F822346 DFHMDF POS=(23,46),LENGTH=07,ATTRB=ASKIP 00152
SPACE 00153
F822051 DFHMDF POS=(20,51),LENGTH=08,ATTRB=ASKIP 00154
F822355 DFHMDF POS=(23,55),LENGTH=07,ATTRB=ASKIP 00154
SPACE 00155
F822318 DFHMDF POS=(23,18),LENGTH=07,ATTRB=ASKIP 00156
F822401 DFHMDF POS=(24,01),LENGTH=08,ATTRB=ASKIP 00156
SPACE 00157
F822327 DFHMDF POS=(23,27),LENGTH=07,ATTRB=ASKIP 00158
F822410 DFHMDF POS=(24,10),LENGTH=58,ATTRB=ASKIP 00158
SPACE 00159
F822338 DFHMDF POS=(23,38),LENGTH=07,ATTRB=ASKIP 00160
SPACE 00161
F822346 DFHMDF POS=(23,46),LENGTH=07,ATTRB=ASKIP 00162
SPACE 00163
F822355 DFHMDF POS=(23,55),LENGTH=07,ATTRB=ASKIP 00164
SPACE 00165
F822401 DFHMDF POS=(24,01),LENGTH=08,ATTRB=ASKIP 00166
SPACE 00167
F822410 DFHMDF POS=(24,10),LENGTH=58,ATTRB=ASKIP 00168
SPACE 00169
DFHMDF POS=(24,69),LENGTH=06,ATTRB=ASKIP, *00170
INITIAL='GO TO:' 00171
SPACE 00172
F822476 DFHMDF POS=(24,76),LENGTH=02,ATTRB=ASKIP 00173
SPACE 00174
DFHMDF POS=(24,79),LENGTH=01,ATTRB=ASKIP 00175
DFHMDF POS=(24,69),LENGTH=06,ATTRB=ASKIP, *00160
INITIAL='GO TO:' 00161
SPACE 00162
F822476 DFHMDF POS=(24,76),LENGTH=02,ATTRB=ASKIP 00163
SPACE 00164
DFHMDF POS=(24,79),LENGTH=01,ATTRB=ASKIP 00165

32631
Maps/DTSMSET.cpy Normal file
View File

File diff suppressed because it is too large Load Diff

96
Maps/DTSMSET.xml
View File

@ -34863,41 +34863,6 @@
Intensity="NORM"
/>
</BMSField>
<BMSField
Length="13"
Initial="FIELD REP ID:"
Line="3"
Col="38"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Name="F440352"
Length="2"
Line="3"
Col="52"
ByteLength="5"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Name="F440355"
Length="10"
Line="3"
Col="55"
ByteLength="13"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Name="F440372"
Length="2"
@ -68669,7 +68634,7 @@
</BMSField>
<BMSField
Length="19"
Initial="UC-30 MASS MAILING:"
Initial="QUARTER START DATE:"
Line="5"
Col="8"
>
@ -68954,7 +68919,7 @@
</BMSField>
<BMSField
Length="26"
Initial=" SELF INSURED 2ND LETTER:"
Initial="LAST MONTHLY SOA RUN DATE:"
Line="9"
Col="40"
>
@ -69066,63 +69031,6 @@
Intensity="NORM"
/>
</BMSField>
<BMSField
Length="26"
Initial="SELF INS LATE PENALTY RUN:"
Line="11"
Col="40"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Name="F821167"
Length="2"
Line="11"
Col="67"
ByteLength="5"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Name="F821170"
Length="2"
Line="11"
Col="70"
ByteLength="5"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Name="F821171"
Length="2"
Line="11"
Col="73"
ByteLength="5"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Length="1"
Line="11"
Col="76"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Length="23"
Initial="UC30 FINAL ACTION DATE:"

BIN
MetaData.db3 Normal file
View File

Binary file not shown.

2
Procs/DTSACHD1
View File

@ -3,7 +3,7 @@
//* DAILY RUN. * * 00020305
//* * 00020405
//******************************************************************* 00020805
//STEP0100 EXEC PGM=SORT, SORT REPORT RECORDS 00031000
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00031000
// COND=(4,LT) 00032011
//SYSOUT DD SYSOUT=(*) 00040000
//SYSPRINT DD SYSOUT=(*) 00041000

2
Procs/DTSACHM1
View File

@ -3,7 +3,7 @@
//* MONTHLY RUN DTSPMON1. * 00020302
//* * 00020402
//******************************************************************** 00020502
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00031000
//STEP0100 EXEC PGM=SORT, SORT REPORT RECORDS 00031000
// COND=(0,LT) 00032000
//SYSOUT DD SYSOUT=(*) 00040000
//SYSPRINT DD SYSOUT=(*) 00041000

2
Procs/DTSBD551
View File

@ -134,7 +134,7 @@
// UNIT=SYSDA,
// SPACE=(8192,(1000,1000),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSRREC),DISP=SHR
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSRREC),DISP=SHR
//***** 00110002
//* REPORT GENERATION 00110002
//STEP0300 EXEC PGM=DTSBD800, 00120002

2
Procs/DTSBK770
View File

@ -28,7 +28,7 @@
//DTSFVRO1 DD DUMMY
//SYSIN DD DDNAME=EXTPARM
//*********************************************************************
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT
//STEP0200 EXEC PGM=SORT, SORT
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.&LVLNODE..BE770TRN.&QTR,DISP=SHR

4
Procs/DTSBX148
View File

@ -22,7 +22,7 @@
// UNIT=SYSDA,
// SPACE=(CYL,(10,5),RLSE),
// DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800)
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DESSR420),DISP=SHR
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DESSR420),DISP=SHR
//*
//*****************************************************************
//* EDIT TDEC FILE
@ -167,7 +167,7 @@
// DISP=(MOD,KEEP,KEEP),
// SPACE=(CYL,(10,5)),
// DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800)
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSR414),DISP=SHR
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSR414),DISP=SHR
//*
//****************************************************
//**

18
Procs/DTSBX340
View File

@ -9,8 +9,8 @@
//** LVLNODE = DEVL/TEST/PROD 00001205
//**** 00001408
//STEP0100 EXEC PGM=DTSBX340, PERIODIC EXTRACT 00001599
// COND=(0,LT), 00001699
// PARM='&RUNTYPE.' 00001799
// COND=(0,LT), 00001699
// PARM='&RUNTYPE.' 00001799
//* 00001819
//SYSOUT DD SYSOUT=* 00004001
//SYSABOUT DD SYSOUT=* 00005001
@ -236,7 +236,7 @@
//* SPACE=(CYL,(20,10),RLSE), 00105999
//* DCB=(RECFM=FB,LRECL=58,BLKSIZE=29000) 00106099
//* 00106199
//*STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT ACCOUNTING DETAIL 00106299
//*STEP0200 EXEC PGM=SORT, SORT ACCOUNTING DETAIL 00106299
//* COND=(0,LT) 00106399
//*SYSOUT DD SYSOUT=* 00106499
//** 00106599
@ -258,7 +258,7 @@
//* 00108199
//**** 00108299
//*SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSSX342),DISP=SHR 00108399
//STEP0210 EXEC PGM=SORT,PARM='VLTEST=0', SORT ACCT INCREMENTAL 00108499
//STEP0210 EXEC PGM=SORT, SORT ACCT INCREMENTAL 00108499
// COND=(0,LT) 00108599
//SYSOUT DD SYSOUT=* 00108699
//* 00108799
@ -276,7 +276,7 @@
//**** 00109999
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX342),DISP=SHR 00110099
//**** 00110199
//*TEP0300 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTION DETAIL 00111099
//*TEP0300 EXEC PGM=SORT, SORT TRANSACTION DETAIL 00111099
//* COND=(0,LT) 00120099
//*YSOUT DD SYSOUT=* 00130099
//* 00140099
@ -296,7 +296,7 @@
//**** 00280099
//*YSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSSX342),DISP=SHR 00290099
//**** 00300099
//STEP0310 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANS INCREMENTAL 00301099
//STEP0310 EXEC PGM=SORT, SORT TRANS INCREMENTAL 00301099
// COND=(0,LT) 00302099
//SYSOUT DD SYSOUT=* 00303099
//* 00304099
@ -314,7 +314,7 @@
//**** 00309799
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX342),DISP=SHR 00309899
//**** 00309999
//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0', SORT QUARTER DETAIL 00310099
//STEP0400 EXEC PGM=SORT, SORT QUARTER DETAIL 00310099
// COND=(0,LT) 00320099
//SYSOUT DD SYSOUT=* 00330099
//* 00340099
@ -335,7 +335,7 @@
//**** 00480099
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSSX342),DISP=SHR 00490099
//**** 00500099
//STEP0500 EXEC PGM=SORT,PARM='VLTEST=0', SORT PAY DIST 00501099
//STEP0500 EXEC PGM=SORT, SORT PAY DIST 00501099
// COND=(0,LT) 00502099
//SYSOUT DD SYSOUT=* 00503099
//* 00504099
@ -355,7 +355,7 @@
//**** 00509999
//SYSIN DD DSN=DOESTAX.&MSTNODE..APPL.PARMLIB(DTSSX342),DISP=SHR 00510099
//**** 00510199
//STEP0600 EXEC PGM=SORT,PARM='VLTEST=0', SORT ERR 00511099
//STEP0600 EXEC PGM=SORT, SORT ERR 00511099
// COND=(0,LT) 00520099
//SYSOUT DD SYSOUT=* 00530099
//* 00540099

2
Procs/DTSBX415
View File

@ -15,7 +15,7 @@
//*&& MAGNETIC MEDIA WAGE (X144) FILES.
//******* NO LONGER NEEDED 11/14/19 ZL1 00001700
//*************************************************************** 00001700
//STEP0100 EXEC PGM=SORT, COMBINE INPUT FILES
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', COMBINE INPUT FILES
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*

4
Procs/DTSBX420
View File

@ -6,7 +6,7 @@
//** 00001700
//DTSBX420 PROC
//** 00001700
//STEP0100 EXEC PGM=SORT, SORT TRANSACTIONS
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
@ -101,7 +101,7 @@
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//STEP0300 EXEC PGM=SORT, COMBINE BATCH XREF FILES
//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0', COMBINE BATCH XREF FILES
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.&LVLNODE..BX422.BX214,DISP=SHR

2
Procs/DTSBX427
View File

@ -6,7 +6,7 @@
//** 00001700
//DTSBX427 PROC
//** 00001700
//STEP0080 EXEC PGM=SORT, SORT TRANSACTIONS
//STEP0080 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*

1058
Procs/DTSBX427.TXT
View File

File diff suppressed because it is too large Load Diff

4
Procs/DTSBX442
View File

@ -10,7 +10,7 @@
//** CREATE A FILE WITH X163 AND X164 RECORDS ONLY 00001700
//** 00001700
//*********************************************************** 00001700
//STEP4421 EXEC PGM=SORT,
//STEP4421 EXEC PGM=SORT,PARM='VLTEST=0',
// COND=(0,NE)
//SYSOUT DD SYSOUT=*
//*
@ -30,7 +30,7 @@
//** SORT BY RECORD TYPE/EMPLOYER/QUARTER 00001700
//** 00001700
//*********************************************************** 00001700
//STEP4422 EXEC PGM=SORT,
//STEP4422 EXEC PGM=SORT,PARM='VLTEST=0',
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*

3
Procs/DTSBX530
View File

@ -30,7 +30,8 @@
//* SPACE=(30720,(2000,2000),RLSE), 00008000
// SPACE=(CYL,(50,25),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00009000
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX417),DISP=SHR
//*SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX417),DISP=SHR
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX417),DISP=SHR
//*
//STEP0200 EXEC PGM=DTSBX417,
// COND=(0,LT),

63
Procs/DTSD0A
View File

@ -6,43 +6,36 @@
//* FOR REPORT TO GO INTO TRMS CHANGE CLASS TO O 00032000
//***** 00033000
//**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00040000
//*DOESLBL1 EXEC PGM=IEBDG, 00050000
//* COND=(0,LT) 00060000
//*SYSPRINT DD SYSOUT=* 00070000
//*LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00080000
//* UNIT=SYSDA, 00090000
//* SPACE=(TRK,1), 00100000
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00110000
//*SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01), 00120000
//* DISP=SHR 00130000
//**** /* POPULATE THE LABELS WORK FILE 00140000
//DOESLBL1 EXEC PGM=GENT350, 43243434
// COND=(4,LT) 43243434
//SYSOUT DD SYSOUT=* 43243434
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 43243434
// UNIT=SYSDA, 43243434
// SPACE=(TRK,1), 43243434
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 43243434
//DOESLBL1 EXEC PGM=IEBDG, 00050000
// COND=(0,LT) 00060000
//SYSPRINT DD SYSOUT=* 00070000
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00080000
// UNIT=SYSDA, 00090000
// SPACE=(TRK,1), 00100000
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00110000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01), 00120000
// DISP=SHR 00130000
//**** /* POPULATE THE LABELS WORK FILE 00140000
//DOESLBL2 EXEC PGM=IDCAMS, 00150000
// COND=(0,LT) 00160000
// COND=(0,LT) 00160000
//SYSPRINT DD SYSOUT=* 00170000
//FILEIN DD DSN=&&TMP901, 00180000
// DISP=(OLD,DELETE,DELETE), 00190000
// UNIT=SYSDA 00200000
//DOESVRO1 DD DSN=&&LBL901, 00210000
// DISP=(NEW,PASS,DELETE), 00220000
// UNIT=SYSDA, 00230000
// UNIT=SYSDA, 00230000
// SPACE=(8192,(1000,1000),RLSE), 00240000
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00250000
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00250000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02), 00260000
// DISP=SHR 00270000
//** 00280000
//STEP0990 EXEC PGM=DTSBD800, OUTPUT GENERATION 00290000
// COND=(0,LT) 00300000
//SYSOUT DD SYSOUT=I 00310000
//SYSABOUT DD SYSOUT=I 00320000
//SYSUDUMP DD SYSOUT=I 00330000
//SYSPRINT DD SYSOUT=I 00340000
//SYSOUT DD SYSOUT=* 00310000
//SYSABOUT DD SYSOUT=* 00320000
//SYSUDUMP DD SYSOUT=* 00330000
//SYSPRINT DD SYSOUT=* 00340000
//** 00350000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00360000
//** 00370000
@ -411,15 +404,15 @@
// HOLD=&PRTHOLD., 02621000
// DEST=&LDEST. 02630000
//** 02640000
//*DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 02650000
//* COND=(0,LT), 02660000
//* REGION=4096K 02670000
//*DOESVRI1 DD DSN=&&LBL901, 02680000
//* DISP=(OLD,DELETE,DELETE) 02690000
//*SYSOUT DD SYSOUT=* 02700000
//*SYSABOUT DD SYSOUT=* 02710000
//*SYSABEND DD SYSOUT=* 02720000
//*CAIMRPTS DD SYSOUT=* 02730000
//*DOESLBL1 DD SYSOUT=(C),FCB=P104, 02740000
//* DEST=U@PRT155 02750000
//DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 02650000
// COND=(0,LT), 02660000
// REGION=4096K 02670000
//DOESVRI1 DD DSN=&&LBL901, 02680000
// DISP=(OLD,DELETE,DELETE) 02690000
//SYSOUT DD SYSOUT=* 02700000
//SYSABOUT DD SYSOUT=* 02710000
//SYSABEND DD SYSOUT=* 02720000
//CAIMRPTS DD SYSOUT=* 02730000
//DOESLBL1 DD SYSOUT=(C),FCB=P104, 02740000
// DEST=U@PRT155 02750000
//** 02760000

425
Procs/DTSDOA
View File

@ -1,425 +0,0 @@
//***** 00010000
//* UI TAX DAILY UPDATE. 00020000
//* HANDLE BD800 RPT ONLY 00030000
//***** 00030100
//* UPDATED PROC FOR TRMS IMPLEMENTATION ON 8/16/12 ZL1 00031003
//* FOR REPORT TO GO INTO TRMS CHANGE CLASS TO O 00032000
//***** 00033000
//**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00040000
//*DOESLBL1 EXEC PGM=IEBDG, 00050000
//* COND=(0,LT) 00060000
//*SYSPRINT DD SYSOUT=* 00070000
//*LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00080000
//* UNIT=SYSDA, 00090000
//* SPACE=(TRK,1), 00100000
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00110000
//*SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01), 00120000
//* DISP=SHR 00130000
//**** /* POPULATE THE LABELS WORK FILE 00140000
//DOESLBL1 EXEC PGM=GENT350, 43243434
// COND=(4,LT) 43243434
//SYSOUT DD SYSOUT=* 43243434
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 43243434
// UNIT=SYSDA, 43243434
// SPACE=(TRK,1), 43243434
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 43243434
//DOESLBL2 EXEC PGM=IDCAMS, 00150000
// COND=(0,LT) 00160000
//SYSPRINT DD SYSOUT=* 00170000
//FILEIN DD DSN=&&TMP901, 00180000
// DISP=(OLD,DELETE,DELETE), 00190000
// UNIT=SYSDA 00200000
//DOESVRO1 DD DSN=&&LBL901, 00210000
// DISP=(NEW,PASS,DELETE), 00220000
// UNIT=SYSDA, 00230000
// SPACE=(8192,(1000,1000),RLSE), 00240000
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00250000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02), 00260000
// DISP=SHR 00270000
//** 00280000
//STEP0990 EXEC PGM=DTSBD800, OUTPUT GENERATION 00290000
// COND=(0,LT) 00300000
//SYSOUT DD SYSOUT=I 00310000
//SYSABOUT DD SYSOUT=I 00320000
//SYSUDUMP DD SYSOUT=I 00330000
//SYSPRINT DD SYSOUT=I 00340000
//** 00350000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00360000
//** 00370000
//DTSFVRI1 DD DSN=DOESTAX.&LVLNODE..SRTDAILY.RPT(&S0910.),DISP=SHR 00380000
//** 00390000
//DOESVRO1 DD DSN=&&LBL901,DISP=(OLD,PASS,DELETE) 00400000
//** 00410000
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00420000
// AMP=('BUFNI=5,BUFND=10') 00430000
//** 00440000
//PARMIN DD DUMMY 00450000
//** 00460000
//ATLSTIN DD DUMMY 00470000
//** GEN. 1ST LETTER, REG. CYCLE A 00480000
//RPT102R1 DD SYSOUT=I, 00490000
// DEST=&LDEST., 00500000
// HOLD=&PRTHOLD. 00501000
//** GEN. 2ND LETTER, REG. CYCLE A 00510000
//RPT103R1 DD SYSOUT=I, 00520000
// DEST=&LDEST., 00530000
// HOLD=&PRTHOLD. 00531000
//** LTR TO OUT-OF-STATE AGENCY 00540000
//RPT105R1 DD SYSOUT=I, 00550000
// DEST=&LDEST., 00560000
// HOLD=&PRTHOLD. 00561000
//** NOT LIABLE LTR 00570000
//RPT108R1 DD SYSOUT=W, 00580000
// HOLD=&PRTHOLD., 00581000
// DEST=U@PRT155 00590000
//** MISSING CONTRIB & WAGE RPTS 00600000
//RPT109R1 DD SYSOUT=I, 00610000
// DEST=&LDEST., 00620000
// HOLD=&PRTHOLD. 00621000
//** HOUSEHOLD - ANNUAL VERS. 00630000
//RPT109R2 DD SYSOUT=I, 00640000
// DEST=&LDEST., 00650000
// HOLD=&PRTHOLD. 00651000
//** NOTICE OF SUBJECTIVETY 00660000
//RPT112R1 DD SYSOUT=I, 00670000
// DEST=&LDEST., 00680000
// HOLD=&PRTHOLD. 00681000
//** HOUSEHOLD - ANNUAL VERS. 00690000
//RPT112R2 DD SYSOUT=I, 00700000
// DEST=&LDEST., 00710000
// HOLD=&PRTHOLD. 00711000
//** WELCOME LETTER 00720000
//RPT115R1 DD SYSOUT=I, 00730000
// DEST=&LDEST., 00740000
// HOLD=&PRTHOLD. 00741000
//** NEW/REACT/ACTIVATED EMPLYRS 00750000
//RPT116R1 DD SYSOUT=0 00760002
//** (FOR FUTURE USE) 00780000
//RPT116R2 DD SYSOUT=Z, 00790000
// DEST=&LDEST, 00800000
// HOLD=&PRTHOLD. 00801000
//** GEN INACT LTR 00810000
//RPT117R1 DD SYSOUT=W, 00820000
// HOLD=&PRTHOLD., 00821000
// DEST=U@PRT155 00830000
//** '8 QTRS NONE' CANCELLATION LTR 00840000
//RPT117R2 DD SYSOUT=I, 00850000
// HOLD=&PRTHOLD., 00851000
// DEST=&LDEST. 00860000
//** '8 QTRS NONE' CANCELLATION LTR 00870000
//RPT117R3 DD SYSOUT=I, 00880000
// HOLD=&PRTHOLD., 00881000
// DEST=&LDEST. 00890000
//** FR-500 EMPLYR REG. 00900000
//RPT127R1 DD SYSOUT=I, 00910000
// HOLD=&PRTHOLD., 00911000
// DEST=&LDEST. 00920000
//** (FOR FUTURE USE) 00921000
//RPT128R1 DD SYSOUT=Z, 00922000
// DEST=&LDEST, 00923000
// HOLD=&PRTHOLD. 00924000
//** (FOR FUTURE USE) 00925000
//RPT128R2 DD SYSOUT=Z, 00926000
// DEST=&LDEST, 00927000
// HOLD=&PRTHOLD. 00928000
//** (FOR FUTURE USE) 00929000
//RPT128R3 DD SYSOUT=Z, 00929100
// DEST=&LDEST, 00929200
// HOLD=&PRTHOLD. 00929300
//** (FOR FUTURE USE) 00929400
//RPT128R4 DD SYSOUT=Z, 00929500
// DEST=&LDEST, 00929600
// HOLD=&PRTHOLD. 00929700
//** HOUSEHOLD REQUESTS 00930000
//RPT131R1 DD SYSOUT=I, 00940000
// HOLD=&PRTHOLD., 00941000
// DEST=&LDEST. 00950000
//** HOUSEHOLD CONFIRMATIONS 00960000
//RPT131R2 DD SYSOUT=W, 00970000
// HOLD=&PRTHOLD., 00971000
// DEST=U@PRT155 00980000
//* 00980100
//** WEB REGISTRATION ERROR REPORT 00980200
//RPT140R1 DD SYSOUT=Z,HOLD=&LVDHOLD., 00980300
// DEST=LOCAL 00980400
//** 00980500
//** WEB REGISTRATION ERROR REPORT FOR DOWNLOAD 00980600
//RPT140R2 DD DSN=DOESTAX.&MSTNODE..WEBREG.ERR, 00980700
//** DISP=(,CATLG,CATLG), 00980800
// DISP=(OLD,KEEP,KEEP), 00980900
// UNIT=SYSDA, 00981000
// SPACE=(29400,(100,100),RLSE), 00981100
// DCB=(RECFM=FB,LRECL=98,BLKSIZE=29400) 00981200
//* 00981300
//** ICESA DEPOSIT TRANSMITTAL EMAIL REPORT 00981400
//RPT202R1 DD DSN=DOESTAX.&LVLNODE..R202.ICESA,DISP=SHR 00982000
//** DEPOSIT TRANSMITTAL FOR WEB 00983000
//DTSX202F DD DSN=DOESTAX.&LVLNODE..DEPOSIT.X202EXP, 00984000
// DISP=(OLD,KEEP,KEEP), 00985000
// UNIT=SYSDA, 00986000
// SPACE=(CYL,(10,5),RLSE), 00987000
// DCB=(RECFM=FB,LRECL=55,BLKSIZE=5500) 00988000
//** ACCOUNT NUMBER CHANGED 00990000
//RPT204R1 DD DSN=DOESTAX.PROD.RPT204,DISP=SHR 01000000
//** DEST=&LDEST. 01010000
//** BATCH CONTROL SUMMARY 01020000
//RPT301R1 DD SYSOUT=0 01030001
//** ACCT DTL RPT (GL) 01050000
//RPT302R1 DD SYSOUT=0 01060001
//** REVENUE REFUND VOUCHER 01080000
//RPT303R1 DD SYSOUT=O, 01090000
// HOLD=&PRTHOLD., 01091000
// DEST=&LDEST. 01100000
//** LETTER FOR 303R1 (309R1 FORM) 01110000
//RPT303R2 DD SYSOUT=0 01120001
//** CFO REFUND EXPORT FILE 01141000
//RPT303R3 DD DSN=DOESTAX.&LVLNODE..FTP.REFUND.X303EXP, 01142000
//* DISP=(NEW,CATLG,CATLG), 01143000
// DISP=(OLD,KEEP,KEEP), 01144000
// UNIT=SYSDA, 01145000
// SPACE=(CYL,(10,5),RLSE), 01146000
// DCB=(RECFM=FB,LRECL=750,BLKSIZE=7500) 01147000
//** 01148000
//** STATEMENT OF ACCT (CREDIT MEMO-SM) 01149000
//** (DAILY - NORMALLY A CICS DIRECT PRINT) 01150000
//RPT309R1 DD SYSOUT=W, 01160011
// HOLD=&PRTHOLD., 01161000
// DEST=U@PRT155 01170012
//** STATEMENT OF ACCT (CREDIT MEMO-PC) 01180000
//RPT309R2 DD SYSOUT=*, 01190000
// HOLD=&PRTHOLD., 01191000
// DEST=&LDEST. 01200000
//** ESTIMATED REPORT LETTER 01210000
//RPT316R1 DD SYSOUT=W, 01220000
// HOLD=&PRTHOLD., 01221000
// DEST=U@PRT155 01230000
//** TAXABLE WAGE ERROR LETTER 01240000
//RPT317R1 DD SYSOUT=W, 01250000
// DEST=U@PRT155, 01260000
// HOLD=&PRTHOLD. 01270000
//** ELECTRONIC PAYMENT LISTING 1 01280000
//RPT318R1 DD SYSOUT=O, 01290000
// DEST=&LDEST., 01300000
// HOLD=&PRTHOLD. 01310000
//** ELECTRONIC PAYMENT LISTING 2 01320000
//RPT318R2 DD SYSOUT=O, 01330000
// DEST=&LDEST., 01340000
// HOLD=&PRTHOLD. 01350000
//** DAILY RETURNED CHECKS 01360000
//RPT319R1 DD SYSOUT=W, 01370000
// DEST=U@PRT155 01380000
//* HOLD=&PRTHOLD. 01390000
//** DAILY DEBIT REPORT 01400000
//RPT319R2 DD SYSOUT=Z, 01410000
// DEST=&LDEST. 01420000
//* HOLD=&PRTHOLD. 01430000
//** PENALTY ASSESSMENT NOTICE 01431006
//RPT320R1 DD SYSOUT=W, 01431206
// DEST=U@PRT155 01431306
//* HOLD=&PRTHOLD. 01431406
//** PENALTY ASSESSENT LISTING 01431506
//RPT320R2 DD SYSOUT=0 01431606
//* DEST=&LDEST. 01431706
//* HOLD=&PRTHOLD. 01431806
//** SI ADMIN ASSESSMENT LETTER 01431906
//RPT321R1 DD SYSOUT=X, 01432007
// DEST=U@PRT155 01432107
//* HOLD=&PRTHOLD. 01432207
//** PENALTY ASSESSENT LISTING 01432307
//RPT321R2 DD SYSOUT=X 01432407
//* DEST=U@PRT155 01432507
//* HOLD=&PRTHOLD. 01432607
//** SI ADMIN ASSESSMENT LETTER 01432707
//RPT325R1 DD SYSOUT=W, 01432800
//* HOLD=YES 01433000
// DEST=U@PRT155 01433100
//* HOLD=&PRTHOLD. 01434000
//** SI ADMIN ASSESSMENT RPT2 01435000
//RPT325R2 DD SYSOUT=Z, 01436000
// DEST=&LDEST. 01437000
//* HOLD=&PRTHOLD. 01438000
//** SI ADMIN ASSESSMENT RPT3 01439000
//RPT325R3 DD SYSOUT=Z, 01439100
// DEST=&LDEST. 01439200
//* HOLD=&PRTHOLD. 01439300
//** SI ADMIN ASSESSMENT RPT4 01439400
//RPT325R4 DD SYSOUT=Z, 01439500
// DEST=&LDEST. 01439600
//* HOLD=&PRTHOLD. 01439700
//** SI ADMIN ASSESSMENT RPT5 01440100
//RPT325R5 DD SYSOUT=Z, 01440200
// DEST=&LDEST. 01440300
//* HOLD=&PRTHOLD. 01440400
//** LIEN FORMS (& R3?) 01441000
//RPT403R1 DD SYSOUT=*,DEST=U@PRT65,HOLD=YES 01442013
//*PT403R1 DD SYSOUT=I, 01450013
//* HOLD=&PRTHOLD., 01451013
//* DEST=&LDEST. 01460013
//** LICENSE LIEN LTR 01470000
//** (NO LONGER PRODUCED IN THIS FORM 991025) 01480000
//RPT403R2 DD SYSOUT=*,DEST=U@PRT65,HOLD=YES 01490000
//**RPT403R2 DD SYSOUT=I, 01500000
//** DEST=&LDEST. 01510000
//** LIEN PKG PRTED CONTROL RPT 01520000
//*PT404R1 DD SYSOUT=(V,DTS404D1),HOLD=&LVDHOLD., 01530000
//RPT404R1 DD SYSOUT=0 01540005
//* DEST=&LDEST. 01550005
//** STATEMENT OF ACCT (DEBIT MEMO-SM) 01560000
//** (DAILY - NORMALLY A CICS DIRECT PRINT) 01570000
//RPT414R1 DD SYSOUT=W, 01580000
// HOLD=&PRTHOLD., 01581000
// DEST=U@PRT155 01590000
//** STATEMENT OF ACCT (PAGE 2) 01600000
//RPT414R2 DD SYSOUT=W, 01610000
// HOLD=&PRTHOLD., 01611000
// DEST=U@PRT155 01620000
//** COPY FOR DEPT. 01630000
//** (NO LONGER PRODUCED IN THIS FORM 991125) 01640000
//RPT414R3 DD SYSOUT=*,DEST=U@PRT65,HOLD=YES 01650000
//**RPT414R3 DD SYSOUT=I, 01660000
//** DEST=&LDEST. 01670000
//** STATEMENT OF ACCT OVERNIGHT PRINTING 01671000
//RPT414R4 DD DSN=DOESTAX.PROD.R414.EXCL.RPT4,DISP=SHR 01671100
//RPT414R5 DD DSN=DOESTAX.PROD.R414.EXCL.RPT5,DISP=SHR 01671300
//RPT414R6 DD DSN=DOESTAX.PROD.R414.EXCL.RPT6,DISP=SHR 01671500
//** STATEMENT OF ACCT OVERNIGHT PRINTING 01671600
//RPT415R1 DD SYSOUT=W, 01672000
// HOLD=&PRTHOLD., 01672100
// DEST=U@PRT155 01673000
//** STATEMENT OF ACCT OVERNIGHT REPORT 01674000
//RPT416R1 DD SYSOUT=Z, 01675000
// HOLD=&PRTHOLD., 01675100
// DEST=&LDEST. 01676000
//** INCR IN TOTAL BAL DUE 01680000
//RPT424R1 DD SYSOUT=0 01690001
//** MISSING RPTS ESTB LST (FCO) 01710000
//RPT425R1 DD SYSOUT=0 01720001
//** ACCTS REC AUDIT TRAIL RPT 01740000
//RPT432R1 DD SYSOUT=0 01750001
//** DEFERRED PAYMENT CONTRACT 01770000
//RPT434R1 DD SYSOUT=I,COPIES=3, 01780000
// HOLD=&PRTHOLD., 01781000
// DEST=&LDEST. 01790000
//** RATE DISCREPANCY LST 01800000
//RPT502R1 DD SYSOUT=0 01810001
//** RATE NOTICES (632) 01830000
//RPT503R1 DD SYSOUT=W, 01840000
// HOLD=&PRTHOLD., 01841000
// DEST=U@PRT155 01850000
//** RATE NOTICES (632A) 01860000
//RPT503R2 DD SYSOUT=W, 01870000
// HOLD=&PRTHOLD., 01871000
// DEST=U@PRT155 01880000
//** RATE FILE FOR ESSP - NOT NEEDED FOR DAILY 01880108
//RPT503R3 DD DUMMY 01881008
//** FLD ASSGN RPT - TAX DATA 01890000
//RPT603R1 DD SYSOUT=0 01900001
//** FLD ASSGN RPT - WAGE DATA 01920000
//RPT604R1 DD SYSOUT=0 01930001
//** 01940001
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR 01950000
//DTSFNAME DD DSN=DOESTAX.&MSTNODE..VSAM.WAGE.NAME,DISP=SHR 01960000
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 01970000
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 01980000
//** 01990000
//REPORTF1 DD DSN=&&REPORTF1, 02000000
// DISP=(,PASS,DELETE), 02010000
// UNIT=SYSDA, 02020000
// SPACE=(18000,(100,100),RLSE), 02030000
// DCB=(RECFM=FB,LRECL=18,BLKSIZE=18000) 02040000
//** 02050000
//** AUDIT SURVEY CARDS 02060000
//RPT608R1 DD SYSOUT=W, 02070000
// HOLD=&PRTHOLD., 02071000
// DEST=U@PRT155 02080000
//** AUDIT NOTIFICATION LETTER 02080100
//RPT615R1 DD SYSOUT=I, 02080200
// HOLD=&PRTHOLD., 02080300
// DEST=&LDEST. 02080400
//** FUTA CERTIFICATION OVERNIGHT PRINTING 02081000
//RPT711R1 DD SYSOUT=I, 02082000
// HOLD=&PRTHOLD., 02082100
// DEST=&LDEST. 02083000
//** REQ FOR FEIN LETTER 02090000
//** (DISTINCT FROM RPT903R1) 02100000
//RPT712R1 DD SYSOUT=W, 02110000
// HOLD=&PRTHOLD., 02111000
// DEST=U@PRT155 02120000
//** TICKLER TRIG OVERDUE LST 02130000
//** TRIG DTE<=(CURRDTE-#PARMDAYS) 02140000
//RPT724R1 DD SYSOUT=0 02150001
//** LMI MISSING EMPLOYEE LTR 02170000
//RPT726R1 DD SYSOUT=W, 02180000
// HOLD=&PRTHOLD., 02181000
// DEST=U@PRT155 02190000
//** EMPLOYER WAGE REQUEST 02200000
//RPT751R1 DD SYSOUT=I, 02210000
// HOLD=&PRTHOLD., 02211000
// DEST=&LDEST. 02220000
//** /* NO LONGER PRODUCED THIS WAY (05/17/01) 02230000
//** /* EXTRACT & PRINT LABELS (8-LINE) 02240000
//**RPT901R1 DD SYSOUT=(C,,6662),FCB=P663, 02250000
//** DEST=&LDEST. 02260000
//** WAGE RPTS (UC-30/FORM 30) DAILY 02270000
//RPT902R1 DD SYSOUT=I, 02280000
// HOLD=&PRTHOLD., 02281000
// DEST=&LDEST. 02290000
//** SUR TAX (UC-30/FORM 30) DAILY 02291000
//RPT902R2 DD SYSOUT=I, 02292000
// HOLD=&PRTHOLD., 02293000
// DEST=&LDEST. 02294000
//** WAGE RPTS (UC-30/FORM 30) QTRLY 02300000
//DTS902F1 DD DUMMY 02310000
//** REQ FOR FED ID (UC-643) 02320000
//RPT903R1 DD SYSOUT=W, 02330000
// HOLD=&PRTHOLD., 02331000
// DEST=U@PRT155 02340000
//** DAILY UPDATE CONTROL REPORT 02350000
//RPT904R1 DD SYSOUT=Q,HOLD=&PRTHOLD., 02360000
// DEST=&LDEST. 02370000
//** ONLINE RECOVERY/RESTART REPORT 02380000
//RPT905R1 DD SYSOUT=Q,HOLD=&PRTHOLD., 02390000
// DEST=&LDEST. 02400000
//** ONLINE UPDT LOG PARMS (MUST BE HERE*) 02410000
//PARM906 DD DUMMY,DCB=BLKSIZE=80 02420000
//** ONLINE UPDT LOG RPT 02430000
//** (DAILY -NORMALLY AN 'ON REQ' RPT 02440000
//RPT906R1 DD SYSOUT=Q,HOLD=YES, 02450000
// DEST=&LDEST. 02460000
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 02470000
//RPT907R1 DD SYSOUT=Q,HOLD=&PRTHOLD., 02480000
// DEST=&LDEST. 02490000
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT 02500000
//RPT907R2 DD SYSOUT=Q,HOLD=&PRTHOLD., 02510000
// DEST=&LDEST. 02520000
//** WAGE RPTS (UC-30H/HOUSEHOLD) YRLY 02530000
//DTS910F1 DD DUMMY 02540000
//** UC-30 NOTICES - HOUSEHOLD DAILY 02550000
//RPT910R1 DD SYSOUT=I, 02560000
// HOLD=&PRTHOLD., 02561000
// DEST=&LDEST. 02570000
//** ADMIN ASSESSMENT UC-30 NOTICES - HOUSEHOLD DAILY 02571000
//RPT910R2 DD SYSOUT=I, 02572000
// HOLD=&PRTHOLD., 02573000
// DEST=&LDEST. 02574000
//** CONTROL REPORT SUMMARY 02580000
//RPT980R1 DD SYSOUT=Q,COPIES=2, 02590000
// HOLD=&PRTHOLD., 02591000
// DEST=&LDEST. 02600000
//** EXPORT CONTROL REPORTS 02610000
//RPT991R1 DD SYSOUT=Q, 02620000
// HOLD=&PRTHOLD., 02621000
// DEST=&LDEST. 02630000
//** 02640000
//*DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 02650000
//* COND=(0,LT), 02660000
//* REGION=4096K 02670000
//*DOESVRI1 DD DSN=&&LBL901, 02680000
//* DISP=(OLD,DELETE,DELETE) 02690000
//*SYSOUT DD SYSOUT=* 02700000
//*SYSABOUT DD SYSOUT=* 02710000
//*SYSABEND DD SYSOUT=* 02720000
//*CAIMRPTS DD SYSOUT=* 02730000
//*DOESLBL1 DD SYSOUT=(C),FCB=P104, 02740000
//* DEST=U@PRT155 02750000
//** 02760000

Some files were not shown because too many files have changed in this diff Show More