TPX batch - example - how to change profile APPLIDs

Products

• TPX - Session Management

Issue/Introduction

 How can I to change an application's VTAM APPLID (or network name) from one value to another?

 

 

Resolution

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.