Accessing Files Programmer's Guide (32650-90885)

210 AppendixA
Pascal/XL Program Examples
Program Example A-2
procedure FREADLABEL; intrinsic;
procedure print_hpfopen_error
(
error : status_type
)
option inline;
{************************************************************************}
{* PURPOSE: *}
{* This routine prints the status returned by HPFOPEN. *}
{* PARAMETERS: *}
{* error (input) *}
{* - status returned by HPFOPEN *}
{************************************************************************}
begin {* print_hpfopen_error *}
writeln ('HPFOPEN status = (info: ', error.info:1,
'; subys: ', error.subsys:1,')');
end; {* print_hpfopen_error *}
procedure print_fserr
(
file_num : integer
)
option inline;
{************************************************************************}
{* PURPOSE: *}
{* This routine prints a File System error which occurred in a *}
{* File System intrinsic. *}
{* PARAMETERS: *}
{* file_num (input) *}
{* - file number of file which the intrinsic failed *}
{************************************************************************}
var
error : shortint; {* File System error number *}
begin {* print_fserr *}
FCHECK (file_num, error); {* call FCHECK to get the errornumber*}
writeln ('FSERR = ', error:1);
end;
{* print_fserr *}
procedure handle_file_error
(
file_num : shortint;
quit_num : shortint
);
{************************************************************************}
{* PURPOSE: *}