47 lines
3.6 KiB
COBOL
47 lines
3.6 KiB
COBOL
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
|