38 lines
2.9 KiB
COBOL
38 lines
2.9 KiB
COBOL
00001 ***** 01/11/13
|
|
00002 * DTSIX156
|
|
00003 * DTSIX156 PAYMENT DISTRIBUTION EXTRACT RECORD: LV007
|
|
00004 * CL**4
|
|
00005 * DTSIX156
|
|
00006 * PASSES DAILY PAYMENT DISTRIBUTION DATA FROM THE CL**4
|
|
00007 * MAINFRAME TO THE SERVER DATABASE. CL**4
|
|
00008 * DTSIX156
|
|
00009 * 01/08/2013 INITIAL DEVELOPMENT GD CL**4
|
|
00010 * DTSIX156
|
|
00011 ***** DTSIX156
|
|
00012 DTSIX156
|
|
00013 15 X156-REC-TYPE PIC X(03) VALUE '156'. CL**4
|
|
00014 15 FILLER PIC X(01) VALUE ','. DTSIX156
|
|
00015 15 X156-EMP-NO PIC 9(06). CL**4
|
|
00016 15 FILLER PIC X(01) VALUE ','. DTSIX156
|
|
00017 15 X156-QUARTER PIC X(06). CL**4
|
|
00018 15 FILLER PIC X(01) VALUE ','. DTSIX156
|
|
00019 15 X156-SRC-BATCH-NO PIC 9(05). CL**6
|
|
00020 15 FILLER PIC X(01) VALUE ','. DTSIX156
|
|
00021 15 X156-SRC-ITEM-NO PIC 9(03). CL**6
|
|
00022 15 FILLER PIC X(01) VALUE ','. DTSIX156
|
|
00023 15 X156-DST-BATCH-NO PIC 9(05). CL**5
|
|
00024 15 FILLER PIC X(01) VALUE ','. CL**5
|
|
00025 15 X156-DST-ITEM-NO PIC 9(03). CL**5
|
|
00026 15 FILLER PIC X(01) VALUE ','. CL**5
|
|
00027 15 X156-ACCOUNT PIC X(02). CL**4
|
|
00028 15 FILLER PIC X(01) VALUE ','. DTSIX156
|
|
00029 15 X156-AMOUNT PIC ----------9.99. CL**4
|
|
00030 15 FILLER PIC X(01) VALUE ','. DTSIX156
|
|
00031 15 X156-MDST-DATE PIC X(10). CL**4
|
|
00032 15 FILLER PIC X(01) VALUE ','. CL**4
|
|
00033 15 X156-CURR-DATE PIC X(10). CL**4
|
|
00034 15 FILLER PIC X(01) VALUE ','. CL**4
|
|
00035 15 X156-SEQUENCE PIC 9(07). CL**4
|
|
00036 15 FILLER PIC X(01) VALUE ','. CL**7
|
|
00037 15 X156-CALLED-BY PIC X(08). CL**7
|