File Utility Program (FUP) Management Programming Manual

File Utility Program (FUP) Management Programming Manual—523322-001
A-1
A
Management Application Example
This listing output is an example of using the COBOL85 management application to
communicate with FUP and execute the programmatic DUPLICATE command.
Figure A-1. Management Application Example (page 1 of 8)
*=========================================================
* FUP DUPLICATE Program
*=========================================================
?SYMBOLS, INSPECT
?SAVE STARTUP
?LIBRARY $SYSTEM.SYSTEM.COBOLLIB
IDENTIFICATION DIVISION.
PROGRAM-ID. FUP-COPY.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. TANDEM-16.
OBJECT-COMPUTER. TANDEM-16.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT FUP-FILE ASSIGN TO #DYNAMIC.
DATA DIVISION.
FILE SECTION.
FD FUP-FILE
LABEL RECORDS ARE OMITTED.
COPY ZFUP-DDL-MSG-BUFFER OF "$SYSTEM.ZSPIDEF.ZFUPCOB".
WORKING-STORAGE SECTION.
01 ERR NATIVE-2.
01 ERR-1 NATIVE-2.
01 ERR-2 NATIVE-2.
01 IN-PORTION PIC X(2) VALUE "IN".
01 VOLUME-PORTION PIC X(6) VALUE "VOLUME".
01 CP-LIST PIC 9(9) COMP VALUE 0.
01 RCV-NAME PIC X(8) VALUE "$RECEIVE".
01 FUP-NAME PIC X(30)
VALUE "$SYSTEM.SYSTEM.FUP".
01 FUP-PROCESS-NAME PIC X(6).
01 FUP-SPI-NAME PIC X(12).
01 EXTERNAL-DEFAULT-VOL PIC X(30).
01 TEMP PIC X(30).
01 JUNK PIC X(16) VALUE SPACES.
01 LEN NATIVE-2.
01 DEFAULT-VOL PIC X(24).
01 USER-TYPED-FILENAME PIC X(40).
01 Y-OR-N PIC X.
01 DEST-OPTION PIC X.
01 COBOL-VAL-TRUE PIC XX VALUE HIGH-VALUES.