DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
46
Copybook/DTSIX306.cpy
Normal file
46
Copybook/DTSIX306.cpy
Normal 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
|
||||
Reference in New Issue
Block a user