Re: Data Transfer

[Jim Oberholtzer <midrangel@xxxxxxxxxxxxxxxxx>]

Ah, you may have missed the restriction number 4 in the documentation, 
"Both systems intended to participate int he save and restore operation 
must be connected to the same APPN network"

That requires the network attributes to be set correctly (my even 
require an IPL) and come communication lines and devices.  Even I can 
set it up so it does not take genius to do, but must be done correctly. So:

Network attributes:
System name:                      mysystem
Local Location name:              mysystem
Default Local Location:           mysystem
Nodetype:                         *NETNODE
Allow Any net:                    *NO
Allow APPN Virtual Support:       *YES
Allow HPR Transport               *YES
Virtual Controllers Auto Create:  100   ( I usually use 100, set to taste )
I set the country ID as well:     US

These are the target controllers
Controllers:
 CRTCTLAPPC CTLD(ENTERPRISE)
            LINKTYPE(*VRTAPPN)
            AUTODLTDEV(10000)
            TEXT('Enterprise Extender Controller')
 CRTDEVAPPC DEVD(mysystem)
            RMTLOCNAME(mysystem)
            CTL(ENTERPRISE)
            TEXT('Device for HPRIP to mysystem')
 CRTCTLAPPC CTLD(V7R1PROD) LINKTYPE(*HPRIP)
              RMTINTNETA('###.###.###.###')
              LCLINTNETA(###.###.###.###) RMTNETID(APPN)
              RMTCPNAME(mysystem) CPSSN(*YES)
              NODETYPE(*NETNODE) BEXROLE(*NETNODE)
              TMSGRPNBR(1) TEXT('Connection to mysystem')

You need the controllers on both sides of the transaction.

That's enough to get you started.  BTW if this looks a bit familiar to 
Larry Bolhuis, he wrote it, I just plagiarized it.




Jim Oberholtzer
Chief Technical Architect
Agile Technology Architects


On 9/6/2013 8:01 AM, Don Wereschuk wrote:
> It appears that the SAVRSTOBJ is the best solution.(Thanks to all who suggested this) I tried to run a test and got an error on the transfer :
>
> 	SAVRSTOBJ OBJ(A*) LIB(MYLIB) RMTLOCNAME(MYLOCNAME) OBJTYPE(*FILE) SAVACT(*LIB)
> 	 ACCPTH(*YES) MBROPT(*ALL) ALWOBJDIF(*ALL) RSTLIB(SPSL)
>
> 	Route to specified location not found.
>
> 	An error occurred during the SAVRSTOBJ operation.
>
> We changed the location name using CHGNETA to be MYLOCNAME but this didn't seem to help. Does anyone know if I have to IPL for this to take effect or is there something else I have to do here?