Opening a New File
MPE documents | |
 Complete PDF | |
| Table of Contents | |
| Index | |
| E0300 Edition 4 ♥ | |
| E0394 Edition 3 |
- 2
The file designator.
- 10
A file type of 3 for KSAM XL files. A file type of 7 for KSAM64 files.
- 11
An access option of 1 for writing records to a new file.
- 19
The record length.
- 35
The maximum file length.
- 50
Either a disposition of 2 for a temporary file or 1 for a permanent file.
- 53
ASCII or binary record data.
- 54
The KSAM key parameter defining primary and alternate key descriptions.
type
bit1=0..1;
bit4=0..15;
bit7=0..127;
bit8=0..255;
bit12=0..4095;
bit15=0..32767;
bit16=0..65535;
pac80 = packed array [1..80] of char;
ksam_rec = packed record
case integer of
1 : (bitword : bit16);
2 : (lang_id : bit16);
3 : (resrvd0 : bit8;
select_blk_size;
cm : bit1;
chg_primary : bit1;
kslang : bit1;
ksreuse : bit1;
seq_random : bit1;
rec_numbering : bit1;
resrvd2 : bit1);
4 : (resrvd3 : bit8;
num_keys : bit8);
5 : (key_type : bit4;
key_length : bit12);
6 : (dflag : bit1;
maxkeyblk : bit15);
7 : (resrvd5 : bit8;
rflag : bit1;
resrvd6 : bit7);
8 : (key_location : bit16);
end;
ksam_struc = ARRAY[0..80] OF ksam_rec;
.
.
.
var
file_num : integer;
status : integer;
file_name : pac80;
ksam_type : integer;
write_access : integer;
line_len : integer;
file_len : integer;
save_perm : integer;
ascii : integer;
ksamparam : ksam_struc;
keylocation,
reserved : bit16;
.
.
.
begin
file_num := 0;
status := 0;
file_name := '%ARMSTRXL.MGR.AR%';
ksam_type := 3;
{creating a KSAM XL file} {to create a KSAM64 file set to 7}
write_access := 1;
rec_len := 80;
file_len := 100;
save_perm := 1;
ascii := 1;
.
.
.
ksamparam[10].lang_id := 5;
ksamparam[16].resrvd3 := 0;
ksamparam[16].num_keys := 1;
ksamparam[17].key_type := 2;
ksamparam[17].key_length := 5;
keylocation := 5;
ksamparam[18].bitword := keylocation;
.
.
.
HPFOPEN(file_num, status,
2, file_name,
10, ksam_type,
11, write_access,
19, rec_len,
35, file_len,
50, save_perm,
53, ascii,
54, ksamparam
);
if status <> 0 then handle_file_error (file_num, status);
end;
To create a new KSAM64 file set ksam_type=7 in the program segment shown in
Figure 4-2. To
create a new KSAM file using the FOPEN intrinsic, file characteristics
and KSAM key information are specified in the positional parameters. In most
cases, the foption, aoption,
recsize, ksamparam, and
filesize parameters must be specified. Commas identify those
positional parameters for which the default specifications are used.
Figure 4-3 "Opening a New KSAM XL File with
FOPEN" provides an FOPEN intrinsic call that creates a KSAM XL
file with write access to build the file.
Figure 4-3 Opening a New KSAM XL File with FOPEN
type
bit1=0..1;
bit4=0..15;
bit7=0..127;
bit8=0..255;
bit12=0..4095;
bit15=0..32767;
bit16=0..65535;
pac80 = packed array [1..80] of char;
ksam_rec = packed record
case integer of
1 : (bitword : bit16);
2 : (lang_id : bit16);
3 : (resrvd0 : bit8;
select_blk_size;
cm : bit1;
chg_primary : bit1;
kslang : bit1;
ksreuse : bit1;
seq_random : bit1;
rec_numbering : bit1;
resrvd2 : bit1);
4 : (resrvd3 : bit8;
num_keys : bit8);
5 : (key_type : bit4;
key_length : bit12);
6 : (dflag : bit1;
maxkeyblk : bit15);
7 : (resrvd5 : bit8;
rflag : bit1;
resrvd6 : bit7);
8 : (key_location : bit16);
end;
ksam_struc = ARRAY[0..80] OF ksam_rec;
var
file_num : integer;
file_name : pac80;
ksamparam : ksam_struc;
keylocation : bit16;
begin
file_num := 0;
file_name := 'ARMSTR.MGR.AR ';
ksamparam[10].lang_id := 5;
ksamparam[16].resrvd3 := 0;
ksamparam[16].num_keys := 1;
ksamparam[17].key_type := 2;
ksamparam[17].key_length := 5;
keylocation := 5;
ksamparam[18].bitword := keylocation;
file_num:=FOPEN(file_name,6148,1,-80,,ksamparam,,,,100)
end;
|
Opening an Existing KSAM File |
Closing a KSAM File |