DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
21
Copybook/DTSIZ10E.cpy
Normal file
21
Copybook/DTSIZ10E.cpy
Normal file
@ -0,0 +1,21 @@
|
||||
00001 *************************************************************** 01/12/00
|
||||
00002 * SECOND COPY BOOK FOR MACBR109 FOR HOLDING MIXED CASE DTSIZ10E
|
||||
00003 *************************************************************** LV002
|
||||
00004 05 WS-WORD-GROUP1 PIC X(40) DTSIZ10E
|
||||
00005 VALUE 'Effective '. DTSIZ10E
|
||||
00006 05 WS-WORD-GROUP2 PIC X(40) DTSIZ10E
|
||||
00007 VALUE 'you have been determined a covered '. DTSIZ10E
|
||||
00008 05 WS-WORD-GROUP3 PIC X(40) DTSIZ10E
|
||||
00009 VALUE 'employer under the D. C. Unemployment In'. CL**2
|
||||
00010 05 WS-WORD-GROUP4 PIC X(40) DTSIZ10E
|
||||
00011 VALUE 'surance Law, and have been assigned '. CL**2
|
||||
00012 05 WS-WORD-GROUP5 PIC X(40) DTSIZ10E
|
||||
00013 VALUE 'the above account number. '. DTSIZ10E
|
||||
00014 05 WS-WORD-GROUP6 PIC X(40) DTSIZ10E
|
||||
00015 VALUE 'or your field representative, '. DTSIZ10E
|
||||
00016 05 WS-WORD-GROUP7 PIC X(40) DTSIZ10E
|
||||
00017 VALUE ', at '. DTSIZ10E
|
||||
00018 05 WS-WORD-GROUP8 PIC X(40) DTSIZ10E
|
||||
00019 VALUE '''s '. DTSIZ10E
|
||||
00020 05 WS-WORD-GROUP9 PIC X(40) DTSIZ10E
|
||||
00021 VALUE 'telephone number is '. DTSIZ10E
|
||||
Reference in New Issue
Block a user