16 lines
1.2 KiB
COBOL
16 lines
1.2 KiB
COBOL
00001 ***** 03/23/00
|
|
00002 * DTSIL980
|
|
00003 * DTSIL980 FIXED LENGTH RECORD FOR REPORT CONTROL SUMMARY LV003
|
|
00004 * DTSIL980
|
|
00005 * DTSIL980 IS USED BY DTSBD800 & DTSBR980 TO PRODUCE A CL**3
|
|
00006 * REPORT CONTROL SUMMARY (VS. AN UNFORMATTED SYSOUT). CL**3
|
|
00007 * IT IS MEANT TO HANDLE ALL POSSIBLE (I.E., 999) REPORTS. CL**3
|
|
00008 * CL**3
|
|
00009 * 03/07/2000 CREATED JHP CL**3
|
|
00010 * CL**2
|
|
00011 ***** DTSIL980
|
|
00012 CL**2
|
|
00013 10 L980-REC-CNT OCCURS 999 TIMES CL**3
|
|
00014 PIC S9(07) COMP-3. CL**3
|
|
00015 CL**2
|