File Utility Program (FUP) Management Programming Manual

ORSERV Programmatic Interface
File Utility Program (FUP) Management Programming Manual—523322-001
4-6
Starting and Opening ORSERV (TAL Example)
! ---------------------------------------------------------
! Open the ORSERV process and check for an error.
! ---------------------------------------------------------
CALL OPEN (ORSERV^process^name,
ORSERV^file^number);
IF <> THEN
BEGIN
CALL FILEINFO (ORSERV^file^number,
error);
IF error THEN CALL fs^error^handler (error);
END;
! ---------------------------------------------------------
! Send the startup message and check for an error.
! ---------------------------------------------------------
CALL WRITE (ORSERV^file^number,
startup^message,
$OFFSET (startup^message.text));
IF <> THEN
BEGIN
CALL FILEINFO (ORSERV^file^number,
error);
IF error THEN CALL fs^error^handler (error);
END;
CALL CLOSE (ORSERV^file^number);
ORSERV^process^name [4] ':=' "#ZSPI ";
CALL OPEN (ORSERV^process^name,
ORSERV^file^number);
IF <> THEN
BEGIN
CALL FILEINFO (ORSERV^file^number,
error);
IF error THEN CALL fs^error^handler (error);
END;
END; ! of START^AND^OPEN^ORSERV procedure
Figure 4-2. TAL Procedure to Start and Open ORSERV (page 2 of 2)