Compare commits
2 Commits
558b3dcb41
...
main
| Author | SHA1 | Date | |
|---|---|---|---|
| f8b9dd0f56 | |||
| 62d95f14f0 |
@ -1,146 +0,0 @@
|
||||
* 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
|
||||
@ -212,7 +212,7 @@
|
||||
00211 ++INCLUDE DTSIL981 DESBD471
|
||||
00212 DESBD471
|
||||
00213 01 WWGH-REC. DESBD471
|
||||
00214 ++INCLUDE DTSIWWGZ DESBD471
|
||||
00214 ++INCLUDE DTSIWWGH DESBD471
|
||||
00215 DESBD471
|
||||
00216 01 L983-LINK-AREA. DESBD471
|
||||
00217 ++INCLUDE DTSIL983 DESBD471
|
||||
|
||||
@ -209,7 +209,7 @@
|
||||
00208 ++INCLUDE DTSIL981 CL*69
|
||||
00209 CL*69
|
||||
00210 01 WWGH-REC. CL*69
|
||||
00211 ++INCLUDE DTSIWWGZ CL*69
|
||||
00211 ++INCLUDE DTSIWWGH CL*69
|
||||
00212 CL*69
|
||||
00213 01 L983-LINK-AREA. DESBD481
|
||||
00214 ++INCLUDE DTSIL983 DESBD481
|
||||
|
||||
@ -1,228 +0,0 @@
|
||||
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
|
||||
@ -280,11 +280,7 @@
|
||||
00280 01 WRK-REC. DTSBD998
|
||||
00281 ++INCLUDE DTSIVSKL DTSBD998
|
||||
00282 EJECT 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
|
||||
00283 FD OLA-FILE. DTSBD998
|
||||
00284 DTSBD998
|
||||
00285 01 RSKL-REC. DTSBD998
|
||||
00286 ++INCLUDE DTSIRSK1 DTSBD998
|
||||
|
||||
@ -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
|
||||
|
||||
@ -73,11 +73,7 @@
|
||||
00073 SKIP3 DTSBU924
|
||||
00074 FILE SECTION. DTSBU924
|
||||
00075 SKIP3 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
|
||||
00076 FD OLA-FILE. DTSBU924
|
||||
00077 CL**2
|
||||
00078 01 FILE-REC. DTSBU924
|
||||
00079 ++INCLUDE DTSIRVAR CL**2
|
||||
|
||||
@ -87,7 +87,7 @@
|
||||
00087 FD WGH-FILE. DTSBU981
|
||||
00088 DTSBU981
|
||||
00089 01 FILE-REC. DTSBU981
|
||||
00090 ++INCLUDE DTSIWWGZ DTSBU981
|
||||
00090 ++INCLUDE DTSIWWGH 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 DTSIWWGZ DTSBU981
|
||||
00133 ++INCLUDE DTSIWWGH DTSBU981
|
||||
00134 EJECT DTSBU981
|
||||
00135 PROCEDURE DIVISION USING L981-LINK-AREA DTSBU981
|
||||
00136 LINK-REC. DTSBU981
|
||||
|
||||
@ -1,372 +0,0 @@
|
||||
00001 IDENTIFICATION DIVISION. 03/14/16
|
||||
00002 PROGRAM-ID. DTSBU985. DTSBU985
|
||||
00003 AUTHOR. NGI. LV006
|
||||
00004 DATE-WRITTEN. DECEMBER 2015. CL**2
|
||||
00005 DATE-COMPILED. DTSBU985
|
||||
00006 SKIP3 DTSBU985
|
||||
00007 ***** DTSBU985
|
||||
00008 * DTSBU985
|
||||
00009 * FUNCTION: GET BATCH NO FROM SERVER HISTORY FILE CL**2
|
||||
00010 * DTSBU985
|
||||
00011 * DTSBU985
|
||||
00012 * MODIFICATION LOG: DTSBU985
|
||||
00013 * DTSBU985
|
||||
00014 * 12/15/2015 INITIAL DEVELOPMENT. CL**2
|
||||
00015 * WORK ORDER: PROGRAMMER: ZL1 CL**2
|
||||
00016 * DTSBU985
|
||||
00017 * DTSBU985
|
||||
00018 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU985
|
||||
00019 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU985
|
||||
00020 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBU985
|
||||
00021 * DTSBU985
|
||||
00022 * DTSBU985
|
||||
00023 * DESCRIPTION: DTSBU985
|
||||
00024 * DTSBU985
|
||||
00025 * DTSBU985 PERFORMS ALL REQUIRED BATCH HISTORY FILE CL**2
|
||||
00026 * INPUT/OUTPUT. DTSBU985
|
||||
00027 * DTSBU985
|
||||
00028 * DTSBU985
|
||||
00029 * GENERAL SPECIFICATIONS: DTSBU985
|
||||
00030 * DTSBU985
|
||||
00031 * ALL COMMANDS ARE VALID. DTSBU985
|
||||
00032 * DTSBU985
|
||||
00033 * IF AN INVALID COMMAND IS REQUESTED, THEN ABEND THE DTSBU985
|
||||
00034 * MODULE. DTSBU985
|
||||
00035 * DTSBU985
|
||||
00036 * IF A FILE-STATUS OF OTHER THAN '00', '10', OR '23' IS DTSBU985
|
||||
00037 * ENCOUNTERED, THEN ABEND PROCESSING (TOLERATE A DTSBU985
|
||||
00038 * FILE-STATUS OF '97' FROM AN OPEN COMMAND). DTSBU985
|
||||
00039 * DTSBU985
|
||||
00040 * DTSBU985
|
||||
00041 * DTSBU985
|
||||
00042 * COMMAND SPECIFIC SPECIFICATIONS: DTSBU985
|
||||
00043 * DTSBU985
|
||||
00044 * OPEN-READ DTSBU985
|
||||
00045 * OPEN INPUT. DTSBU985
|
||||
00046 * DTSBU985
|
||||
00047 * OPEN-UPDATE DTSBU985
|
||||
00048 * OPEN I-O. DTSBU985
|
||||
00049 * DTSBU985
|
||||
00050 * CLOSE DTSBU985
|
||||
00051 * DTSBU985
|
||||
00052 * READ DTSBU985
|
||||
00053 * DTSBU985
|
||||
00054 * START BROWSE DTSBU985
|
||||
00055 * IF THE START-BROWSE IS SUCCESSFUL, THEN PERFORM THE DTSBU985
|
||||
00056 * READ-NEXT LOGIC. A SUCCESSFUL START-BROWSE RETURNS DTSBU985
|
||||
00057 * A RECORD. DTSBU985
|
||||
00058 * DTSBU985
|
||||
00059 * READ NEXT DTSBU985
|
||||
00060 * DTSBU985
|
||||
00061 * WRITE DTSBU985
|
||||
00062 * DTSBU985
|
||||
00063 * REWRITE DTSBU985
|
||||
00064 * DTSBU985
|
||||
00065 * DELETE DTSBU985
|
||||
00066 * DTSBU985
|
||||
00067 * DTSBU985
|
||||
00068 ***** DTSBU985
|
||||
00069 SKIP3 DTSBU985
|
||||
00070 ENVIRONMENT DIVISION. DTSBU985
|
||||
00071 SKIP2 DTSBU985
|
||||
00072 INPUT-OUTPUT SECTION. DTSBU985
|
||||
00073 DTSBU985
|
||||
00074 FILE-CONTROL. DTSBU985
|
||||
00075 SELECT BATCH-FILE ASSIGN TO DTSFBAT CL**2
|
||||
00076 ORGANIZATION IS INDEXED DTSBU985
|
||||
00077 RECORD KEY IS WBAT-KEY-AREA OF FILE-REC CL**2
|
||||
00078 FILE STATUS IS FILE-STATUS DTSBU985
|
||||
00079 ACCESS IS DYNAMIC. DTSBU985
|
||||
00080 SKIP3 DTSBU985
|
||||
00081 DATA DIVISION. DTSBU985
|
||||
00082 SKIP3 DTSBU985
|
||||
00083 FILE SECTION. DTSBU985
|
||||
00084 SKIP3 DTSBU985
|
||||
00085 FD BATCH-FILE. CL**2
|
||||
00086 DTSBU985
|
||||
00087 01 FILE-REC. DTSBU985
|
||||
00088 ++INCLUDE DTSIWBAT CL**2
|
||||
00089 EJECT DTSBU985
|
||||
00090 WORKING-STORAGE SECTION. DTSBU985
|
||||
000905 77 PAN-VALET PICTURE X(24) VALUE '006DTSBU985 03/14/16'. DTSBU985
|
||||
00091 77 PAN-VALET PICTURE X(24) VALUE '011DTSBU981 04/05/04'. DTSBU985
|
||||
00092 SKIP3 DTSBU985
|
||||
00093 01 WRK-AREA. DTSBU985
|
||||
00094 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +985. CL**2
|
||||
00095 DTSBU985
|
||||
00096 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBU985'. CL**2
|
||||
00097 DTSBU985
|
||||
00098 05 WRK-REC-PREFIX PIC X(04). DTSBU985
|
||||
00099 DTSBU985
|
||||
00100 05 WRK-KEY-LENGTH PIC S9(04) COMP DTSBU985
|
||||
00101 VALUE +12. DTSBU985
|
||||
00102 DTSBU985
|
||||
00103 05 FILE-STATUS PIC X(02). DTSBU985
|
||||
00104 88 FILE-OK-88 VALUE '00'. DTSBU985
|
||||
00105 88 FILE-NO-REC-88 VALUE '10' '23'. DTSBU985
|
||||
00106 88 FILE-DUP-REC-88 VALUE '22'. DTSBU985
|
||||
00107 88 FILE-VERIFY-88 VALUE '97'. DTSBU985
|
||||
00108 EJECT DTSBU985
|
||||
00109 01 WS-SPEC-DISP-AREA. DTSBU985
|
||||
00110 DTSBU985
|
||||
00111 10 WS-KEY-AREA. DTSBU985
|
||||
00112 15 WS-EMP-NO PIC 9(07). DTSBU985
|
||||
00113 15 FILLER PIC X(01) VALUE SPACE. DTSBU985
|
||||
00114 15 WS-YRQ PIC 9(05). DTSBU985
|
||||
00115 15 FILLER PIC X(01) VALUE SPACE. DTSBU985
|
||||
00116 15 WS-SSN PIC 9(09). DTSBU985
|
||||
00117 15 FILLER PIC X(01) VALUE SPACE. DTSBU985
|
||||
00118 DTSBU985
|
||||
00119 10 WS-DATA-AREA. DTSBU985
|
||||
00120 15 WS-EARNINGS PIC 9(09)V99-. DTSBU985
|
||||
00121 EJECT DTSBU985
|
||||
00122 01 L991-LINK-AREA. DTSBU985
|
||||
00123 ++INCLUDE DTSIL991 DTSBU985
|
||||
00124 EJECT DTSBU985
|
||||
00125 LINKAGE SECTION. DTSBU985
|
||||
00126 SKIP3 DTSBU985
|
||||
00127 01 L985-LINK-AREA. CL**2
|
||||
00128 ++INCLUDE DTSIL985 CL**2
|
||||
00129 EJECT DTSBU985
|
||||
00130 01 LINK-REC. DTSBU985
|
||||
00131 05 WBAT-REC. CL**2
|
||||
00132 ++INCLUDE DTSIWBAT CL**2
|
||||
00133 EJECT DTSBU985
|
||||
00134 PROCEDURE DIVISION USING L985-LINK-AREA CL**2
|
||||
00135 LINK-REC. DTSBU985
|
||||
00136 DTSBU985
|
||||
00137 SET L985-OK-88 TO TRUE. CL**2
|
||||
00138 DTSBU985
|
||||
00139 IF L985-TRACE-88 CL**2
|
||||
00140 PERFORM S9100-PRE-DISPLAY THRU S9100-EXIT. DTSBU985
|
||||
00141 DTSBU985
|
||||
00142 IF L985-READ-NEXT-88 CL**2
|
||||
00143 PERFORM P2300-READ-NEXT THRU P2300-EXIT DTSBU985
|
||||
00144 ELSE DTSBU985
|
||||
00145 IF L985-READ-88 CL**2
|
||||
00146 PERFORM P2100-READ THRU P2100-EXIT DTSBU985
|
||||
00147 ELSE DTSBU985
|
||||
00148 IF L985-START-BROWSE-88 CL**2
|
||||
00149 PERFORM P2200-START-BROWSE THRU P2200-EXIT DTSBU985
|
||||
00150 ELSE DTSBU985
|
||||
00151 IF L985-WRITE-88 CL**2
|
||||
00152 PERFORM P3100-WRITE THRU P3100-EXIT DTSBU985
|
||||
00153 ELSE DTSBU985
|
||||
00154 IF L985-REWRITE-88 CL**2
|
||||
00155 PERFORM P3200-REWRITE THRU P3200-EXIT DTSBU985
|
||||
00156 ELSE DTSBU985
|
||||
00157 IF L985-DELETE-88 CL**2
|
||||
00158 PERFORM P3300-DELETE THRU P3300-EXIT DTSBU985
|
||||
00159 ELSE DTSBU985
|
||||
00160 IF L985-OPEN-READ-88 CL**2
|
||||
00161 OR DTSBU985
|
||||
00162 L985-OPEN-UPDATE-88 CL**2
|
||||
00163 PERFORM P1100-OPEN THRU P1100-EXIT DTSBU985
|
||||
00164 ELSE DTSBU985
|
||||
00165 IF L985-CLOSE-88 CL**2
|
||||
00166 PERFORM P1200-CLOSE THRU P1200-EXIT DTSBU985
|
||||
00167 ELSE DTSBU985
|
||||
00168 PERFORM S999-ABEND THRU S999-EXIT. DTSBU985
|
||||
00169 DTSBU985
|
||||
00170 IF L985-TRACE-88 CL**2
|
||||
00171 PERFORM S9200-POST-DISPLAY THRU S9200-EXIT. DTSBU985
|
||||
00172 SKIP2 DTSBU985
|
||||
00173 GOBACK. DTSBU985
|
||||
00174 EJECT DTSBU985
|
||||
00175 P1100-OPEN. DTSBU985
|
||||
00176 IF L985-OPEN-UPDATE-88 CL**2
|
||||
00177 OPEN I-O BATCH-FILE CL**2
|
||||
00178 ELSE DTSBU985
|
||||
00179 OPEN INPUT BATCH-FILE. CL**2
|
||||
00180 DTSBU985
|
||||
00181 IF FILE-OK-88 OR FILE-VERIFY-88 DTSBU985
|
||||
00182 NEXT SENTENCE DTSBU985
|
||||
00183 ELSE DTSBU985
|
||||
00184 PERFORM S999-ABEND THRU S999-EXIT. DTSBU985
|
||||
00185 P1100-EXIT. DTSBU985
|
||||
00186 EXIT. DTSBU985
|
||||
00187 SKIP3 DTSBU985
|
||||
00188 P1200-CLOSE. DTSBU985
|
||||
00189 CLOSE BATCH-FILE. CL**2
|
||||
00190 DTSBU985
|
||||
00191 IF FILE-OK-88 DTSBU985
|
||||
00192 NEXT SENTENCE DTSBU985
|
||||
00193 ELSE DTSBU985
|
||||
00194 PERFORM S999-ABEND THRU S999-EXIT. DTSBU985
|
||||
00195 P1200-EXIT. DTSBU985
|
||||
00196 EXIT. DTSBU985
|
||||
00197 EJECT DTSBU985
|
||||
00198 P2100-READ. DTSBU985
|
||||
00199 MOVE WBAT-KEY-AREA OF LINK-REC CL**2
|
||||
00200 TO WBAT-KEY-AREA OF FILE-REC. CL**2
|
||||
00201 DTSBU985
|
||||
00202 READ BATCH-FILE. CL**2
|
||||
00203 DTSBU985
|
||||
00204 IF FILE-OK-88 DTSBU985
|
||||
00205 * MOVE FILE-REC TO LINK-REC CL**3
|
||||
00206 SET L985-OK-88 TO TRUE CL**5
|
||||
00207 PERFORM P2300-READ-NEXT THRU P2300-EXIT CL**3
|
||||
00208 ELSE DTSBU985
|
||||
00209 IF FILE-NO-REC-88 DTSBU985
|
||||
00210 PERFORM S1100-NO-REC THRU S1100-EXIT DTSBU985
|
||||
00211 ELSE DTSBU985
|
||||
00212 SET L985-FILE-CLOSED-88 TO TRUE CL**5
|
||||
00213 DISPLAY '*** FILE-STATUS = ' FILE-STATUS CL**5
|
||||
00214 PERFORM S999-ABEND THRU S999-EXIT. DTSBU985
|
||||
00215 P2100-EXIT. DTSBU985
|
||||
00216 EXIT. DTSBU985
|
||||
00217 EJECT DTSBU985
|
||||
00218 P2200-START-BROWSE. DTSBU985
|
||||
00219 MOVE WBAT-KEY-AREA OF LINK-REC CL**2
|
||||
00220 TO WBAT-KEY-AREA OF FILE-REC. CL**2
|
||||
00221 DTSBU985
|
||||
00222 START BATCH-FILE CL**2
|
||||
00223 KEY IS NOT < WBAT-KEY-AREA OF FILE-REC. CL**2
|
||||
00224 DTSBU985
|
||||
00225 IF FILE-OK-88 DTSBU985
|
||||
00226 SET L985-OK-88 TO TRUE CL**5
|
||||
00227 PERFORM P2300-READ-NEXT THRU P2300-EXIT 2 TIMES CL**6
|
||||
00228 * PERFORM P2100-READ THRU P2100-EXIT CL**6
|
||||
00229 ELSE DTSBU985
|
||||
00230 IF FILE-NO-REC-88 DTSBU985
|
||||
00231 PERFORM S1100-NO-REC THRU S1100-EXIT DTSBU985
|
||||
00232 ELSE DTSBU985
|
||||
00233 SET L985-FILE-CLOSED-88 TO TRUE CL**5
|
||||
00234 DISPLAY '*** FILE-STATUS = ' FILE-STATUS CL**5
|
||||
00235 PERFORM S999-ABEND THRU S999-EXIT. DTSBU985
|
||||
00236 P2200-EXIT. DTSBU985
|
||||
00237 EXIT. DTSBU985
|
||||
00238 EJECT DTSBU985
|
||||
00239 P2300-READ-NEXT. DTSBU985
|
||||
00240 READ BATCH-FILE NEXT. CL**2
|
||||
00241 DTSBU985
|
||||
00242 IF FILE-OK-88 DTSBU985
|
||||
00243 MOVE FILE-REC TO LINK-REC DTSBU985
|
||||
00244 SET L985-OK-88 TO TRUE CL**5
|
||||
00245 ELSE DTSBU985
|
||||
00246 IF FILE-NO-REC-88 DTSBU985
|
||||
00247 PERFORM S1100-NO-REC THRU S1100-EXIT DTSBU985
|
||||
00248 ELSE DTSBU985
|
||||
00249 SET L985-FILE-CLOSED-88 TO TRUE CL**5
|
||||
00250 DISPLAY '*** FILE-STATUS = ' FILE-STATUS CL**5
|
||||
00251 PERFORM S999-ABEND THRU S999-EXIT. DTSBU985
|
||||
00252 P2300-EXIT. DTSBU985
|
||||
00253 EXIT. DTSBU985
|
||||
00254 EJECT DTSBU985
|
||||
00255 P3100-WRITE. DTSBU985
|
||||
00256 MOVE LINK-REC TO FILE-REC. DTSBU985
|
||||
00257 DTSBU985
|
||||
00258 WRITE FILE-REC. DTSBU985
|
||||
00259 DTSBU985
|
||||
00260 IF FILE-OK-88 DTSBU985
|
||||
00261 NEXT SENTENCE DTSBU985
|
||||
00262 ELSE DTSBU985
|
||||
00263 PERFORM S999-ABEND THRU S999-EXIT CL**2
|
||||
00264 END-IF. DTSBU985
|
||||
00265 P3100-EXIT. DTSBU985
|
||||
00266 EXIT. DTSBU985
|
||||
00267 EJECT DTSBU985
|
||||
00268 P3200-REWRITE. DTSBU985
|
||||
00269 MOVE LINK-REC TO FILE-REC. DTSBU985
|
||||
00270 DTSBU985
|
||||
00271 REWRITE FILE-REC. DTSBU985
|
||||
00272 DTSBU985
|
||||
00273 IF FILE-OK-88 DTSBU985
|
||||
00274 NEXT SENTENCE DTSBU985
|
||||
00275 ELSE DTSBU985
|
||||
00276 PERFORM S999-ABEND THRU S999-EXIT. DTSBU985
|
||||
00277 P3200-EXIT. DTSBU985
|
||||
00278 EXIT. DTSBU985
|
||||
00279 EJECT DTSBU985
|
||||
00280 P3300-DELETE. DTSBU985
|
||||
00281 MOVE WBAT-KEY-AREA OF LINK-REC CL**2
|
||||
00282 TO WBAT-KEY-AREA OF FILE-REC. CL**2
|
||||
00283 DTSBU985
|
||||
00284 DELETE BATCH-FILE RECORD. CL**2
|
||||
00285 DTSBU985
|
||||
00286 IF FILE-OK-88 DTSBU985
|
||||
00287 NEXT SENTENCE DTSBU985
|
||||
00288 ELSE DTSBU985
|
||||
00289 PERFORM S999-ABEND THRU S999-EXIT. DTSBU985
|
||||
00290 P3300-EXIT. DTSBU985
|
||||
00291 EXIT. DTSBU985
|
||||
00292 EJECT DTSBU985
|
||||
00293 S1100-NO-REC. DTSBU985
|
||||
00294 SET L985-NO-REC-88 TO TRUE. CL**2
|
||||
00295 S1100-EXIT. DTSBU985
|
||||
00296 EXIT. DTSBU985
|
||||
00297 SKIP3 DTSBU985
|
||||
00298 S9100-PRE-DISPLAY. DTSBU985
|
||||
00299 DISPLAY ' '. DTSBU985
|
||||
00300 DTSBU985
|
||||
00301 DISPLAY ' '. DTSBU985
|
||||
00302 DTSBU985
|
||||
00303 DISPLAY '*** DTSBU985 PRE TRACE DISPLAY ***'. CL**2
|
||||
00304 DTSBU985
|
||||
00305 DISPLAY L985-MOD-NAME CL**2
|
||||
00306 ' = L985-MOD-NAME'. CL**2
|
||||
00307 DTSBU985
|
||||
00308 DISPLAY L985-CMND-CD CL**2
|
||||
00309 ' = L985-CMND-CD'. CL**2
|
||||
00310 DTSBU985
|
||||
00311 PERFORM S9300-REC-DISPLAY THRU S9300-EXIT. DTSBU985
|
||||
00312 S9100-EXIT. DTSBU985
|
||||
00313 EXIT. DTSBU985
|
||||
00314 SKIP3 DTSBU985
|
||||
00315 S9200-POST-DISPLAY. DTSBU985
|
||||
00316 DISPLAY ' '. DTSBU985
|
||||
00317 DTSBU985
|
||||
00318 DISPLAY ' '. DTSBU985
|
||||
00319 DTSBU985
|
||||
00320 DISPLAY '*** DTSBU985 POST TRACE DISPLAY ***'. CL**2
|
||||
00321 DTSBU985
|
||||
00322 DISPLAY L985-RESULT-IND CL**2
|
||||
00323 ' = L985-RESULT-IND'. CL**2
|
||||
00324 DTSBU985
|
||||
00325 PERFORM S9300-REC-DISPLAY THRU S9300-EXIT. DTSBU985
|
||||
00326 S9200-EXIT. DTSBU985
|
||||
00327 EXIT. DTSBU985
|
||||
00328 SKIP3 DTSBU985
|
||||
00329 S9300-REC-DISPLAY. DTSBU985
|
||||
00330 DISPLAY ' '. DTSBU985
|
||||
00331 DTSBU985
|
||||
00332 MOVE 'WBAT' TO WRK-REC-PREFIX. CL**2
|
||||
00333 MOVE WRK-KEY-LENGTH TO L991-REQ-CHAR-CNT. DTSBU985
|
||||
00334 DTSBU985
|
||||
00335 MOVE WBAT-KEY-AREA OF LINK-REC TO L991-REQ-AREA. CL**2
|
||||
00336 DTSBU985
|
||||
00337 PERFORM S991-HEX-FORMAT THRU S991-EXIT. DTSBU985
|
||||
00338 DTSBU985
|
||||
00339 DISPLAY 'REC TYPE = ' DTSBU985
|
||||
00340 WRK-REC-PREFIX. DTSBU985
|
||||
00341 DTSBU985
|
||||
00342 DISPLAY 'KEY AREA = ' DTSBU985
|
||||
00343 L991-REPLY-HEX-1-AREA. DTSBU985
|
||||
00344 DTSBU985
|
||||
00345 DISPLAY ' ' DTSBU985
|
||||
00346 L991-REPLY-HEX-2-AREA. DTSBU985
|
||||
00347 DTSBU985
|
||||
00348 DISPLAY ' ' DTSBU985
|
||||
00349 L991-REPLY-AN-AREA. DTSBU985
|
||||
00350 S9300-EXIT. DTSBU985
|
||||
00351 EXIT. DTSBU985
|
||||
00352 EJECT DTSBU985
|
||||
00353 S991-HEX-FORMAT. DTSBU985
|
||||
00354 CALL 'DTSBU991' USING L991-LINK-AREA. DTSBU985
|
||||
00355 S991-EXIT. DTSBU985
|
||||
00356 EXIT. DTSBU985
|
||||
00357 EJECT DTSBU985
|
||||
00358 S999-ABEND. DTSBU985
|
||||
00359 DISPLAY '*** I/O MODULE ABENDING'. DTSBU985
|
||||
00360 DTSBU985
|
||||
00361 DISPLAY '*** CMND-CD = ' L985-CMND-CD. CL**2
|
||||
00362 DTSBU985
|
||||
00363 DISPLAY '*** FILE-STATUS = ' FILE-STATUS. DTSBU985
|
||||
00364 DTSBU985
|
||||
00365 DISPLAY '*** CALLING MODULE = ' L985-MOD-NAME. CL**2
|
||||
00366 DTSBU985
|
||||
00367 PERFORM S9300-REC-DISPLAY THRU S9300-EXIT. DTSBU985
|
||||
00368 DTSBU985
|
||||
00369 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBU985
|
||||
00370 S999-EXIT. DTSBU985
|
||||
00371 EXIT. DTSBU985
|
||||
1060
Batch/DTSBX427.cob
Normal file
1060
Batch/DTSBX427.cob
Normal file
File diff suppressed because it is too large
Load Diff
540
Batch/DTSBX478.cob
Normal file
540
Batch/DTSBX478.cob
Normal file
@ -0,0 +1,540 @@
|
||||
00001 IDENTIFICATION DIVISION. 11/14/24
|
||||
00002 PROGRAM-ID. DTSBX478. DTSBX478
|
||||
00003 AUTHOR. NGC. LV007
|
||||
00004 DATE-WRITTEN. DECEMBER 2012. DTSBX478
|
||||
00005 DATE-COMPILED. DTSBX478
|
||||
00006 SKIP3 DTSBX478
|
||||
00007 ***** DTSBX478
|
||||
00008 * DTSBX478
|
||||
00009 * ZUNCTION: DELETE WAGES TO WGH FILE FOR TESTING. DTSBX478
|
||||
00010 * FOR TAX WAGES SINCE UIBS 01/21/24 ZL1 DTSBX478
|
||||
00011 * DTSBX478
|
||||
00012 * DTSBX478
|
||||
00013 * MODIFICATION LOG: DTSBX478
|
||||
00014 * DTSBX478
|
||||
00015 * 12/06/2012 INITIAL DEVELOPMENT. DTSBX478
|
||||
00016 * WORK ORDER: PROGRAMMER: GD DTSBX478
|
||||
00017 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBX478
|
||||
00018 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBX478
|
||||
00019 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBX478
|
||||
00020 * DTSBX478
|
||||
00021 * DTSBX478
|
||||
00022 * DESCRIPTION: DTSBX478
|
||||
00023 * DTSBX478
|
||||
00024 * DTSBX478
|
||||
00025 * DTSBX478
|
||||
00026 * DTSBX478
|
||||
00027 * DTSBX478
|
||||
00028 * DTSBX478
|
||||
00029 * DTSBX478
|
||||
00030 * DTSBX478
|
||||
00031 * DTSBX478
|
||||
00032 * DTSBX478
|
||||
00033 * DTSBX478
|
||||
00034 * GENERAL SPECIFICATIONS: DTSBX478
|
||||
00035 * DTSBX478
|
||||
00036 * ALL COMMANDS ARE VALID. DTSBX478
|
||||
00037 * DTSBX478
|
||||
00038 * IF AN INVALID COMMAND IS REQUESTED, THEN ABEND THE DTSBX478
|
||||
00039 * MODULE. DTSBX478
|
||||
00040 * DTSBX478
|
||||
00041 * IF A FILE-STATUS OF OTHER THAN '00', '10', OR '23' IS DTSBX478
|
||||
00042 * ENCOUNTERED, THEN ABEND PROCESSING (TOLERATE A DTSBX478
|
||||
00043 * FILE-STATUS OF '97' FROM AN OPEN COMMAND). DTSBX478
|
||||
00044 * DTSBX478
|
||||
00045 * DTSBX478
|
||||
00046 * DTSBX478
|
||||
00047 * COMMAND SPECIFIC SPECIFICATIONS: DTSBX478
|
||||
00048 * DTSBX478
|
||||
00049 * OPEN-READ DTSBX478
|
||||
00050 * OPEN INPUT. DTSBX478
|
||||
00051 * DTSBX478
|
||||
00052 * OPEN-UPDATE DTSBX478
|
||||
00053 * OPEN I-O. DTSBX478
|
||||
00054 * DTSBX478
|
||||
00055 * CLOSE DTSBX478
|
||||
00056 * DTSBX478
|
||||
00057 * READ DTSBX478
|
||||
00058 * DTSBX478
|
||||
00059 * START BROWSE DTSBX478
|
||||
00060 * IF THE START-BROWSE IS SUCCESSFUL, THEN PERFORM THE DTSBX478
|
||||
00061 * READ-NEXT LOGIC. A SUCCESSFUL START-BROWSE RETURNS DTSBX478
|
||||
00062 * A RECORD. DTSBX478
|
||||
00063 * DTSBX478
|
||||
00064 * READ NEXT DTSBX478
|
||||
00065 * DTSBX478
|
||||
00066 * WRITE DTSBX478
|
||||
00067 * DTSBX478
|
||||
00068 * REWRITE DTSBX478
|
||||
00069 * DTSBX478
|
||||
00070 * DELETE DTSBX478
|
||||
00071 * DTSBX478
|
||||
00072 * DTSBX478
|
||||
00073 ***** DTSBX478
|
||||
00074 DTSBX478
|
||||
00075 ENVIRONMENT DIVISION. DTSBX478
|
||||
00076 DTSBX478
|
||||
00077 INPUT-OUTPUT SECTION. DTSBX478
|
||||
00078 DTSBX478
|
||||
00079 FILE-CONTROL. DTSBX478
|
||||
00080 SELECT W2GE-TRANS-FILE ASSIGN TO DTSFW2 CL**3
|
||||
00081 FILE STATUS IS WAGE-TRANS-STATUS. DTSBX478
|
||||
00082 DTSBX478
|
||||
00083 SELECT W4GE-TRANS-FILE ASSIGN TO DTSFW4 CL**3
|
||||
00084 FILE STATUS IS WAGE-TRANS-STATUS. CL**3
|
||||
00085 CL**5
|
||||
00086 SELECT UIBS-TRANS-FILE ASSIGN TO DTSFUIBS CL**5
|
||||
00087 FILE STATUS IS WAGE-TRANS-STATUS. CL**5
|
||||
00088 CL**3
|
||||
00089 * SELECT TAXWGH-FILE ASSIGN TO DTSXWGH DTSBX478
|
||||
00090 * FILE STATUS IS DOWNLOAD-STATUS. DTSBX478
|
||||
00091 DTSBX478
|
||||
00092 DATA DIVISION. DTSBX478
|
||||
00093 DTSBX478
|
||||
00094 FILE SECTION. DTSBX478
|
||||
00095 DTSBX478
|
||||
00096 FD W2GE-TRANS-FILE CL**3
|
||||
00097 RECORDING MODE IS F DTSBX478
|
||||
00098 BLOCK CONTAINS 0 RECORDS. DTSBX478
|
||||
00099 DTSBX478
|
||||
00100 01 W2GE-TRANS-REC PIC X(80). CL**3
|
||||
00101 DTSBX478
|
||||
00102 FD UIBS-TRANS-FILE CL**5
|
||||
00103 RECORDING MODE IS F CL**5
|
||||
00104 BLOCK CONTAINS 0 RECORDS. CL**5
|
||||
00105 CL**5
|
||||
00106 01 UIBS-TRANS-REC PIC X(80). CL**5
|
||||
00107 CL**5
|
||||
00108 CL**3
|
||||
00109 FD W4GE-TRANS-FILE CL**3
|
||||
00110 RECORDING MODE IS F CL**3
|
||||
00111 BLOCK CONTAINS 0 RECORDS. CL**3
|
||||
00112 CL**3
|
||||
00113 01 W4GE-TRANS-REC PIC X(80). CL**3
|
||||
00114 CL**3
|
||||
00115 *FD TAXWGH-FILE DTSBX478
|
||||
00116 * RECORDING MODE IS F DTSBX478
|
||||
00117 * BLOCK CONTAINS 0 RECORDS. DTSBX478
|
||||
00118 DTSBX478
|
||||
00119 *01 TAXWGH-REC PIC X(18). DTSBX478
|
||||
00120 DTSBX478
|
||||
00121 WORKING-STORAGE SECTION. DTSBX478
|
||||
001215 77 PAN-VALET PICTURE X(24) VALUE '007DTSBX478 11/14/24'. DTSBX478
|
||||
00122 SKIP3 DTSBX478
|
||||
00123 01 WRK-AREA. DTSBX478
|
||||
00124 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +480. DTSBX478
|
||||
00125 DTSBX478
|
||||
00126 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBU480'. DTSBX478
|
||||
00127 DTSBX478
|
||||
00128 05 W-CURR-EMP-NO PIC S9(06) COMP-3 VALUE +0. DTSBX478
|
||||
00129 05 W-CURR-YRQ PIC S9(05) COMP-3 DTSBX478
|
||||
00130 VALUE +20121. DTSBX478
|
||||
00131 05 W-CURR-BATCH PIC S9(05) COMP-3 VALUE +0. DTSBX478
|
||||
00132 05 W-CURR-ITEM PIC S9(03) COMP-3 VALUE +0. DTSBX478
|
||||
00133 05 W-MQTR-TOT-WAGE PIC S9(11)V99 COMP-3 DTSBX478
|
||||
00134 VALUE +0. DTSBX478
|
||||
00135 05 W-WTC-BATCH-NO PIC S9(05) COMP-3 DTSBX478
|
||||
00136 VALUE +90001. DTSBX478
|
||||
00137 05 W-WTC-ITEM-NO PIC S9(03) COMP-3 DTSBX478
|
||||
00138 VALUE +003. DTSBX478
|
||||
00139 05 W-WTC-SEQ-NO PIC S9(03) COMP-3 DTSBX478
|
||||
00140 VALUE +001. DTSBX478
|
||||
00141 05 W-MAX-BATCH PIC S9(05) COMP-3 VALUE +0. DTSBX478
|
||||
00142 05 W-MIN-BATCH PIC S9(05) COMP-3 DTSBX478
|
||||
00143 VALUE +99999. DTSBX478
|
||||
00144 05 WRK-W2-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX478
|
||||
00145 05 WRK-W4-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX478
|
||||
00146 05 WRK-WWGH-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX478
|
||||
00147 05 WRK-DELETE-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX478
|
||||
00148 05 W-BYPASSED-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX478
|
||||
00149 05 W-BACKLOG PIC S9(07) COMP-3 VALUE +0. DTSBX478
|
||||
00150 05 AMT-DISP1 PIC ----------9.99. DTSBX478
|
||||
00151 05 AMT-DISP2 PIC ----------9.99. DTSBX478
|
||||
00152 05 AMT-DISP3 PIC ----------9.99. DTSBX478
|
||||
00153 05 AMT-DISP4 PIC ----------9.99. DTSBX478
|
||||
00154 DTSBX478
|
||||
00155 05 WRK-NET-WAGE PIC S9(11)V99 COMP-3 DTSBX478
|
||||
00156 VALUE +0. DTSBX478
|
||||
00157 05 W-WGH-WAGE PIC S9(11)V99 COMP-3 DTSBX478
|
||||
00158 VALUE +0. DTSBX478
|
||||
00159 05 W-WORKER-CNT PIC S9(07) COMP-3 VALUE +0. DTSBX478
|
||||
00160 05 W-DIFFERENCE PIC S9(11)V99 COMP-3 DTSBX478
|
||||
00161 VALUE +0. DTSBX478
|
||||
00162 DTSBX478
|
||||
00163 05 W2-REC-READ PIC 9(9) VALUE 0. DTSBX478
|
||||
00164 05 W4-REC-READ PIC 9(9) VALUE 0. DTSBX478
|
||||
00165 05 W4-REC-FOUND PIC 9(9) VALUE 0. DTSBX478
|
||||
00166 05 W4-REC-ADDED PIC 9(9) VALUE 0. DTSBX478
|
||||
00167 05 W2-REC-DELETED PIC 9(9) VALUE 0. DTSBX478
|
||||
00168 05 W2-REC-FOUND PIC 9(9) VALUE 0. DTSBX478
|
||||
00169 DTSBX478
|
||||
00170 05 W-RESP-OPID PIC X(08). DTSBX478
|
||||
00171 05 WRK-ERROR-IND PIC X(01). DTSBX478
|
||||
00172 88 WRK-ERROR-YES-88 VALUE 'Y'. DTSBX478
|
||||
00173 88 WRK-ERROR-NO-88 VALUE 'N'. DTSBX478
|
||||
00174 DTSBX478
|
||||
00175 05 W-EMP-EXISTS-IND PIC X(01). DTSBX478
|
||||
00176 88 W-EMP-EXISTS-YES-88 VALUE 'Y'. DTSBX478
|
||||
00177 88 W-EMP-EXISTS-NO-88 VALUE 'N'. DTSBX478
|
||||
00178 05 W-DELINQUENT-IND PIC X(01). DTSBX478
|
||||
00179 88 W-DELINQUENT-YES-88 VALUE 'Y'. DTSBX478
|
||||
00180 88 W-DELINQUENT-NO-88 VALUE 'N'. DTSBX478
|
||||
00181 05 WAGE-TRANS-STATUS PIC X(02). DTSBX478
|
||||
00182 88 WAGE-TRANS-FILE-OK-88 VALUE '00'. DTSBX478
|
||||
00183 88 WAGE-TRANS-FILE-NO-REC-88 VALUE '10' '23'. DTSBX478
|
||||
00184 88 WAGE-TRANS-FILE-VERIFY-88 VALUE '97'. DTSBX478
|
||||
00185 DTSBX478
|
||||
00186 05 DOWNLOAD-STATUS PIC X(02). DTSBX478
|
||||
00187 88 DOWNLOAD-FILE-OK-88 VALUE '00'. DTSBX478
|
||||
00188 DTSBX478
|
||||
00189 05 WRK-YRQ PIC 9(05). DTSBX478
|
||||
00190 05 FILLER REDEFINES WRK-YRQ. DTSBX478
|
||||
00191 10 WRK-YRQ-YEAR PIC 9(04). DTSBX478
|
||||
00192 10 WRK-YRQ-QTR PIC 9(01). DTSBX478
|
||||
00193 DTSBX478
|
||||
00194 05 WRK-YRQ-X. DTSBX478
|
||||
00195 10 WRK-YRQ-YEAR-X PIC 9(04). DTSBX478
|
||||
00196 10 FILLER PIC X(01) VALUE '/'. DTSBX478
|
||||
00197 10 WRK-YRQ-QTR-X PIC 9(01). DTSBX478
|
||||
00198 DTSBX478
|
||||
00199 01 OUT-W4-REC. CL**5
|
||||
00200 10 FILLER PIC X(10) VALUE SPACES. CL**5
|
||||
00201 10 FILLER PIC X(35) VALUE CL**5
|
||||
00202 'TOTAL W4 TRANS REC SENT TO UIBS = '. CL**7
|
||||
00203 10 W4-COUNT PIC ZZZZ999. CL**6
|
||||
00204 10 FILLER PIC X(28) VALUE SPACES. CL**6
|
||||
00205 CL**5
|
||||
00206 01 OUT-W2-REC. CL**6
|
||||
00207 10 FILLER PIC X(10) VALUE SPACES. CL**6
|
||||
00208 10 FILLER PIC X(35) VALUE CL**6
|
||||
00209 'TOTAL W2 TRANS REC SENT TO UIBS = '. CL**7
|
||||
00210 10 W2-COUNT PIC ZZZZ999. CL**6
|
||||
00211 10 FILLER PIC X(28) VALUE SPACES. CL**6
|
||||
00212 CL**6
|
||||
00213 01 L004-COMM-AREA. CL**5
|
||||
00214 ++INCLUDE DTSIL004 DTSBX478
|
||||
00215 DTSBX478
|
||||
00216 01 L424-LINK-AREA. DTSBX478
|
||||
00217 ++INCLUDE DTSIL424 DTSBX478
|
||||
00218 DTSBX478
|
||||
00219 01 L516-LINK-AREA. DTSBX478
|
||||
00220 ++INCLUDE DTSIL516 DTSBX478
|
||||
00221 DTSBX478
|
||||
00222 01 L910-LINK-AREA. DTSBX478
|
||||
00223 ++INCLUDE DTSIL910 DTSBX478
|
||||
00224 DTSBX478
|
||||
00225 01 X147-REC. DTSBX478
|
||||
00226 ++INCLUDE DTSIX147 DTSBX478
|
||||
00227 DTSBX478
|
||||
00228 01 MSKL-REC. DTSBX478
|
||||
00229 ++INCLUDE DTSIMSKL DTSBX478
|
||||
00230 DTSBX478
|
||||
00231 01 MPRF-REC. DTSBX478
|
||||
00232 ++INCLUDE DTSIMPRF DTSBX478
|
||||
00233 DTSBX478
|
||||
00234 01 MQTR-REC. DTSBX478
|
||||
00235 ++INCLUDE DTSIMQTR DTSBX478
|
||||
00236 DTSBX478
|
||||
00237 01 L931-LINK-AREA. DTSBX478
|
||||
00238 ++INCLUDE DTSIL931 DTSBX478
|
||||
00239 DTSBX478
|
||||
00240 01 FSKL-REC. DTSBX478
|
||||
00241 ++INCLUDE DTSIFSKL DTSBX478
|
||||
00242 DTSBX478
|
||||
00243 01 L981-LINK-AREA. DTSBX478
|
||||
00244 ++INCLUDE DTSIL981 DTSBX478
|
||||
00245 DTSBX478
|
||||
00246 01 WWGH-REC. DTSBX478
|
||||
00247 ++INCLUDE DTSIWWGH DTSBX478
|
||||
00248 DTSBX478
|
||||
00249 01 L983-LINK-AREA. DTSBX478
|
||||
00250 ++INCLUDE DTSIL983 DTSBX478
|
||||
00251 DTSBX478
|
||||
00252 01 WSKL-REC. DTSBX478
|
||||
00253 ++INCLUDE DTSIWSKL DTSBX478
|
||||
00254 DTSBX478
|
||||
00255 01 W001-REC. DTSBX478
|
||||
00256 ++INCLUDE DTSIW001 DTSBX478
|
||||
00257 DTSBX478
|
||||
00258 01 L982-LINK-AREA. DTSBX478
|
||||
00259 ++INCLUDE DTSIL982 DTSBX478
|
||||
00260 DTSBX478
|
||||
00261 01 WNAM-REC. DTSBX478
|
||||
00262 ++INCLUDE DTSIWNAM DTSBX478
|
||||
00263 DTSBX478
|
||||
00264 01 WAGE-TRANS-AREA. CL**4
|
||||
00265 05 ESP-TRANSACTION-AREA PIC X(80). CL**4
|
||||
00266 ++INCLUDE EWGTRNW2 DTSBX478
|
||||
00267 ++INCLUDE EWGTRNW4 CL**3
|
||||
00268 CL**3
|
||||
00269 PROCEDURE DIVISION. DTSBX478
|
||||
00270 DTSBX478
|
||||
00271 PERFORM I0000-INIT THRU I0000-EXIT. DTSBX478
|
||||
00272 IF WRK-ERROR-NO-88 DTSBX478
|
||||
00273 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBX478
|
||||
00274 PERFORM T0000-TERM THRU T0000-EXIT DTSBX478
|
||||
00275 END-IF. DTSBX478
|
||||
00276 DTSBX478
|
||||
00277 GOBACK. DTSBX478
|
||||
00278 EJECT DTSBX478
|
||||
00279 I0000-INIT. DTSBX478
|
||||
00280 SET WRK-ERROR-NO-88 TO TRUE. DTSBX478
|
||||
00281 DTSBX478
|
||||
00282 OPEN INPUT W2GE-TRANS-FILE. CL**3
|
||||
00283 IF WAGE-TRANS-FILE-OK-88 DTSBX478
|
||||
00284 OR WAGE-TRANS-FILE-VERIFY-88 DTSBX478
|
||||
00285 NEXT SENTENCE DTSBX478
|
||||
00286 ELSE DTSBX478
|
||||
00287 PERFORM S999-ABEND THRU S999-EXIT DTSBX478
|
||||
00288 END-IF. DTSBX478
|
||||
00289 DTSBX478
|
||||
00290 OPEN OUTPUT UIBS-TRANS-FILE. CL**6
|
||||
00291 IF WAGE-TRANS-FILE-OK-88 CL**6
|
||||
00292 OR WAGE-TRANS-FILE-VERIFY-88 CL**6
|
||||
00293 NEXT SENTENCE CL**6
|
||||
00294 ELSE CL**6
|
||||
00295 PERFORM S999-ABEND THRU S999-EXIT CL**6
|
||||
00296 END-IF. CL**6
|
||||
00297 CL**6
|
||||
00298 OPEN INPUT W4GE-TRANS-FILE. CL**3
|
||||
00299 IF WAGE-TRANS-FILE-OK-88 CL**3
|
||||
00300 OR WAGE-TRANS-FILE-VERIFY-88 CL**3
|
||||
00301 NEXT SENTENCE CL**3
|
||||
00302 ELSE CL**3
|
||||
00303 PERFORM S999-ABEND THRU S999-EXIT CL**3
|
||||
00304 END-IF. CL**3
|
||||
00305 CL**3
|
||||
00306 DTSBX478
|
||||
00307 * OPEN OUTPUT TAXWGH-FILE. DTSBX478
|
||||
00308 * IF WAGE-TRANS-FILE-OK-88 DTSBX478
|
||||
00309 * OR WAGE-TRANS-FILE-VERIFY-88 DTSBX478
|
||||
00310 * NEXT SENTENCE DTSBX478
|
||||
00311 * ELSE DTSBX478
|
||||
00312 * PERFORM S999-ABEND THRU S999-EXIT DTSBX478
|
||||
00313 * END-IF. DTSBX478
|
||||
00314 DTSBX478
|
||||
00315 * PERFORM S981A-OPEN-UPDATE THRU S981A-EXIT. CL**3
|
||||
00316 * PERFORM S983-OPEN-UPDATE THRU S983-EXIT. CL**3
|
||||
00317 * PERFORM S931-OPEN-READ THRU S931-EXIT. CL**3
|
||||
00318 DTSBX478
|
||||
00319 I0000-EXIT. DTSBX478
|
||||
00320 EXIT. DTSBX478
|
||||
00321 DTSBX478
|
||||
00322 P0000-PROCESS. DTSBX478
|
||||
00323 READ W2GE-TRANS-FILE INTO ESP-TRANSACTION-AREA CL**4
|
||||
00324 DTSBX478
|
||||
00325 PERFORM UNTIL WAGE-TRANS-FILE-NO-REC-88 DTSBX478
|
||||
00326 PERFORM P2000-W2-WAGE THRU P2000-EXIT CL**3
|
||||
00327 READ W2GE-TRANS-FILE INTO ESP-TRANSACTION-AREA CL**4
|
||||
00328 DTSBX478
|
||||
00329 END-PERFORM. DTSBX478
|
||||
00330 DTSBX478
|
||||
00331 READ W4GE-TRANS-FILE INTO ESP-TRANSACTION-AREA CL**4
|
||||
00332 CL**3
|
||||
00333 PERFORM UNTIL WAGE-TRANS-FILE-NO-REC-88 CL**3
|
||||
00334 PERFORM P3000-W4-WAGE THRU P3000-EXIT CL**3
|
||||
00335 READ W4GE-TRANS-FILE INTO ESP-TRANSACTION-AREA CL**4
|
||||
00336 CL**3
|
||||
00337 END-PERFORM. CL**3
|
||||
00338 P0000-EXIT. DTSBX478
|
||||
00339 EXIT. DTSBX478
|
||||
00340 DTSBX478
|
||||
00341 DTSBX478
|
||||
00342 P2000-W2-WAGE. CL**3
|
||||
00343 ADD 1 TO W2-REC-READ. CL**3
|
||||
00344 DTSBX478
|
||||
00345 P2000-EXIT. DTSBX478
|
||||
00346 EXIT. DTSBX478
|
||||
00347 DTSBX478
|
||||
00348 P3000-W4-WAGE. CL**3
|
||||
00349 ADD 1 TO W4-REC-READ. CL**3
|
||||
00350 CL**3
|
||||
00351 P3000-EXIT. CL**3
|
||||
00352 T0000-TERM. DTSBX478
|
||||
00353 * PERFORM S981D-CLOSE THRU S981D-EXIT. CL**3
|
||||
00354 * PERFORM S983-CLOSE THRU S983-EXIT. CL**3
|
||||
00355 * PERFORM S931-CLOSE THRU S931-EXIT. CL**3
|
||||
00356 DTSBX478
|
||||
00357 * CLOSE WAGE-TRANS-FILE TAXWGH-FILE. DTSBX478
|
||||
00358 CLOSE W2GE-TRANS-FILE. CL**3
|
||||
00359 CLOSE W4GE-TRANS-FILE. CL**3
|
||||
00360 DTSBX478
|
||||
00361 DISPLAY '******************************************' DTSBX478
|
||||
00362 DISPLAY '** DTSBX478 TERMINATION STATISTICS **'. CL**3
|
||||
00363 DTSBX478
|
||||
00364 DISPLAY 'TOTAL W4 TRANS REC READ = ' W4-REC-READ. DTSBX478
|
||||
00365 * DISPLAY 'TOTAL W4 TRANS REC FOUND = ' W4-REC-FOUND. CL**3
|
||||
00366 * DISPLAY 'TOTAL W4 TRANS REC ADDED = ' W4-REC-ADDED. CL**3
|
||||
00367 DISPLAY 'TOTAL W2 TRANS REC READ = ' W2-REC-READ. DTSBX478
|
||||
00368 * DISPLAY 'TOTAL W2 TRANS REC FOUND = ' W2-REC-FOUND. CL**3
|
||||
00369 * DISPLAY 'TOTAL W2 TRANS REC DELETED = ' W2-REC-DELETED. CL**3
|
||||
00370 DISPLAY ' '. DTSBX478
|
||||
00371 MOVE W4-REC-READ TO W4-COUNT. CL**6
|
||||
00372 MOVE W2-REC-READ TO W2-COUNT. CL**6
|
||||
00373 WRITE UIBS-TRANS-REC FROM OUT-W2-REC. CL**6
|
||||
00374 WRITE UIBS-TRANS-REC FROM OUT-W4-REC. CL**6
|
||||
00375 CLOSE W4GE-TRANS-FILE. CL**6
|
||||
00376 T0000-EXIT. DTSBX478
|
||||
00377 EXIT. DTSBX478
|
||||
00378 DTSBX478
|
||||
00379 S004-EDIT-QTR. DTSBX478
|
||||
00380 CALL 'DTSBU004' USING L004-COMM-AREA. DTSBX478
|
||||
00381 DTSBX478
|
||||
00382 S004-EXIT. DTSBX478
|
||||
00383 EXIT. DTSBX478
|
||||
00384 DTSBX478
|
||||
00385 S516-LIABILITY-INFO. DTSBX478
|
||||
00386 CALL 'DTSBU516' USING L516-LINK-AREA DTSBX478
|
||||
00387 MPRF-REC. DTSBX478
|
||||
00388 S516-EXIT. DTSBX478
|
||||
00389 EXIT. DTSBX478
|
||||
00390 DTSBX478
|
||||
00391 S910-OPEN-READ. DTSBX478
|
||||
00392 SET L910-OPEN-READ-88 TO TRUE. DTSBX478
|
||||
00393 GO TO S910-MSTR-IO. DTSBX478
|
||||
00394 DTSBX478
|
||||
00395 S910-READ. DTSBX478
|
||||
00396 SET L910-READ-88 TO TRUE. DTSBX478
|
||||
00397 GO TO S910-MSTR-IO. DTSBX478
|
||||
00398 DTSBX478
|
||||
00399 S910-START-BROWSE. DTSBX478
|
||||
00400 SET L910-START-BROWSE-88 TO TRUE. DTSBX478
|
||||
00401 GO TO S910-MSTR-IO. DTSBX478
|
||||
00402 DTSBX478
|
||||
00403 S910-READ-NEXT. DTSBX478
|
||||
00404 SET L910-READ-NEXT-88 TO TRUE. DTSBX478
|
||||
00405 GO TO S910-MSTR-IO. DTSBX478
|
||||
00406 DTSBX478
|
||||
00407 S910-CLOSE. DTSBX478
|
||||
00408 SET L910-CLOSE-88 TO TRUE. DTSBX478
|
||||
00409 GO TO S910-MSTR-IO. DTSBX478
|
||||
00410 DTSBX478
|
||||
00411 S910-MSTR-IO. DTSBX478
|
||||
00412 CALL 'DTSBU910' USING L910-LINK-AREA DTSBX478
|
||||
00413 MSKL-REC. DTSBX478
|
||||
00414 S910-EXIT. DTSBX478
|
||||
00415 EXIT. DTSBX478
|
||||
00416 DTSBX478
|
||||
00417 S931-OPEN-READ. DTSBX478
|
||||
00418 SET L931-OPEN-READ-88 TO TRUE. DTSBX478
|
||||
00419 GO TO S931-REF-IO. DTSBX478
|
||||
00420 DTSBX478
|
||||
00421 S931-CLOSE. DTSBX478
|
||||
00422 SET L931-CLOSE-88 TO TRUE. DTSBX478
|
||||
00423 GO TO S931-REF-IO. DTSBX478
|
||||
00424 DTSBX478
|
||||
00425 S931-REF-IO. DTSBX478
|
||||
00426 CALL 'DTSBU931' USING L931-LINK-AREA DTSBX478
|
||||
00427 FSKL-REC. DTSBX478
|
||||
00428 S931-EXIT. DTSBX478
|
||||
00429 EXIT. DTSBX478
|
||||
00430 DTSBX478
|
||||
00431 S981A-OPEN-UPDATE. DTSBX478
|
||||
00432 SET L981-OPEN-UPDATE-88 TO TRUE. DTSBX478
|
||||
00433 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. DTSBX478
|
||||
00434 DTSBX478
|
||||
00435 S981A-EXIT. DTSBX478
|
||||
00436 EXIT. DTSBX478
|
||||
00437 DTSBX478
|
||||
00438 S981B-WRITE. DTSBX478
|
||||
00439 SET L981-WRITE-88 TO TRUE. DTSBX478
|
||||
00440 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. DTSBX478
|
||||
00441 DTSBX478
|
||||
00442 S981B-EXIT. DTSBX478
|
||||
00443 EXIT. DTSBX478
|
||||
00444 S981C-READ. DTSBX478
|
||||
00445 SET L981-READ-88 TO TRUE. DTSBX478
|
||||
00446 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. DTSBX478
|
||||
00447 DTSBX478
|
||||
00448 S981C-EXIT. DTSBX478
|
||||
00449 EXIT. DTSBX478
|
||||
00450 S981E-DELETE. DTSBX478
|
||||
00451 SET L981-DELETE-88 TO TRUE. DTSBX478
|
||||
00452 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. DTSBX478
|
||||
00453 DTSBX478
|
||||
00454 S981E-EXIT. DTSBX478
|
||||
00455 EXIT. DTSBX478
|
||||
00456 DTSBX478
|
||||
00457 S981D-CLOSE. DTSBX478
|
||||
00458 SET L981-CLOSE-88 TO TRUE. DTSBX478
|
||||
00459 PERFORM S981Z-WWGH-IO THRU S981Z-EXIT. DTSBX478
|
||||
00460 DTSBX478
|
||||
00461 S981D-EXIT. DTSBX478
|
||||
00462 EXIT. DTSBX478
|
||||
00463 DTSBX478
|
||||
00464 S981Z-WWGH-IO. DTSBX478
|
||||
00465 CALL 'DTSBU981' USING L981-LINK-AREA DTSBX478
|
||||
00466 WWGH-REC. DTSBX478
|
||||
00467 S981Z-EXIT. DTSBX478
|
||||
00468 EXIT. DTSBX478
|
||||
00469 DTSBX478
|
||||
00470 S983-OPEN-UPDATE. DTSBX478
|
||||
00471 SET L983-OPEN-UPDATE-88 TO TRUE. DTSBX478
|
||||
00472 GO TO S983-WAGE-I. DTSBX478
|
||||
00473 DTSBX478
|
||||
00474 S983-WRITE. DTSBX478
|
||||
00475 SET L983-WRITE-88 TO TRUE. DTSBX478
|
||||
00476 GO TO S983-WAGE-I. DTSBX478
|
||||
00477 DTSBX478
|
||||
00478 S983-DELETE. DTSBX478
|
||||
00479 SET L983-DELETE-88 TO TRUE. DTSBX478
|
||||
00480 GO TO S983-WAGE-I. DTSBX478
|
||||
00481 DTSBX478
|
||||
00482 S983-CLOSE. DTSBX478
|
||||
00483 SET L983-CLOSE-88 TO TRUE. DTSBX478
|
||||
00484 GO TO S983-WAGE-I. DTSBX478
|
||||
00485 DTSBX478
|
||||
00486 S983-WAGE-I. DTSBX478
|
||||
00487 CALL 'DTSBU983' USING L983-LINK-AREA DTSBX478
|
||||
00488 WSKL-REC. DTSBX478
|
||||
00489 S983-EXIT. DTSBX478
|
||||
00490 EXIT. DTSBX478
|
||||
00491 DTSBX478
|
||||
00492 S982A-START-BROWSE. DTSBX478
|
||||
00493 SET L982-START-BROWSE-88 TO TRUE. DTSBX478
|
||||
00494 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DTSBX478
|
||||
00495 DTSBX478
|
||||
00496 S982A-EXIT. DTSBX478
|
||||
00497 EXIT. DTSBX478
|
||||
00498 DTSBX478
|
||||
00499 S982B-READ-NEXT. DTSBX478
|
||||
00500 SET L982-READ-NEXT-88 TO TRUE. DTSBX478
|
||||
00501 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DTSBX478
|
||||
00502 DTSBX478
|
||||
00503 S982B-EXIT. DTSBX478
|
||||
00504 EXIT. DTSBX478
|
||||
00505 DTSBX478
|
||||
00506 S982C-OPEN-READ. DTSBX478
|
||||
00507 SET L982-OPEN-READ-88 TO TRUE. DTSBX478
|
||||
00508 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DTSBX478
|
||||
00509 DTSBX478
|
||||
00510 S982C-EXIT. DTSBX478
|
||||
00511 EXIT. DTSBX478
|
||||
00512 DTSBX478
|
||||
00513 S982D-CLOSE. DTSBX478
|
||||
00514 SET L982-CLOSE-88 TO TRUE. DTSBX478
|
||||
00515 PERFORM S982Z-WNAM-IO THRU S982Z-EXIT. DTSBX478
|
||||
00516 DTSBX478
|
||||
00517 S982D-EXIT. DTSBX478
|
||||
00518 EXIT. DTSBX478
|
||||
00519 DTSBX478
|
||||
00520 S982Z-WNAM-IO. DTSBX478
|
||||
00521 CALL 'DTSBU982' USING L982-LINK-AREA DTSBX478
|
||||
00522 WNAM-REC. DTSBX478
|
||||
00523 S982Z-EXIT. DTSBX478
|
||||
00524 EXIT. DTSBX478
|
||||
00525 DTSBX478
|
||||
00526 DTSBX478
|
||||
00527 S999-ABEND. DTSBX478
|
||||
00528 DISPLAY '*** I/O MODULE ABENDING'. DTSBX478
|
||||
00529 DTSBX478
|
||||
00530 DISPLAY '*** CMND-CD = ' L983-CMND-CD. DTSBX478
|
||||
00531 DTSBX478
|
||||
00532 DISPLAY '*** FILE-STATUS = ' WAGE-TRANS-STATUS. DTSBX478
|
||||
00533 DTSBX478
|
||||
00534 DISPLAY '*** CALLING MODULE = ' L983-MOD-NAME. DTSBX478
|
||||
00535 DTSBX478
|
||||
00536 DTSBX478
|
||||
00537 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBX478
|
||||
00538 S999-EXIT. DTSBX478
|
||||
00539 EXIT. DTSBX478
|
||||
963
Batch/DTSBX601.cob
Normal file
963
Batch/DTSBX601.cob
Normal file
@ -0,0 +1,963 @@
|
||||
00001 IDENTIFICATION DIVISION. 09/24/18
|
||||
00002 PROGRAM-ID. DTSBX601. DTSBX601
|
||||
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV124
|
||||
00004 DATE-WRITTEN. DECEMBER 1998. CL**5
|
||||
00005 DATE-COMPILED. DTSBX601
|
||||
00006 SKIP3 DTSBX601
|
||||
00007 ***** DTSBX601
|
||||
00008 * DTSBX601
|
||||
00009 * FUNCTION: REPORT ALL RETURN FLAG UPDATED PRIOR DAY. CL*83
|
||||
00010 * DTSBX601
|
||||
00011 * DTSBX601
|
||||
00012 ***** DTSBX601
|
||||
00013 SKIP3 DTSBX601
|
||||
00014 ENVIRONMENT DIVISION. DTSBX601
|
||||
00015 SKIP2 DTSBX601
|
||||
00016 CONFIGURATION SECTION. CL*74
|
||||
00017 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. CL*74
|
||||
00018 CL*74
|
||||
00019 INPUT-OUTPUT SECTION. CL193
|
||||
00020 CL*74
|
||||
00021 FILE-CONTROL. CL193
|
||||
00022 SELECT EXP-FILE1 ASSIGN TO DTSFX601 CL*85
|
||||
00023 FILE STATUS IS EXP-STATUS. CL*85
|
||||
00024 CL*74
|
||||
00025 DATA DIVISION. CL*74
|
||||
00026 CL*74
|
||||
00027 FILE SECTION. CL193
|
||||
00028 CL193
|
||||
00029 FD EXP-FILE1 CL*85
|
||||
00030 RECORDING MODE IS F. CL*85
|
||||
00031 01 EXP-REC1 PIC X(80). CL*85
|
||||
00032 EJECT CL*74
|
||||
00033 CL*74
|
||||
00034 WORKING-STORAGE SECTION. DTSBX601
|
||||
000345 77 PAN-VALET PICTURE X(24) VALUE '124DTSBX601 09/24/18'. DTSBX601
|
||||
00035 SKIP3 DTSBX601
|
||||
00036 01 WRK-AREA. DTSBX601
|
||||
00037 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +400.DTSBX601
|
||||
00038 DTSBX601
|
||||
00039 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD400'. CL**2
|
||||
00040 CL181
|
||||
00041 05 WRK-RATE-TYPE-AREA. CL181
|
||||
00042 10 WRK-RATE-YR-SCHED PIC X(01). CL181
|
||||
00043 88 WRK-RATE-YR-ANN-88 VALUE 'Y'. CL181
|
||||
00044 10 WRK-RATE-YR-MINUS-1-SCHED PIC X(01). CL181
|
||||
00045 88 WRK-RATE-YR-MINUS1-ANN-88 VALUE 'Y'. CL181
|
||||
00046 10 WRK-RATE-YR-MINUS-2-SCHED PIC X(01). CL181
|
||||
00047 88 WRK-RATE-YR-MINUS2-ANN-88 VALUE 'Y'. CL181
|
||||
00048 05 FILLER REDEFINES WRK-RATE-TYPE-AREA PIC X(03). CL181
|
||||
00049 88 WRK-ESTIMATE-NEEDED-88 VALUE 'YYY' 'NYY'. CL185
|
||||
00050 88 WRK-TRANSITION-YEAR-88 VALUE 'YYN' 'NYN'. CL185
|
||||
00051 88 WRK-INIT-VALUES-88 VALUE 'NNN'. CL181
|
||||
00052 DTSBX601
|
||||
00053 05 WRK-SEQ PIC 9(05) CL*29
|
||||
00054 VALUE ZERO. CL*21
|
||||
00055 05 MLOG-CNT PIC 9(05) CL*86
|
||||
00056 VALUE ZERO. CL*86
|
||||
00057 05 WRK-ZIP PIC X(10). CL197
|
||||
00058 05 FILLER REDEFINES WRK-ZIP. CL197
|
||||
00059 10 WRK-ZIP5 PIC X(05). CL197
|
||||
00060 10 FILLER PIC X(05). CL197
|
||||
00061 CL197
|
||||
00062 05 EXP-STATUS PIC X(02). CL193
|
||||
00063 88 EXP-STATUS-OK-88 VALUE '00'. CL194
|
||||
00064 05 WRK-ERROR-IND PIC X(01). CL193
|
||||
00065 88 WRK-ERROR-YES-88 VALUE 'Y'. CL193
|
||||
00066 88 WRK-ERROR-NO-88 VALUE 'N'. CL193
|
||||
00067 05 WRK-MPRF-IND PIC X(01). CL*93
|
||||
00068 88 MPRF-OK-YES-88 VALUE 'Y'. CL*93
|
||||
00069 88 MPRF-NO-REC-88 VALUE 'N'. CL*93
|
||||
00070 05 WRK-WRITE-REC-IND PIC X(01). CL225
|
||||
00071 88 WRK-WRITE-REC-YES-88 VALUE 'Y'. CL225
|
||||
00072 88 WRK-WRITE-REC-NO-88 VALUE 'N'. CL225
|
||||
00073 05 WRK-OP-ID PIC X(08). CL236
|
||||
00074 05 WRK-IND-CODE PIC X(06). CL**9
|
||||
00075 05 WRK-REC1. CL193
|
||||
00076 10 REC1-EMP-NO PIC 999999. CL*21
|
||||
00077 10 FILLER PIC X(01) VALUE ','. CL*29
|
||||
00078 10 REC1-FLAG PIC X(01). CL*99
|
||||
00079 10 FILLER PIC X(01) VALUE ','. CL*33
|
||||
00080 10 REC1-DATE PIC 9(08). CL100
|
||||
00081 10 FILLER PIC X(01) VALUE ','. CL*44
|
||||
00082 10 REC1-OPID PIC X(08). CL*99
|
||||
00083 10 WRK-R1-SPACES PIC X(54). CL108
|
||||
00084 05 WRK-REC1-OLD. CL*21
|
||||
00085 10 REC1-BALANCE PIC --------9.99. CL*53
|
||||
00086 10 REC1-LP-BAL PIC --------9.99. CL*53
|
||||
00087 10 REC1-INT-BAL PIC --------9.99. CL*53
|
||||
00088 10 REC1-ZIP PIC 9(05). CL*53
|
||||
00089 10 REC1-ORG-TYPE PIC X(03). CL*47
|
||||
00090 10 REC1-CLASS PIC X(02). CL*47
|
||||
00091 10 REC1-LIAB-CD PIC X(02). CL*47
|
||||
00092 10 REC1-RCVD-DATE PIC X(10). CL*44
|
||||
00093 10 REC1-BATCH PIC 9(05). CL*44
|
||||
00094 10 REC1-ITEM PIC 9(03). CL*44
|
||||
00095 10 REC1-LP-CHG PIC --------9.99. CL*44
|
||||
00096 10 REC1-INT-CHG PIC --------9.99. CL*37
|
||||
00097 10 REC1-SOURCE PIC X(02). CL*31
|
||||
00098 10 REC1-MLOG-DATE PIC X(10). CL**8
|
||||
00099 10 REC1-IND-CODE PIC X(06). CL**8
|
||||
00100 10 REC1-OP-ID PIC X(08). CL**8
|
||||
00101 10 REC1-LIAB-DATE PIC X(10). CL**8
|
||||
00102 10 REC1-ASSIGN PIC 9(09). CL**5
|
||||
00103 10 REC1-COUNT PIC 9(07). CL**5
|
||||
00104 10 REC1-DEPOSIT-DATE PIC X(10). CL253
|
||||
00105 10 REC1-PROCESS-DATE PIC X(10). CL253
|
||||
00106 10 REC1-LIAB-ENTER-DATE PIC X(10). CL232
|
||||
00107 10 REC1-INACT-CODE PIC X(05). CL235
|
||||
00108 88 REC1-INACT-YES-88 VALUE 'INACT'. CL235
|
||||
00109 88 REC1-INACT-NO-88 VALUE 'ACT '. CL235
|
||||
00110 10 REC1-REACT PIC X(05). CL235
|
||||
00111 88 REC1-REACT-NO-88 VALUE 'NEW '. CL235
|
||||
00112 88 REC1-REACT-YES-88 VALUE 'REACT'. CL235
|
||||
00113 10 REC1-CREDIT PIC --------9.99. CL249
|
||||
00114 10 REC1-AREA PIC X(03). CL249
|
||||
00115 10 REC1-PFX PIC X(03). CL249
|
||||
00116 10 REC1-SFX PIC X(04). CL249
|
||||
00117 10 REC1-EXT PIC X(05). CL249
|
||||
00118 10 REC1-PAY-TYPE PIC X(02). CL225
|
||||
00119 10 REC1-AMT PIC --------9.99. CL225
|
||||
00120 05 WRK-ABS-QTR1 PIC S9(04) COMP-3 CL206
|
||||
00121 VALUE +0. CL206
|
||||
00122 05 WRK-ABS-QTR2 PIC S9(04) COMP-3 CL206
|
||||
00123 VALUE +0. CL206
|
||||
00124 05 WRK-ABS-DATE1 PIC S9(08) COMP. CL**1
|
||||
00125 05 WRK-ABS-DATE2 PIC S9(08) COMP. CL**1
|
||||
00126 05 WRK-EXT-CURRENT-DATE PIC S9(09) COMP-3. CL*84
|
||||
00127 05 WRK-DIFF PIC S9(07) COMP-3. CL*84
|
||||
00128 05 WRK-UNDER-30-CNT PIC S9(04) COMP-3 CL*19
|
||||
00129 VALUE +0. CL220
|
||||
00130 05 WRK-OVER-31-CNT PIC S9(04) COMP-3 CL*19
|
||||
00131 VALUE +0. CL220
|
||||
00132 05 WRK-MEVL-READ-CNT PIC S9(04) COMP-3 CL*72
|
||||
00133 VALUE +0. CL*72
|
||||
00134 05 WRK-MPRF-CNT PIC S9(07) COMP-3. CL220
|
||||
00135 05 WRK-FISCAL-AGENT-CD PIC X(03). CL239
|
||||
00136 05 WRK-BNK-IND PIC X(02). CL*38
|
||||
00137 05 WRK-FIRST-NEW-EMP-NO PIC S9(07) COMP-3. CL101
|
||||
00138 *& VALUE +123778. CL101
|
||||
00139 05 WRK-FEIN PIC 9(09). CL104
|
||||
00140 05 WRK-MQTR-BAL PIC S9(11)V99 COMP-3 VALUE +0. CL136
|
||||
00141 05 WRK-MQTR-CHG PIC S9(09)V99 COMP-3. CL**6
|
||||
00142 05 WRK-MQTR-ANN-BAL PIC S9(07)V99 COMP-3. CL234
|
||||
00143 05 WRK-MQTR-PEN-BAL PIC S9(07)V99 COMP-3. CL**1
|
||||
00144 05 WRK-MQTR-PEN-CHG PIC S9(07)V99 COMP-3. CL*34
|
||||
00145 05 WRK-MQTR-INT-BAL PIC S9(07)V99 COMP-3. CL**1
|
||||
00146 05 WRK-MQTR-INT-CHG PIC S9(07)V99 COMP-3. CL*34
|
||||
00147 05 WRK-RECEIVED-DATE PIC S9(09) COMP-3. CL*18
|
||||
00148 05 WRK-RPT-BAL-CNT PIC S9(07) COMP-3. CL*18
|
||||
00149 05 WRK-RPT-CNT PIC S9(07) COMP-3. CL195
|
||||
00150 05 WRK-BAL-CNT PIC S9(07) COMP-3. CL195
|
||||
00151 05 WRK-REL-CNT PIC S9(07) COMP-3. CL195
|
||||
00152 05 WRK-RATED-CNT PIC S9(07) COMP-3. CL*99
|
||||
00153 05 WRK-SELF-INS-CNT PIC S9(07) COMP-3. CL*99
|
||||
00154 05 WRK-HOTEL-CNT PIC S9(07) COMP-3 VALUE +0. CL251
|
||||
00155 05 WRK-TOT-EMPS PIC S9(07) COMP-3 VALUE +0. CL251
|
||||
00156 05 WRK-TOT-WORKERS PIC S9(11) COMP-3 VALUE +0. CL251
|
||||
00157 05 WRK-PURSUED-RPT-CNT PIC S9(07) COMP-3. CL205
|
||||
00158 05 WRK-LATE-RPT-CNT PIC S9(07) COMP-3. CL104
|
||||
00159 05 WRK-MEVL-DELETED-CNT PIC S9(07) COMP-3. CL*61
|
||||
00160 05 WRK-UC30-SENT-CNT PIC S9(07) COMP-3. CL188
|
||||
00161 05 WRK-UC30-RCVD-CNT PIC S9(07) COMP-3. CL188
|
||||
00162 05 WRK-OVER-1000-CNT PIC S9(07) COMP-3. CL*42
|
||||
00163 05 WRK-UNDER-1000-CNT PIC S9(07) COMP-3. CL*42
|
||||
00164 05 WRK-HOUSEHOLD-PAYMENTS PIC S9(11)V99 COMP-3. CL*43
|
||||
00165 05 WRK-TOT-WAGES PIC S9(11)V99 COMP-3. CL*43
|
||||
00166 05 WRK-ALL-BNK-RATED PIC S9(11)V99 COMP-3. CL154
|
||||
00167 05 WRK-OPN-BNK-RATED PIC S9(11)V99 COMP-3. CL154
|
||||
00168 05 WRK-ALL-BNK-SI PIC S9(11)V99 COMP-3. CL154
|
||||
00169 05 WRK-OPN-BNK-SI PIC S9(11)V99 COMP-3. CL154
|
||||
00170 05 WRK-BOND-AMT PIC S9(11)V99 COMP-3. CL142
|
||||
00171 05 WRK-OVER-100-CNT PIC S9(07) COMP-3 CL112
|
||||
00172 VALUE +0. CL112
|
||||
00173 05 WRK-OVER-100-AMT PIC S9(11)V99 COMP-3 CL112
|
||||
00174 VALUE +0. CL112
|
||||
00175 05 WRK-1-10-CNT PIC S9(07) COMP-3 CL113
|
||||
00176 VALUE +0. CL112
|
||||
00177 05 WRK-1-10-AMT PIC S9(11)V99 COMP-3 CL112
|
||||
00178 VALUE +0. CL112
|
||||
00179 05 WRK-11-100-CNT PIC S9(07) COMP-3 CL113
|
||||
00180 VALUE +0. CL112
|
||||
00181 05 WRK-11-100-AMT PIC S9(11)V99 COMP-3 CL112
|
||||
00182 VALUE +0. CL112
|
||||
00183 05 WRK-OVER-100-WRKRS PIC S9(07) COMP-3. CL190
|
||||
00184 05 WRK-100-249-CNT PIC S9(07) COMP-3. CL*47
|
||||
00185 05 WRK-100-249-WRKRS PIC S9(07) COMP-3. CL*56
|
||||
00186 05 WRK-50-100-CNT PIC S9(07) COMP-3. CL190
|
||||
00187 05 WRK-50-100-WRKRS PIC S9(07) COMP-3. CL190
|
||||
00188 05 WRK-25-49-CNT PIC S9(07) COMP-3. CL*59
|
||||
00189 05 WRK-25-49-WRKRS PIC S9(07) COMP-3. CL190
|
||||
00190 05 WRK-10-24-CNT PIC S9(07) COMP-3. CL190
|
||||
00191 05 WRK-10-24-WRKRS PIC S9(07) COMP-3. CL190
|
||||
00192 05 WRK-6-9-CNT PIC S9(07) COMP-3. CL225
|
||||
00193 05 WRK-5-9-WRKRS PIC S9(07) COMP-3. CL*94
|
||||
00194 05 WRK-5-CNT PIC S9(07) COMP-3. CL*97
|
||||
00195 05 WRK-4-CNT PIC S9(07) COMP-3. CL*97
|
||||
00196 05 WRK-3-CNT PIC S9(07) COMP-3. CL*97
|
||||
00197 05 WRK-2-CNT PIC S9(07) COMP-3. CL*97
|
||||
00198 05 WRK-1-CNT PIC S9(07) COMP-3. CL*97
|
||||
00199 05 WRK-UNDER-5-CNT PIC S9(07) COMP-3. CL*94
|
||||
00200 05 WRK-UNDER-5-WRKRS PIC S9(07) COMP-3. CL*94
|
||||
00201 05 WRK-UNDER-10-CNT PIC S9(07) COMP-3. CL*47
|
||||
00202 05 WRK-OVER-10-CNT PIC S9(07) COMP-3. CL225
|
||||
00203 05 WRK-UNDER-10-WRKRS PIC S9(07) COMP-3. CL*56
|
||||
00204 05 WRK-NO-EMPS-CNT PIC S9(07) COMP-3. CL*52
|
||||
00205 05 WRK-MRCT-TOT-WAGES PIC S9(11)V99 COMP-3. CL*72
|
||||
00206 05 WRK-MRCT-TAX-WAGES PIC S9(11)V99 COMP-3. CL*72
|
||||
00207 05 WRK-MRCT-UI-PAID PIC S9(11)V99 COMP-3. CL*72
|
||||
00208 05 WRK-TOT-UI PIC S9(11)V99 COMP-3. CL**6
|
||||
00209 05 WRK-TOT-INT PIC S9(11)V99 COMP-3. CL**6
|
||||
00210 05 WRK-TOT-PEN PIC S9(11)V99 COMP-3. CL**6
|
||||
00211 05 WRK-MQTR-ANN-TOT-WAGE PIC S9(12)V99 COMP-3. CL*84
|
||||
00212 05 WRK-MQTR-ANN-TAX-WAGE PIC S9(12)V99 COMP-3. CL*84
|
||||
00213 05 WRK-MJRN-TOT-NEG-CHG PIC S9(11)V99 COMP-3 CL252
|
||||
00214 VALUE +0. CL252
|
||||
00215 05 WRK-MQTR-TOT-UI-CHARGED PIC S9(11)V99 COMP-3. CL*76
|
||||
00216 05 WRK-START-DATE PIC S9(09) COMP-3. CL*10
|
||||
00217 05 WRK-END-DATE PIC S9(09) COMP-3. CL*10
|
||||
00218 05 WRK-LIAB-DATE PIC S9(09) COMP-3. CL*71
|
||||
00219 05 WRK-FIRST-LIAB-DATE PIC S9(09) COMP-3. CL*71
|
||||
00220 05 WRK-ALL-NINES-DATE PIC S9(09) COMP-3 CL*71
|
||||
00221 VALUE +999999999. CL*71
|
||||
00222 05 WRK-BNK-PETITION-DATE PIC 9(08). CL*89
|
||||
00223 05 FILLER REDEFINES WRK-BNK-PETITION-DATE. CL*89
|
||||
00224 10 WRK-BNK-PETITION-DATE-YYYY PIC 9(04). CL*89
|
||||
00225 10 WRK-BNK-PETITION-DATE-MM PIC 9(02). CL*89
|
||||
00226 10 WRK-BNK-PETITION-DATE-DD PIC 9(02). CL*89
|
||||
00227 05 WRK-BNK-PETITION-YRQ PIC 9(05). CL*89
|
||||
00228 05 FILLER REDEFINES WRK-BNK-PETITION-YRQ. CL*89
|
||||
00229 10 WRK-BNK-PETITION-YRQ-YYYY PIC 9(04). CL*89
|
||||
00230 10 WRK-BNK-PETITION-YRQ-Q PIC 9(01). CL*89
|
||||
00231 05 WRK-BNK-FIRST-BILL-YRQ PIC S9(05) COMP-3. CL*89
|
||||
00232 05 WRK-EST-RPT-IND PIC X(01). CL*90
|
||||
00233 88 WRK-EST-RPT-YES VALUE 'Y'. CL*90
|
||||
00234 88 WRK-EST-RPT-NO VALUE 'N'. CL*90
|
||||
00235 CL*19
|
||||
00236 05 WRK-ZERO-FOUND-IND PIC X(01). CL100
|
||||
00237 88 WRK-ZERO-FOUND-YES-88 VALUE 'Y'. CL100
|
||||
00238 88 WRK-ZERO-FOUND-NO-88 VALUE 'N'. CL100
|
||||
00239 CL*41
|
||||
00240 05 WRK-WITHDRAWN-IND PIC X(01). CL*41
|
||||
00241 88 WRK-WITHDRAWN-YES VALUE 'Y'. CL*41
|
||||
00242 88 WRK-WITHDRAWN-NO VALUE 'N'. CL*41
|
||||
00243 CL153
|
||||
00244 05 WRK-ORIG-IND PIC X(01). CL153
|
||||
00245 88 WRK-ORIG-YES VALUE 'Y'. CL153
|
||||
00246 88 WRK-ORIG-NO VALUE 'N'. CL153
|
||||
00247 CL*72
|
||||
00248 05 WRK-MQTR-CNT PIC S9(07) COMP-3. CL**9
|
||||
00249 05 WRK-MRPT-CNT PIC S9(07) COMP-3. CL191
|
||||
00250 05 WRK-MSOL-CNT PIC S9(07) COMP-3. CL*32
|
||||
00251 05 WRK-MLIN-CNT PIC S9(07) COMP-3. CL118
|
||||
00252 05 WRK-MFAS-CNT PIC S9(07) COMP-3. CL198
|
||||
00253 05 WRK-MFAE-CNT PIC S9(07) COMP-3. CL237
|
||||
00254 05 WRK-MPAY-CNT PIC S9(07) COMP-3. CL150
|
||||
00255 05 WRK-MADJ-CNT PIC S9(07) COMP-3. CL153
|
||||
00256 05 WRK-MJRN-CNT PIC S9(08) COMP-3. CL155
|
||||
00257 05 WRK-MERA-CNT PIC S9(08) COMP-3. CL231
|
||||
00258 05 WRK-MRTE-CNT PIC S9(08) COMP-3. CL**9
|
||||
00259 05 WRK-MRTE-CNT1 PIC S9(08) COMP-3. CL163
|
||||
00260 05 WRK-MLOG-CNT PIC S9(08) COMP-3. DTSBX601
|
||||
00261 05 WRK-MFSC-CNT PIC S9(08) COMP-3 CL*40
|
||||
00262 VALUE +0. CL*40
|
||||
00263 05 WRK-CR-TOL-CNT PIC S9(07) COMP-3. CL146
|
||||
00264 05 SUB PIC S9(04) COMP. CL147
|
||||
00265 05 RPT-SUB PIC S9(04) COMP. CL147
|
||||
00266 05 QTR-SUB PIC S9(04) COMP. CL113
|
||||
00267 05 WRK-QTR-AREA OCCURS 20 TIMES. CL113
|
||||
00268 10 WRK-QTR-YRQ PIC S9(05) COMP-3. CL113
|
||||
00269 10 WRK-QTR-CHG PIC S9(09)V99 COMP-3. CL113
|
||||
00270 10 WRK-QTR-PAID PIC S9(09)V99 COMP-3. CL113
|
||||
00271 10 WRK-QTR-WAIVED PIC S9(09)V99 COMP-3. CL113
|
||||
00272 10 WRK-QTR-TOLERATED PIC S9(09)V99 COMP-3. CL113
|
||||
00273 05 WRK-TIMELY-PMT-AREA. CL190
|
||||
00274 10 WRK-PEN-INT-BAL-CNT PIC S9(07) COMP-3. CL181
|
||||
00275 10 WRK-INT-MANUAL-CNT PIC S9(07) COMP-3. CL181
|
||||
00276 10 WRK-QTR-TAX-BAL PIC S9(09)V9(02) COMP-3. CL170
|
||||
00277 10 WRK-QTR-TAX-CHG PIC S9(09)V9(02) COMP-3. CL170
|
||||
00278 10 WRK-QTR-INT-PEN-BAL PIC S9(09)V9(02) COMP-3. CL170
|
||||
00279 10 WRK-AVG-PMT PIC S9(09)V9(02) COMP-3. CL116
|
||||
00280 10 WRK-TIMELY-PMT PIC S9(09)V9(02) COMP-3. CL133
|
||||
00281 10 WRK-OLD-PEN-CHG PIC S9(09)V9(02) COMP-3. CL132
|
||||
00282 CL170
|
||||
00283 05 WRK-YRQ PIC S9(05) COMP-3 CL171
|
||||
00284 VALUE +20041. CL*51
|
||||
00285 05 WRK-PCT PIC S9(03)V9(04) COMP-3 CL142
|
||||
00286 VALUE +0. CL142
|
||||
00287 05 WRK-AVG-PCT PIC S9(09)V9(04) COMP-3 CL142
|
||||
00288 VALUE +0. CL142
|
||||
00289 05 WRK-PCT-DISP PIC Z(02)9.9999. CL118
|
||||
00290 05 WRK-PCT-DISP1 PIC Z(02)9.9999. CL119
|
||||
00291 05 WRK-UI-RATE PIC S9(01)V9(04) COMP-3. CL118
|
||||
00292 05 DISP-UI-RATE1 PIC 9.9(04). CL135
|
||||
00293 05 DISP-UI-RATE2 PIC 9.9(04). CL135
|
||||
00294 05 AMT-DISP PIC ---,---,--9.99. CL242
|
||||
00295 05 WRK-AMT-DISP PIC --------9.99. CL*82
|
||||
00296 05 AMT-DISP1 PIC Z(11)9.99-. CL102
|
||||
00297 05 AMT-DISP2 PIC Z(11)9.99-. CL141
|
||||
00298 05 AMT-DISP3 PIC Z(11)9-. CL237
|
||||
00299 05 EMP-ACCT-DISP PIC 9(06). CL183
|
||||
00300 05 EMP-SUCC-DISP PIC 9(06). CL*86
|
||||
00301 05 EMP-SUCC-DISP-X REDEFINES EMP-SUCC-DISP CL*88
|
||||
00302 PIC X(06). CL*87
|
||||
00303 05 DISP-DATE1 PIC X(10). CL232
|
||||
00304 05 DISP-DATE2 PIC X(10). CL232
|
||||
00305 05 INACT-LBL PIC X(10). CL*71
|
||||
00306 05 WRK-MPRF-IND PIC X(01). CL*42
|
||||
00307 88 WRK-MPRF-OK VALUE 'Y'. CL*42
|
||||
00308 88 WRK-MPRF-NO-REC VALUE 'N'. CL*42
|
||||
00309 05 WRK-MQTR-IND PIC X(01). CL*42
|
||||
00310 88 WRK-MQTR-OK VALUE 'Y'. CL*42
|
||||
00311 88 WRK-MQTR-NO-REC VALUE 'N'. CL*42
|
||||
00312 05 WRK-MRPT-IND PIC X(01). CL*77
|
||||
00313 88 WRK-MRPT-OK VALUE 'Y'. CL*77
|
||||
00314 88 WRK-MRPT-NO-REC VALUE 'N'. CL*77
|
||||
00315 05 WRK-MDST-IND PIC X(01). CL169
|
||||
00316 88 WRK-MDST-OK VALUE 'Y'. CL169
|
||||
00317 88 WRK-MDST-NO-REC VALUE 'N'. CL169
|
||||
00318 05 WRK-MEVL-IND PIC X(01). CL111
|
||||
00319 88 WRK-MEVL-OK VALUE 'Y'. CL111
|
||||
00320 88 WRK-MEVL-NO-REC VALUE 'N'. CL111
|
||||
00321 05 WRK-MLIN-IND PIC X(01). CL116
|
||||
00322 88 WRK-MLIN-OK VALUE 'Y'. CL116
|
||||
00323 88 WRK-MLIN-NO-REC VALUE 'N'. CL116
|
||||
00324 05 WRK-MFAS-IND PIC X(01). CL198
|
||||
00325 88 WRK-MFAS-OK VALUE 'Y'. CL198
|
||||
00326 88 WRK-MFAS-NO-REC VALUE 'N'. CL198
|
||||
00327 05 WRK-MFAE-IND PIC X(01). CL237
|
||||
00328 88 WRK-MFAE-OK VALUE 'Y'. CL237
|
||||
00329 88 WRK-MFAE-NO-REC VALUE 'N'. CL237
|
||||
00330 05 WRK-MSOL-IND PIC X(01). CL237
|
||||
00331 88 WRK-MSOL-OK VALUE 'Y'. CL160
|
||||
00332 88 WRK-MSOL-NO-REC VALUE 'N'. CL160
|
||||
00333 05 WRK-MLOG-IND PIC X(01). DTSBX601
|
||||
00334 88 WRK-MLOG-OK VALUE 'Y'. DTSBX601
|
||||
00335 88 WRK-MLOG-NO-REC VALUE 'N'. DTSBX601
|
||||
00336 88 WRK-MLOG-COMPLETE VALUE 'C'. DTSBX601
|
||||
00337 05 WRK-MRPT-FOUND-IND PIC X(01). CL*96
|
||||
00338 88 WRK-MRPT-FOUND-YES VALUE 'Y'. CL*98
|
||||
00339 88 WRK-MRPT-FOUND-NO VALUE 'N'. CL*98
|
||||
00340 05 WRK-CR-TOL-IND PIC X(01). CL146
|
||||
00341 88 WRK-CR-TOL-YES VALUE 'Y'. CL146
|
||||
00342 88 WRK-CR-TOL-NO VALUE 'N'. CL146
|
||||
00343 05 WRK-DUP-FOUND-IND PIC X(01). CL193
|
||||
00344 88 WRK-DUP-FOUND-YES VALUE 'Y'. CL193
|
||||
00345 88 WRK-DUP-FOUND-NO VALUE 'N'. CL193
|
||||
00346 05 WRK-LAST-MRPT-TYPE PIC X(02). CL*77
|
||||
00347 05 WRK-DISP-AREA. CL216
|
||||
00348 10 WRK-DISP-STAR PIC X(01). CL216
|
||||
00349 10 FILLER PIC X(01) VALUE SPACE. CL216
|
||||
00350 10 WRK-DISP-AMT PIC Z(10)9.99-. CL216
|
||||
00351 CL**9
|
||||
00352 05 WRK-INACT-DATE PIC S9(09) COMP-3 CL184
|
||||
00353 VALUE +0. CL184
|
||||
00354 05 WRK-INACT-CODE PIC X(02). CL232
|
||||
00355 05 WRK-INACT-YRQ PIC S9(05) COMP-3 CL184
|
||||
00356 VALUE +0. CL184
|
||||
00357 05 WRK-LAST-YRQ PIC S9(05) COMP-3 CL184
|
||||
00358 VALUE +0. CL184
|
||||
00359 05 WRK-FIRST-LIAB-YRQ PIC S9(05) COMP-3 CL232
|
||||
00360 VALUE +0. CL217
|
||||
00361 05 WRK-LAST-LIAB-YRQ PIC S9(05) COMP-3 CL232
|
||||
00362 VALUE +0. CL232
|
||||
00363 05 WRK-NEXT-YRQ PIC S9(05) COMP-3 CL196
|
||||
00364 VALUE +0. CL196
|
||||
00365 05 WRK-UPDATED-CNT PIC S9(07) COMP-3. DTSBX601
|
||||
00366 DTSBX601
|
||||
00367 05 PARM-REC-CNT PIC S9(07) COMP-3. DTSBX601
|
||||
00368 DTSBX601
|
||||
00369 05 PARM-EOF-IND PIC X(01). DTSBX601
|
||||
00370 DTSBX601
|
||||
00371 05 WRK-EMP-NO PIC 9(06). CL*31
|
||||
00372 DTSBX601
|
||||
00373 05 WRK-TRACE-IND PIC X(01). DTSBX601
|
||||
00374 DTSBX601
|
||||
00375 05 WRK-MST-OPEN-IND PIC X(01). DTSBX601
|
||||
00376 DTSBX601
|
||||
00377 05 WRK-REF-OPEN-IND PIC X(01). DTSBX601
|
||||
00378 CL221
|
||||
00379 05 WRK-SIC-SCAN-AREA. CL221
|
||||
00380 10 WRK-RPT-FOUND-IND PIC X(01). CL222
|
||||
00381 88 WRK-RPT-FOUND-YES VALUE 'Y'. CL222
|
||||
00382 88 WRK-RPT-FOUND-NO VALUE 'N'. CL222
|
||||
00383 10 WRK-EMPL-CNT PIC S9(07) COMP-3. CL222
|
||||
00384 10 WRK-SIC-4 PIC X(04). CL221
|
||||
00385 10 FILLER REDEFINES WRK-SIC-4. CL221
|
||||
00386 15 WRK-SIC-3 PIC X(03). CL221
|
||||
00387 15 FILLER PIC X(01). CL221
|
||||
00388 10 WRK-NO-SIC-CNT PIC S9(07) COMP-3. CL221
|
||||
00389 10 WRK-SIC-7911-AREA. CL221
|
||||
00390 15 WRK-SIC-7911-WORKERS PIC S9(07) COMP-3. CL224
|
||||
00391 15 WRK-SIC-7911-BUSINESSES PIC S9(07) COMP-3. CL224
|
||||
00392 10 WRK-SIC-794-AREA. CL221
|
||||
00393 15 WRK-SIC-794-WORKERS PIC S9(07) COMP-3. CL221
|
||||
00394 15 WRK-SIC-794-BUSINESSES PIC S9(07) COMP-3. CL221
|
||||
00395 10 WRK-SIC-799-AREA. CL221
|
||||
00396 15 WRK-SIC-799-WORKERS PIC S9(07) COMP-3. CL221
|
||||
00397 15 WRK-SIC-799-BUSINESSES PIC S9(07) COMP-3. CL221
|
||||
00398 10 WRK-SIC-8351-AREA. CL221
|
||||
00399 15 WRK-SIC-8351-WORKERS PIC S9(07) COMP-3. CL221
|
||||
00400 15 WRK-SIC-8351-BUSINESSES PIC S9(07) COMP-3. CL221
|
||||
00401 10 WRK-SIC-8641-AREA. CL221
|
||||
00402 15 WRK-SIC-8641-WORKERS PIC S9(07) COMP-3. CL221
|
||||
00403 15 WRK-SIC-8641-BUSINESSES PIC S9(07) COMP-3. CL221
|
||||
00404 10 WRK-NAICS-6 PIC X(06). CL217
|
||||
00405 10 FILLER REDEFINES WRK-NAICS-6. CL217
|
||||
00406 15 WRK-NAICS-2 PIC X(02). CL217
|
||||
00407 15 FILLER PIC X(04). CL217
|
||||
00408 *RW1 CL*74
|
||||
00409 05 WRK-ABEND-MSG PIC X(60) VALUE SPACES. CL*74
|
||||
00410 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. CL*74
|
||||
00411 05 WS-NUMBER-ONE PIC S9(05) COMP-3 VALUE +0. CL*74
|
||||
00412 CL*80
|
||||
00413 05 DISP-DATE PIC X(08). CL*80
|
||||
00414 05 DISP-TIME PIC X(08). CL*81
|
||||
00415 CL*79
|
||||
00416 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. CL*74
|
||||
00417 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. CL*74
|
||||
00418 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. CL*74
|
||||
00419 CL*74
|
||||
00420 01 HEADER-1. CL*74
|
||||
00421 05 FILLER PIC X(01) VALUE SPACES. CL*74
|
||||
00422 05 FILLER PIC X(49) VALUE '016R1'. CL*79
|
||||
00423 05 FILLER PIC X(60) VALUE CL*74
|
||||
00424 'DISTRICT OF COLUMBIA'. CL*74
|
||||
00425 05 FILLER PIC X(06) VALUE 'DATE:'. CL*74
|
||||
00426 05 HDR1-LRCM-SYS-DATE PIC X(08). CL*74
|
||||
00427 CL*74
|
||||
00428 01 HEADER-2. CL*74
|
||||
00429 05 FILLER PIC X(54) VALUE SPACES. CL*74
|
||||
00430 05 FILLER PIC X(56) VALUE CL*74
|
||||
00431 'TAX DIVISION'. CL*74
|
||||
00432 05 FILLER PIC X(06) VALUE 'TIME:'. CL*74
|
||||
00433 05 HDR2-LRCM-SYS-TIME PIC X(08). CL*74
|
||||
00434 CL*74
|
||||
00435 01 HEADER-3. CL*74
|
||||
00436 05 FILLER PIC X(01) VALUE SPACES. CL*74
|
||||
00437 05 FILLER PIC X(38) VALUE CL*74
|
||||
00438 'ROUTE TO: ACCOUNTING UNIT'. CL*74
|
||||
00439 05 HDR3-LITERAL PIC X(43) VALUE CL*74
|
||||
00440 ' EMPLOYERS REGISTERED SINCE 09/11/01 '. CL*82
|
||||
00441 05 FILLER PIC X(28) VALUE SPACES. CL*74
|
||||
00442 05 FILLER PIC X(06) VALUE 'PAGE:'. CL*74
|
||||
00443 05 HDR3-PAGE PIC ZZ,ZZ9. CL*74
|
||||
00444 CL*74
|
||||
00445 01 HEADER-4. CL*82
|
||||
00446 05 FILLER PIC X(01) VALUE SPACES. CL*74
|
||||
00447 05 FILLER PIC X(132) VALUE SPACES. CL*74
|
||||
00448 CL*74
|
||||
00449 01 HEADER-5. CL*82
|
||||
00450 05 FILLER PIC X(01) VALUE SPACES. CL*74
|
||||
00451 05 FILLER PIC X(05) VALUE SPACES. CL*74
|
||||
00452 05 FILLER PIC X(06) VALUE CL*74
|
||||
00453 'EMP NO'. CL*74
|
||||
00454 05 FILLER PIC X(05) VALUE SPACES. CL*74
|
||||
00455 05 FILLER PIC X(12) VALUE CL*74
|
||||
00456 'PRIMARY NAME'. CL*74
|
||||
00457 05 FILLER PIC X(28) VALUE SPACES. CL*74
|
||||
00458 05 FILLER PIC X(04) VALUE SPACES. CL*74
|
||||
00459 05 FILLER PIC X(14) VALUE CL*82
|
||||
00460 'LIABILITY DATE'. CL*82
|
||||
00461 05 FILLER PIC X(04) VALUE SPACES. CL*82
|
||||
00462 05 FILLER PIC X(13) VALUE CL*82
|
||||
00463 'INACTIVE DATE'. CL*82
|
||||
00464 05 FILLER PIC X(12) VALUE SPACES. CL*74
|
||||
00465 05 FILLER PIC X(18) VALUE SPACES. CL*74
|
||||
00466 CL*74
|
||||
00467 01 HEADER-6. CL*82
|
||||
00468 05 FILLER PIC X(01) VALUE SPACES. CL*74
|
||||
00469 05 FILLER PIC X(132) VALUE SPACES. CL*74
|
||||
00470 CL*74
|
||||
00471 01 DETAIL-LINE-1. CL*74
|
||||
00472 05 FILLER PIC X(05) VALUE SPACES. CL*77
|
||||
00473 05 WS-EMP-NO PIC 999B999. CL*74
|
||||
00474 05 FILLER PIC X(02) VALUE SPACES. CL*77
|
||||
00475 05 WS-PRIMARY-NAME PIC X(40). CL*74
|
||||
00476 05 FILLER PIC X(02) VALUE SPACES. CL*77
|
||||
00477 05 WS-DATE1 PIC X(10). CL*77
|
||||
00478 05 FILLER PIC X(02) VALUE SPACES. CL*77
|
||||
00479 05 WS-DATE2 PIC X(10). CL*77
|
||||
00480 * 05 FILLER PIC X(05) VALUE SPACES. CL*77
|
||||
00481 * 05 WS-BALANCE-AMT PIC ZZZ,ZZZ,ZZ9.99. CL*77
|
||||
00482 * 05 FILLER PIC X(09) VALUE SPACES. CL*77
|
||||
00483 * 05 WS-PURSUED-RPT PIC ZZ9. CL*77
|
||||
00484 * 05 FILLER PIC X(10) VALUE SPACES. CL*77
|
||||
00485 * 05 WS-DPC PIC X(01). CL*77
|
||||
00486 * 05 FILLER PIC X(06) VALUE SPACES. CL*77
|
||||
00487 * 05 WS-LIEN PIC X(01). CL*77
|
||||
00488 * 05 FILLER PIC X(21) VALUE SPACES. CL*77
|
||||
00489 CL*74
|
||||
00490 01 FOOTING-LINE-1 PIC X(133) VALUE SPACES. CL*74
|
||||
00491 01 FOOTING-LINE-2 PIC X(133) VALUE SPACES. CL*74
|
||||
00492 CL*74
|
||||
00493 01 FOOTING-LINE-3. CL*74
|
||||
00494 05 FILLER PIC X(25) VALUE SPACES. CL*74
|
||||
00495 05 WS-FOOTING-CNT PIC ZZ,ZZ9. CL*74
|
||||
00496 05 FILLER PIC X(02) VALUE SPACES. CL*74
|
||||
00497 05 FILLER PIC X(43) VALUE CL*74
|
||||
00498 'DEBIT WRITE OFF CANDIDATES LISTED ON REPORT'. CL*74
|
||||
00499 05 FILLER PIC X(23) VALUE SPACES. CL*74
|
||||
00500 01 FOOTING-LINE-4 PIC X(133) VALUE SPACES. CL*74
|
||||
00501 01 FOOTING-LINE-5 PIC X(133) VALUE SPACES. CL*74
|
||||
00502 01 FOOTING-LINE-6. CL*74
|
||||
00503 05 FILLER PIC X(25) VALUE SPACES. CL*74
|
||||
00504 05 FILLER PIC X(17) VALUE CL*74
|
||||
00505 '*** END OF REPORT'. CL*74
|
||||
00506 *RW2 CL*74
|
||||
00507 CL*74
|
||||
00508 01 L001-LINK-AREA. CL232
|
||||
00509 ++INCLUDE DTSIL001 CL232
|
||||
00510 EJECT CL232
|
||||
00511 01 L005-COMM-AREA. CL*81
|
||||
00512 ++INCLUDE DTSIL005 CL*79
|
||||
00513 EJECT CL*79
|
||||
00514 01 L102-LINK-AREA. CL133
|
||||
00515 ++INCLUDE DTSIL102 CL133
|
||||
00516 EJECT CL133
|
||||
00517 01 L054-LINK-AREA. CL206
|
||||
00518 ++INCLUDE DTSIL054 CL206
|
||||
00519 EJECT DTSBX601
|
||||
00520 01 L410-LINK-AREA. CL*46
|
||||
00521 ++INCLUDE DTSIL410 CL*46
|
||||
00522 EJECT CL*46
|
||||
00523 01 L600-LINK-AREA. CL*86
|
||||
00524 ++INCLUDE DTSIL600 CL*86
|
||||
00525 EJECT CL*86
|
||||
00526 01 L910-LINK-AREA. DTSBX601
|
||||
00527 ++INCLUDE DTSIL910 CL**2
|
||||
00528 EJECT DTSBX601
|
||||
00529 01 MSKL-REC. DTSBX601
|
||||
00530 ++INCLUDE DTSIMSKL CL**2
|
||||
00531 EJECT DTSBX601
|
||||
00532 01 MHDR-REC. CL**9
|
||||
00533 ++INCLUDE DTSIMHDR CL**2
|
||||
00534 EJECT DTSBX601
|
||||
00535 01 MPRF-REC. CL**9
|
||||
00536 ++INCLUDE DTSIMPRF CL**9
|
||||
00537 EJECT DTSBX601
|
||||
00538 01 MQTR-REC. CL**9
|
||||
00539 ++INCLUDE DTSIMQTR CL**9
|
||||
00540 EJECT CL**9
|
||||
00541 01 MRPT-REC. CL*70
|
||||
00542 ++INCLUDE DTSIMRPT CL*70
|
||||
00543 EJECT CL*70
|
||||
00544 01 MSOL-REC. CL*53
|
||||
00545 ++INCLUDE DTSIMSOL CL*53
|
||||
00546 EJECT CL*56
|
||||
00547 01 MRCT-REC. CL*56
|
||||
00548 ++INCLUDE DTSIMRCT CL*56
|
||||
00549 EJECT DTSBX601
|
||||
00550 01 MEVL-REC. CL111
|
||||
00551 ++INCLUDE DTSIMEVL CL111
|
||||
00552 EJECT CL111
|
||||
00553 01 MLIN-REC. CL116
|
||||
00554 ++INCLUDE DTSIMLIN CL116
|
||||
00555 EJECT CL116
|
||||
00556 01 MRTE-REC. CL137
|
||||
00557 ++INCLUDE DTSIMRTE CL137
|
||||
00558 EJECT CL137
|
||||
00559 01 MDST-REC. CL144
|
||||
00560 ++INCLUDE DTSIMDST CL144
|
||||
00561 EJECT CL144
|
||||
00562 01 MPAY-REC. CL151
|
||||
00563 ++INCLUDE DTSIMPAY CL151
|
||||
00564 EJECT CL151
|
||||
00565 01 MADJ-REC. CL153
|
||||
00566 ++INCLUDE DTSIMADJ CL153
|
||||
00567 EJECT CL153
|
||||
00568 01 MJRN-REC. CL155
|
||||
00569 ++INCLUDE DTSIMJRN CL155
|
||||
00570 EJECT CL155
|
||||
00571 01 MERA-REC. CL157
|
||||
00572 ++INCLUDE DTSIMERA CL157
|
||||
00573 EJECT CL157
|
||||
00574 01 MCOL-REC. CL*91
|
||||
00575 ++INCLUDE DTSIMCOL CL*91
|
||||
00576 EJECT CL*91
|
||||
00577 01 MFAS-REC. CL253
|
||||
00578 ++INCLUDE DTSIMFAS CL253
|
||||
00579 EJECT CL198
|
||||
00580 01 MFAE-REC. CL237
|
||||
00581 ++INCLUDE DTSIMFAE CL237
|
||||
00582 EJECT CL237
|
||||
00583 01 MLOG-REC. DTSBX601
|
||||
00584 ++INCLUDE DTSIMLOG DTSBX601
|
||||
00585 EJECT DTSBX601
|
||||
00586 01 MOPO-REC. CL*85
|
||||
00587 ++INCLUDE DTSIMOPO CL*85
|
||||
00588 EJECT CL*85
|
||||
00589 01 MTAD-REC. CL193
|
||||
00590 ++INCLUDE DTSIMTAD CL193
|
||||
00591 EJECT CL*86
|
||||
00592 01 MTAA-REC. CL193
|
||||
00593 ++INCLUDE DTSIMTAA CL193
|
||||
00594 EJECT CL193
|
||||
00595 01 MBAA-REC. CL227
|
||||
00596 ++INCLUDE DTSIMBAA CL227
|
||||
00597 EJECT CL227
|
||||
00598 01 MFSC-REC. CL*39
|
||||
00599 ++INCLUDE DTSIMFSC CL*39
|
||||
00600 EJECT CL*39
|
||||
00601 01 MERD-REC. CL*22
|
||||
00602 ++INCLUDE DTSIMERD CL*22
|
||||
00603 EJECT CL*22
|
||||
00604 01 L921-LINK-AREA. CL*89
|
||||
00605 ++INCLUDE DTSIL921 CL*89
|
||||
00606 EJECT CL*89
|
||||
00607 01 ISKL-REC. CL*89
|
||||
00608 ++INCLUDE DTSIISKL CL*89
|
||||
00609 EJECT CL*89
|
||||
00610 01 L931-LINK-AREA. CL132
|
||||
00611 ++INCLUDE DTSIL931 CL132
|
||||
00612 EJECT CL132
|
||||
00613 01 FSKL-REC. CL132
|
||||
00614 ++INCLUDE DTSIFSKL CL132
|
||||
00615 EJECT CL132
|
||||
00616 01 FQTR-REC. CL132
|
||||
00617 ++INCLUDE DTSIFQTR CL132
|
||||
00618 EJECT CL132
|
||||
00619 01 FFIS-REC. CL239
|
||||
00620 ++INCLUDE DTSIFFIS CL239
|
||||
00621 EJECT CL239
|
||||
00622 01 L004-COMM-AREA. CL239
|
||||
00623 ++INCLUDE DTSIL004 CL183
|
||||
00624 CL*53
|
||||
00625 01 L061-LINK-AREA. CL*54
|
||||
00626 ++INCLUDE DTSIL061 CL*53
|
||||
00627 EJECT CL*53
|
||||
00628 01 L516-LINK-AREA. CL185
|
||||
00629 ++INCLUDE DTSIL516 CL185
|
||||
00630 EJECT CL185
|
||||
00631 PROCEDURE DIVISION. CL183
|
||||
00632 SKIP2 DTSBX601
|
||||
00633 PERFORM I0000-INITIATE THRU I0000-EXIT. CL**5
|
||||
00634 IF WRK-ERROR-NO-88 CL193
|
||||
00635 PERFORM P0000-PROCESS THRU P0000-EXIT CL193
|
||||
00636 PERFORM T0000-TERMINATE THRU T0000-EXIT. CL193
|
||||
00637 SKIP2 DTSBX601
|
||||
00638 GOBACK. DTSBX601
|
||||
00639 EJECT DTSBX601
|
||||
00640 I0000-INITIATE. CL**5
|
||||
00641 SKIP2 CL**5
|
||||
00642 MOVE 'N' TO WRK-TRACE-IND. CL**8
|
||||
00643 SET WRK-ERROR-NO-88 TO TRUE. CL193
|
||||
00644 DTSBX601
|
||||
00645 PERFORM I2000-OPEN-FILES-1 THRU I2000-EXIT. CL**5
|
||||
00646 CL113
|
||||
00647 SKIP2 DTSBX601
|
||||
00648 I0000-EXIT. CL**7
|
||||
00649 EXIT. CL**7
|
||||
00650 I2000-OPEN-FILES-1. DTSBX601
|
||||
00651 OPEN OUTPUT EXP-FILE1. CL*86
|
||||
00652 IF NOT EXP-STATUS-OK-88 CL*86
|
||||
00653 DISPLAY 'CANNOT OPEN EXP FILE ' EXP-STATUS CL*86
|
||||
00654 SET WRK-ERROR-YES-88 TO TRUE CL*86
|
||||
00655 GO TO I2000-EXIT. CL*86
|
||||
00656 MOVE WRK-TRACE-IND TO L910-TRACE-IND. CL**5
|
||||
00657 CL**3
|
||||
00658 MOVE WRK-MOD-NAME TO L910-MOD-NAME. CL**5
|
||||
00659 DTSBX601
|
||||
00660 PERFORM S910-OPEN-READ THRU S910-EXIT. CL*68
|
||||
00661 ** PERFORM S910-OPEN-UPDATE-NO-AIX THRU S910-EXIT. CL*68
|
||||
00662 CL*89
|
||||
00663 PERFORM S921-OPEN-READ THRU S921-EXIT. CL*68
|
||||
00664 DTSBX601
|
||||
00665 PERFORM S931-OPEN-READ THRU S931-EXIT. CL*68
|
||||
00666 *** PERFORM S931-OPEN-UPDATE THRU S931-EXIT. CL*34
|
||||
00667 MOVE LOW-VALUES TO MSKL-KEY-AREA. CL*84
|
||||
00668 CL*84
|
||||
00669 MOVE +0 TO MSKL-EMP-NO. CL*84
|
||||
00670 CL*84
|
||||
00671 SET MSKL-HDR-88 TO TRUE. CL*84
|
||||
00672 CL*84
|
||||
00673 PERFORM S910-READ THRU S910-EXIT. CL*84
|
||||
00674 CL*84
|
||||
00675 IF L910-NO-REC-88 CL*84
|
||||
00676 MOVE 'MHDR RECORD NOT FOUND' CL*84
|
||||
00677 TO WRK-ABEND-MSG CL*84
|
||||
00678 PERFORM S999-ABEND THRU S999-EXIT. CL*84
|
||||
00679 CL*84
|
||||
00680 MOVE MSKL-REC TO MHDR-REC. CL*84
|
||||
00681 CL*84
|
||||
00682 MOVE MHDR-PRIOR-RUN-DATE TO WRK-EXT-CURRENT-DATE. CL*84
|
||||
00683 CL*84
|
||||
00684 DISPLAY ' PRIOR RUN DATE: ' MHDR-PRIOR-RUN-DATE. CL*84
|
||||
00685 CL*21
|
||||
00686 I2000-EXIT. DTSBX601
|
||||
00687 EXIT. DTSBX601
|
||||
00688 CL113
|
||||
00689 P0000-PROCESS. DTSBX601
|
||||
00690 DTSBX601
|
||||
00691 MOVE +0 TO WRK-MPRF-CNT CL**9
|
||||
00692 CL*16
|
||||
00693 MOVE LOW-VALUES TO MPRF-KEY-AREA. CL*89
|
||||
00694 MOVE 0 TO MLOG-CNT. CL*86
|
||||
00695 SET WRK-MLOG-OK TO TRUE. DTSBX601
|
||||
00696 MOVE LOW-VALUES TO MPRF-KEY-AREA. CL*92
|
||||
00697 MOVE +000001 TO MPRF-EMP-NO. CL*92
|
||||
00698 SET MPRF-PRF-88 TO TRUE. CL*92
|
||||
00699 MOVE MPRF-KEY-AREA TO MSKL-KEY-AREA. CL*92
|
||||
00700 DTSBX601
|
||||
00701 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBX601
|
||||
00702 IF L910-NO-REC-88 DTSBX601
|
||||
00703 NEXT SENTENCE CL*83
|
||||
00704 ELSE DTSBX601
|
||||
00705 PERFORM P1100-SCAN-MPRF THRU P1100-EXIT CL*89
|
||||
00706 UNTIL MPRF-NO-REC-88. CL*92
|
||||
00707 DTSBX601
|
||||
00708 P0000-EXIT. CL*83
|
||||
00709 EXIT. CL*83
|
||||
00710 EJECT CL*83
|
||||
00711 CL*83
|
||||
00712 DTSBX601
|
||||
00713 P1100-SCAN-MPRF. CL*89
|
||||
00714 CL*84
|
||||
00715 MOVE MSKL-REC TO MPRF-REC. CL*96
|
||||
00716 PERFORM P2100-PROCESS-MLOG THRU P2100-EXIT CL*89
|
||||
00717 MOVE MPRF-REC TO MSKL-REC CL*94
|
||||
00718 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBX601
|
||||
00719 IF NOT L910-OK-88 CL*92
|
||||
00720 SET MPRF-NO-REC-88 TO TRUE. CL*92
|
||||
00721 DTSBX601
|
||||
00722 P1100-EXIT. CL*87
|
||||
00723 EXIT. DTSBX601
|
||||
00724 SKIP3 CL*56
|
||||
00725 CL**1
|
||||
00726 CL*89
|
||||
00727 P2100-PROCESS-MLOG. CL*89
|
||||
00728 CL*89
|
||||
00729 MOVE +0 TO WRK-MPRF-CNT CL*89
|
||||
00730 CL*89
|
||||
00731 SET WRK-MLOG-OK TO TRUE. CL*89
|
||||
00732 MOVE LOW-VALUES TO MLOG-KEY-AREA. CL*89
|
||||
00733 MOVE MPRF-EMP-NO TO MLOG-EMP-NO. CL*89
|
||||
00734 SET MLOG-LOG-88 TO TRUE. CL*89
|
||||
00735 MOVE MLOG-KEY-AREA TO MSKL-KEY-AREA. CL*89
|
||||
00736 CL*89
|
||||
00737 PERFORM S910-START-BROWSE THRU S910-EXIT. CL*89
|
||||
00738 IF L910-NO-REC-88 CL*89
|
||||
00739 NEXT SENTENCE CL*89
|
||||
00740 ELSE CL*89
|
||||
00741 PERFORM P2200-SCAN-MLOG THRU P2200-EXIT CL*89
|
||||
00742 UNTIL WRK-MLOG-NO-REC. CL*90
|
||||
00743 CL*89
|
||||
00744 P2100-EXIT. CL*89
|
||||
00745 EXIT. CL*89
|
||||
00746 EJECT CL*89
|
||||
00747 CL*89
|
||||
00748 CL*89
|
||||
00749 P2200-SCAN-MLOG. CL*89
|
||||
00750 MOVE MSKL-REC TO MLOG-REC. CL*89
|
||||
00751 ADD 1 TO MLOG-CNT CL*89
|
||||
00752 IF MLOG-EMP-NO = 010021 OR 010727 OR 010729 CL119
|
||||
00753 * DISPLAY 'MNAME: ' MLOG-DATA-ELEMENT-NAME(1:20) CL*99
|
||||
00754 DISPLAY 'MDATE: ' MLOG-EMP-NO ' ' MLOG-ESTB-DATE CL115
|
||||
00755 ' ' MLOG-OP-ID CL120
|
||||
00756 ' ' MLOG-DATA-ELEMENT-NAME(1:15). CL120
|
||||
00757 CL121
|
||||
00758 * IF MLOG-ESTB-DATE = MHDR-PRIOR-RUN-DATE CL123
|
||||
00759 IF MLOG-ESTB-DATE = 20180924 CL124
|
||||
00760 IF MLOG-DATA-ELEMENT-NAME(1:20) = 'MPRF-RETURN-MAIL-IND' CL*97
|
||||
00761 OR CL103
|
||||
00762 MLOG-DATA-ELEMENT-NAME(1:12) = 'MRTE-UI-RATE' CL103
|
||||
00763 OR CL104
|
||||
00764 MLOG-DATA-ELEMENT-NAME(1:15) = 'RETURN MAIL IND' CL105
|
||||
00765 MOVE SPACES TO WRK-R1-SPACES CL108
|
||||
00766 * MOVE MLOG-ESTB-DATE TO REC1-DATE CL123
|
||||
00767 MOVE 20180924 TO REC1-DATE CL124
|
||||
00768 MOVE MPRF-RETURN-MAIL-IND TO REC1-FLAG CL*99
|
||||
00769 MOVE MLOG-EMP-NO TO REC1-EMP-NO CL*99
|
||||
00770 MOVE MLOG-OP-ID TO REC1-OPID CL113
|
||||
00771 * SET WRK-MLOG-NO-REC TO TRUE CL120
|
||||
00772 WRITE EXP-REC1 FROM WRK-REC1. CL121
|
||||
00773 * GO TO P2200-EXIT. CL121
|
||||
00774 CL112
|
||||
00775 PERFORM S910-READ-NEXT THRU S910-EXIT. CL*89
|
||||
00776 IF L910-NO-REC-88 CL*89
|
||||
00777 SET L910-OK-88 TO TRUE CL*90
|
||||
00778 SET WRK-MLOG-NO-REC TO TRUE. CL*89
|
||||
00779 CL*89
|
||||
00780 P2200-EXIT. CL*89
|
||||
00781 EXIT. CL*89
|
||||
00782 SKIP3 CL*89
|
||||
00783 CL*89
|
||||
00784 T0000-TERMINATE. DTSBX601
|
||||
00785 CL**4
|
||||
00786 DISPLAY ' '. DTSBX601
|
||||
00787 CL**4
|
||||
00788 DISPLAY '*** DTSBX601 TERMINATION STATISTICS ***'. CL*83
|
||||
00789 CL**4
|
||||
00790 DISPLAY ' '. DTSBX601
|
||||
00791 CL**4
|
||||
00792 PERFORM S910-CLOSE THRU S910-EXIT. CL**4
|
||||
00793 CLOSE EXP-FILE1. CL*86
|
||||
00794 DTSBX601
|
||||
00795 T0000-EXIT. DTSBX601
|
||||
00796 EXIT. DTSBX601
|
||||
00797 EJECT DTSBX601
|
||||
00798 S001-FROM-FED-8. CL232
|
||||
00799 SET L001-FROM-FED-8 TO TRUE. CL232
|
||||
00800 GO TO S001-DATE. CL232
|
||||
00801 CL232
|
||||
00802 S001-FROM-ABS-DAY. CL*10
|
||||
00803 SET L001-FROM-ABS-DAY TO TRUE. CL*10
|
||||
00804 GO TO S001-DATE. CL*10
|
||||
00805 CL*10
|
||||
00806 S001-DATE. CL232
|
||||
00807 CALL 'DTSBU001' USING L001-LINK-AREA. CL232
|
||||
00808 CL232
|
||||
00809 S001-EXIT. CL232
|
||||
00810 EXIT. CL232
|
||||
00811 SKIP3 DTSBX601
|
||||
00812 S004-FROM-5. CL*10
|
||||
00813 SET L004-FROM-5 TO TRUE. CL*10
|
||||
00814 GO TO S004-EDIT-QTR. CL*10
|
||||
00815 CL*10
|
||||
00816 S004-FROM-ABS. CL*10
|
||||
00817 SET L004-FROM-ABS TO TRUE. CL*10
|
||||
00818 GO TO S004-EDIT-QTR. CL*10
|
||||
00819 CL*10
|
||||
00820 S004-EDIT-QTR. CL183
|
||||
00821 CALL 'DTSBU004' USING L004-COMM-AREA. CL183
|
||||
00822 CL183
|
||||
00823 S004-EXIT. CL183
|
||||
00824 EXIT. CL183
|
||||
00825 SKIP3 CL183
|
||||
00826 S005-SYS-DATE. CL*80
|
||||
00827 CALL 'DTSBU005' USING L005-COMM-AREA. CL*80
|
||||
00828 CL*80
|
||||
00829 S005-EXIT. CL*80
|
||||
00830 EXIT. CL*80
|
||||
00831 SKIP3 CL*80
|
||||
00832 CL*80
|
||||
00833 S054-RATE-DETERMINATION. CL206
|
||||
00834 CALL 'DTSBU054' USING L054-LINK-AREA CL206
|
||||
00835 MRCT-REC. CL206
|
||||
00836 CL206
|
||||
00837 S054-EXIT. CL206
|
||||
00838 EXIT. CL206
|
||||
00839 SKIP3 CL206
|
||||
00840 S061-FLD-REP-INFO. CL*53
|
||||
00841 SKIP1 CL*53
|
||||
00842 CALL 'DTSBU061' USING L061-LINK-AREA. CL*53
|
||||
00843 SKIP2 CL*53
|
||||
00844 S061-EXIT. CL*53
|
||||
00845 EXIT. CL*53
|
||||
00846 CL*53
|
||||
00847 S410-FILING-SCHED. CL*46
|
||||
00848 CALL 'DTSBU410' USING L410-LINK-AREA. CL*46
|
||||
00849 CL*46
|
||||
00850 S410-EXIT. CL*46
|
||||
00851 EXIT. CL*46
|
||||
00852 SKIP3 CL*46
|
||||
00853 S516-LIABILITY. CL185
|
||||
00854 CALL 'DTSBU516' USING L516-LINK-AREA CL185
|
||||
00855 MPRF-REC. CL185
|
||||
00856 CL185
|
||||
00857 S516-EXIT. CL185
|
||||
00858 EXIT. CL185
|
||||
00859 SKIP3 CL185
|
||||
00860 S910-OPEN-READ. DTSBX601
|
||||
00861 SET L910-OPEN-READ-88 TO TRUE. DTSBX601
|
||||
00862 GO TO S910-MSTR-IO. DTSBX601
|
||||
00863 DTSBX601
|
||||
00864 S910-OPEN-UPDATE-NO-AIX. CL*18
|
||||
00865 SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE. CL*18
|
||||
00866 GO TO S910-MSTR-IO. CL*15
|
||||
00867 DTSBX601
|
||||
00868 S910-READ. DTSBX601
|
||||
00869 SET L910-READ-88 TO TRUE. DTSBX601
|
||||
00870 GO TO S910-MSTR-IO. DTSBX601
|
||||
00871 DTSBX601
|
||||
00872 S910-START-BROWSE. DTSBX601
|
||||
00873 SET L910-START-BROWSE-88 TO TRUE. DTSBX601
|
||||
00874 GO TO S910-MSTR-IO. DTSBX601
|
||||
00875 DTSBX601
|
||||
00876 S910-READ-NEXT. DTSBX601
|
||||
00877 SET L910-READ-NEXT-88 TO TRUE. DTSBX601
|
||||
00878 GO TO S910-MSTR-IO. DTSBX601
|
||||
00879 DTSBX601
|
||||
00880 S910-COUNT. CL**9
|
||||
00881 SET L910-COUNT-88 TO TRUE. CL**9
|
||||
00882 GO TO S910-MSTR-IO. CL**9
|
||||
00883 CL**9
|
||||
00884 S910-REWRITE. CL*15
|
||||
00885 SET L910-REWRITE-88 TO TRUE. CL*15
|
||||
00886 GO TO S910-MSTR-IO. CL*15
|
||||
00887 DTSBX601
|
||||
00888 S910-DELETE. CL119
|
||||
00889 SET L910-DELETE-88 TO TRUE. CL119
|
||||
00890 GO TO S910-MSTR-IO. CL119
|
||||
00891 CL119
|
||||
00892 S910-CLOSE. DTSBX601
|
||||
00893 SET L910-CLOSE-88 TO TRUE. DTSBX601
|
||||
00894 GO TO S910-MSTR-IO. DTSBX601
|
||||
00895 DTSBX601
|
||||
00896 S910-MSTR-IO. DTSBX601
|
||||
00897 CALL 'DTSBU910' USING L910-LINK-AREA CL**2
|
||||
00898 MSKL-REC. DTSBX601
|
||||
00899 S910-EXIT. DTSBX601
|
||||
00900 EXIT. DTSBX601
|
||||
00901 SKIP3 DTSBX601
|
||||
00902 S921-OPEN-READ. CL*89
|
||||
00903 SET L921-OPEN-READ-88 TO TRUE. CL*89
|
||||
00904 GO TO S921-AIX-IO. CL*89
|
||||
00905 CL*89
|
||||
00906 S921-CLOSE. CL*89
|
||||
00907 SET L921-CLOSE-88 TO TRUE. CL*89
|
||||
00908 GO TO S921-AIX-IO. CL*89
|
||||
00909 CL*89
|
||||
00910 S921-AIX-IO. CL*89
|
||||
00911 CALL 'DTSBU921' USING L921-LINK-AREA CL*89
|
||||
00912 ISKL-REC. CL*89
|
||||
00913 S921-EXIT. CL*89
|
||||
00914 EXIT. CL*89
|
||||
00915 SKIP3 CL*89
|
||||
00916 CL*89
|
||||
00917 S931-OPEN-READ. CL132
|
||||
00918 SET L931-OPEN-READ-88 TO TRUE. CL132
|
||||
00919 GO TO S931-REF-IO. CL132
|
||||
00920 CL132
|
||||
00921 S931-OPEN-UPDATE. CL*31
|
||||
00922 SET L931-OPEN-UPDATE-88 TO TRUE. CL*31
|
||||
00923 GO TO S931-REF-IO. CL*31
|
||||
00924 CL*31
|
||||
00925 S931-START-BROWSE. CL*31
|
||||
00926 SET L931-START-BROWSE-88 TO TRUE. CL**6
|
||||
00927 GO TO S931-REF-IO. CL**6
|
||||
00928 CL**6
|
||||
00929 S931-READ. CL132
|
||||
00930 SET L931-READ-88 TO TRUE. CL132
|
||||
00931 GO TO S931-REF-IO. CL132
|
||||
00932 CL133
|
||||
00933 S931-READ-NEXT. CL**6
|
||||
00934 SET L931-READ-NEXT-88 TO TRUE. CL**6
|
||||
00935 GO TO S931-REF-IO. CL**6
|
||||
00936 CL**6
|
||||
00937 S931-DELETE. CL*32
|
||||
00938 SET L931-DELETE-88 TO TRUE. CL*32
|
||||
00939 GO TO S931-REF-IO. CL*32
|
||||
00940 CL*32
|
||||
00941 S931-REWRITE. CL*29
|
||||
00942 SET L931-REWRITE-88 TO TRUE. CL*29
|
||||
00943 GO TO S931-REF-IO. CL*29
|
||||
00944 CL*29
|
||||
00945 S931-WRITE. CL*33
|
||||
00946 SET L931-WRITE-88 TO TRUE. CL*33
|
||||
00947 GO TO S931-REF-IO. CL*33
|
||||
00948 CL*33
|
||||
00949 S931-CLOSE. CL134
|
||||
00950 SET L931-CLOSE-88 TO TRUE. CL133
|
||||
00951 GO TO S931-REF-IO. CL133
|
||||
00952 CL133
|
||||
00953 S931-REF-IO. CL132
|
||||
00954 CALL 'DTSBU931' USING L931-LINK-AREA CL132
|
||||
00955 FSKL-REC. CL132
|
||||
00956 S931-EXIT. CL132
|
||||
00957 EXIT. CL132
|
||||
00958 SKIP3 CL132
|
||||
00959 S999-ABEND. DTSBX601
|
||||
00960 CALL 'DTSBU999' USING WRK-ABEND-CD. CL**2
|
||||
00961 S999-EXIT. DTSBX601
|
||||
00962 EXIT. DTSBX601
|
||||
1
BatchFile.txt
Normal file
1
BatchFile.txt
Normal file
@ -0,0 +1 @@
|
||||
E:\Faizan_Folder\Dutas_git\DUTAS\Batch\DTSBX478.cob
|
||||
5378
CICS/DTSCS13.cob
5378
CICS/DTSCS13.cob
File diff suppressed because it is too large
Load Diff
9573
CICS/DTSCS26.cob
9573
CICS/DTSCS26.cob
File diff suppressed because it is too large
Load Diff
1492
CICS/DTSCS37.cob
1492
CICS/DTSCS37.cob
File diff suppressed because it is too large
Load Diff
6673
CICS/DTSCS44.cob
6673
CICS/DTSCS44.cob
File diff suppressed because it is too large
Load Diff
3411
CICS/DTSCS82.cob
3411
CICS/DTSCS82.cob
File diff suppressed because it is too large
Load Diff
2765
CICS/DTSCS85.cob
2765
CICS/DTSCS85.cob
File diff suppressed because it is too large
Load Diff
3253
CICS/DTSCS89.cob
3253
CICS/DTSCS89.cob
File diff suppressed because it is too large
Load Diff
4502
CICS/DTSCSL1.cob
4502
CICS/DTSCSL1.cob
File diff suppressed because it is too large
Load Diff
1059
CICS/DTSCU351.cob
1059
CICS/DTSCU351.cob
File diff suppressed because it is too large
Load Diff
@ -1,6 +1,6 @@
|
||||
00001 IDENTIFICATION DIVISION. 04/09/13
|
||||
00001 IDENTIFICATION DIVISION. 01/29/03
|
||||
00002 PROGRAM-ID. DTSCU415. DTSCU415
|
||||
00003 AUTHOR. TRW. LV002
|
||||
00003 AUTHOR. TRW. LV003
|
||||
00004 DATE-WRITTEN. OCTOBER 20001. DTSCU415
|
||||
00005 DATE-COMPILED. DTSCU415
|
||||
00006 DTSCU415
|
||||
@ -34,319 +34,318 @@
|
||||
00034 DATA DIVISION. DTSCU415
|
||||
00035 SKIP3 DTSCU415
|
||||
00036 WORKING-STORAGE SECTION. 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
|
||||
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
|
||||
00140 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
|
||||
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
|
||||
|
||||
264
CICS/DTSIS76.cob
Normal file
264
CICS/DTSIS76.cob
Normal file
@ -0,0 +1,264 @@
|
||||
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
|
||||
@ -1,148 +0,0 @@
|
||||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. RCSIGNON.
|
||||
ENVIRONMENT DIVISION.
|
||||
CONFIGURATION SECTION.
|
||||
DATA DIVISION.
|
||||
WORKING-STORAGE SECTION.
|
||||
|
||||
01 WS-RESP PIC S9(8) COMP.
|
||||
01 WS-RESP2 PIC S9(8) COMP.
|
||||
01 WS-USER PIC X(56) VALUE SPACES.
|
||||
01 WS-PASS PIC X(50).
|
||||
01 WS-USERID PIC X(8) VALUE SPACES.
|
||||
|
||||
*To generate the xml and copybook of the logon screen
|
||||
* rcbms -GenBasedSymbolicMap -Language=cobol SIGNON.bms
|
||||
COPY SIGNON.
|
||||
|
||||
* COPY DFHBMSCA.
|
||||
* COPY DFHAID.
|
||||
COPY DFHRESP.
|
||||
|
||||
LINKAGE SECTION.
|
||||
01 DFHCOMMAREA.
|
||||
05 LK-DATA PIC X(1).
|
||||
PROCEDURE DIVISION.
|
||||
|
||||
DISPLAY '=== Hello!'.
|
||||
|
||||
IF EIBCALEN = 0
|
||||
EXEC CICS
|
||||
GETMAIN SET(ADDRESS OF DFHCOMMAREA)
|
||||
FLENGTH(LENGTH OF DFHCOMMAREA)
|
||||
END-EXEC
|
||||
DISPLAY '=== Sending Map'
|
||||
MOVE 0 TO LK-DATA
|
||||
PERFORM SEND-MAP
|
||||
END-IF.
|
||||
|
||||
IF LK-DATA = 0
|
||||
DISPLAY '=== Receiving Map'
|
||||
MOVE 1 TO LK-DATA
|
||||
PERFORM REC-MAP
|
||||
END-IF.
|
||||
|
||||
IF LK-DATA = 1
|
||||
DISPLAY '=== New user logged on'
|
||||
MOVE 2 TO LK-DATA
|
||||
PERFORM SHOW-ID
|
||||
END-IF.
|
||||
|
||||
DISPLAY "=== You should never get here! (" LK-DATA ")".
|
||||
GOBACK.
|
||||
|
||||
SEND-MAP.
|
||||
EXEC CICS
|
||||
SEND MAP('LOGONM') MAPSET('SIGNON')
|
||||
ERASE
|
||||
RESP(WS-RESP)
|
||||
RESP2(WS-RESP2)
|
||||
END-EXEC
|
||||
IF WS-RESP NOT = DFHRESP(NORMAL)
|
||||
*Should be replaced with better error-handling
|
||||
DISPLAY '=== SEND FAILED'
|
||||
GOBACK
|
||||
END-IF
|
||||
EXEC CICS
|
||||
RETURN TRANSID('logo')
|
||||
COMMAREA(DFHCOMMAREA)
|
||||
LENGTH(LENGTH OF DFHCOMMAREA)
|
||||
END-EXEC.
|
||||
|
||||
REC-MAP.
|
||||
EXEC CICS
|
||||
RECEIVE MAP('LOGONM') MAPSET('SIGNON')
|
||||
RESP(WS-RESP)
|
||||
RESP2(WS-RESP2)
|
||||
END-EXEC
|
||||
IF WS-RESP NOT = DFHRESP(NORMAL)
|
||||
*Should be replaced with better error-handling
|
||||
DISPLAY '=== RECEIVE FAILED'
|
||||
EXEC CICS RETURN END-EXEC
|
||||
END-IF
|
||||
|
||||
MOVE USERNO TO WS-USER
|
||||
MOVE PASSWO TO WS-PASS
|
||||
* Remove from possible mem dumps
|
||||
MOVE SPACES TO PASSWO
|
||||
|
||||
DISPLAY '=== Signon'
|
||||
|
||||
EXEC CICS SIGNON
|
||||
* USERID('LETMEIN0')
|
||||
USERID(' ')
|
||||
OIDCARD(WS-USER)
|
||||
PHRASE(WS-PASS)
|
||||
PHRASELEN(50)
|
||||
RESP(WS-RESP)
|
||||
RESP2(WS-RESP2)
|
||||
END-EXEC
|
||||
|
||||
* Remove from possible mem dumps.
|
||||
MOVE SPACES TO WS-PASS
|
||||
|
||||
IF WS-RESP = DFHRESP(NORMAL)
|
||||
DISPLAY "=== Signon success!"
|
||||
ELSE
|
||||
*Should be replaced with better error-handling
|
||||
DISPLAY "=== Signon failed!"
|
||||
MOVE ZERO TO LK-DATA
|
||||
|
||||
MOVE 'Login unsuccessful, please try again.'
|
||||
TO INFMSI
|
||||
|
||||
EXEC CICS
|
||||
SEND MAP('LOGONM') MAPSET('SIGNON')
|
||||
ERASE
|
||||
RESP(WS-RESP)
|
||||
RESP2(WS-RESP2)
|
||||
END-EXEC
|
||||
|
||||
EXEC CICS
|
||||
RETURN TRANSID('logo')
|
||||
COMMAREA(DFHCOMMAREA)
|
||||
LENGTH(LENGTH OF DFHCOMMAREA)
|
||||
END-EXEC
|
||||
END-IF
|
||||
|
||||
DISPLAY "=== Switching user"
|
||||
EXEC CICS
|
||||
SEND MAP('SUXESS') MAPSET('SIGNON')
|
||||
ERASE
|
||||
RESP(WS-RESP)
|
||||
RESP2(WS-RESP2)
|
||||
END-EXEC
|
||||
EXEC CICS
|
||||
RETURN TRANSID('DTS')
|
||||
* COMMAREA(DFHCOMMAREA)
|
||||
* LENGTH(LENGTH OF DFHCOMMAREA)
|
||||
END-EXEC.
|
||||
|
||||
SHOW-ID.
|
||||
EXEC CICS ASSIGN USERID(WS-USERID) END-EXEC
|
||||
DISPLAY '=== CICS USERID:' WS-USERID
|
||||
EXEC CICS LINK PROGRAM('DTSCDRV') END-EXEC
|
||||
GOBACK.
|
||||
|
||||
|
||||
|
||||
@ -17,8 +17,6 @@
|
||||
|
||||
PROCEDURE DIVISION.
|
||||
|
||||
EXEC CICS RETURN END-EXEC.
|
||||
|
||||
MOVE EIBTRMID TO EIBTRMID
|
||||
MOVE EIBTRNID TO EIBTRNID
|
||||
|
||||
@ -40,9 +38,8 @@
|
||||
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
|
||||
|
||||
@ -1,5 +1,6 @@
|
||||
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCS26.cob
|
||||
|
||||
|
||||
|
||||
|
||||
E:\Faizan_Folder\Dutas_git\DUTAS\CICS\DTSCS44.cob
|
||||
E:\Faizan_Folder\Dutas_git\DUTAS\CICS\DTSCS82.cob
|
||||
E:\Faizan_Folder\Dutas_git\DUTAS\CICS\DTSCS89.cob
|
||||
E:\Faizan_Folder\Dutas_git\DUTAS\CICS\DTSCSL1.cob
|
||||
E:\Faizan_Folder\Dutas_git\DUTAS\CICS\DTSCU415.cob
|
||||
E:\Faizan_Folder\Dutas_git\DUTAS\CICS\DTSIS76.cob
|
||||
|
||||
@ -1,8 +1,10 @@
|
||||
-IgnoreParseError=TRUE
|
||||
-OutputDir=E:\Faizan_Folder\DUTAS_DEV_UPDATE\bin\CICS\dll
|
||||
-OutputDir=E:/Faizan_Folder/Dutas_git/bin/CICS
|
||||
-KeepPreProFiles=TRUE
|
||||
-RemoveFileVerifyFailed=FALSE
|
||||
-IncrementalMode=TRUE
|
||||
-DBDriver=sqlite
|
||||
-DBConnectString=MetaData.db3
|
||||
-MaxMem=1000
|
||||
-IncludeSearchPath=E:\Faizan_Folder\DUTAS_DEV_UPDATE/DUTAS/Copybook
|
||||
-IncludeSearchPath=E:/Faizan_Folder/Dutas_git/DUTAS/Copybook;E:\DUTAS\src\Copybook;
|
||||
-IncludeExtension=.txt
|
||||
-StringRuntimeEncoding=037
|
||||
-DefInit=TRUE
|
||||
|
||||
@ -1,21 +0,0 @@
|
||||
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
|
||||
@ -1,28 +0,0 @@
|
||||
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
|
||||
@ -1,33 +0,0 @@
|
||||
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
|
||||
@ -1,6 +1,6 @@
|
||||
00001 ***** 04/09/13
|
||||
00001 ***** 07/17/03
|
||||
00002 * DTSIL415
|
||||
00003 * DTSIL415 KEY DATES FOR ANNUAL FILING LV002
|
||||
00003 * DTSIL415 KEY DATES FOR ANNUAL FILING LV005
|
||||
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-ESTIMATED-DATE CL**2
|
||||
00051 15 L415-UC30H-FINAL-DEL-DATE DTSIL415
|
||||
00052 PIC S9(09) COMP-3. DTSIL415
|
||||
00053 15 L415-UC30H-FINAL-DEL-STRT-YRQ DTSIL415
|
||||
00054 PIC S9(05) COMP-3. DTSIL415
|
||||
|
||||
@ -11,7 +11,6 @@
|
||||
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
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
00001 ***** 05/11/17
|
||||
00001 ***** 09/13/12
|
||||
00002 * DTSIS13
|
||||
00003 * DTSIS13 TAX ADDRESS INQUIRY/UPDATE SEND/RECEIVE AREA. LV003
|
||||
00003 * DTSIS13 TAX ADDRESS INQUIRY/UPDATE SEND/RECEIVE AREA. LV012
|
||||
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. 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
|
||||
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
|
||||
00133 SKIP1 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
|
||||
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
|
||||
00138 SKIP1 DTSIS13
|
||||
00139 15 MAP-MEMO-AREA. DTSIS13
|
||||
00140 20 MAP-MEMO-L PIC S9(04) COMP. DTSIS13
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
00001 ***** 08/14/25
|
||||
00001 ***** 04/13/17
|
||||
00002 * DTSIS82
|
||||
00003 * DTSIS82 QUARTER INQUIRY/UPDATE SEND/RECEIVE AREA. LV005
|
||||
00003 * DTSIS82 QUARTER INQUIRY/UPDATE SEND/RECEIVE AREA. LV004
|
||||
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**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
|
||||
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
|
||||
00155 SKIP1 DTSIS82
|
||||
00156 10 MAP-UC30-FINAL-ACT-DATE-AREA. DTSIS82
|
||||
00157 15 MAP-UC30-FINAL-ACTION-MM-AREA. DTSIS82
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
00001 ***** 04/09/13
|
||||
00001 ***** 11/11/02
|
||||
00002 * DTSIS89
|
||||
00003 * DTSIS89 ANNUAL FILING INQUIRY/UPDATE LV003
|
||||
00003 * DTSIS89 ANNUAL FILING INQUIRY/UPDATE LV001
|
||||
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-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
|
||||
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
|
||||
00118 SKIP1 DTSIS89
|
||||
00119 10 MAP-ESTB-DATE-AREA. DTSIS89
|
||||
00120 15 MAP-ESTB-DATE-L PIC S9(04) COMP. DTSIS89
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
00001 ***** 08/14/25
|
||||
00001 ***** 07/19/99
|
||||
00002 * DTSISL1 LMI INQUIRY/UPDATE SEND/RECEIVE AREA DTSISL1
|
||||
00003 ***** LV010
|
||||
00003 ***** LV009
|
||||
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 FR12023. CL*10
|
||||
00193 10 FR12015. CL**3
|
||||
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
|
||||
|
||||
@ -1,19 +0,0 @@
|
||||
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
|
||||
@ -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
|
||||
|
||||
@ -1,24 +0,0 @@
|
||||
00001 ***** 02/27/24
|
||||
00002 * DTSIWWGH
|
||||
00003 * DTSIWWGH WAGE HISTORY FILE 'WAGE ITEM' LV003
|
||||
00004 * RECORD DEFINITION. DTSIWWGH
|
||||
00005 * DTSIWWGH
|
||||
00006 * >>> NEW WWGH INCLUDE DATE RECEIVED FROM ESSP/DOCS ZL1 <<< CL**3
|
||||
00007 * >>> INCLUDES LAST CHANGE DATE FROM DOCS FILE. <<< CL**2
|
||||
00008 * DTSIWWGH
|
||||
00009 * 02/18/2002 INITIAL DEVELOPMENT. GD DTSIWWGH
|
||||
00010 * 03/18/2004 MODIFIED FOR NEW WAGE PROCESS. GD DTSIWWGH
|
||||
00011 * 02/27/2024 MODIFIED FOR UIBS WAGE PROCESSING ZL CL**3
|
||||
00012 * DTSIWWGH
|
||||
00013 * KEY = 12 LENGTH = 23 CL**2
|
||||
00014 * DTSIWWGH
|
||||
00015 ***** DTSIWWGH
|
||||
00016 DTSIWWGH
|
||||
00017 10 WWGH-KEY-AREA. DTSIWWGH
|
||||
00018 15 WWGH-EMP-NO PIC S9(07) COMP-3. DTSIWWGH
|
||||
00019 15 WWGH-YRQ PIC S9(05) COMP-3. DTSIWWGH
|
||||
00020 15 WWGH-SSN PIC S9(09) COMP-3. DTSIWWGH
|
||||
00021 DTSIWWGH
|
||||
00022 10 WWGH-DATA-AREA. DTSIWWGH
|
||||
00023 15 WWGH-EARNINGS PIC S9(09)V9(02) COMP-3. DTSIWWGH
|
||||
00024 15 WWGH-CHNG-DATE PIC S9(09) COMP-3. CL**2
|
||||
43
Copybook/DTSUX110.TXT
Normal file
43
Copybook/DTSUX110.TXT
Normal file
@ -0,0 +1,43 @@
|
||||
00001 ***** 11/28/18
|
||||
00002 * DTSUX110
|
||||
00003 * DTSUX110 COPY OF EMPLOYER ADDRESS EXTRACT RECORD (X110) LV006
|
||||
00004 * DTSUX110
|
||||
00005 * THIS COPYBOOK IS USED TO UPDATE THE EMPLOYER ADDRESS INFO CL**4
|
||||
00006 * ON THE MAILING AND BUSINESS OPO ADDRESS NOT UPDATED CL**5
|
||||
00007 * DTSUX110
|
||||
00008 * ADDED FILLER AT END FOR REC LEN 512 09/23/14 ZL1 CL**4
|
||||
00009 ***** DTSUX110
|
||||
00010 DTSUX110
|
||||
00011 15 X110-REC-TYPE PIC X(03) VALUE '110'. DTSUX110
|
||||
00012 15 FILLER PIC X(01) VALUE ','. DTSUX110
|
||||
00013 15 X110-EMP-NO PIC 9(06). DTSUX110
|
||||
00014 15 FILLER PIC X(01) VALUE ','. DTSUX110
|
||||
00015 15 X110-ADDR-TYPE PIC X(02). DTSUX110
|
||||
00016 88 X110-ADDR-TYPE-MAIL-88 VALUE '01'. DTSUX110
|
||||
00017 88 X110-ADDR-TYPE-RECS-88 VALUE '02'. DTSUX110
|
||||
00018 88 X110-ADDR-TYPE-WORK-88 VALUE '03'. DTSUX110
|
||||
00019 15 FILLER PIC X(01) VALUE ','. DTSUX110
|
||||
00020 15 X110-ATTENTION PIC X(40). DTSUX110
|
||||
00021 15 FILLER PIC X(01) VALUE ','. DTSUX110
|
||||
00022 15 X110-STREET-1 PIC X(40). DTSUX110
|
||||
00023 15 FILLER PIC X(01) VALUE ','. DTSUX110
|
||||
00024 15 X110-STREET-2 PIC X(40). DTSUX110
|
||||
00025 15 FILLER PIC X(01) VALUE ','. DTSUX110
|
||||
00026 15 X110-CITY PIC X(25). DTSUX110
|
||||
00027 15 FILLER PIC X(01) VALUE ','. DTSUX110
|
||||
00028 15 X110-STATE PIC X(02). DTSUX110
|
||||
00029 15 FILLER PIC X(01) VALUE ','. DTSUX110
|
||||
00030 15 X110-ZIP PIC X(10). DTSUX110
|
||||
00031 15 FILLER PIC X(01) VALUE ','. DTSUX110
|
||||
00032 15 X110-PHONE PIC X(15). DTSUX110
|
||||
00033 15 FILLER PIC X(01) VALUE ','. DTSUX110
|
||||
00034 15 X110-FAX PIC X(15). DTSUX110
|
||||
00035 15 FILLER PIC X(01) VALUE ','. DTSUX110
|
||||
00036 15 X110-EMAIL PIC X(40). DTSUX110
|
||||
00037 15 FILLER PIC X(01) VALUE ','. DTSUX110
|
||||
00038 15 X110-WEB-SITE PIC X(40). DTSUX110
|
||||
00039 15 FILLER PIC X(01) VALUE ','. DTSUX110
|
||||
00040 15 X110-EMP-NAME PIC X(40). DTSUX110
|
||||
00041 15 FILLER PIC X(01) VALUE ','. CL**6
|
||||
00042 15 X110-QAS-FLAG PIC X(01). CL**6
|
||||
00043 15 FILLER PIC X(179). CL**6
|
||||
@ -1,36 +0,0 @@
|
||||
01 LOGONMI .
|
||||
02 FILLER PIC X(12).
|
||||
02 USERNL PIC S9(4) COMP-5.
|
||||
02 USERNF PIC X(1).
|
||||
02 FILLER REDEFINES USERNF.
|
||||
04 USERNA PIC X.
|
||||
02 USERNI PIC X(50).
|
||||
02 PASSWL PIC S9(4) COMP-5.
|
||||
02 PASSWF PIC X(1).
|
||||
02 FILLER REDEFINES PASSWF.
|
||||
04 PASSWA PIC X.
|
||||
02 PASSWI PIC X(50).
|
||||
02 INFMSL PIC S9(4) COMP-5.
|
||||
02 INFMSF PIC X(1).
|
||||
02 FILLER REDEFINES INFMSF.
|
||||
04 INFMSA PIC X.
|
||||
02 INFMSI PIC X(40).
|
||||
01 LOGONMO REDEFINES LOGONMI.
|
||||
02 FILLER PIC X(12).
|
||||
02 FILLER PIC X(3).
|
||||
02 USERNO PIC X(50).
|
||||
02 FILLER PIC X(3).
|
||||
02 PASSWO PIC X(50).
|
||||
02 FILLER PIC X(3).
|
||||
02 INFMSO PIC X(40).
|
||||
01 SUXESSI .
|
||||
02 FILLER PIC X(12).
|
||||
02 BLANKL PIC S9(4) COMP-5.
|
||||
02 BLANKF PIC X(1).
|
||||
02 FILLER REDEFINES BLANKF.
|
||||
04 BLANKA PIC X.
|
||||
02 BLANKI PIC X(30).
|
||||
01 SUXESSO REDEFINES SUXESSI.
|
||||
02 FILLER PIC X(12).
|
||||
02 FILLER PIC X(3).
|
||||
02 BLANKO PIC X(30).
|
||||
28
CreateGDG.jcl
Normal file
28
CreateGDG.jcl
Normal file
@ -0,0 +1,28 @@
|
||||
//JOBINPUT JOB (INNOVA,DEV,TEAM),FAIZAN,CLASS=S,MSGCLASS=X
|
||||
//STEP001 EXEC PGM=IDCAMS
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSIN DD *
|
||||
DEFINE GDG(NAME(DOESTAX.PROD.BE320.FTP.BX212) -
|
||||
LIMIT(10) -
|
||||
NOEMPTY -
|
||||
SCRATCH)
|
||||
//*
|
||||
//STEP001 EXEC PGM=IDCAMS
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSIN DD *
|
||||
DEFINE GDG(NAME(DOESTAX.PROD.BE320.RPT) -
|
||||
LIMIT(10) -
|
||||
NOEMPTY -
|
||||
SCRATCH)
|
||||
//*
|
||||
//STEP001 EXEC PGM=IDCAMS
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSIN DD *
|
||||
DEFINE GDG(NAME(DOESTAX.PROD.EXTRQ.RPT) -
|
||||
LIMIT(10) -
|
||||
NOEMPTY -
|
||||
SCRATCH)
|
||||
//*
|
||||
|
||||
|
||||
|
||||
@ -1,46 +0,0 @@
|
||||
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
|
||||
@ -1,30 +0,0 @@
|
||||
//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
|
||||
//****
|
||||
@ -71,6 +71,6 @@
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(UIBCHGOB),DISP=SHR
|
||||
//INPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBCHGOB),DISP=SHR
|
||||
//
|
||||
//*******************************************************************
|
||||
|
||||
@ -32,8 +32,7 @@
|
||||
//* 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
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX552),DISP=SHR 00213007
|
||||
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR 00213007
|
||||
//* 00214007
|
||||
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00216009
|
||||
// COND=(0,LT) 00217009
|
||||
@ -50,7 +49,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.CONV.USER.PARMLIB(DTSSX552),DISP=SHR 00350009
|
||||
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR 00350009
|
||||
//* 00360009
|
||||
//* 00370041
|
||||
//STEP0150 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS 00380041
|
||||
@ -67,7 +66,7 @@
|
||||
// UNIT=SYSDA, 00490041
|
||||
// SPACE=(30720,(2000,4000),RLSE), 00500041
|
||||
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00510041
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX552),DISP=SHR 00520041
|
||||
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX552),DISP=SHR 00520041
|
||||
//* 00530041
|
||||
//************************************************************** 01210000
|
||||
//* CREATE REPORT FROM DC SORTED ECTRACT AND UI MASTER FILES FOR 01220000
|
||||
|
||||
@ -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.CONV.USER.PARMLIB(DTSSX553),DISP=SHR 00213003
|
||||
//SYSIN DD DSN=DOESTAX.&LVLNODE..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.CONV.USER.PARMLIB(DTSSX553),DISP=SHR 00350003
|
||||
//SYSIN DD DSN=DOESTAX.&LVLNODE..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.CONV.USER.PARMLIB(DTSSX553),DISP=SHR 00520005
|
||||
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSSX553),DISP=SHR 00520005
|
||||
//* 00530005
|
||||
//************************************************************** 01210000
|
||||
//* CREATE REPORT FROM DC SORTED ECTRACT AND UI MASTER FILES FOR 01220000
|
||||
|
||||
@ -57,8 +57,7 @@
|
||||
// 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
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBX629),DISP=SHR 00350001
|
||||
//SYSIN DD DSN=DOESTAX.&LVLNODE..PARMLIB(DTSBX629),DISP=SHR 00350001
|
||||
//* 00360000
|
||||
//************************************************************** 01210000
|
||||
//* CREATE REPORT FOR STAFF TO REVIEW TDEC MISSING REPORTS. MISSING 01220012
|
||||
|
||||
@ -1,32 +0,0 @@
|
||||
//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
|
||||
//*
|
||||
@ -1,32 +0,0 @@
|
||||
//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
|
||||
//*
|
||||
@ -62,7 +62,7 @@
|
||||
//OUTOUT DD SYSOUT=*
|
||||
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
||||
//SYSGET DD *,DCB=BLKSIZE=80
|
||||
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(UIBGTCHG),DISP=SHR
|
||||
//INPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBGTCHG),DISP=SHR
|
||||
//*NPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBGUCHG),DISP=SHR
|
||||
//*******************************************************************
|
||||
//*
|
||||
|
||||
@ -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
|
||||
|
||||
@ -92,7 +92,7 @@
|
||||
332, ,Y
|
||||
/*
|
||||
//*********************************************************************
|
||||
//STEP0400 EXEC PGM=SORT, SORT REPORT RECORDS
|
||||
//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS
|
||||
// COND=(0,LT)
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//SORTIN DD DSN=DOESTAX.PROD.PER.RPT(+1),DISP=SHR
|
||||
|
||||
@ -1,15 +0,0 @@
|
||||
//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
|
||||
//*
|
||||
@ -1,15 +0,0 @@
|
||||
//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
|
||||
//*
|
||||
@ -1,3 +0,0 @@
|
||||
/LOGON CA7BTCH,UIB1USR
|
||||
DEMAND,JOB=DTSPODC4
|
||||
/LOGOFF
|
||||
@ -7,7 +7,7 @@
|
||||
//****
|
||||
// SET LVLNODE='PROD'
|
||||
// SET MSTNODE='PROD'
|
||||
// SET PENQTR='Q253' <<<<<<< FOR FILE NAME ONLY
|
||||
// SET PENQTR='Q244' <<<<<<< 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
|
||||
320,244,
|
||||
//* STD BACKUP AFTER DATA FILE UPDATE
|
||||
//** (NOT NEEDED IF RUN IMMEDIATELY BEFORE
|
||||
//STEP0200 EXEC DTSRS320
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
// SET MSTNODE='PROD'
|
||||
// SET UINODE='PROD'
|
||||
// SET SPCNODE='PROD'
|
||||
// SET QTR='Q251'
|
||||
//*** SET QTR='Q063'
|
||||
// SET LHOLD='NO'
|
||||
//****
|
||||
//* BUILD TRANSACTION RECORDS TO CREATE BOTH THE RECONSTRUCTION FILE
|
||||
@ -32,17 +32,16 @@
|
||||
//****
|
||||
//* 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 DTSUX777, BD400 PERIODIC EXTRACT
|
||||
//STEP0200 EXEC DTSUX770, 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 **-->>
|
||||
|
||||
@ -1,22 +0,0 @@
|
||||
//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
|
||||
//**
|
||||
@ -1,18 +0,0 @@
|
||||
//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
|
||||
//**
|
||||
@ -1,24 +0,0 @@
|
||||
//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
|
||||
@ -1,73 +0,0 @@
|
||||
//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
|
||||
@ -1,9 +0,0 @@
|
||||
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
|
||||
@ -1,3 +0,0 @@
|
||||
/LOGON CA7BTCH,UIB1USR
|
||||
DEMAND,JOB=DTSPODC6
|
||||
/LOGOFF
|
||||
@ -1,9 +0,0 @@
|
||||
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
|
||||
@ -1,40 +0,0 @@
|
||||
//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)
|
||||
//*
|
||||
//*********************************************************************
|
||||
@ -1,30 +0,0 @@
|
||||
//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)
|
||||
/*
|
||||
//****
|
||||
@ -1,41 +0,0 @@
|
||||
//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
|
||||
//*********************************************************************
|
||||
@ -1,22 +0,0 @@
|
||||
//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
|
||||
//*
|
||||
//*********************************************************************
|
||||
@ -1,25 +0,0 @@
|
||||
//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')
|
||||
//*
|
||||
//
|
||||
@ -1,30 +0,0 @@
|
||||
//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)
|
||||
/*
|
||||
//****
|
||||
@ -1,30 +0,0 @@
|
||||
//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')
|
||||
//***
|
||||
//*****
|
||||
@ -1,21 +0,0 @@
|
||||
//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')
|
||||
//*********************************************************************
|
||||
@ -1,21 +0,0 @@
|
||||
//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')
|
||||
//*********************************************************************
|
||||
@ -1,21 +0,0 @@
|
||||
//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
120
JCL/RUNBZ800.jcl
@ -1,120 +0,0 @@
|
||||
//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
|
||||
@ -1,97 +0,0 @@
|
||||
//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
|
||||
//**
|
||||
//**
|
||||
@ -1,10 +1,560 @@
|
||||
//JOBINPUT JOB (INNOVA,DEV,TEAM),FAIZAN,CLASS=S,MSGCLASS=X
|
||||
//STEP250 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0250 DD DSN=DOESTAX.CONV.ESSP.X420.W4FILE,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.CONV.ESSP.X420.W4FILE',
|
||||
// COPY)
|
||||
//STEP251 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0251 DD DSN=DOESTAX.CONV.ESSP.X430.W4FILE,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.CONV.ESSP.X430.W4FILE',
|
||||
// COPY)
|
||||
//STEP252 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0252 DD DSN=DOESTAX.CONV.ESSP.X435.W4FILE,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.CONV.ESSP.X435.W4FILE',
|
||||
// COPY)
|
||||
//STEP253 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0253 DD DSN=DOESTAX.CONV.ESSP.X436.W4FILE,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.CONV.ESSP.X436.W4FILE',
|
||||
// COPY)
|
||||
//STEP254 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0254 DD DSN=DOESTAX.CONV.TDECX148.DELINQ.W4FILE,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.CONV.TDECX148.DELINQ.W4FILE',
|
||||
// COPY)
|
||||
//STEP255 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0255 DD DSN=DOESTAX.CONV.TDECX148.DELINQ.X153,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.CONV.TDECX148.DELINQ.X153',
|
||||
// COPY)
|
||||
//STEP256 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0256 DD DSN=DOESTAX.CONV.TDECX148.ONTIME.W4FILE,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.CONV.TDECX148.ONTIME.W4FILE',
|
||||
// COPY)
|
||||
//STEP257 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0257 DD DSN=DOESTAX.CONV.TDECX148.ONTIME.X153,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.CONV.TDECX148.ONTIME.X153',
|
||||
// COPY)
|
||||
//STEP258 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0258 DD DSN=DOESTAX.DEVL.ZL1.CREDIT,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.DEVL.ZL1.CREDIT',
|
||||
// COPY)
|
||||
//STEP259 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0259 DD DSN=DOESTAX.PROD.ARCHIVE.FY2009,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ARCHIVE.FY2009',
|
||||
// COPY)
|
||||
//STEP260 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0260 DD DSN=DOESTAX.PROD.BD110.BTC.G6588V00,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD110.BTC.G6588V00',
|
||||
// COPY)
|
||||
//STEP261 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0261 DD DSN=DOESTAX.PROD.BD110.RPT.G6588V00,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD110.RPT.G6588V00',
|
||||
// COPY)
|
||||
//STEP262 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0262 DD DSN=DOESTAX.PROD.BD110.TRN.G6588V00,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD110.TRN.G6588V00',
|
||||
// COPY)
|
||||
//STEP263 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0263 DD DSN=DOESTAX.PROD.BD120.RPT.G6586V00,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD120.RPT.G6586V00',
|
||||
// COPY)
|
||||
//STEP264 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0264 DD DSN=DOESTAX.PROD.BD120.TRN.G6586V00,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD120.TRN.G6586V00',
|
||||
// COPY)
|
||||
//STEP265 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0265 DD DSN=DOESTAX.PROD.BD130.BTC.G6587V00,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD130.BTC.G6587V00',
|
||||
// COPY)
|
||||
//STEP266 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0266 DD DSN=DOESTAX.PROD.BD130.RPT.G6586V00,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD130.RPT.G6586V00',
|
||||
// COPY)
|
||||
//STEP267 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0267 DD DSN=DOESTAX.PROD.BD130.TRN.G6586V00,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD130.TRN.G6586V00',
|
||||
// COPY)
|
||||
//STEP268 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0268 DD DSN=DOESTAX.PROD.BD140.RPT.G6572V00,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD140.RPT.G6572V00',
|
||||
// COPY)
|
||||
//STEP269 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0269 DD DSN=DOESTAX.PROD.BD140.TRN.G6572V00,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD140.TRN.G6572V00',
|
||||
// COPY)
|
||||
//STEP270 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0270 DD DSN=DOESTAX.PROD.BD145.BTC,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD145.BTC',
|
||||
// COPY)
|
||||
//STEP271 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0271 DD DSN=DOESTAX.PROD.BD145.ZEROWAGE,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD145.ZEROWAGE',
|
||||
// COPY)
|
||||
//STEP272 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0272 DD DSN=DOESTAX.PROD.BD150.RPT.G6565V00,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD150.RPT.G6565V00',
|
||||
// COPY)
|
||||
//STEP273 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0273 DD DSN=DOESTAX.PROD.BD180.RPT.G6491V00,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD180.RPT.G6491V00',
|
||||
// COPY)
|
||||
//STEP274 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0274 DD DSN=DOESTAX.PROD.BD200.TRN.G6564V00,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD200.TRN.G6564V00',
|
||||
// COPY)
|
||||
//STEP275 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0275 DD DSN=DOESTAX.PROD.BD300.RPT.G6495V00,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD300.RPT.G6495V00',
|
||||
// COPY)
|
||||
//STEP276 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0276 DD DSN=DOESTAX.PROD.BD400.BTC.BACKUP.G6575V00,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BD400.BTC.BACKUP.G6575V00',
|
||||
// COPY)
|
||||
//STEP277 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0277 DD DSN=DOESTAX.PROD.BE327.RPT.G1988V00,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BE327.RPT.G1988V00',
|
||||
// COPY)
|
||||
//STEP278 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0278 DD DSN=DOESTAX.PROD.BX415.BTC,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BX415.BTC',
|
||||
// COPY)
|
||||
//STEP279 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0279 DD DSN=DOESTAX.PROD.BX420.BTC,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BX420.BTC',
|
||||
// COPY)
|
||||
//STEP280 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0280 DD DSN=DOESTAX.PROD.BX420.RPT,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BX420.RPT',
|
||||
// COPY)
|
||||
//STEP281 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0281 DD DSN=DOESTAX.PROD.BX440.BTC,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BX440.BTC',
|
||||
// COPY)
|
||||
//STEP282 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0282 DD DSN=DOESTAX.PROD.BX442.BTC,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.BX442.BTC',
|
||||
// COPY)
|
||||
//STEP283 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0283 DD DSN=DOESTAX.PROD.DEPOSIT.X202EXP,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.DEPOSIT.X202EXP',
|
||||
// COPY)
|
||||
//STEP284 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0284 DD DSN=DOESTAX.PROD.DTS.W4FILE,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.DTS.W4FILE',
|
||||
// COPY)
|
||||
//STEP285 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0285 DD DSN=DOESTAX.PROD.ESSP.X418.BTC,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X418.BTC',
|
||||
// COPY)
|
||||
//STEP286 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0286 DD DSN=DOESTAX.PROD.ESSP.X420.BTC,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X420.BTC',
|
||||
// COPY)
|
||||
//STEP287 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0287 DD DSN=DOESTAX.PROD.ESSP.X421.BTC,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X421.BTC',
|
||||
// COPY)
|
||||
//STEP288 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0288 DD DSN=DOESTAX.PROD.ESSP.X424.BTC,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X424.BTC',
|
||||
// COPY)
|
||||
//STEP289 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0289 DD DSN=DOESTAX.PROD.ESSP.X426.BTC.G0002V00,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X426.BTC.G0002V00',
|
||||
// COPY)
|
||||
//STEP290 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0290 DD DSN=DOESTAX.PROD.ESSP.X427.BTC,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X427.BTC',
|
||||
// COPY)
|
||||
//STEP291 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0291 DD DSN=DOESTAX.PROD.ESSP.X430.BTC,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X430.BTC',
|
||||
// COPY)
|
||||
//STEP292 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0292 DD DSN=DOESTAX.PROD.ESSP.X435.BTC,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X435.BTC',
|
||||
// COPY)
|
||||
//STEP293 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0293 DD DSN=DOESTAX.PROD.ESSP.X436.BTC,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X436.BTC',
|
||||
// COPY)
|
||||
//STEP294 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0294 DD DSN=DOESTAX.PROD.ESSP.X451.BTC,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X451.BTC',
|
||||
// COPY)
|
||||
//STEP295 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0295 DD DSN=DOESTAX.PROD.ESSP.X451.W4FILE,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X451.W4FILE',
|
||||
// COPY)
|
||||
//STEP296 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0296 DD DSN=DOESTAX.PROD.ESSP.X452.BTC,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X452.BTC',
|
||||
// COPY)
|
||||
//STEP297 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0297 DD DSN=DOESTAX.PROD.ESSP.X530.BTC,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.X530.BTC',
|
||||
// COPY)
|
||||
//STEP298 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0298 DD DSN=DOESTAX.PROD.ESSP.XN420.BTC,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.XN420.BTC',
|
||||
// COPY)
|
||||
//STEP299 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0299 DD DSN=DOESTAX.PROD.ESSP.XZ420.BTC,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.ESSP.XZ420.BTC',
|
||||
// COPY)
|
||||
//STEP300 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0300 DD DSN=DOESTAX.PROD.FTP.REFUND.X303EXP,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.FTP.REFUND.X303EXP',
|
||||
// COPY)
|
||||
//STEP301 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0301 DD DSN=DOESTAX.PROD.MAG.W4FILE,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.MAG.W4FILE',
|
||||
// COPY)
|
||||
//STEP302 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0302 DD DSN=DOESTAX.PROD.R202.ICESA,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.R202.ICESA',
|
||||
// COPY)
|
||||
//STEP303 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0303 DD DSN=DOESTAX.PROD.R309.RPT.G4328V00,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.R309.RPT.G4328V00',
|
||||
// COPY)
|
||||
//STEP304 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0304 DD DSN=DOESTAX.PROD.R414.EXCL.RPT4,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.R414.EXCL.RPT4',
|
||||
// COPY)
|
||||
//STEP305 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0305 DD DSN=DOESTAX.PROD.R414.EXCL.RPT5,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.R414.EXCL.RPT5',
|
||||
// COPY)
|
||||
//STEP306 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0306 DD DSN=DOESTAX.PROD.R414.EXCL.RPT6,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.R414.EXCL.RPT6',
|
||||
// COPY)
|
||||
//STEP307 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0307 DD DSN=DOESTAX.PROD.RPT.R202,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.RPT.R202',
|
||||
// COPY)
|
||||
//STEP308 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0308 DD DSN=DOESTAX.PROD.RPT204,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.RPT204',
|
||||
// COPY)
|
||||
//STEP309 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0309 DD DSN=DOESTAX.PROD.SRTDAILY.RPT.G6486V00,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.SRTDAILY.RPT.G6486V00',
|
||||
// COPY)
|
||||
//STEP310 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0310 DD DSN=DOESTAX.PROD.WEBREG.ERR,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\DOESTAX.PROD.WEBREG.ERR',
|
||||
// COPY)
|
||||
//STEP311 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0311 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.BX217,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.BX217',
|
||||
// COPY)
|
||||
//STEP312 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0312 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.CREDIT.NOTEPAD,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.CREDIT.NOTEPAD',
|
||||
// COPY)
|
||||
//STEP313 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0313 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.U542,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.U542',
|
||||
// COPY)
|
||||
//STEP314 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0314 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X148,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.X148',
|
||||
// COPY)
|
||||
//STEP315 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0315 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X150,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.X150',
|
||||
// COPY)
|
||||
//STEP316 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0316 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X151,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.X151',
|
||||
// COPY)
|
||||
//STEP317 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0317 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X152,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.X152',
|
||||
// COPY)
|
||||
//STEP318 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0318 DD DSN=DOESTAX.PROD.BE320.PENALTY.Q251,
|
||||
//DD0318 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X153,
|
||||
// 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',
|
||||
// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.X153',
|
||||
// COPY)
|
||||
//STEP319 EXEC PGM=IEFBR14
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//DD0319 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.X306,
|
||||
// DISP=(NEW,CATLG,CATLG),
|
||||
// CODEPAGE=1252,AUTOENCODE=YES,
|
||||
// PATH=('E:\IN\DTSPDAY1\ECNTSUP.DOESTAX.PROD.FTP.X306',
|
||||
// COPY)
|
||||
@ -1,369 +0,0 @@
|
||||
[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
|
||||
@ -1,6 +0,0 @@
|
||||
[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
|
||||
@ -1,147 +0,0 @@
|
||||
[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
643
Maps/DTSM13.bms
@ -1,322 +1,321 @@
|
||||
* 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
|
||||
* 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
|
||||
|
||||
1019
Maps/DTSM44.bms
1019
Maps/DTSM44.bms
File diff suppressed because it is too large
Load Diff
332
Maps/DTSM82.bms
332
Maps/DTSM82.bms
@ -1,166 +1,176 @@
|
||||
* 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
|
||||
* 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
|
||||
SPACE 00149
|
||||
F822338 DFHMDF POS=(23,38),LENGTH=07,ATTRB=ASKIP 00150
|
||||
SPACE 00151
|
||||
F822346 DFHMDF POS=(23,46),LENGTH=07,ATTRB=ASKIP 00152
|
||||
F822021 DFHMDF POS=(20,21),LENGTH=08,ATTRB=ASKIP 00150
|
||||
DFHMDF POS=(20,40),LENGTH=10,ATTRB=ASKIP, *00151
|
||||
INITIAL='CHNG DATE:' 00152
|
||||
SPACE 00153
|
||||
F822355 DFHMDF POS=(23,55),LENGTH=07,ATTRB=ASKIP 00154
|
||||
F822051 DFHMDF POS=(20,51),LENGTH=08,ATTRB=ASKIP 00154
|
||||
SPACE 00155
|
||||
F822401 DFHMDF POS=(24,01),LENGTH=08,ATTRB=ASKIP 00156
|
||||
F822318 DFHMDF POS=(23,18),LENGTH=07,ATTRB=ASKIP 00156
|
||||
SPACE 00157
|
||||
F822410 DFHMDF POS=(24,10),LENGTH=58,ATTRB=ASKIP 00158
|
||||
F822327 DFHMDF POS=(23,27),LENGTH=07,ATTRB=ASKIP 00158
|
||||
SPACE 00159
|
||||
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
|
||||
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
|
||||
|
||||
32631
Maps/DTSMSET.cpy
32631
Maps/DTSMSET.cpy
File diff suppressed because it is too large
Load Diff
@ -34863,6 +34863,41 @@
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Length="13"
|
||||
Initial="FIELD REP ID:"
|
||||
Line="3"
|
||||
Col="38"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Name="F440352"
|
||||
Length="2"
|
||||
Line="3"
|
||||
Col="52"
|
||||
ByteLength="5"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Name="F440355"
|
||||
Length="10"
|
||||
Line="3"
|
||||
Col="55"
|
||||
ByteLength="13"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Name="F440372"
|
||||
Length="2"
|
||||
@ -68634,7 +68669,7 @@
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Length="19"
|
||||
Initial="QUARTER START DATE:"
|
||||
Initial="UC-30 MASS MAILING:"
|
||||
Line="5"
|
||||
Col="8"
|
||||
>
|
||||
@ -68919,7 +68954,7 @@
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Length="26"
|
||||
Initial="LAST MONTHLY SOA RUN DATE:"
|
||||
Initial=" SELF INSURED 2ND LETTER:"
|
||||
Line="9"
|
||||
Col="40"
|
||||
>
|
||||
@ -69031,6 +69066,63 @@
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Length="26"
|
||||
Initial="SELF INS LATE PENALTY RUN:"
|
||||
Line="11"
|
||||
Col="40"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Name="F821167"
|
||||
Length="2"
|
||||
Line="11"
|
||||
Col="67"
|
||||
ByteLength="5"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Name="F821170"
|
||||
Length="2"
|
||||
Line="11"
|
||||
Col="70"
|
||||
ByteLength="5"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Name="F821171"
|
||||
Length="2"
|
||||
Line="11"
|
||||
Col="73"
|
||||
ByteLength="5"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Length="1"
|
||||
Line="11"
|
||||
Col="76"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Length="23"
|
||||
Initial="UC30 FINAL ACTION DATE:"
|
||||
|
||||
@ -1,62 +0,0 @@
|
||||
SIGNON DFHMSD TYPE=&SYSPARM,MODE=INOUT,TERM=ALL, X
|
||||
LANG=COBOL,TIOAPFX=YES,STORAGE=AUTO,CTRL=FREEKB
|
||||
LOGONM DFHMDI SIZE=(024,080), X
|
||||
LINE=1, X
|
||||
COLUMN=1
|
||||
DFHMDF POS=(1,28),LENGTH=40,ATTRB=ASKIP,COLOR=NEUTRAL, X
|
||||
INITIAL='Signon to DUTAS'
|
||||
DFHMDF POS=(3,1),LENGTH=75,ATTRB=ASKIP,COLOR=NEUTRAL, X
|
||||
INITIAL='WARNING! BY ACCESSING AND USING THIS GOVERNMENX
|
||||
T COMPUTER SYSTEM, YOU ARE'
|
||||
DFHMDF POS=(4,1),LENGTH=75,ATTRB=ASKIP,COLOR=NEUTRAL, X
|
||||
INITIAL='CONSENTING TO SYSTEM MONITORING FOR LAW ENFORCEX
|
||||
MENT AND OTHER PURPOSES.'
|
||||
DFHMDF POS=(5,1),LENGTH=75,ATTRB=ASKIP,COLOR=NEUTRAL, X
|
||||
INITIAL='UNAUTHORIZED USE OF, OR ACCESS TO, THIS COMPUTEX
|
||||
R SYSTEM MAY SUBJECT YOU TO'
|
||||
DFHMDF POS=(6,1),LENGTH=75,ATTRB=ASKIP,COLOR=NEUTRAL, X
|
||||
INITIAL='CRIMINAL PROSECUTION.'
|
||||
DFHMDF POS=(8,1),LENGTH=70,ATTRB=ASKIP,COLOR=GREEN, X
|
||||
INITIAL='Type your DCGov email address and password, theX
|
||||
n press ENTER:'
|
||||
DFHMDF POS=(10,12),LENGTH=15,ATTRB=ASKIP,COLOR=GREEN, X
|
||||
INITIAL='Userid . . . .:'
|
||||
USERN DFHMDF POS=(10,28),LENGTH=50,ATTRB=(UNPROT,IC),COLOR=TURQUOISE,X
|
||||
INITIAL=' '
|
||||
DFHMDF POS=(10,79),ATTRB=ASKIP
|
||||
DFHMDF POS=(11,12),LENGTH=15,ATTRB=ASKIP,COLOR=GREEN, X
|
||||
INITIAL='Password . . .:'
|
||||
PASSW DFHMDF POS=(11,28),LENGTH=50,ATTRB=(UNPROT,DRK), X
|
||||
INITIAL=' '
|
||||
DFHMDF POS=(11,79),ATTRB=ASKIP
|
||||
INFMS DFHMDF POS=(15,20),LENGTH=40,COLOR=RED,INITIAL=' '
|
||||
DFHMDF POS=(15,60),ATTRB=ASKIP
|
||||
|
||||
DFHMDF POS=(24,1),LENGTH=70,ATTRB=ASKIP,COLOR=NEUTRAL, X
|
||||
INITIAL='F3=Exit'
|
||||
|
||||
SUXESS DFHMDI SIZE=(024,080), X
|
||||
LINE=1, X
|
||||
COLUMN=1
|
||||
DFHMDF POS=(1,28),LENGTH=40,ATTRB=ASKIP,COLOR=NEUTRAL, X
|
||||
INITIAL='Signon to DUTAS'
|
||||
DFHMDF POS=(3,1),LENGTH=75,ATTRB=ASKIP,COLOR=NEUTRAL, X
|
||||
INITIAL='WARNING! BY ACCESSING AND USING THIS GOVERNMENX
|
||||
T COMPUTER SYSTEM, YOU ARE'
|
||||
DFHMDF POS=(4,1),LENGTH=75,ATTRB=ASKIP,COLOR=NEUTRAL, X
|
||||
INITIAL='CONSENTING TO SYSTEM MONITORING FOR LAW ENFORCEX
|
||||
MENT AND OTHER PURPOSES.'
|
||||
DFHMDF POS=(5,1),LENGTH=75,ATTRB=ASKIP,COLOR=NEUTRAL, X
|
||||
INITIAL='UNAUTHORIZED USE OF, OR ACCESS TO, THIS COMPUTEX
|
||||
R SYSTEM MAY SUBJECT YOU TO'
|
||||
DFHMDF POS=(6,1),LENGTH=75,ATTRB=ASKIP,COLOR=NEUTRAL, X
|
||||
INITIAL='CRIMINAL PROSECUTION.'
|
||||
DFHMDF POS=(8,10),LENGTH=60,ATTRB=ASKIP,COLOR=BLUE, X
|
||||
INITIAL='Logon Success! Please press ENTER:'
|
||||
BLANK DFHMDF POS=(10,32),LENGTH=30,ATTRB=(UNPROT,IC,DRK), X
|
||||
INITIAL=' '
|
||||
DFHMDF POS=(10,64),ATTRB=ASKIP
|
||||
DFHMDF POS=(24,1),LENGTH=70,ATTRB=ASKIP,COLOR=NEUTRAL, X
|
||||
INITIAL='F3=Exit'
|
||||
DFHMSD TYPE=FINAL
|
||||
END
|
||||
329
Maps/SIGNON.xml
329
Maps/SIGNON.xml
@ -1,329 +0,0 @@
|
||||
<BMSMapset
|
||||
Name="SIGNON"
|
||||
Type="&SYSPARM"
|
||||
Tioapfx="YES"
|
||||
Lang="COBOL"
|
||||
Mode="INOUT"
|
||||
Storage="AUTO"
|
||||
Term="ALL"
|
||||
>
|
||||
<BMSCtrl
|
||||
FreeKb="TRUE"
|
||||
/>
|
||||
<BMSMap
|
||||
Name="LOGONM"
|
||||
Heigth="24"
|
||||
Width="80"
|
||||
>
|
||||
<MapLineColumn
|
||||
Kind="Number"
|
||||
Number="1"
|
||||
/>
|
||||
<MapLineColumn
|
||||
Kind="Number"
|
||||
Number="1"
|
||||
/>
|
||||
<Fields>
|
||||
<BMSField
|
||||
Length="40"
|
||||
Initial="Signon to DUTAS"
|
||||
Color="NEUTRAL"
|
||||
Line="1"
|
||||
Col="28"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Length="75"
|
||||
Initial="WARNING! BY ACCESSING AND USING THIS GOVERNMENT COMPUTER SYSTEM, YOU ARE"
|
||||
Color="NEUTRAL"
|
||||
Line="3"
|
||||
Col="1"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Length="75"
|
||||
Initial="CONSENTING TO SYSTEM MONITORING FOR LAW ENFORCEMENT AND OTHER PURPOSES."
|
||||
Color="NEUTRAL"
|
||||
Line="4"
|
||||
Col="1"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Length="75"
|
||||
Initial="UNAUTHORIZED USE OF, OR ACCESS TO, THIS COMPUTER SYSTEM MAY SUBJECT YOU TO"
|
||||
Color="NEUTRAL"
|
||||
Line="5"
|
||||
Col="1"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Length="75"
|
||||
Initial="CRIMINAL PROSECUTION."
|
||||
Color="NEUTRAL"
|
||||
Line="6"
|
||||
Col="1"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Length="70"
|
||||
Initial="Type your DCGov email address and password, then press ENTER:"
|
||||
Color="GREEN"
|
||||
Line="8"
|
||||
Col="1"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Length="15"
|
||||
Initial="Userid . . . .:"
|
||||
Color="GREEN"
|
||||
Line="10"
|
||||
Col="12"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Name="USERN"
|
||||
Length="50"
|
||||
Initial=" "
|
||||
Color="TURQUOISE"
|
||||
Line="10"
|
||||
Col="28"
|
||||
ByteLength="53"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="UNPROT"
|
||||
Intensity="NORM"
|
||||
IC="TRUE"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Line="10"
|
||||
Col="79"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Length="15"
|
||||
Initial="Password . . .:"
|
||||
Color="GREEN"
|
||||
Line="11"
|
||||
Col="12"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Name="PASSW"
|
||||
Length="50"
|
||||
Initial=" "
|
||||
Line="11"
|
||||
Col="28"
|
||||
ByteLength="53"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="UNPROT"
|
||||
Intensity="DRK"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Line="11"
|
||||
Col="79"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Name="INFMS"
|
||||
Length="40"
|
||||
Initial=" "
|
||||
Color="RED"
|
||||
Line="15"
|
||||
Col="20"
|
||||
ByteLength="43"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Line="15"
|
||||
Col="60"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Length="70"
|
||||
Initial="F3=Exit"
|
||||
Color="NEUTRAL"
|
||||
Line="24"
|
||||
Col="1"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
</Fields>
|
||||
</BMSMap>
|
||||
<BMSMap
|
||||
Name="SUXESS"
|
||||
Heigth="24"
|
||||
Width="80"
|
||||
>
|
||||
<MapLineColumn
|
||||
Kind="Number"
|
||||
Number="1"
|
||||
/>
|
||||
<MapLineColumn
|
||||
Kind="Number"
|
||||
Number="1"
|
||||
/>
|
||||
<Fields>
|
||||
<BMSField
|
||||
Length="40"
|
||||
Initial="Signon to DUTAS"
|
||||
Color="NEUTRAL"
|
||||
Line="1"
|
||||
Col="28"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Length="75"
|
||||
Initial="WARNING! BY ACCESSING AND USING THIS GOVERNMENT COMPUTER SYSTEM, YOU ARE"
|
||||
Color="NEUTRAL"
|
||||
Line="3"
|
||||
Col="1"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Length="75"
|
||||
Initial="CONSENTING TO SYSTEM MONITORING FOR LAW ENFORCEMENT AND OTHER PURPOSES."
|
||||
Color="NEUTRAL"
|
||||
Line="4"
|
||||
Col="1"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Length="75"
|
||||
Initial="UNAUTHORIZED USE OF, OR ACCESS TO, THIS COMPUTER SYSTEM MAY SUBJECT YOU TO"
|
||||
Color="NEUTRAL"
|
||||
Line="5"
|
||||
Col="1"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Length="75"
|
||||
Initial="CRIMINAL PROSECUTION."
|
||||
Color="NEUTRAL"
|
||||
Line="6"
|
||||
Col="1"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Length="60"
|
||||
Initial="Logon Success! Please press ENTER:"
|
||||
Color="BLUE"
|
||||
Line="8"
|
||||
Col="10"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Name="BLANK"
|
||||
Length="30"
|
||||
Initial=" "
|
||||
Line="10"
|
||||
Col="32"
|
||||
ByteLength="33"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="UNPROT"
|
||||
Intensity="DRK"
|
||||
IC="TRUE"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Line="10"
|
||||
Col="64"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
<BMSField
|
||||
Length="70"
|
||||
Initial="F3=Exit"
|
||||
Color="NEUTRAL"
|
||||
Line="24"
|
||||
Col="1"
|
||||
>
|
||||
<BMSFieldAttributes
|
||||
Protection="ASKIP"
|
||||
Intensity="NORM"
|
||||
/>
|
||||
</BMSField>
|
||||
</Fields>
|
||||
</BMSMap>
|
||||
</BMSMapset>
|
||||
BIN
MetaData.db3
BIN
MetaData.db3
Binary file not shown.
@ -3,7 +3,7 @@
|
||||
//* DAILY RUN. * * 00020305
|
||||
//* * 00020405
|
||||
//******************************************************************* 00020805
|
||||
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00031000
|
||||
//STEP0100 EXEC PGM=SORT, SORT REPORT RECORDS 00031000
|
||||
// COND=(4,LT) 00032011
|
||||
//SYSOUT DD SYSOUT=(*) 00040000
|
||||
//SYSPRINT DD SYSOUT=(*) 00041000
|
||||
|
||||
@ -3,7 +3,7 @@
|
||||
//* MONTHLY RUN DTSPMON1. * 00020302
|
||||
//* * 00020402
|
||||
//******************************************************************** 00020502
|
||||
//STEP0100 EXEC PGM=SORT, SORT REPORT RECORDS 00031000
|
||||
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00031000
|
||||
// COND=(0,LT) 00032000
|
||||
//SYSOUT DD SYSOUT=(*) 00040000
|
||||
//SYSPRINT DD SYSOUT=(*) 00041000
|
||||
|
||||
@ -134,7 +134,7 @@
|
||||
// UNIT=SYSDA,
|
||||
// SPACE=(8192,(1000,1000),RLSE),
|
||||
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSRREC),DISP=SHR
|
||||
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSRREC),DISP=SHR
|
||||
//***** 00110002
|
||||
//* REPORT GENERATION 00110002
|
||||
//STEP0300 EXEC PGM=DTSBD800, 00120002
|
||||
|
||||
@ -28,7 +28,7 @@
|
||||
//DTSFVRO1 DD DUMMY
|
||||
//SYSIN DD DDNAME=EXTPARM
|
||||
//*********************************************************************
|
||||
//STEP0200 EXEC PGM=SORT, SORT
|
||||
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT
|
||||
// COND=(0,LT)
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//SORTIN DD DSN=DOESTAX.&LVLNODE..BE770TRN.&QTR,DISP=SHR
|
||||
|
||||
@ -22,7 +22,7 @@
|
||||
// UNIT=SYSDA,
|
||||
// SPACE=(CYL,(10,5),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=106,BLKSIZE=31800)
|
||||
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DESSR420),DISP=SHR
|
||||
//SYSIN DD DSN=DOESTAX.DEVL.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.CONV.USER.PARMLIB(DTSSR414),DISP=SHR
|
||||
//SYSIN DD DSN=DOESTAX.DEVL.PARMLIB(DTSSR414),DISP=SHR
|
||||
//*
|
||||
//****************************************************
|
||||
//**
|
||||
|
||||
@ -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, SORT ACCOUNTING DETAIL 00106299
|
||||
//*STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', 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, SORT ACCT INCREMENTAL 00108499
|
||||
//STEP0210 EXEC PGM=SORT,PARM='VLTEST=0', 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, SORT TRANSACTION DETAIL 00111099
|
||||
//*TEP0300 EXEC PGM=SORT,PARM='VLTEST=0', 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, SORT TRANS INCREMENTAL 00301099
|
||||
//STEP0310 EXEC PGM=SORT,PARM='VLTEST=0', 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, SORT QUARTER DETAIL 00310099
|
||||
//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0', 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, SORT PAY DIST 00501099
|
||||
//STEP0500 EXEC PGM=SORT,PARM='VLTEST=0', 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, SORT ERR 00511099
|
||||
//STEP0600 EXEC PGM=SORT,PARM='VLTEST=0', SORT ERR 00511099
|
||||
// COND=(0,LT) 00520099
|
||||
//SYSOUT DD SYSOUT=* 00530099
|
||||
//* 00540099
|
||||
|
||||
@ -15,7 +15,7 @@
|
||||
//*&& MAGNETIC MEDIA WAGE (X144) FILES.
|
||||
//******* NO LONGER NEEDED 11/14/19 ZL1 00001700
|
||||
//*************************************************************** 00001700
|
||||
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', COMBINE INPUT FILES
|
||||
//STEP0100 EXEC PGM=SORT, COMBINE INPUT FILES
|
||||
// COND=(0,LT)
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//*
|
||||
|
||||
@ -6,7 +6,7 @@
|
||||
//** 00001700
|
||||
//DTSBX420 PROC
|
||||
//** 00001700
|
||||
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
|
||||
//STEP0100 EXEC PGM=SORT, SORT TRANSACTIONS
|
||||
// COND=(0,LT)
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//*
|
||||
@ -101,7 +101,7 @@
|
||||
// SPACE=(8192,(100,200),RLSE),
|
||||
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
||||
//*
|
||||
//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0', COMBINE BATCH XREF FILES
|
||||
//STEP0300 EXEC PGM=SORT, COMBINE BATCH XREF FILES
|
||||
// COND=(0,LT)
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//SORTIN DD DSN=DOESTAX.&LVLNODE..BX422.BX214,DISP=SHR
|
||||
|
||||
@ -6,7 +6,7 @@
|
||||
//** 00001700
|
||||
//DTSBX427 PROC
|
||||
//** 00001700
|
||||
//STEP0080 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
|
||||
//STEP0080 EXEC PGM=SORT, SORT TRANSACTIONS
|
||||
// COND=(0,LT)
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//*
|
||||
|
||||
1058
Procs/DTSBX427.TXT
Normal file
1058
Procs/DTSBX427.TXT
Normal file
File diff suppressed because it is too large
Load Diff
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user