32 lines
2.5 KiB
COBOL
32 lines
2.5 KiB
COBOL
00001 ***** 06/28/99
|
|
00002 * DTSIR502
|
|
00003 * DTSIR502 RATE DISCREPANCY LIST LV004
|
|
00004 * REPORT RECORD. DTSIR502
|
|
00005 * (IF THERE ARE NONE OF THESE REPORT RECORDS, DTSIR502
|
|
00006 * NEED TO GENERATE THE REPORT ANYWAY WITH THE DTSIR502
|
|
00007 * MESSAGE "NO DISCREPANCIES FOUND") DTSIR502
|
|
00008 * DTSIR502
|
|
00009 * CL**2
|
|
00010 * 01/16/1999 REVIEWED AND MODIFIED FOR DC. EHH CL**2
|
|
00011 * CL**2
|
|
00012 ***** DTSIR502
|
|
00013 CL**2
|
|
00014 10 R502-LENGTH PIC S9(04) COMP VALUE +159. CL**3
|
|
00015 CL**2
|
|
00016 10 R502-SORT-AREA. DTSIR502
|
|
00017 15 R502-REC-TYPE PIC X(03) VALUE '502'. DTSIR502
|
|
00018 15 R502-MSG-IDENTIFIER PIC X(04). DTSIR502
|
|
00019 15 R502-EMP-NO PIC S9(07) COMP-3. DTSIR502
|
|
00020 15 R502-EFFECTIVE-QTR PIC S9(05) COMP-3. DTSIR502
|
|
00021 CL**2
|
|
00022 10 R502-DATA-AREA. DTSIR502
|
|
00023 15 R502-PRIMARY-NAME PIC X(40). CL**2
|
|
00024 *************15 R502-NEW-SIC-DIVISION PIC X(01). CL**2
|
|
00025 *************15 R502-RATE-TYPE PIC X(01). CL**2
|
|
00026 15 R502-RATE PIC S9(01)V9(04) COMP-3. DTSIR502
|
|
00027 88 R502-NO-RATE-88 VALUE -9.9999. DTSIR502
|
|
00028 15 R502-MSG-TEXT. DTSIR502
|
|
00029 20 R502-MSG-TEXT-1 PIC X(50). DTSIR502
|
|
00030 20 R502-MSG-TEXT-2 PIC X(50). DTSIR502
|
|
00031 10 FILLER PIC X(91). CL**4
|