13 lines
972 B
COBOL
13 lines
972 B
COBOL
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
|