DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
12
Copybook/DESIL110.cpy
Normal file
12
Copybook/DESIL110.cpy
Normal file
@ -0,0 +1,12 @@
|
||||
00001 ***** 05/22/01
|
||||
00002 * DESIL110
|
||||
00003 * DESIL110 ELECTRONIC MEDIA TRACKING LV001
|
||||
00004 * SELECTED LOG NUMBER TABLE DESIL110
|
||||
00005 * DESIL110
|
||||
00006 ***** DESIL110
|
||||
00007 15 L110-LOG-CNT PIC S9(04) COMP. DESIL110
|
||||
00008 15 L110-LOG-MAX PIC S9(04) COMP. DESIL110
|
||||
00009 15 L110-LOG-NO-TABLE OCCURS 500 TIMES DESIL110
|
||||
00010 INDEXED BY LOG-IDX. DESIL110
|
||||
00011 20 L110-LOG-NO PIC 9(10). DESIL110
|
||||
00012 DESIL110
|
||||
Reference in New Issue
Block a user