DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
38
Copybook/DTSXAHDR.cpy
Normal file
38
Copybook/DTSXAHDR.cpy
Normal file
@ -0,0 +1,38 @@
|
||||
00001 05 HDR-LINE-01. 11/15/05
|
||||
00002 10 FILLER PIC X(08) VALUE SPACES. DTSXAHDR
|
||||
00003 10 WS-LONG-TEXT-MAIL-DATE PIC X(18). LV001
|
||||
00004 DTSXAHDR
|
||||
00005 05 HDR-LINE-02. DTSXAHDR
|
||||
00006 10 FILLER PIC X(03) VALUE SPACES. DTSXAHDR
|
||||
00007 10 HDR-FMT-LINE-1 PIC X(40). DTSXAHDR
|
||||
00008 10 FILLER PIC X(30) VALUE SPACES. DTSXAHDR
|
||||
00009 DTSXAHDR
|
||||
00010 05 HDR-LINE-03. DTSXAHDR
|
||||
00011 10 FILLER PIC X(03) VALUE SPACES. DTSXAHDR
|
||||
00012 10 HDR-FMT-LINE-2 PIC X(40). DTSXAHDR
|
||||
00013 10 FILLER PIC X(30) VALUE SPACES. DTSXAHDR
|
||||
00014 DTSXAHDR
|
||||
00015 05 HDR-LINE-04. DTSXAHDR
|
||||
00016 10 FILLER PIC X(03) VALUE SPACES. DTSXAHDR
|
||||
00017 10 HDR-FMT-LINE-3 PIC X(40). DTSXAHDR
|
||||
00018 10 FILLER PIC X(15) VALUE SPACES. DTSXAHDR
|
||||
00019 10 WS-DISP-RATE PIC X(07). DTSXAHDR
|
||||
00020 DTSXAHDR
|
||||
00021 05 HDR-LINE-05. DTSXAHDR
|
||||
00022 10 FILLER PIC X(03) VALUE SPACES. DTSXAHDR
|
||||
00023 10 HDR-FMT-LINE-4 PIC X(40). DTSXAHDR
|
||||
00024 10 FILLER PIC X(30) VALUE SPACES. DTSXAHDR
|
||||
00025 DTSXAHDR
|
||||
00026 05 HDR-LINE-06. DTSXAHDR
|
||||
00027 10 FILLER PIC X(03) VALUE SPACES. DTSXAHDR
|
||||
00028 10 HDR-FMT-LINE-5 PIC X(40). DTSXAHDR
|
||||
00029 10 FILLER PIC X(15) VALUE SPACES. DTSXAHDR
|
||||
00030 10 WS-LONG-YEAR6 PIC X(04). DTSXAHDR
|
||||
00031 DTSXAHDR
|
||||
00032 DTSXAHDR
|
||||
00033 05 HDR-LINE-07. DTSXAHDR
|
||||
00034 10 FILLER PIC X(18) VALUE SPACE. DTSXAHDR
|
||||
00035 10 HDR-EMP-NO PIC 999B999. DTSXAHDR
|
||||
00036 10 FILLER PIC X(33) VALUE SPACE. DTSXAHDR
|
||||
00037 10 WS-SLASH-DUE-DATE PIC X(10). DTSXAHDR
|
||||
00038 DTSXAHDR
|
||||
Reference in New Issue
Block a user