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

Neeraj Changes

Browse Source
This commit is contained in:
faizana
2025-09-16 08:52:41 -04:00
parent c69d1eaef6
commit 8a1f878add
19 changed files with 56 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Copybook/DTSIT001.cpy
View File

@ -17,7 +17,8 @@
00017 10 T001-LENGTH PIC S9(04) COMP. DTSIT001
00018 DTSIT001
00019 10 T001-COMMON-AREA. DTSIT001
00020 15 T001-REC-TYPE PIC X(03) VALUE '001'. DTSIT001
00020 * 15 T001-REC-TYPE PIC X(03) VALUE '001'. DTSIT001
RCODE 15 T001-REC-TYPE PIC X(03). DTSIT001
00021 15 T001-EMP-NO PIC S9(07) COMP-3. DTSIT001
00022 15 T001-ORIGIN PIC X(10). DTSIT001
00023 15 FILLER REDEFINES T001-ORIGIN. DTSIT001

3
Copybook/DTSIT002.cpy
View File

@ -30,7 +30,8 @@
00030 88 T002-LENGTH-RATE-88 VALUE +36. DTSIT002
00031 DTSIT002
00032 10 T002-COMMON-AREA. DTSIT002
00033 15 T002-REC-TYPE PIC X(03) VALUE '002'. DTSIT002
00033 * 15 T002-REC-TYPE PIC X(03) VALUE '002'. DTSIT002
RCODE 15 T002-REC-TYPE PIC X(03). DTSIT002
00034 15 T002-EMP-NO PIC S9(07) COMP-3. DTSIT002
00035 15 T002-ORIGIN PIC X(10). DTSIT002
00036 15 FILLER REDEFINES T002-ORIGIN. DTSIT002

3
Copybook/DTSIT003.cpy
View File

@ -14,7 +14,8 @@
00014 10 T003-LENGTH PIC S9(04) COMP. DTSIT003
00015 DTSIT003
00016 10 T003-COMMON-AREA. DTSIT003
00017 15 T003-REC-TYPE PIC X(03) VALUE '003'. DTSIT003
00017 * 15 T003-REC-TYPE PIC X(03) VALUE '003'. DTSIT003
00017 15 T003-REC-TYPE PIC X(03). DTSIT003
00018 15 T003-EMP-NO PIC S9(07) COMP-3. DTSIT003
00019 15 T003-ORIGIN PIC X(10). DTSIT003
00020 15 FILLER REDEFINES T003-ORIGIN. DTSIT003

3
Copybook/DTSIT011.cpy
View File

@ -17,7 +17,8 @@
00017 10 T011-LENGTH PIC S9(04) COMP. DTSIT011
00018 DTSIT011
00019 10 T011-COMMON-AREA. DTSIT011
00020 15 T011-REC-TYPE PIC X(03) VALUE '011'. DTSIT011
00020 * 15 T011-REC-TYPE PIC X(03) VALUE '011'. DTSIT011
RCODE 15 T011-REC-TYPE PIC X(03). DTSIT011
00021 15 T011-EMP-NO PIC S9(07) COMP-3. DTSIT011
00022 15 T011-ORIGIN PIC X(10). DTSIT011
00023 15 FILLER REDEFINES T011-ORIGIN. DTSIT011

3
Copybook/DTSIT016.cpy
View File

@ -10,7 +10,8 @@
00010 10 T016-LENGTH PIC S9(04) COMP. CL**3
00011 CL**3
00012 10 T016-COMMON-AREA. DTSIT016
00013 15 T016-REC-TYPE PIC X(03) VALUE '016'. DTSIT016
00013 * 15 T016-REC-TYPE PIC X(03) VALUE '016'. DTSIT016
RCODE 15 T016-REC-TYPE PIC X(03). DTSIT016
00014 15 T016-EMP-NO PIC S9(07) COMP-3. DTSIT016
00015 15 T016-ORIGIN PIC X(10). DTSIT016
00016 15 FILLER REDEFINES T016-ORIGIN. DTSIT016

3
Copybook/DTSIT021.cpy
View File

@ -10,7 +10,8 @@
00010 10 T021-LENGTH PIC S9(04) COMP. CL**2
00011 CL**2
00012 10 T021-COMMON-AREA. DTSIT021
00013 15 T021-REC-TYPE PIC X(03) VALUE '021'. DTSIT021
00013 * 15 T021-REC-TYPE PIC X(03) VALUE '021'. DTSIT021
RCODE 15 T021-REC-TYPE PIC X(03). DTSIT021
00014 15 T021-EMP-NO PIC S9(07) COMP-3. DTSIT021
00015 15 T021-ORIGIN PIC X(10). DTSIT021
00016 15 FILLER REDEFINES T021-ORIGIN. DTSIT021

3
Copybook/DTSIT025.cpy
View File

@ -15,7 +15,8 @@
00015 10 T025-LENGTH PIC S9(04) COMP. DTSIT025
00016 DTSIT025
00017 10 T025-COMMON-AREA. DTSIT025
00018 15 T025-REC-TYPE PIC X(03) VALUE '025'. DTSIT025
00018 * 15 T025-REC-TYPE PIC X(03) VALUE '025'. DTSIT025
RCODE 15 T025-REC-TYPE PIC X(03). DTSIT025
00019 15 T025-EMP-NO PIC S9(07) COMP-3. DTSIT025
00020 15 T025-ORIGIN PIC X(10). DTSIT025
00021 15 FILLER REDEFINES T025-ORIGIN. DTSIT025

3
Copybook/DTSIT026.cpy
View File

@ -13,7 +13,8 @@
00013 10 T026-LENGTH PIC S9(04) COMP VALUE +128. DTSIT026
00014 DTSIT026
00015 10 T026-COMMON-AREA. DTSIT026
00016 15 T026-REC-TYPE PIC X(03) VALUE '026'. DTSIT026
00016 * 15 T026-REC-TYPE PIC X(03) VALUE '026'. DTSIT026
RCODE 15 T026-REC-TYPE PIC X(03). DTSIT026
00017 15 T026-EMP-NO PIC S9(07) COMP-3. DTSIT026
00018 15 T026-ORIGIN PIC X(10). DTSIT026
00019 15 FILLER REDEFINES T026-ORIGIN. DTSIT026

3
Copybook/DTSIT027.cpy
View File

@ -13,7 +13,8 @@
00013 10 T027-LENGTH PIC S9(04) COMP. DTSIT027
00014 DTSIT027
00015 10 T027-COMMON-AREA. DTSIT027
00016 15 T027-REC-TYPE PIC X(03) VALUE '027'. DTSIT027
00016 * 15 T027-REC-TYPE PIC X(03) VALUE '027'. DTSIT027
RCODE 15 T027-REC-TYPE PIC X(03). DTSIT027
00017 15 T027-EMP-NO PIC S9(07) COMP-3. DTSIT027
00018 15 T027-ORIGIN PIC X(10). DTSIT027
00019 15 FILLER REDEFINES T027-ORIGIN. DTSIT027

3
Copybook/DTSIT028.cpy
View File

@ -16,7 +16,8 @@
00016 10 T028-LENGTH PIC S9(04) COMP. DTSIT028
00017 DTSIT028
00018 10 T028-KEY-AREA. DTSIT028
00019 15 T028-REC-TYPE PIC X(03) VALUE '028'. DTSIT028
00019 * 15 T028-REC-TYPE PIC X(03) VALUE '028'. DTSIT028
RCODE 15 T028-REC-TYPE PIC X(03). DTSIT028
00020 15 T028-TRN-TYPE PIC X(01). DTSIT028
00021 88 T028-ICESA-88 VALUE '1'. DTSIT028
00022 88 T028-PAPER-RPT-88 VALUE '2'. DTSIT028

3
Copybook/DTSIT031.cpy
View File

@ -15,7 +15,8 @@
00015 10 T031-LENGTH PIC S9(04) COMP. DTSIT031
00016 DTSIT031
00017 10 T031-COMMON-AREA. DTSIT031
00018 15 T031-REC-TYPE PIC X(03) VALUE '031'. DTSIT031
00018 * 15 T031-REC-TYPE PIC X(03) VALUE '031'. DTSIT031
RCODE 15 T031-REC-TYPE PIC X(03). DTSIT031
00019 15 T031-EMP-NO PIC S9(07) COMP-3. DTSIT031
00020 15 T031-ORIGIN PIC X(10). DTSIT031
00021 15 FILLER REDEFINES T031-ORIGIN. DTSIT031

3
Copybook/DTSIT036.cpy
View File

@ -11,7 +11,8 @@
00011 10 T036-LENGTH PIC S9(04) COMP. CL**2
00012 CL**2
00013 10 T036-COMMON-AREA. DTSIT036
00014 15 T036-REC-TYPE PIC X(03) VALUE '036'. DTSIT036
00014 * 15 T036-REC-TYPE PIC X(03) VALUE '036'. DTSIT036
RCODE 15 T036-REC-TYPE PIC X(03). DTSIT036
00015 15 T036-EMP-NO PIC S9(07) COMP-3. DTSIT036
00016 15 T036-ORIGIN PIC X(10). DTSIT036
00017 15 FILLER REDEFINES T036-ORIGIN. DTSIT036

3
Copybook/DTSIT040.cpy
View File

@ -12,7 +12,8 @@
00012 10 T040-LENGTH PIC S9(04) COMP. DTSIT040
00013 DTSIT040
00014 10 T040-COMMON-AREA. DTSIT040
00015 15 T040-REC-TYPE PIC X(03) VALUE '040'. DTSIT040
00015 * 15 T040-REC-TYPE PIC X(03) VALUE '040'. DTSIT040
RCODE 15 T040-REC-TYPE PIC X(03). DTSIT040
00016 15 T040-EMP-NO PIC S9(07) COMP-3. DTSIT040
00017 15 T040-ORIGIN PIC X(10). DTSIT040
00018 15 FILLER REDEFINES T040-ORIGIN. DTSIT040

3
Copybook/DTSIT051.cpy
View File

@ -10,7 +10,8 @@
00010 10 T051-LENGTH PIC S9(04) COMP. CL**2
00011 CL**2
00012 10 T051-COMMON-AREA. DTSIT051
00013 15 T051-REC-TYPE PIC X(03) VALUE '051'. DTSIT051
00013 * 15 T051-REC-TYPE PIC X(03) VALUE '051'. DTSIT051
RCODE 15 T051-REC-TYPE PIC X(03). DTSIT051
00014 15 T051-EMP-NO PIC S9(07) COMP-3. DTSIT051
00015 15 T051-ORIGIN PIC X(10). DTSIT051
00016 88 T051-ORIGIN-TRANSFER-88 VALUE 'TRANSFER'. CL**3