12 lines
891 B
COBOL
12 lines
891 B
COBOL
00001 ***** 01/05/00
|
|
00002 * DTSIVITM
|
|
00003 * DTSIVITM LAST USED ITEM NUMBER FOR EACH BATCH. LV014
|
|
00004 * DTSIVITM
|
|
00005 ***** DTSIVITM
|
|
00006 DTSIVITM
|
|
00007 10 VITM-NEXT-ITEM-NO OCCURS 99999 TIMES CL*13
|
|
00008 INDEXED BY VITM-IDX CL*13
|
|
00009 PIC S9(03) COMP-3. CL*12
|
|
00010 DTSIVITM
|
|
00011 10 FILLER PIC X(32). CL*14
|