DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
15
Copybook/DTSIL980.cpy
Normal file
15
Copybook/DTSIL980.cpy
Normal file
@ -0,0 +1,15 @@
|
||||
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
|
||||
Reference in New Issue
Block a user