How to force a specific value for the SSID on the Database Management Solutions for Db2 for z/OS main menu

Products

• Database Management for DB2 for z/OS - Administration Suite
• Database Management for DB2 for z/OS - Performance Suite
• Database Management for DB2 for z/OS - Recovery Suite
• Database Management for DB2 for z/OS - SQL Performance Suite
• Database Management for DB2 for z/OS - Utilities Suite
• DATABASE MANAGEMENT SOLUTIONS FOR DB2 FOR Z/OS

Issue/Introduction

How to force a specific value for the Db2 ssid on the Database Management Solutions for DB2 for z/OS main menu?

From the ISPF panel have multiple options that correlate to specific DB2 subsystems.  Would like to ensure the SSID value on the Db2 Tools main menu has
the correct SSID value for that given panel selection.  From the following calls to RSPMAIN on my main ISPF panel how to accomplish this?

5,'CMD(%RSPMAIN PARMLIB(highlevel.ssid.CDBAPARM) SUFFIX(AP)' 
6,'CMD(%RSPMAIN PARMLIB(highlevel.ssid.CDBAPARM) SUFFIX(8P)' 

Resolution

The following recommendations were made to facilitate this:

Add the ENV variable to the call to %RSPMAIN that is the subsystem value:
5,'CMD(%RSPMAIN PARMLIB(highlevel.ssid.CDBAPARM) SUFFIX(AP) ENV(DBAP)'
6,'CMD(%RSPMAIN PARMLIB(highlevel.ssid.CDBAPARM) SUFFIX(8P) ENV(DB8P)'

Then, add the following lines in the RSPMAIN clist:
SET &SYS = &ENV             <----Add this line right after the 'END /* &ZAPPLID NE &STR(RC) */ ' statement
ISPEXEC VPUT (HIGHLVL PROFILE SYS)     <----Add SYS to the ISPEXEC VPUT statement that immediately follows the newly added SET statement.