42 lines
3.2 KiB
COBOL
42 lines
3.2 KiB
COBOL
00001 ***** 07/01/08
|
|
00002 * DTSIX303
|
|
00003 * DTSIX303 R*STARS 'DAFRIN' TRAN INTERFACE HEADER REC LV001
|
|
00004 * DTSIX303
|
|
00005 * HEADER RECORD FOR THE AUTOMATED REFUND PROCESS. DTSIX303
|
|
00006 * DTSIX303
|
|
00007 * DTSIX303
|
|
00008 * DTSIX303
|
|
00009 ***** DTSIX303
|
|
00010 DTSIX303
|
|
00011 10 X303-BATCH-AGY PIC X(03) VALUE 'UIU'. DTSIX303
|
|
00012 10 X303-BATCH-DATE PIC X(08). DTSIX303
|
|
00013 10 X303-BATCH-TYPE PIC X(01) VALUE 'X'. DTSIX303
|
|
00014 10 X303-BATCH-NO PIC 9(03). DTSIX303
|
|
00015 10 X303-BATCH-SEQ-NO PIC 9(05) VALUE ZEROS. DTSIX303
|
|
00016 10 X303-BATCH-OPERATOR-ID PIC X(08) DTSIX303
|
|
00017 VALUE 'INTERUIU'. DTSIX303
|
|
00018 10 X303-BATCH-OPERATOR-NAME PIC X(20) VALUE SPACES. DTSIX303
|
|
00019 10 X303-BATCH-OPERATOR-CLASS PIC X(02) VALUE SPACES. DTSIX303
|
|
00020 10 X303-BATCH-TID PIC X(04) VALUE SPACES. DTSIX303
|
|
00021 10 X303-BATCH-EFF-DATE PIC X(08). DTSIX303
|
|
00022 10 X303-BATCH-DISB-METHOD PIC X(01) VALUE 'R'. DTSIX303
|
|
00023 10 X303-BATCH-PAY-DIST-TYPE PIC X(02) VALUE SPACES. DTSIX303
|
|
00024 10 X303-FAST-ENTRY PIC X(01) VALUE 'N'. DTSIX303
|
|
00025 10 X303-BATCH-DOC-HOLD-FLG PIC X(01) VALUE SPACES. DTSIX303
|
|
00026 10 X303-BATCH-AMT-CNT-ENTR PIC X(01) VALUE 'Y'. DTSIX303
|
|
00027 10 X303-BATCH-STATUS PIC X(01) VALUE 'R'. DTSIX303
|
|
00028 10 X303-BATCH-HDR-CNT-SW PIC X(01) VALUE 'Y'. DTSIX303
|
|
00029 10 X303-BATCH-LAST-SEQ-NO PIC 9(05) VALUE ZERO. DTSIX303
|
|
00030 10 X303-BATCH-SYSTEM-DATE PIC X(05). DTSIX303
|
|
00031 10 X303-BATCH-MSTR-FILE-SW PIC X(01) VALUE '0'. DTSIX303
|
|
00032 10 FILLER PIC X(07) VALUE SPACES. DTSIX303
|
|
00033 10 X303-ENTERED-BATCH-CNT-N PIC 9(05). DTSIX303
|
|
00034 10 X303-ENTERED-BATCH-AMT-N PIC 9(11)V99. DTSIX303
|
|
00035 10 FILLER PIC X(05) VALUE SPACES. DTSIX303
|
|
00036 10 X303-COMP-BATCH-CNT-N PIC 9(05) VALUE ZERO. DTSIX303
|
|
00037 10 X303-COMP-BATCH-AMT-N PIC 9(11)V99 VALUE 0. DTSIX303
|
|
00038 10 X303-APPRVL-REQ-TO-POST PIC X(01) VALUE 'N'. DTSIX303
|
|
00039 10 X303-ALL-DOCS-APPRVD PIC X(01) VALUE SPACES. DTSIX303
|
|
00040 10 X303-BATCH-RTI-ERR-IND PIC X(01) VALUE SPACES. DTSIX303
|
|
00041 10 FILLER PIC X(618) VALUE SPACES. DTSIX303
|