The TAUPDGPR procedure delivers the projects for the Container Tree view. If the procedure has not been adapted, returns the TSO/ISPF Userid to the client. This is then used later in the process as the first qualifier to determine file names. See Container Element Types for more information.
As an alternative, you can modify this procedure to determine another valid list of first qualifiers for the example.
REXX Example: Extract from TAUPDGPR . . . . Parse Arg . . . . . /* Create the container list dataset */ Call REXX '0 TAUPDXA1 CONFIG CONLIST' Parse Value Result With . condsn . /* Alloc container list */ Call ALLOC_FILE condd condsn /* Create the container entries */ prjlist = SET_PROJECTS() k = Words(prjlist) Do i = 1 to k projects.i = Word(prjlist,i)’,PROJ’ End projects.0 = k /* Write projects stem to output dataset */ Call TSO "0 EXECIO * DISKW" condd "(FINIS STEM projects.)" outparm = condsn Call EXIT 0 wmsg SET_PROJECTS: Call ISPF '0 VGET (ZUSER) SHARED' projs = zuser /* as an alternative, you may return a blank separated list */ /* of dataset 1st qualifiers, e.g.: */ /* projs = 'PROD TEST DEV1 DEV2 MAINT1 MAINT2' */ Return projs . . . . EXIT: Parse Arg exitrc exitmsg . . . . Exit exitrc outparm
Note the following in the programming for determining the project container: