Enscribe Programmer's Guide

partno descr price avail-qty loc vendor
Primary-Key
Field
Alternate-Key
Field LO
Alternate-Key
Field VN
0 2 32 40 42 46 54
Byte Offset:
You could create the file by using these FUP commands:
volume $store1.svol1
fup
-set type k
-set code 1001
-set ext (32,8)
-set rec 54
-set block 4096
-set keylen 2
-set altkey ("LO",keyoff 42,keylen 4)
-set altkey ("VN",keyoff 46,keylen 8)
-set altfile (0,invalt)
-show
TYPE K
CODE 1001
EXT ( 32 PAGES, 8 PAGES )
REC 54
BLOCK 4096
IBLOCK 4096
KEYLEN 2
KEYOFF 0
ALTKEY ( "LO", FILE 0, KEYOFF 42, KEYLEN 4 )
ALTKEY ( "VN", FILE 0, KEYOFF 46, KEYLEN 8 )
ALTFILE ( 0, $STORE1.SVOL1.INVALT )
ALTCREATE
-create inv
CREATED - $STORE1.SVOL1.INV
CREATED - $STORE1.SVOL1.INVALT
Using the FILE_CREATELIST_ system procedure, you could create the file by including this TAL code
in one of your application modules.
The volume name, subvolume name, and node name are not specified in the procedure call.
FILE_CREATELIST_ obtains them from the current value of the VOLUME attribute of the =_DEFAULTS
DEFINE.
?NOLIST
?SOURCE $SYSTEM.ZSYSDEFS.ZSYSTAL(FILESYSTEM^ITEMCODES)
?SOURCE $SYSTEM.SYSTEM.EXTDECS0(FILE_CLOSE_,
? FILE_OPEN_,
? FILE_CREATELIST_,
? READ)
?LIST
PROC DO^THE^WORK MAIN;
BEGIN
LITERAL name^length = 3,
num^altkeys = 2,
num^altkey^files = 1,
item^list^len = 13;
INT error;
INT error2;
INT namelen;
STRING .filename [0:name^length-1] := "INV";
78 Key-Sequenced Files