TPX batch - example - how to change profile APPLIDs

Document ID : KB000054569
Last Modified Date : 14/02/2018
Show Technical Document Details

Description

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

Solution

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.

File Attachments:
TEC477047.zip