Example of Record Output

program SORTREC_OUT (input,output);



{This program reads data from the TEMPEMP and PERMEMP files, sorts them by last name,}

{outputs them by record, alters the output record, and prints the record to $STDLIST.}



var

   tempFileNum: INTEGER;

   permFileNum: INTEGER;

   status     : INTEGER;



procedure HPFOPEN  ; intrinsic;

procedure HPSORTINIT; intrinsic;

procedure HPSORTOUTPUT; intrinsic;

procedure HPSORTEND; intrinsic;

procedure FCLOSE; intrinsic;

procedure OPEN_FILES;



const

   designator = 2;

   domain     = 3;

   access     = 11;



var

   tempfile  : packed array [1..10] of CHAR;

   permfile  : packed array [1..10] of CHAR;

   permanent : INTEGER;



begin

   tempfile := '%TEMPEMP%';

   permanent := 1;

   HPFOPEN (tempFileNum, status, designator, tempfile, domain, permanent);



   permfile := '%PERMEMP%';

   HPFOPEN (permFileNum, status, designator, permfile, domain, permanent);

end;




procedure DO_SORT;



var

   inputfiles   : array [1..3] 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;

   buffer       : packed array [1..80] of CHAR;



begin

   inputfiles [1] := tempFileNum;

   inputfiles [2] := permFileNum;

   inputfiles [3] := 0;



   outputOption := 0;        {output record format same as input record format}



   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}



   HPSORTINIT (status, inputfiles,, outputOption,,,

      numKeys, keys, altseq,,,,,);



   repeat                                      {get output record and alter it}

      HPSORTOUTPUT (status, buffer, length);

      strmove (7, 'Empl. #',1, buffer, 33);

      strmove (10, 'Hire Date:', 1, buffer, 50);

      if length >0 then

         writeln (buffer);

   until length <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);

end;



begin {main}

   OPEN_FILES;

   DO_SORT;

   CLOSE_FILES;

end.