File Utility Program (FUP) Management Programming Manual

ORSERV Programmatic Interface
File Utility Program (FUP) Management Programming Manual—523322-001
4-8
Sending a Buffer to ORSERV (TAL Example)
CALL WRITEREAD (ORSERV^file^number,
buffer,
used^length,
ZORS^VAL^BUFLEN);
IF < THEN
BEGIN
CALL FILEINFO(ORSERV^file^number,error);
IF error THEN CALL fs^error^handler (error);
END;
! ---------------------------------------------------------
! Check that the response buffer is an SPI buffer
! and that ORSERV read all of the buffer.
! ---------------------------------------------------------
IF buffer^header.z^msgcode <> -28 THEN
RETURN buffer^error;
CALL SSGETTKN (buffer,
ZSPI^TKN^USEDLEN,
used^length);
IF used^length > ZORS^VAL^BUFLEN THEN
RETURN buffer^error;
! ---------------------------------------------------------
! Reset the length, position, and last error.
! ---------------------------------------------------------
buffer^header.Z^BUFLEN := ZORS^VAL^BUFLEN;
initial^buffer^position := ZSPI^VAL^INITIAL^BUFFER;
CALL SSPUTTKN (buffer,
ZSPI^TKN^INITIAL^POSITION,
initial^buffer^position);
CALL SSPUTTKN (buffer, ZSPI^TKN^CLEARERR);
RETURN 0; ! Successful return
END; ! of SEND^COMMAND procedure.
Figure 4-3. TAL Procedure to Send a Buffer to ORSERV (page 2 of 2)