15 lines
1.1 KiB
COBOL
15 lines
1.1 KiB
COBOL
00001 ***** 08/11/98
|
|
00002 * DTSISPR
|
|
00003 * DTSISPR PRINT SEND/RECEIVE AREA. LV004
|
|
00004 * DTSISPR
|
|
00005 * REVIEWED AND MODIFIED FOR DC. 08/11/1998 EHH CL**4
|
|
00006 * CL**4
|
|
00007 ***** DTSISPR
|
|
00008 CL**3
|
|
00009 10 FILLER PIC X(12). DTSISPR
|
|
00010 CL**3
|
|
00011 10 MAP-PRINT-LINE-AREA. DTSISPR
|
|
00012 15 MAP-PRINT-LINE-L PIC S9(04) COMP. DTSISPR
|
|
00013 15 MAP-PRINT-LINE-A PIC X(01). DTSISPR
|
|
00014 15 MAP-PRINT-LINE PIC X(125). DTSISPR
|