Example of Record Input

Example 3-1 SORTREC_IN Program

program SORTREC_IN (input,output);
{This program reads the files, TEMPEMP & PERMEMP, alters the TEMPEMP records, }
{passes all records to SORT/XL, and outputs to the file, ALLEMP.              }
 
var
   tempFileNum: INTEGER;
   permFileNum: INTEGER;
   outFileNum : INTEGER;
   status     : INTEGER;
 
procedure HPFOPEN; intrinsic;
procedure HPSORTINIT; intrinsic;
function  FREAD : SHORTINT; intrinsic;
procedure HPSORTINPUT; intrinsic;
procedure HPSORTEND; intrinsic;
procedure FCLOSE; intrinsic;
 
 
procedure OPEN_FILES;
 
const
   designator  = 2;
   domain      = 3;
   access      = 11;
   record_size = 19;
 
var
   tempfile  : packed array [1..10] of CHAR;
   permfile  : packed array [1..10] of CHAR;
   outfile   : packed array [1..10] of CHAR;
   permanent : INTEGER;
   new       : INTEGER;
   write     : INTEGER;
   size      : INTEGER;
 
begin
   tempfile := '%TEMPEMP%';
   permanent := 1;
   HPFOPEN (tempFileNum, status, designator, tempfile, domain, permanent) ;
 
   permfile := '%PERMEMP%';
   HPFOPEN (permFileNum, status, designator, permfile, domain, permanent) ;
   new := 4;
   write := 1;
   size := 80;
   outfile := '%ALLEMP%';
   HPFOPEN (outFileNum, status, designator, outfile, domain, new, access,
            write, record_size, size);
 
procedure DO_SORT;
 
var
   outputfile   : array [1..2] of INTEGER;
   outputOption : INTEGER;
   numKeys      : INTEGER;
   keys         : array [1..4] of INTEGER;
   altseq       : packed array [1..2] of CHAR;
   message      : packed array [1..80] of CHAR;
   length       : INTEGER;
   lngth        : SHORTINT;
   buffer       : packed array [1..80] of CHAR;
   recLength    : INTEGER;
 
begin
   outputfile [1] := outFileNum;                                 {From HPFOPEN}
   outputfile [2] := 0;
   outputOption := 0;       {output record format same as input record format }
   recLength := 80;                                     {maximum record length}
   numKeys := 1;                                                      {one key}
   keys[1] := 1;                                                   {key begins}
   keys[2] := 20;                                                  {key length}
   keys[3] := 0;                                                    {byte data}
   keys[4] := 0;                                              {ascending order}
   altseq[1] := CHR(255);                      {data = ASCII; sequence = ASCII}
   altseq[2] := CHR(255);                             {256 characters in ASCII}
end;
 
   HPSORTINIT (status,, outputfile, outputOption,
      recLength,, numKeys, keys, altseq,,,,,);
 
    length := 72;                                          {read 72 characters}
 
    repeat                            {read temporary employee file by record}
       Lngth := FREAD (TempFileNum, Buffer, Length);
       Buffer[40] := '*';                                     {Mark the record}
       if Lngth <> 0 then
          HPSORTINPUT (Status, Buffer, Length);
    until Lngth = 0;
 
    repeat                             {read permanent employee file by record}
      lngth := FREAD (permfilenum, buffer, length);
      if lngth <> 0 then
         HPSORTINPUT (status, buffer, length)
    until lngth = 0;
 
   HPSORTEND (status, );
end;
 
procedure CLOSE_FILES;
 
var
   disposition : SHORTINT;
   securityCode : SHORTINT;
 
begin
   disposition := 0;
   securityCode := 0;
   FCLOSE (tempFileNum, disposition, securityCode);
   FCLOSE (permFileNum, disposition, securityCode);
   disposition := 1;
   FCLOSE (outFileNum, disposition, securityCode);
end;
 
begin {main}
   OPEN_FILES;
   DO_SORT;
   CLOSE_FILES;
end.