How can I to change an application's VTAM APPLID (or network name) from one value to another?
Here is an example of how to change the profile
EXTRACT GIVING(EXTFILE) PROFILE AND MATCHING SESSIONS (PENTAPPL(TEST001A))SET RTITLE1 ' PROFILE REPORT (BEFORE):'SET RTITLE2' USERID SessionID ApplID 'SET RTITLE3' ======== ========= ========='REPORT GIVING(RPTFILE) USING(EXTFILE)(( ' &PIDXNAME' ' &PENTUSER' ' &PENTAPPL'))UPDATE USING(EXTFILE) (PENTAPPL(TEST001B)) EXTRACT GIVING(EXTFIL2) PROFILE AND MATCHING SESSIONS (PENTAPPL(TEST0---))SET RTITLE1' PROFILE REPORT (AFTER):'SET RTITLE2' USERID SessionID ApplID 'SET RTITLE3 ' ======== ========= ========='REPORT GIVING(RPTFIL2) USING(EXTFIL2)(( ' &PIDXNAME' ' &PENTUSER' ' &PENTAPPL'))
Note that the REPORT steps are not mandatory, but it is usually beneficial to see a before and after listing.
You can do the same for USER records by using the corresponding USER variables.
EXTRACT GIVING(EXTFILE) USER AND MATCHING SESSIONS (UENTAPPL(TEST001A))SET RTITLE1 ' USER REPORT (BEFORE):'SET RTITLE2' USERID SessionID ApplID 'SET RTITLE3' ======== ========= ========='REPORT GIVING(RPTFILE) USING(EXTFILE)(( ' &UIDXNAME' ' &UENTUSER' ' &UENTAPPL'))UPDATE USING(EXTFILE) (UENTAPPL(TEST001B)) EXTRACT GIVING(EXTFIL2) USER AND MATCHING SESSIONS (UENTAPPL(TEST0---))SET RTITLE1' USER REPORT (AFTER):'SET RTITLE2' USERID SessionID ApplID 'SET RTITLE3 ' ======== ========= ========='REPORT GIVING(RPTFIL2) USING(EXTFIL2)(( ' &UIDXNAME' ' &UENTUSER' ' &UENTAPPL'))
JCL for these examples can be found in the attached file.