Re: SNADS setup

[Rob Berendt <rob@xxxxxxxxx>]

From a token ring perspective.  Two systems:  GDISYS, and PVC400.  New system 
was PVC400.  This is part of a CLP that I used to use to setup new 400's
...
CHGNETA    SYSNAME(PVC400) LCLNETID(GDI1) +        
             LCLCPNAME(PVC400) LCLLOCNAME(PVC400) +
             NODETYPE(*ENDNODE) MAXINTSSN(256)     
...
IPL

From second CLP:
...
ADDDSTQ    DSTQ(GDISYSQ  ) RMTLOCNAME(GDISYS  ) MODE(#BATCH)  
ADDDSTQ    DSTQ(GDISYSDL ) RMTLOCNAME(GDISYS  ) DSTQTYPE(*DLS)
...
ADDDSTRTE  SYSNAME(GDISYS) FAST(GDISYSQ) +      
             STATUS(GDISYSQ) DATAHIGH(GDISYSQ) +
             DATALOW(GDISYSQ)                   
...
/* Now we are creating the list of systems and how to get there,      -
   blazing the trail you might say */                                  
                                                                       
CRTCFGL    TYPE(*APPNRMT) TEXT('List of remote locations') APPNRMTE(  +
 (GDISYS   *NETATR *NETATR GDISYS *NETATR *NONE *YES)         +        
 ) AUT(*ALL)                                                           
...
ADDDIRE USRID(*ANY GDISYS  ) USRD('*ANY on GDISYS  ') SYSNAME(GDISYS  )
...
/* We changed the SSAP's on 9/18/96.  Used to be *SYSGEN.  *SYSGEN  + 
   created 04, 06, AA, DC, C8, (I believe).  We added 12, 16 and 1A + 
   to support printers that attach via direct token ring.           */
...
CRTLINTRN  LIND(LANLIN) RSRCNAME(LIN021) ONLINE(*NO) +  
             MAXCTL(256) LINESPEED(16M) MAXFRAME(8201) +
             ADPTADR(400052400000) EXCHID(05652400) +   
             SSAP((04 *MAXFRAME *SNA) (06 *MAXFRAME +   
             *NONSNA) (AA *MAXFRAME *NONSNA) (DC +      
             *MAXFRAME *NONSNA) (C8 *MAXFRAME *NONSNA) +
             (12 *MAXFRAME *NONSNA) (16 *MAXFRAME +     
             *NONSNA) (1A *MAXFRAME *NONSNA)) +         
             TEXT('Token ring line') LINKSPEED(16M) +   
             AUTOCRTCTL(*YES) AUT(*ALL)                 
...
CHGCMDDFT CMD(CRTCTLAPPC) NEWDFT('MAXFRAME(265)')                    
                                                                     
             CRTCTLAPPC CTLD(LANGDISYS) LINKTYPE(*LAN) +             
                          SWTLINLST(LANLIN) RMTCPNAME(GDISYS) +      
                          EXCHID(05637440) /* See line desc of remote system */ 
+
                          ADPTADR(400037440000)    /* See line desc of remote 
system */ +
                          NODETYPE(*NETNODE) AUTODLTDEV(*NO) +       
                          LANFRMRTY(10) LANCNNRTY(10) LANRSPTMR(60) +
                          LANCNNTMR(70) LANACKTMR(8) +               
                          LANINACTMR(255) LANACKFRQ(1) LANMAXOUT(2) +
                          AUT(*ALL)                                  
...
/* The rest is not applicable to your problem Wayne */
ADDRDBDIRE RDB(PVC400) RMTLOCNAME(*N *IP)
ADDRDBDIRE RDB(GDISYS  ) RMTLOCNAME(GDISYS *IP )
...
/* Links for QFileSvr.400 under the Integrated File System. */
MD DIR('/QFileSvr.400/GDISYS  ')                              
...


Do this for both systems.

Now, try automating all of this with Op's Nav!  Frankly I think
this is why we have such low unemployement.  Everyone has had
to hire an army of workers to click on icons.









wayne@redoaktech.com on 04/06/2000 11:52:55 AM
Please respond to MIDRANGE-L@midrange.com@Internet
To:     MIDRANGE-L@midrange.com@Internet
cc:      
Fax to: 
Subject:        SNADS setup

Hi all,

I'm having a severe mental lapse.  I would like to copy several
libraries from one AS400 to another that are connected with TCP/IP. 
Both machines are in the same room but have different tape media.  One
machine is running V4R2 and the other is at V4R1. I think I want to save
the libs to save files and use SNADS to transfer these files.  Then I
can restore on the destination machine.  Here's the mental part.

SNADS is not set up on either machine and its been way too long for me
to remember how.  Please direct me to the AS400 book that give me step
by step instructions for setting up the definitions and directory
entries and transferring the libs.  I've spent all morning looking thru
the IBM Online library with very little to show for it. 

Thanks

Wayne
-- 
______________________________________
Wayne W. Capwell
Red Oak Technologies, Inc.
11301 Carmel Commons Blvd., Suite 114   
Charlotte, NC  28226
704-945-1067

Manufacturing...Production...Solutions
     http://www.redoaktech.com/
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---