Technique
Problem
How to allocate connected user's Partition Data Set (PDS) libraries for focexec and Master ddnames.
Solution
Here is an example to allocate connected user's Partition Data Set (PDS) libraries for focexec and Master ddnames:
-SET &ECHO = ALL;
-TYPE &FOCSECUSER...FOCEXEC.DATA
-SET &EXECDSN = UPPER(&FOCSECUSER)||'.'||FOCEXEC.DATA;
-SET &MSTRDSN = UPPER(&FOCSECUSER)||'.'||MASTER.DATA;
-? MVS DSNAME '&EXECDSN'
-IF &RETCODE GT 0 THEN GOTO ENDMYAPP;
-* We have at least the FOCEXEC library
-? MVS DSNAME '&MSTRDSN'
-IF &RETCODE GT 0 THEN GOTO ONLYEXEC;
-* We have FOCEXEC and MASTERDYNAM ALLOC FILE MYEXEC DS &EXECDSN SHR REU
DYNAM ALLOC FILE MYMAST DS &MSTRDSN SHR REU
APP MAP MYAPPS fex=//DD:MYEXEC;mas=//DD:MYMAST
-GOTO SETMYPATH
-ONLYEXEC
DYNAM ALLOC FILE MYEXEC DS &EXECDSN SHR REUSE
-RUN
APP MAP MYAPPS fex=//DD:MYEXEC
-SETMYPATH
APP PREPENDPATH MYAPPS
-ENDMYAPP