OSI/TS Management Programming Manual

Sample Programs
C–10 056786 Tandem Computers Incorporated
message2[0]);
ZCOM^ERR^OBJ^NOT^FOUND ->
CALL WRITE(term^file^num, message9[1],
message9[0]);
ZCOM^ERR^OBJ^ALRDY^DEF ->
CALL WRITE(term^file^num, message4[1],
message4[0]);
OTHERWISE ->
CALL WRITE(term^file^num, message3[1],
message3[0]);
END;
! Get end-list token.
spi^err := SSGETTKN(os4^buf, zspi^tkn^endlist);
IF spi^err THEN
CALL DEBUG;
datalist^index := datalist^index + 1;
END;
! Save context token for the next command by moving it
! from the response to the original command buffer.
spi^err := ssmovetkn(zspi^tkn^context, os4^buf, 1,
save^buf, 1);
IF (spi^err = ZSPI^ERR^OK) THEN
os4^buf ':=' save^buf FOR ZOS4^VAL^BUFLEN BYTES
ELSE
complete := ZSPI^VAL^TRUE;
END;
RETURN(return^token);
END;
?PAGE
! ***********************************************************
! * status^su *
! ***********************************************************
INT PROC status^su(obj^name);
INT .obj^name;
BEGIN
INT return^token, ! value of SPI error code
datalist^count, ! count of ZSPI^TKN^DATALIST
datalist^index, ! index of ZSPI^TKN^DATALIST
complete; ! flag, SPI response buffer
INT(32) token^val; ! token value used in SSGETTKN
INT .zos4^map^status^su^tsp^resp
[0:zos4^map^status^su^tsp^wln - 1]
:= zos4^map^status^su^tsp;
INT .status^su^tsp(zos4^ddl^status^su^tsp^def);
call build^cmd^buf(zcom^cmd^status, zcom^obj^su, obj^name);
! Save the original command.