File Utility Program (FUP) Management Programming Manual

FUP Programmatic Interface
File Utility Program (FUP) Management Programming Manual523322-001
2-23
Handling FUP Errors
! Get the FASTSORT error
CALL SSGETTKN (buffer,
ZSPI^TKN^ERROR,
sort^error, 1); .
.
.
! FASTSORT error list indicates a Compaq NonStop error
! Enter the Compaq NonStop error list
CALL SSGETTKN (buffer,
ZSPI^TKN^NEXTTOKEN,
!token!, -- Should be ZSPI^TKN^ERRLIST
!index!, -- Getting the next one
!count!, -- Only expect one token
guardian^ssid); -- Get Compaq NonStop SSID
! Get the Compaq NonStop error
CALL SSGETTKN (buffer,
ZSPI^TKN^ERROR,
guardian^error,
1,
!count!,
guardian^ssid); -- Get Compaq NonStop SSID
! Get the Compaq NonStop procedure
CALL SSGETTKN (buffer,
ZSPI^TKN^PROC^ERR,
guardian^proc,
1,
!count!,
guardian^ssid); -- Get Compaq NonStop SSID
.
.
.
! Exit the Compaq NonStop error list
CALL SSGETTKN (buffer,
ZSPI^TKN^ENDLIST,
!token!,
!index!,
!count!,
guardian^ssid); -- Get Compaq NonStop SSID
! Exit the FASTSORT error list
CALL SSGETTKN (buffer, ZSPI^TKN^ENDLIST);
! Exit the FUP error list
CALL SSGETTKN (buffer, ZSPI^TKN^ENDLIST);
! Call a procedure to report the error
Figure 2-12. Extracting Tokens From a Nested Error List (page 2 of 2)