Enscribe Programmer's Guide

"$STORE1.SVOL1.TRANFILE";
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;
INT num^alt^key^files;
STRUCT name^length^info [0:num^altkey^files-1];
BEGIN
INT file^name^len;
END;
STRING file^names [0:20];
END;
?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
namelen := name^length;
item^list ':=' [ZSYS^VAL^FCREAT^FILETYPE,
ZSYS^VAL^FCREAT^LOGICALRECLEN,
ZSYS^VAL^FCREAT^BLOCKLEN,
ZSYS^VAL^FCREAT^PRIMEXTENTSIZE,
ZSYS^VAL^FCREAT^SCNDEXTENTSIZE,
ZSYS^VAL^FCREAT^NUMALTKEYS,
ZSYS^VAL^FCREAT^ALTKEYDESC,
ZSYS^VAL^FCREAT^NUMALTKEYFILES,
ZSYS^VAL^FCREAT^ALTFILELEN,
ZSYS^VAL^FCREAT^ALTFILENAMES ];
value^list.file^type := 2; ! entry-sequenced
value^list.logical^reclen := 60;
value^list.block^length := 4096;
value^list.pri^extent := 1000;
value^list.sec^extent := 500;
value^list.altkeys := num^altkeys;
value^list.altkey^descr[0].key^specifier ':=' "TN";
value^list.altkey^descr[0].key^length := 5;
value^list.altkey^descr[0].key^offset := 55;
value^list.altkey^descr[0].key^filenum := 0;
value^list.altkey^descr[0].null^value := 0;
value^list.altkey^descr[0].attributes := 0;
value^list.num^alt^key^files := num^altkey^files;
value^list.name^length^info[0].file^name^len := 21;
value^list.file^names ':=' "$STORE1.SVOL1.ALTTRAN";
128 Entry-Sequenced Files