Guardian Programmer's Guide

Table Of Contents
Communicating With Disk Files
Guardian Programmer’s Guide 421922-014
5 - 83
Creating Alternate-Key Files
ITEM^LIST ':=' [ZSYS^VAL^FCREAT^FILETYPE,
ZSYS^VAL^FCREAT^LOGICALRECLEN,
ZSYS^VAL^FCREAT^BLOCKLEN,
ZSYS^VAL^FCREAT^KEYOFFSET,
ZSYS^VAL^FCREAT^KEYLEN,
ZSYS^VAL^FCREAT^NUMALTKEYS,
ZSYS^VAL^FCREAT^ALTKEYDESC,
ZSYS^VAL^FCREAT^NUMALTKEYFILES,
ZSYS^VAL^FCREAT^ALTFILELEN,
ZSYS^VAL^FCREAT^ALTFILENAMES];
NUMBER^ITEMS := 10;
VALUES ':=' [3, !primary-key file type
130, !primary-key file record length
4096, !primary-key file block length
0, !primary-key file key offset
6, !primary-key file key length
2, !number of alternate-key specifiers
! Alternate key descriptor for description
! field:
"DE", !key specifier for description
! field
60, !length of alternate key
6, !alternate-key file key offset
0, !alternate-key file number
0, !not used
0, !not used
! Alternate key descriptor for supplier
! field:
"SU", !key specifier for description
! field
60, !length of alternate key
66, !alternate-key file key offset
0, !alternate-key file number
0, !not used
0, !not used
! Other values:
2, !number of alternate-key files
20, !length of first alternate-key
! file name
20, !length of second alternate-key
! file name