24 lines
1.8 KiB
COBOL
24 lines
1.8 KiB
COBOL
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
|