ALLOCATE'INDEXED fspec, allocate'map
ALLOCATE'INDEXED creates a new ISAM-A file (as an alternate to using ISMUTL.LIT). The allocate'map structure contains the configuration details needed to create the file, and must be customized, based on the following:
MAP1 ALLOCATE'MAP
MAP2 ERROR'OFFSET,B,2,-1 ! Offset if error
MAP2 MAX'RECS,B,4 ! (ignored)
MAP2 REC'SIZE,B,2 ! total record size
MAP2 EXTRA'PCT,B,2 ! extra IDX blocks (ignored)
MAP2 LOADING'FACTOR,B,1,100 ! loading factor (ignored)
MAP2 RESERVED0,X,11 ! reserved for future
MAP2 VARIABLE'REC'SIZE,B,2 ! size of variable portion of rec
MAP2 PRIMARY'KEY ! primary key definition
<see key definition structures below>
MAP2 SECONDARY'KEY ! zero or more secondary key definitions
<see key definition structures below>
MAP2 ALLOCATE'END,B,2,0 ! marks end of key definitions
The layout of the PRIMARY'KEY and SECONDARY'KEY sub-structures should be mapped according to one of the following models, based on the key type:
Alphanumeric Key Definition
MAP2 KEY'ALPHANUMERIC
MAP3 KEY'TYPE,B,1,1 ! 1=alphanumeric
MAP3 KEY'RESV(3),B,1 ! reserved for expansion
MAP3 KEY'NAME,S,20 ! name of key (ignored)
MAP3 KEY'NULL1,B,2,0 ! null terminator for name
MAP3 KEY'DUP,B,1 ! sum of 1=duplicates allowed,
! 2=compress dupes, 4=leading, 8=trailing
MAP3 KEY'CHG,B,1 ! key change permitted (ignored)
MAP3 KEY'SIZE,B,2 ! size of key in chars
MAP3 KEY'POS,B,2 ! key pos (1=first byte)
Signed Integer Key Definition
MAP2 KEY'INTEGER
MAP3 KEY'TYPE,B,1,2 ! 2=integer
MAP3 KEY'RESV(3),B,1 ! reserved for expansion
MAP3 KEY'NAME,S,20 ! name of key (ignored)
MAP3 KEY'NULL1,B,2,0 ! null terminator for name
MAP3 KEY'DUP,B,1 ! 1=duplicates allowed
MAP3 KEY'CHG,B,1 ! key change permitted (ignored)
MAP3 KEY'SIZE,B,2 ! size of key in bytes (2 or 4)
MAP3 KEY'POS,B,2 ! key pos (1=first byte)
Unsigned Binary Key Definition
MAP2 KEY'BINARY
MAP3 KEY'TYPE,B,1,4 ! 4=binary
MAP3 KEY'RESV(3),B,1 ! reserved for expansion
MAP3 KEY'NAME,S,20 ! name of key (ignored)
MAP3 KEY'NULL1,B,2,0 ! null terminator for name
MAP3 KEY'DUP,B,1 ! 1=duplicates allowed
MAP3 KEY'CHG,B,1 ! key change permitted (ignored)
MAP3 KEY'SIZE,B,2 ! size of key in bytes (1-5)
MAP3 KEY'POS,B,2 ! key pos (1=first byte)
Concatenated Key Definition
MAP2 KEY'CONCAT
MAP3 KEY'TYPE,B,1,3 ! 3=concatenated
MAP3 KEY'RESV(3),B,1 ! reserved for expansion
MAP3 KEY'NAME,S,20 ! name of key (ignored)
MAP3 KEY'NULL1,B,2,0 ! null terminator for name
MAP3 KEY'DUP,B,1 ! 1=duplicates allowed
MAP3 KEY'CHG,B,1 ! key change permitted (ignored)
MAP3 SUBKEY(?) ! 1 or more subkeys
MAP4 SUBKEY'SIZE,B,2 ! size of subkey in chars
MAP4 SUBKEY'POS,B,2 ! subkey pos (1=first byte)
MAP3 KEY'END,B,2 ! terminate list of subkeys
