File Utility Program (FUP) Management Programming Manual

FUP Programmatic Interface
File Utility Program (FUP) Management Programming Manual—523322-001
2-22
Handling FUP Errors
Figure 2-12. Extracting Tokens From a Nested Error List (page 1 of 2)
! Get the FASTSORT error
CALL SSGETTKN (buffer,
ZSPI^TKN^ERROR,
sort^error, 1); .
.
.
! Extracting tokens from a nested error list
! Variables to extract a token map from the buffer
INT .cmd^error^resp^map [0:(ZFUP^MAP^CMD^ERROR^WLN-1)] :=
ZFUP^MAP^CMD^ERROR;
STRUCT .error^info (ZFUP^DDL^CMD^ERROR^DEF);
.
.
.
! Get the return token from the response buffer
CALL SSGETTKN (buffer,
ZSPI^TKN^RETCODE,
return^code, 1);
.
.
.
! ZSPI^TKN^RETCODE indicates an error
.
.
.
! Enter the FUP error list
CALL SSGETTKN (buffer,
ZSPI^TKN^ERRLIST,, 1);
! Get the FUP subsystem ID and error
CALL SSGETTKN (buffer,
ZSPI^TKN^ERROR,
fup^error, 1);
! Get the command error information
CALL SSGET (buffer,
cmd^error^resp^map,
error^info, 1);
.
.
.
! FUP error list indicates a FASTSORT error
! Enter the FASTSORT error list
CALL SSGETTKN (buffer,
ZSPI^TKN^ERRLIST,, 1);