39 lines
3.0 KiB
COBOL
39 lines
3.0 KiB
COBOL
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
|