File Utility Program (FUP) Management Programming Manual

Management Application Example
File Utility Program (FUP) Management Programming Manual—523322-001
A-5
P400.
DISPLAY "Do you want to preserve the file owner?".
ACCEPT Y-OR-N.
ENTER TAL "SHIFTSTRING" USING Y-OR-N, 1, 0.
EVALUATE Y-OR-N
WHEN "Y" MOVE COBOL-VAL-TRUE
TO ZPRESERVE-OWNER OF ZFUP-DDL-PAR-DUP
WHEN "N" MOVE COBOL-VAL-FALSE
TO ZPRESERVE-OWNER OF ZFUP-DDL-PAR-DUP
WHEN " " CONTINUE
WHEN OTHER DISPLAY "Enter Y or N (or blank for N)."
GO TO P400
END-EVALUATE.
P500.
DISPLAY "Do you want to preserve the file security?".
ACCEPT Y-OR-N.
ENTER TAL "SHIFTSTRING" USING Y-OR-N, 1, 0.
EVALUATE Y-OR-N
WHEN "Y" MOVE COBOL-VAL-TRUE
TO ZPRESERVE-SECURITY OF ZFUP-DDL-PAR-DUP
WHEN "N" MOVE COBOL-VAL-FALSE
TO ZPRESERVE-SECURITY OF ZFUP-DDL-PAR-DUP
WHEN " " CONTINUE
WHEN OTHER DISPLAY "Enter Y or N (or blank for N)."
GO TO P500
END-EVALUATE.
P600.
DISPLAY "Destination file option:"
DISPLAY "N=New, P=Purge, O=Old, or K=Keep?".
DISPLAY "Enter N, P, O, or K (or blank for New)."
ACCEPT DEST-OPTION.
ENTER TAL "SHIFTSTRING" USING DEST-OPTION, 1, 0.
EVALUATE DEST-OPTION
WHEN "N" MOVE ZFUP-VAL-NEW
TO ZDEST-OPTION OF ZFUP-DDL-PAR-DUP
WHEN "P" MOVE ZFUP-VAL-PURGE
TO ZDEST-OPTION OF ZFUP-DDL-PAR-DUP
WHEN "O" MOVE ZFUP-VAL-OLD
TO ZDEST-OPTION OF ZFUP-DDL-PAR-DUP
WHEN "K" MOVE ZFUP-VAL-KEEP
TO ZDEST-OPTION OF ZFUP-DDL-PAR-DUP
WHEN “ “ CONTINUE
WHEN OTHER GO TO P600
END-EVALUATE.
Figure A-1. Management Application Example (page 5 of 8)