One way I was playing around with the same thing is to write a simple program. This program would just provide the specifics based on how it was invoked. You won't be able to use ARS1 for both instances anyway.
File Edit Edit_Settings Menu Utilities Compilers Test Help
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
VIEW DSYS.OLTP.TEST.SOURCE(ARSRMDS) - 01.03 Columns 00001 00072
Command ===> Scroll ===> CSR
003100 003100 77 FILLER PIC X(27) VALUE 'ARSRMDS - WORKING STORAGE>'.
003200 003200 77 WK-REFRESH-INTERVAL PIC X(2) VALUE SPACES.
003210 003210 77 WS-OND32T-IP PIC X(25) VALUE 'ARS1 xx.xx.xx.xxx:4632'.
003220 003220 77 WS-OND32P-IP PIC X(25) VALUE 'ARS1 xx.xx.xx.xx:1445'.
- - - - - - - - - - - - - - - - - - - 19 Line(s) not Displayed
005510 005510 EVALUATE EIBTRNID
005600 005600 WHEN 'O32T'
005610 005610 EXEC CICS
005700 005700 RETURN
005800 005800 TRANSID('ARS1') INPUTMSG(WS-OND32T-IP)
005810 005810 IMMEDIATE
005900 005900 END-EXEC
005910 005910 WHEN 'O32P'
005920 005920 EXEC CICS
005930 005930 RETURN
005940 005940 TRANSID('ARS1') INPUTMSG(WS-OND32P-IP)
005941 005941 IMMEDIATE
005950 005950 END-EXEC
005951 005951 WHEN OTHER
