File Utility Program (FUP) Management Programming Manual

ORSERV Commands and Responses
File Utility Program (FUP) Management Programming Manual—523322-001
5-16
Example
ZSPI-TKN-RETCODE
is the standard SPI return token that is returned in the response buffer by all
Compaq subsystems. ZSPI-TKN-RETCODE contains zero if the command was
successful or an error number if an error or warning occurred.
ZSPI-TKN-ERRLIST
is the standard SPI token that begins an error list. The error list ends with
ZSPI-TKN-ENDLIST.
Example
Figure 5-2 shows a TAL example of the STATUS command:
Note. Table 4-4, Errors Returned by All ORSERV Commands, on page 4-21 shows the
ZSPI-TKN-RETCODE values common to all ORSERV commands.
Note. For more information about all ORSERV error numbers and their corresponding
error lists, see Appendix C, ORSERV Error Messages
.
Figure 5-2. Example of the STATUS Command (page 1 of 2)
! ---------------------------------------------------------
! STATUS is a high-level integer procedure for the ORSERV
! STATUS command.
! ---------------------------------------------------------
INT PROC STATUS (target^file^name);
! ---------------------------------------------------------
INT .target^file^name; ! Required target file parameter
BEGIN
! ---------------------------------------------------------
! Global variables used are:
! STRUCT .buffer (ZORS^DDL^MSG^BUFFER^DEF);
! STRUCT .ORSERV^ssid (ZSPI^DDL^SSID^DEF);
! INT ORSERV^file^number,
! error, return^error, spi^error;
! ---------------------------------------------------------!
Local definitions.
INT .params^def [ 0:(ZORS^MAP^STATUS^RESPONSE^WLN-1) ];
STRUCT .params (ZORS^DDL^STATUS^RESPONSE^DEF);
! ---------------------------------------------------------
! Format the buffer for the STATUS command.
! ---------------------------------------------------------
ORSERV^ssid ':=' [ ZSPI^VAL^TANDEM,
ZSPI^SSN^ZORS,
ZSPI^VAL^VERSION ];
error := SSINIT (buffer,
ZORS^VAL^BUFLEN,