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
115 changed files with 155139 additions and 20274 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

3264
Batch/DTSBS413.cob Normal file
View File

File diff suppressed because it is too large Load Diff

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

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

7
CICS/UCTRAN41.cob
View File

@ -37,9 +37,10 @@
END-IF
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

5
CICSFiles.txt Normal file
View File

@ -0,0 +1,5 @@
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCS26.cob

16
CompileOptions.txt
View File

@ -1,14 +1,8 @@
-IgnoreParseError=TRUE
-OutputDir=E:\DUTAS\src\TempBuild
-KeepPreProFiles=TRUE
-OutputDir=E:\Faizan_Folder\DUTAS_DEV_UPDATE\bin\CICS\dll
-RemoveFileVerifyFailed=FALSE
-IncrementalMode=TRUE
-DBDriver=sqlite
-DBConnectString=MetaData.db3
; ======= please only configure things below this line =======
; ======= -Margins=2,72
; ======= -ParallelThreadCount=4
; ======= :AddPreProcessor=&SQL,MACRO,OUT(EXT(.W1)),MACRO,OUT(EXT(.W))
-MaxMem=1000
-IncludeSearchPath=E:\DUTAS\src\COPYBOOK
-IncludeExtension=.txt
-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

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

16
JCL/DTSGSID2.jcl
View File

@ -24,7 +24,7 @@
//** 00001700
//STEP0100 EXEC DTSBX479
//** 00001700
//STEP0200 EXEC PGM=SYNCSORT,
//STEP0200 EXEC PGM=SORT,
// COND=(0,LT),
// REGION=4096K
//SORT.SYSPRINT DD SYSOUT=*
@ -34,7 +34,7 @@
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.PROD.BACKUP.W4FILE(+0),DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W2FILE,DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W2FILE.TEMP,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
@ -45,7 +45,7 @@
INCLUDE COND=(11,2,CH,EQ,C'W1')
//*
//** 00001700
//STEP0250 EXEC PGM=SYNCSORT,
//STEP0250 EXEC PGM=SORT,
// COND=(0,LT),
// REGION=4096K
//SORT.SYSPRINT DD SYSOUT=*
@ -54,7 +54,7 @@
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.CONV.UIBS.W2FILE,DISP=SHR
//SORTIN DD DSN=DOESTAX.CONV.UIBS.W2FILE.TEMP,DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W2FILE,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
@ -65,7 +65,7 @@
SORT FIELDS=(1,9,CH,A,44,5,CH,A,57,6,CH,A)
SUM FIELDS=NONE
//*
//STEP0300 EXEC PGM=SYNCSORT,
//STEP0300 EXEC PGM=SORT,
// COND=(0,LT),
// REGION=4096K
//SORT.SYSPRINT DD SYSOUT=*
@ -75,7 +75,7 @@
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.PROD.BACKUP.W4FILE(+0),DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W4FILE.TEMP,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
@ -86,7 +86,7 @@
INCLUDE COND=(11,2,CH,EQ,C'W4')
//*
//** 00001700
//STEP0350 EXEC PGM=SYNCSORT,
//STEP0350 EXEC PGM=SORT,
// COND=(0,LT),
// REGION=4096K
//SORT.SYSPRINT DD SYSOUT=*
@ -95,7 +95,7 @@
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR
//SORTIN DD DSN=DOESTAX.CONV.UIBS.W4FILE.TEMP,DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)

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

10
JobInputFiles.txt Normal file
View File

@ -0,0 +1,10 @@
//JOBINPUT JOB (INNOVA,DEV,TEAM),FAIZAN,CLASS=S,MSGCLASS=X
//STEP318 EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//DD0318 DD DSN=DOESTAX.PROD.BE320.PENALTY.Q251,
// DISP=(NEW,CATLG,CATLG),
// CODEPAGE=1252,AUTOENCODE=YES,
//* 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

93538
Maps/DTSMSET.xml Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
MetaData.db3
View File

Binary file not shown.

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

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

2
Procs/DTSDUPDU
View File

@ -347,7 +347,7 @@
// DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X153,DISP=SHR 02264099
//OUTDD01 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X153,DISP=SHR 02264199
//**** 02264299
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSRONE),DISP=SHR 02264399
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR 02264399
//**** 02264499
//** 02264599
//DTSDRPTS INCLUDE MEMBER=DTSD0A /* OUTPUT GENERATION 02264699

3
Procs/DTSNXPEN
View File

@ -22,7 +22,8 @@
// UNIT=SYSDA,
// SPACE=(30720,(1000,1000),RLSE), 00008000
// 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=DTSBX419,
// COND=(0,LT),

4
Procs/DTSREGPT
View File

@ -12,7 +12,7 @@
// UNIT=SYSDA, 00002206
// SPACE=(TRK,1), 00002306
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002406
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSLBL01), 00002506
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSLBL01), 00002506
// DISP=SHR 00002606
//**** /* POPULATE THE LABELS WORK FILE 00003105
//DOESLBL2 EXEC PGM=IDCAMS, 00003206
@ -26,7 +26,7 @@
// UNIT=SYSDA, 00004005
// SPACE=(8192,(1000,1000),RLSE), 00004105
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00004205
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSLBL02), 00004305
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSLBL02), 00004305
// DISP=SHR 00004405
//** 00004705
//STEP0100 EXEC PGM=DTSBD800, OUTPUT GENERATION

2
Procs/DTSRERPT
View File

@ -12,7 +12,7 @@
// UNIT=SYSDA, 00002206
// SPACE=(TRK,1), 00002306
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002406
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSLBL01), 00002506
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSLBL01), 00002506
// DISP=SHR 00002606
//**** /* POPULATE THE LABELS WORK FILE 00003105
//DOESLBL2 EXEC PGM=IDCAMS, 00003206

64
Procs/DTSRINIT
View File

@ -23,68 +23,68 @@
//DTSR202 DD DSN=DOESTAX.CONV.RPT.R202,DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//STEP0600 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSBX101 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X101,
// DISP=(OLD,DELETE,DELETE)
//DTSBX101 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X101
// ,DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//STEP0610 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSBX102 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X102,
// DISP=(OLD,DELETE,DELETE)
//DTSBX102 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X102
// ,DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//STEP0620 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSBX104 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X104,
// DISP=(OLD,DELETE,DELETE)
//DTSBX104 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X104
// ,DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//STEP0630 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSBX106 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X106,
// DISP=(OLD,DELETE,DELETE)
//DTSBX106 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X106
// ,DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//STEP0640 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSBX108 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X108,
// DISP=(OLD,DELETE,DELETE)
//DTSBX108 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X108
// ,DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//STEP0650 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSBX110 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X110,
// DISP=(OLD,DELETE,DELETE)
//DTSBX110 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X110
// ,DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//STEP0660 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSBX120 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X120,
// DISP=(OLD,DELETE,DELETE)
//DTSBX120 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X120
// ,DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//STEP0670 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSBX140 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X140,
// DISP=(OLD,DELETE,DELETE)
//DTSBX140 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X140
// ,DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//STEP0680 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSBX144 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X144,
// DISP=(OLD,DELETE,DELETE)
//DTSBX144 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X144
// ,DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//STEP0690 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSBX145 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X145,
// DISP=(OLD,DELETE,DELETE)
//DTSBX145 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X145
// ,DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//STEP0700 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSBX149 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X149,
// DISP=(OLD,DELETE,DELETE)
//DTSBX149 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X149
// ,DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//STEP0710 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSBX144 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X144,
// DISP=(OLD,DELETE,DELETE)
//DTSBX144 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X144
// ,DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//STEP0720 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSBX150 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150,
// DISP=(OLD,DELETE,DELETE)
//DTSBX150 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150
// ,DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//STEP0730 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSBX151 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151,
// DISP=(OLD,DELETE,DELETE)
//DTSBX151 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151
// ,DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//STEP0730 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSBX152 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152,
// DISP=(OLD,DELETE,DELETE)
//DTSBX152 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152
// ,DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//STEP0740 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSBX155 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X155,
// DISP=(OLD,DELETE,DELETE)
//DTSBX155 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X155
// ,DISP=(OLD,DELETE,DELETE)
//*********************************************************************
//STEP0800 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//DTSFR202 DD DSN=DOESTAX.PROD.RPT.R202,

19
Procs/DTSRMTR
View File

@ -6,12 +6,19 @@
//*****
//* 00001600
//**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00001702
//DOESLBL1 EXEC PGM=IEBDG, 00001801
// COND=(0,LT) 00001801
//SYSPRINT DD SYSOUT=* 00001900
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00002001
// UNIT=SYSDA, 00002100
// SPACE=(TRK,1), 00002202
//*DOESLBL1 EXEC PGM=IEBDG, 00001801
//* COND=(0,LT) 00001801
//*SYSPRINT DD SYSOUT=* 00001900
//*LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00002001
//* UNIT=SYSDA, 00002100
//* SPACE=(TRK,1), 00002202
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002300
//DOESLBL1 EXEC PGM=GENT350, 00002300
// COND=(4,LT) 00002300
//SYSOUT DD SYSOUT=* 00002300
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00002300
// UNIT=SYSDA, 00002300
// SPACE=(TRK,1), 00002300
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002300
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01), 00002405
// DISP=SHR 00002505

2
Procs/DTSRQ602
View File

@ -11,7 +11,7 @@
// UNIT=SYSDA, 00002206
// SPACE=(TRK,1), 00002306
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002406
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSLBL01), 00002506
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSLBL01), 00002506
// DISP=SHR 00002606
//**** /* POPULATE THE LABELS WORK FILE 00003105
//DOESLBL2 EXEC PGM=IDCAMS, 00003206

2
Procs/DTSRQRPT
View File

@ -12,7 +12,7 @@
// UNIT=SYSDA, 00002206
// SPACE=(TRK,1), 00002306
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00002406
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSLBL01), 00002506
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSLBL01), 00002506
// DISP=SHR 00002606
//**** /* POPULATE THE LABELS WORK FILE 00003105
//DOESLBL2 EXEC PGM=IDCAMS, 00003206

2
Procs/DTSRS320
View File

@ -2,7 +2,7 @@
//DTSRSORT PROC
//*
//*********************************************************************
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS
//STEP0100 EXEC PGM=SORT, SORT REPORT RECORDS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.PROD.BE320.RPT(+1),DISP=SHR

2
Procs/DTSUX332
View File

@ -36,7 +36,7 @@
//DTSFBTCO DD DUMMY 00050039
//SYSIN DD DDNAME=EXTPARM 00081019
//**** 00090001
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', 00100025
//STEP0200 EXEC PGM=SORT, 00100025
// COND=(0,LT) 00110025
//SYSOUT DD SYSOUT=* 00120025
//SORTIN DD DSN=&&DTSBE332, 00130047

2
Procs/DTSUX770
View File

@ -61,7 +61,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=&&BE770TRN,

112
Procs/DTSUX777 Normal file
View File

@ -0,0 +1,112 @@
//*****
//* UI TAX PERIODIC EXTRACT: DATA VALIDATION
//*
//* 04/02/2009 ADDED TPS STATUS FILES, CHANGED DATA
//* VALIDATION FILES FROM TEMPORARY TO PERMANENT. GD
//*
//*****
//DTSUX777 PROC RUNTYPE='OR',
// PREBACK='N',
// CHKONLY='N',
// IOTRACE='Y'
//****
//STEP0100 EXEC PGM=DTSBD400, PERIODIC EXTRACT
// COND=(0,LT),
// PARM='&RUNTYPE.,&PREBACK.,&CHKONLY.,&IOTRACE.'
//*
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//*
//DTSFWGH DD DSN=DOESTAX.PROD.VSAM.TAXWGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//*
//*OCSMSTR INCLUDE MEMBER=DOCIMSTR
//*
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 01760006
// AMP=('BUFNI=5,BUFND=10') 01770006
//DTSFBTCO DD DSN=&&BE770TRN,
// DISP=(NEW,PASS,DELETE),
// SPACE=(16384,(950,750),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//BE770PRM DD DSN=DOESTAX.PROD.BE770PRM,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(77,(1,1),RLSE),
// DCB=(RECFM=FB,LRECL=77,BLKSIZE=77)
//TPSSTAT1 DD DSN=DOESTAX.&LVLNODE..TPS.STATUS.QTR1,
//** DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(5,5),RLSE),
// DCB=(RECFM=FB,LRECL=56,BLKSIZE=28000)
//*
//TPSSTAT2 DD DSN=DOESTAX.&LVLNODE..TPS.STATUS.QTR2,
//** DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(5,5),RLSE),
// DCB=(RECFM=FB,LRECL=56,BLKSIZE=28000)
//*
//TPSSTAT3 DD DSN=DOESTAX.&LVLNODE..TPS.STATUS.QTR3,
//** DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(5,5),RLSE),
// DCB=(RECFM=FB,LRECL=56,BLKSIZE=28000)
//*
//TPSSTAT4 DD DSN=DOESTAX.&LVLNODE..TPS.STATUS.QTR4,
//** DISP=(,CATLG,DELETE),
// DISP=(OLD,KEEP,KEEP),
// SPACE=(CYL,(5,5),RLSE),
// DCB=(RECFM=FB,LRECL=56,BLKSIZE=28000)
//*
//DTSFVRO1 DD DUMMY
//SYSIN DD DDNAME=EXTPARM
//*********************************************************************
//STEP0200 EXEC PGM=SORT, SORT
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&&BE770TRN,
// DISP=(OLD,PASS,DELETE)
//SORTOUT DD DSN=&&BE770SRT,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(16384,(950,700),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSY770),DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(90,25),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(90,25),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(90,25),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(90,25),RLSE)
//*********************************************************************
//STEP0300 EXEC PGM=DTSBX770, BUILD RECONSTRUCTION FILE
// COND=(0,LT)
//*
//BE770PRM DD DSN=DOESTAX.PROD.BE770PRM,
// DISP=(SHR)
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR, 01760006
// AMP=('BUFNI=5,BUFND=10') 01770006
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(16394,(900,900),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//DTSFBTCI DD DSN=&&BE770SRT,
// DISP=(OLD,PASS,DELETE)
//DTSX771 DD DSN=DOESTAX.&LVLNODE..BX771TRN,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(23500,(200,200),RLSE),
// DCB=(RECFM=FB,LRECL=235,BLKSIZE=23500)
//DTSX772 DD DSN=DOESTAX.&LVLNODE..BX772TRN,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(24800,(200,200),RLSE),
// DCB=(RECFM=FB,LRECL=124,BLKSIZE=24800)
//DTSX773 DD DSN=DOESTAX.&LVLNODE..BX773TRN,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(16300,(500,300),RLSE),
// DCB=(RECFM=FB,LRECL=163,BLKSIZE=16300)
//DTSX774 DD DSN=DOESTAX.&LVLNODE..BX774TRN,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(23250,(1500,500),RLSE),
// DCB=(RECFM=FB,LRECL=155,BLKSIZE=23250)
//DTSX775 DD DSN=DOESTAX.&LVLNODE..BX775TRN,
// DISP=(OLD,KEEP,KEEP),
// SPACE=(24600,(1500,500),RLSE),
// DCB=(RECFM=FB,LRECL=250,BLKSIZE=25000)

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