DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
21
Copybook/DTSIL202.cpy
Normal file
21
Copybook/DTSIL202.cpy
Normal file
@ -0,0 +1,21 @@
|
||||
00001 ***** 09/09/98
|
||||
00002 * DTSIL202
|
||||
00003 * DTSIL202 DETERMINE ELIGIBLE CODE MODULE LINKAGE. LV002
|
||||
00004 * DTSIL202
|
||||
00005 * CL**2
|
||||
00006 * 09/09/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
|
||||
00007 * CL**2
|
||||
00008 * CL**2
|
||||
00009 * NOTE: UNLIKE MONTANA, IN DC DTSCU202 DOES NOT ASSIGN CL**2
|
||||
00010 * ELIGIBLE-CD VALUES TO "CHARGING ONLY" EMPLOYERS. CL**2
|
||||
00011 * CL**2
|
||||
00012 * IN DC, ASSIGNMENT OF ELIGIBLE-CD VALUES TO CL**2
|
||||
00013 * "CHARGING ONLY" EMPLOYERS OCCURS IN DTSCS1A. CL**2
|
||||
00014 * CL**2
|
||||
00015 ***** DTSIL202
|
||||
00016 CL**2
|
||||
00017 10 L202-EMP-CLASS PIC X(01). DTSIL202
|
||||
00018 CL**2
|
||||
00019 10 L202-ELIGIBLE-CD PIC S9(03) COMP-3. CL**2
|
||||
00020 CL**2
|
||||
00021 10 FILLER PIC X(13). CL**2
|
||||
Reference in New Issue
Block a user