Enscribe Programmer's Guide

REC 112
BLOCK 4096
ALTKEY ( "DP", FILE 0, KEYOFF 80, KEYLEN 5 )
ALTFILE ( 0, $STORE1.SVOL1.DEPT )
ALTCREATE
-create empfile
CREATED - $STORE1.SVOL1.EMPFILE
CREATED - $STORE1.SVOL1.DEPT
Using the CREATE procedure, you could create the same file by including this TAL code in one of
your application modules. The node name and volume name for the new file are obtained from
the current value of the VOLUME attribute of the =_DEFAULTS DEFINE.
LITERAL name^length = 13,
num^altkeys = 1,
num^altkey^files = 1,
item^list^len = 10;
INT error;
INT error2;
INT namelen;
STRING .filename [0:name^length-1] := "SVOL1.EMPFILE";
INT .item^list [0:item^list^len-1];
STRUCT value^list;
BEGIN
INT file^type;
INT logical^reclen;
INT block^length;
INT pri^extent;
INT sec^extent;
INT altkeys;
STRUCT altkey^descr [ 0:num^altkeys-1];
BEGIN
STRING key^specifier [0:1];
INT key^length;
INT key^offset;
INT key^filenum;
INT null^value;
INT attributes;
END;
140 Relative Files