PAM Programming Manual

Link-Level Programming Examples
PAM Programming Manual—142482
B-33
Opening a PORT
Opening a PORT
The application must also provide a procedure for opening PORTs.
?PAGE ’PROCEDURE: Open_’
{------------------------------------------------------------------
PROCEDURE: Open_
------------------------------------------------------------------}
PROCEDURE Open_;
BEGIN
cc := Guardian_Open ( L2SAP_file_name,
L2SAP_file_num,
NoWait_depth );
IF ( cc <> OK_Condition ) THEN
BEGIN
cc := FileInfo
( L2SAP_file_num, file_error, L2SAP_file_name );
WriteLn ( Output, ’Open failed - Error: ’, file_error:4 );
AbEnd_;
END;
cc := SetMode ( L2SAP_file_num, 30, 1, 0 );
IF ( cc <> OK_Condition ) THEN
BEGIN
cc := FileInfo ( L2SAP_file_num, file_error );
WriteLn ( Output, ’SetMode failed - Error: ’, file_error:4 );
AbEnd_;
END;
END;
{----------------------- End of Open_ procedure ------------------}
Closing a PORT
The application must also provide a procedure for closing PORTs.
?PAGE ’PROCEDURE: Close_’
{------------------------------------------------------------------
PROCEDURE: Close_
------------------------------------------------------------------}
PROCEDURE Close_;
BEGIN
cc := Guardian_Close ( L2SAP_file_num );
IF ( cc <> OK_Condition ) THEN
BEGIN
cc := FileInfo ( L2SAP_file_num, file_error );
WriteLn ( Output, ’Close failed - Error: ’, file_error:4 );
AbEnd_;
END;
END;
{-------------------- End of Close_ procedure -------------------}