Yes the controllers are *APPC but the entire enterprise configuration runs
on TCP, so while there are remnants of the SNA architecture, it's really a
TCP application.
Heer is a program to create the devices. You need to run it on both source
and target, then vary on the *APPC controllers.
Source System.
Check network attributes to make sure HPR is allowed. Do this on all
systems:
CHGNETA ALWHPRTWR(*YES) VRTAUTODEV(100)
Make note of the System Names, Local Network ID and Default local Location
names. Most systems look something like:
Current system name . . . . . . . . . . . . . . : PRIMARY
Pending system name . . . . . . . . . . . . . :
Local network ID . . . . . . . . . . . . . . . . : APPN
Local control point name . . . . . . . . . . . . : PRIMARY
Default local location . . . . . . . . . . . . . : PRIMARY
The local control point name and current system name are used below.
Program to create *APPC Controllers:
PGM
DCL &LCLADDR *CHAR LEN(15)
DCL &RMTNAME *CHAR LEN(10)
DCL &RMTADDR *CHAR LEN(15)
CHGVAR &LCLADDR VALUE('172.031.002.001')
CRTCTLAPPC CTLD(ENTERPRISE) LINKTYPE(*VRTAPPN) ONLINE(*YES) +
AUTODLTDEV(10000) MSGQ(*SYSVAL) +
TEXT('Enterprise Extender Controller')
CHGVAR &RMTNAME VALUE('TARGETBOX')
CHGVAR &RMTADDR VALUE('172.031.002.003')
CALLSUBR CRTDEV
/* Repeat the previous three lines for each of the target systems. */
/* Critically, use all three numbers in the remote address in each octet.
*/
SUBR SUBR(CRTDEV)
CRTDEVAPPC DEVD(&RMTNAME) LOCADR(00) RMTLOCNAME(&RMTNAME) +
ONLINE(*YES) LCLLOCNAME(*NETATR) RMTNETID(*NETATR) +
CTL(ENTERPRISE) MODE(*NETATR) MSGQ(*CTLD) APPN(*YES) +
SNGSSN(*NO) TEXT('Device for HPRIP')
CRTCTLAPPC CTLD(&RMTNAME) LINKTYPE(*HPRIP) ONLINE(*YES) APPN(*YES) +
RMTINTNETA(&RMTADDR) LCLINTNETA(&LCLADDR) +
LDLCTMR(3 15 10) LDLCLNKSPD(*CAMPUS) CODE(*EBCDIC) +
MAXFRAME(1461) RMTNETID(APPN) RMTCPNAME(&RMTNAME) +
ROLE(*NEG) AUTOCRTDEV(*ALL) CMNRCYLMT(2 5) MSGQ(*SYSVAL) +
TEXT('HPRIP Connection')
ENDSUBR
ENDPGM: ENDPGM
On the target:
PGM
DCL &LCLADDR *CHAR LEN(15)
DCL &RMTNAME *CHAR LEN(10)
DCL &RMTADDR *CHAR LEN(15)
/* Note change of IP addresses..... */
CHGVAR &LCLADDR VALUE('172.031.002.003')
CRTCTLAPPC CTLD(ENTERPRISE) LINKTYPE(*VRTAPPN) ONLINE(*YES) +
AUTODLTDEV(10000) MSGQ(*SYSVAL) +
TEXT('Enterprise Extender Controller')
CHGVAR &RMTNAME VALUE('SOURCEBOX')
CHGVAR &RMTADDR VALUE('172.031.002.001')
CALLSUBR CRTDEV
/* Repeat the previous three lines for each of the target systems. */
/* Critically, use all three numbers in the remote address in each octet.
*/
SUBR SUBR(CRTDEV)
CRTDEVAPPC DEVD(&RMTNAME) LOCADR(00) RMTLOCNAME(&RMTNAME) +
ONLINE(*YES) LCLLOCNAME(*NETATR) RMTNETID(*NETATR) +
CTL(ENTERPRISE) MODE(*NETATR) MSGQ(*CTLD) APPN(*YES) +
SNGSSN(*NO) TEXT('Device for HPRIP')
CRTCTLAPPC CTLD(&RMTNAME) LINKTYPE(*HPRIP) ONLINE(*YES) APPN(*YES) +
RMTINTNETA(&RMTADDR) LCLINTNETA(&LCLADDR) +
LDLCTMR(3 15 10) LDLCLNKSPD(*CAMPUS) CODE(*EBCDIC) +
MAXFRAME(1461) RMTNETID(APPN) RMTCPNAME(&RMTNAME) +
ROLE(*NEG) AUTOCRTDEV(*ALL) CMNRCYLMT(2 5) MSGQ(*SYSVAL) +
TEXT('HPRIP Connection')
ENDSUBR
ENDPGM: ENDPGM
Assuming everything runs properly you can now use:
STRPASTHR
SAVRST*
--
Jim Oberholtzer
Chief Technical Architect
Agile Technology Architects
On Sat, Jul 8, 2023 at 8:07 AM Evan Harris <auctionitis@xxxxxxxxx> wrote:
Why do you say they are unrelated? you need SNADS running/configured to use
SAVRST
Nowadays it might be as simple as having the HPRIP controllers configured
On Sun, Jul 9, 2023 at 12:55 AM Patrik Schindler <poc@xxxxxxxxxx> wrote:
Hello Evan,
Am 07.07.2023 um 23:04 schrieb Evan Harris <auctionitis@xxxxxxxxx>:
I've always had a bit of a soft spot for SNADS because I like the
functionality of the SAVRST* commands:
SNADS and SAVRST* are completely unrelated. May I kindly ask you to
elaborate where how you relate those two?
:wq! PoC
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.
--
Regards
Evan Harris
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.
midrange.com
