34 lines
2.6 KiB
COBOL
34 lines
2.6 KiB
COBOL
00001 ***** 11/09/98
|
|
00002 * DTSIL053
|
|
00003 * DTSIL053 UI RATE LOOKUP MODULE LINKAGE. LV004
|
|
00004 * DTSIL053
|
|
00005 * CL**2
|
|
00006 * 11/09/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
|
|
00007 * CL**2
|
|
00008 ***** DTSIL053
|
|
00009 CL**2
|
|
00010 10 L053-EFF-YRQ PIC S9(05) COMP-3. DTSIL053
|
|
00011 CL**2
|
|
00012 10 L053-UI-RATE-CATEGORY PIC X(01). CL**4
|
|
00013 88 L053-NONCLASSIFIED-88 VALUE 'N'. CL**3
|
|
00014 88 L053-CLASSIFIED-88 VALUE 'C'. CL**3
|
|
00015 CL**3
|
|
00016 10 L053-LOOKUP-CODE PIC X(01). CL**3
|
|
00017 88 L053-STANDARD-LOOKUP-88 VALUE 'S'. CL**3
|
|
00018 88 L053-PENALTY-LOOKUP-88 VALUE 'P'. CL**2
|
|
00019 CL**2
|
|
00020 10 L053-RATIO PIC S9(02)V9(05) COMP-3. CL**2
|
|
00021 CL**2
|
|
00022 10 L053-RESULT-IND PIC X(01). DTSIL053
|
|
00023 88 L053-RATE-FOUND VALUE '1'. DTSIL053
|
|
00024 88 L053-RATE-NOT-FOUND VALUE '2'. DTSIL053
|
|
00025 88 L053-FILE-CLOSED VALUE '3'. DTSIL053
|
|
00026 CL**2
|
|
00027 10 L053-UI-RATE PIC S9(01)V9(04) COMP-3.DTSIL053
|
|
00028 CL**2
|
|
00029 10 L053-MSG-AREA. DTSIL053
|
|
00030 15 L053-MSG-ID PIC X(04). DTSIL053
|
|
00031 15 L053-MSG-TEXT PIC X(60). DTSIL053
|
|
00032 CL**2
|
|
00033 10 FILLER PIC X(47). CL**2
|