27 lines
2.1 KiB
COBOL
27 lines
2.1 KiB
COBOL
00001 ***** 08/28/02
|
|
00002 * DESIR110
|
|
00003 * DESIR110 ELECTRONIC MEDIA STATISTICS LV001
|
|
00004 * REPORT RECORD. DESIR110
|
|
00005 * DESIR110
|
|
00006 * DESIR110
|
|
00007 * 03/21/2001 INITIAL DEVELOPMENT. GD DESIR110
|
|
00008 * DESIR110
|
|
00009 ***** DESIR110
|
|
00010 DESIR110
|
|
00011 10 R110-LENGTH PIC S9(04) COMP. DESIR110
|
|
00012 DESIR110
|
|
00013 10 R110-SORT-AREA. DESIR110
|
|
00014 15 R110-REC-TYPE PIC X(03) VALUE '110'. DESIR110
|
|
00015 DESIR110
|
|
00016 10 R110-DATA-AREA. DESIR110
|
|
00017 15 R110-START-DATE PIC S9(09) COMP-3. DESIR110
|
|
00018 15 R110-END-DATE PIC S9(09) COMP-3. DESIR110
|
|
00019 15 R110-RECEIVED-CNT PIC 9(07). DESIR110
|
|
00020 15 R110-SUCCESSFUL-CNT PIC 9(07). DESIR110
|
|
00021 15 R110-ERROR-CNT PIC 9(07). DESIR110
|
|
00022 15 R110-FAILED-CNT PIC 9(07). DESIR110
|
|
00023 15 R110-IN-PROCESS-CNT PIC 9(07). DESIR110
|
|
00024 15 R110-WAGE-SUCCESS-CNT PIC 9(07). DESIR110
|
|
00025 15 R110-WAGE-ERROR-CNT PIC 9(07). DESIR110
|
|
00026 15 R110-WAGE-FAILED-CNT PIC 9(07). DESIR110
|