File Utility Program (FUP) Management Programming Manual

Management Application Example
File Utility Program (FUP) Management Programming Manual—523322-001
A-8
* token, which contains the file-system error number and
* the ZFIL-TKN-FILENAME token, which contains the name of
* the file that FUP was processing when the error occurred.
DISPLAY-FILESYS-ERROR.
ENTER TAL "SSGET" USING ZFUP-DDL-MSG-BUFFER
ZSPI-TKN-ERRLIST
OMITTED
1
GIVING ERR.
IF ERR NOT = 0
DISPLAY "SSGET error on the FUP error list: " ERR
DISPLAY "Operation terminated."
GO TO P700.
ENTER TAL "SSGET" USING ZFUP-DDL-MSG-BUFFER
ZSPI-TKN-ERRLIST
OMITTED
1
OMITTED
ZFIL-VAL-SSID
GIVING ERR.
IF ERR NOT = 0
DISPLAY "SSGET error on file-system error list: " ERR
DISPLAY "Operation terminated."
GO TO P700.
ENTER TAL "SSGET" USING ZFUP-DDL-MSG-BUFFER
ZSPI-TKN-ERROR
ZSPI-DDL-ERROR
1
GIVING ERR.
IF ERR NOT = 0
DISPLAY "SSGET error for ZSPI-TKN-ERROR: " ERR
DISPLAY "Operation terminated."
GO TO P700.
ENTER TAL "SSGET" USING ZFUP-DDL-MSG-BUFFER
ZFIL-TKN-FILENAME
ERROR-FILE
1
GIVING ERR.
IF ERR NOT = 0
DISPLAY "SSGET error for ZFIL-TKN-FILENAME: " ERR
DISPLAY "Operation terminated."
GO TO P700.
MOVE SPACES TO EXTERNAL-NAME.
ENTER TAL "FNAMECOLLAPSE" USING ERROR-FILE
EXTERNAL-NAME.
DISPLAY "File-system error: " Z-ERROR OF ZSPI-DDL-ERROR
DISPLAY "File name: " EXTERNAL-NAME.
*=========================================================
* End of FUP DUPLICATE Program
*==========================================================
Figure A-1. Management Application Example (page 8 of 8)