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