DUTAS re-platformed to Raincode - Initial Source Code

This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions

46
Copybook/DTSIX306.cpy Normal file
View File

@ -0,0 +1,46 @@
00001 ***** 07/01/08
00002 * DTSIX306
00003 * DTSIX306 R*STARS 'DAFRIN' REFUND DETAIL REC LV001
00004 * FOR EXPORT TO SQL SERVER DATABSE DTSIX306
00005 * DTSIX306
00006 * DETAIL RECORD FOR THE AUTOMATED REFUND PROCESS DTSIX306
00007 * FOR DISPLAYING REFUND DATA ON THE INTERNAL TAX DTSIX306
00008 * WEB SITE. DTSIX306
00009 * DTSIX306
00010 ***** DTSIX306
00011 DTSIX306
00012 10 X306-EMP-NO PIC 9(06). DTSIX306
00013 10 FILLER PIC X(01) VALUE ','. DTSIX306
00014 10 X306-TAX-BATCH PIC 9(05). DTSIX306
00015 10 FILLER PIC X(01) VALUE ','. DTSIX306
00016 10 X306-TAX-ITEM PIC 9(03). DTSIX306
00017 10 FILLER PIC X(01) VALUE ','. DTSIX306
00018 10 X306-APPLIC-BATCH PIC 9(05). DTSIX306
00019 10 FILLER PIC X(01) VALUE ','. DTSIX306
00020 10 X306-APPLIC-ITEM PIC 9(03). DTSIX306
00021 10 FILLER PIC X(01) VALUE ','. DTSIX306
00022 10 X306-TYPE PIC X(01). DTSIX306
00023 88 X306-TYPE-TO-CFO-88 VALUE '0'. DTSIX306
00024 88 X306-TYPE-FROM-CFO-88 VALUE '1'. DTSIX306
00025 10 FILLER PIC X(01) VALUE ','. DTSIX306
00026 10 X306-BATCH-AGY PIC X(03). DTSIX306
00027 10 FILLER PIC X(01) VALUE ','. DTSIX306
00028 10 X306-BATCH-TYPE PIC X(01). DTSIX306
00029 10 FILLER PIC X(01) VALUE ','. DTSIX306
00030 10 X306-BATCH-DATE PIC X(10). DTSIX306
00031 10 FILLER PIC X(01) VALUE ','. DTSIX306
00032 10 X306-BATCH-NUMBER PIC 9(03). DTSIX306
00033 10 FILLER PIC X(01) VALUE ','. DTSIX306
00034 10 X306-BATCH-SEQUENCE PIC 9(05). DTSIX306
00035 10 FILLER PIC X(01) VALUE ','. DTSIX306
00036 10 X306-CURR-DOC-NO PIC X(08). DTSIX306
00037 10 FILLER PIC X(01) VALUE ','. DTSIX306
00038 10 X306-CURR-DOC-NO-SFX PIC X(03). DTSIX306
00039 10 FILLER PIC X(01) VALUE ','. DTSIX306
00040 10 X306-OPID PIC X(08). DTSIX306
00041 10 FILLER PIC X(01) VALUE ','. DTSIX306
00042 10 X306-CHECK-DATE PIC X(10). DTSIX306
00043 10 FILLER PIC X(01) VALUE ','. DTSIX306
00044 10 X306-CHECK-NO PIC X(09). DTSIX306
00045 10 FILLER PIC X(01) VALUE ','. DTSIX306
00046 10 X306-APPROVAL-DATE PIC X(10). DTSIX306