DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
23
Copybook/DTSIZ10D.cpy
Normal file
23
Copybook/DTSIZ10D.cpy
Normal file
@ -0,0 +1,23 @@
|
||||
00001 *************************************************************** 01/11/05
|
||||
00002 * SECOND COPY BOOK FOR dtsbr115 FOR HOLDING MIXED CASE DTSIZ10D
|
||||
00003 *************************************************************** LV015
|
||||
00004 05 WS-WORD-GROUP0 PIC X(41) DTSIZ10D
|
||||
00005 VALUE 'please contact your field representative,'. DTSIZ10D
|
||||
00006 05 WS-WORD-GROUP1 PIC X(40) DTSIZ10D
|
||||
00007 VALUE 'at '. DTSIZ10D
|
||||
00008 05 WS-WORD-GROUP2 PIC X(40) DTSIZ10D
|
||||
00009 VALUE 'to answer your questions or to '. DTSIZ10D
|
||||
00010 05 WS-WORD-GROUP3 PIC X(40) DTSIZ10D
|
||||
00011 VALUE 'schedule an appointment. '. DTSIZ10D
|
||||
00012 05 WS-WORD-GROUP4 PIC X(40) DTSIZ10D
|
||||
00013 VALUE ' '. DTSIZ10D
|
||||
00014 05 WS-WORD-GROUP5 PIC X(40) DTSIZ10D
|
||||
00015 VALUE ' '. DTSIZ10D
|
||||
00016 05 WS-WORD-GROUP6 PIC X(46) DTSIZ10D
|
||||
00017 VALUE ' '. DTSIZ10D
|
||||
00018 05 WS-WORD-GROUP7 PIC X(40) DTSIZ10D
|
||||
00019 VALUE ' '. DTSIZ10D
|
||||
00020 05 WS-WORD-GROUP8 PIC X(46) DTSIZ10D
|
||||
00021 VALUE ' '. DTSIZ10D
|
||||
00022 05 WS-WORD-GROUP9 PIC X(40) DTSIZ10D
|
||||
00023 VALUE ' '. DTSIZ10D
|
||||
Reference in New Issue
Block a user