31 lines
2.4 KiB
COBOL
31 lines
2.4 KiB
COBOL
00001 ***** 11/11/98
|
|
00002 * DTSIL108
|
|
00003 * MACIL108 TAXABLE WAGE BASE LOOKUP MODULE LINKAGE. LV003
|
|
00004 * DTSIL108
|
|
00005 * CL**2
|
|
00006 * 11/11/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
|
|
00007 * CL**2
|
|
00008 ***** DTSIL108
|
|
00009 CL**2
|
|
00010 10 L108-EMP-CLASS PIC X(01). DTSIL108
|
|
00011 88 L108-CLASS-RATED-88 VALUE 'R'. CL**2
|
|
00012 CL**2
|
|
00013 10 L108-YRQ PIC S9(05) COMP-3. DTSIL108
|
|
00014 CL**2
|
|
00015 CL**2
|
|
00016 10 L108-RESULT-IND PIC X(01). CL**2
|
|
00017 88 L108-OK-88 VALUE '0'. CL**2
|
|
00018 88 L108-NOT-FOUND-88 VALUE '1'. CL**2
|
|
00019 88 L108-FILE-CLOSED-88 VALUE '9'. CL**2
|
|
00020 CL**2
|
|
00021 CL**2
|
|
00022 10 L108-TAXABLE-WAGE-BASE PIC S9(11)V9(02) COMP-3. CL**3
|
|
00023 CL**2
|
|
00024 CL**2
|
|
00025 10 FILLER PIC X(20). CL**3
|
|
00026 CL**2
|
|
00027 CL**2
|
|
00028 10 L108-MSG-AREA. DTSIL108
|
|
00029 15 L108-MSG-ID PIC X(04). DTSIL108
|
|
00030 15 L108-MSG-TEXT PIC X(60). DTSIL108
|