File Utility Program (FUP) Management Programming Manual

FUP Commands and Responses
File Utility Program (FUP) Management Programming Manual—523322-001
3-9
CHECKSUM Command
IF spi^error THEN RETURN ss^error (spi^error);
FOR index := 1 to number^returned DO
BEGIN
! Enter first/last list
spi^error := SSGETTKN (buffer, ZSPI^TKN^DATALIST,
index);
IF spi^error THEN RETURN ss^error (spi^error);
! Extract response information
spi^error:= SSGETTKN (buffer, ZSPI^TKN^RETCODE,
error, 1);
IF spi^error THEN RETURN ss^error (spi^error);
IF error THEN
BEGIN
CALL print^error (error);
RETURN error;
END
ELSE ! no error
numberdone := numberdone + 1D; ! Increment counter
! Exit the list
spi^error := SSGETTKN (buffer, ZSPI^TKN^ENDLIST);
IF spi^error THEN RETURN ss^error (spi^error);
END; ! Index through all responses in buffer
! Rebuild the buffer with context token
spi^error := SSMOVETKN (ZSPI^TKN^CONTEXT, buffer,1,
save^buffer,1);
IF NOT spi^error THEN
buffer ':=' save^buffer FOR 1 ELEMENTS
ELSE IF spi^error = ZSPI^ERR^MISTKN THEN
done := TRUE
ELSE
RETURN ss^error (spi^error);
END; !While loop
RETURN 0; ! Return with no errors
END; ! End of CHECKSUM procedure
Figure 3-1. TAL Example of a CHECKSUM Procedure (page 3 of 3)