Guardian Programmer's Guide

Table Of Contents
Communicating With Disk Files
Guardian Programmer’s Guide 421922-014
5 - 84
Creating Alternate-Key Files
! Concatenated alternate-key file names:
"$ADMIN.OPERATOR.ALT2
$ADMIN.OPERATOR.ALT3"]
-> @S^PTR;
VALUES^LEN := (@S^PTR '-' @VALUES) '<<' 1; !length in
! bytes
! of VALUES
! parameter
! Create the primary file:
ERROR := FILE_CREATELIST_(KEYSFILE:ZSYS^VAL^LEN^FILENAME,
LENGTH,
ITEM^LIST,
NUMBER^ITEMS,
VALUES,
VALUES^LEN);
! Create the alternate-key file ALT2:
KEYSFILE ':=' "$ADMIN.OPERATOR.ALT2" -> @S^PTR;
LENGTH := @S^PTR '-' @KEYSFILE;
REC^LEN := 68;
BLOCK^LEN := 4096;
KEY^LEN := 68;
KEY^OFFSET := 0;
ERROR := FILE_CREATE_(KEYSFILE:ZSYS^VAL^LEN^FILENAME,
LENGTH,
!file^code!,
!primary^extent^size!,
!secondary^extent^size!,
!max^extents!,
!file^type!,
!options!,
REC^LEN,
BLOCK^LEN,
KEY^LEN,
KEY^OFFSET);
! Create the alternate-key file for ALT3:
KEYSFILE ':=' "$ADMIN.OPERATOR.ALT3" -> @S^PTR;
LENGTH := @S^PTR '-' @KEYSFILE;
REC^LEN := 68;
BLOCK^LEN := 4096;
KEY^LEN := 68;
KEY^OFFSET := 0;