File Utility Program (FUP) Management Programming Manual

Management Application Example
File Utility Program (FUP) Management Programming Manual—523322-001
A-2
01 COBOL-VAL-FALSE PIC XX VALUE LOW-VALUES.
01 RETCODE NATIVE-2.
01 EXTERNAL-NAME PIC X(35).
01 IN-EXTERNAL-NAME PIC X(35).
01 OUT-EXTERNAL-NAME PIC X(35).
*=========================================================
* Copy SPI definitions from ZSPICOB, ZFUPCOB and ZFILCOB.
*=========================================================
COPY ZSPI-DDL-FNAME OF "$SYSTEM.ZSPIDEF.ZSPICOB"
REPLACING ZSPI-DDL-FNAME BY SOURCE-FILE.
COPY ZSPI-DDL-FNAME OF "$SYSTEM.ZSPIDEF.ZSPICOB"
REPLACING ZSPI-DDL-FNAME BY DEST-FILE.
COPY ZSPI-DDL-FNAME OF "$SYSTEM.ZSPIDEF.ZSPICOB"
REPLACING ZSPI-DDL-FNAME BY ERROR-FILE.
COPY ZFUP-DDL-PAR-DUP OF "$SYSTEM.ZSPIDEF.ZFUPCOB".
COPY ZSPI-DDL-ERROR OF "$SYSTEM.ZSPIDEF.ZSPICOB".
COPY CONSTANTS OF "$SYSTEM.ZSPIDEF.ZFUPCOB".
COPY CONSTANTS OF "$SYSTEM.ZSPIDEF.ZSPICOB".
COPY CONSTANTS OF "$SYSTEM.ZSPIDEF.ZFILCOB".
*=========================================================
* Procedure Division
*=========================================================
PROCEDURE DIVISION.
P000.
*=========================================================
* Set IN file of saved startup message to "$RECEIVE"
* (for when it is sent to FUP by CREATEPROCESS).
ENTER "PUTSTARTUPTEXT" USING IN-PORTION
RCV-NAME
CP-LIST
GIVING ERR.
IF ERR < 0 DISPLAY "PUTSTARTUPTEXT error: " ERR
DISPLAY "Operation terminated."
STOP RUN.
*=========================================================
* Get a process name to use when starting FUP.
ENTER TAL "CREATEPROCESSNAME" USING FUP-PROCESS-NAME.
*=========================================================
* Start the FUP process.
ENTER "CREATEPROCESS" USING FUP-NAME
FUP-PROCESS-NAME
1
GIVING ERR.
IF ERR NOT = 0
IF ERR < 256 DISPLAY "CREATEPROCESS error: " ERR
DISPLAY "Operation terminated."
STOP RUN
ELSE DIVIDE ERR BY 256 GIVING ERR-1 REMAINDER ERR-2
DISPLAY "NEWPROCESS error (" ERR-1 "," ERR-2 ")"
DISPLAY "Operation terminated."
STOP RUN.
Figure A-1. Management Application Example (page 2 of 8)