File Utility Program (FUP) Management Programming Manual

Management Application Example
File Utility Program (FUP) Management Programming Manual—523322-001
A-6
*=========================================================
* Build the command buffer.
ENTER TAL "SSINIT" USING ZFUP-DDL-MSG-BUFFER
ZFUP-VAL-BUFLEN
ZFUP-VAL-SSID
0
ZFUP-CMD-DUPLICATE
ZFUP-OBJ-FILE
GIVING ERR.
IF ERR NOT = 0 DISPLAY "SSINIT error: " ERR
DISPLAY "Operation terminated."
GO TO P700.
ENTER TAL "SSPUT" USING ZFUP-DDL-MSG-BUFFER
ZFUP-TKN-SOURCE-FILE
SOURCE-FILE
GIVING ERR.
IF ERR NOT = 0
DISPLAY "SSPUT error on ZFUP-TKN-SOURCE-FILE: " ERR
DISPLAY "Operation terminated."
GO TO P700.
ENTER TAL "SSPUT" USING ZFUP-DDL-MSG-BUFFER
ZFUP-TKN-DEST-FILE
DEST-FILE
GIVING ERR.
IF ERR NOT = 0
DISPLAY "SSPUT error on ZFUP-TKN-DEST-FILE: " ERR
DISPLAY "Operation terminated."
GO TO P700.
ENTER TAL "SSPUT" USING ZFUP-DDL-MSG-BUFFER
ZFUP-MAP-PAR-DUP
ZFUP-DDL-PAR-DUP
GIVING ERR.
IF ERR NOT = 0
DISPLAY "SSPUT error on ZFUP-MAP-PAR-DUP: " ERR
DISPLAY "Operation terminated."
GO TO P700.
*=========================================================
* Send the command buffer to FUP.
READ FUP-FILE WITH PROMPT ZFUP-DDL-MSG-BUFFER.
*=========================================================
* The FUP response is in ZFUP-DDL-MSG-BUFFER. Call the
* SSPUT procedure with ZSPI-TKN-RESET-BUFFER.
ENTER TAL “SSPUT” USING ZFUP-DDL-MSG-BUFFER
ZSPI-TKN-RESET-BUFFER
ZFUP-VAL-BUFLEN
GIVING ERR.
IF ERR NOT = 0 DISPLAY “Reset buffer error: “ ERR
DISPLAY “Operation terminated.”
GO TO P700.
Figure A-1. Management Application Example (page 6 of 8)