DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
30
Copybook/DTSIL108.cpy
Normal file
30
Copybook/DTSIL108.cpy
Normal file
@ -0,0 +1,30 @@
|
||||
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
|
||||
Reference in New Issue
Block a user