|
-----Original Message----- From: Mark Lazarus [SMTP:mlazarus@ttec.com] Sent: Thursday, March 12, 1998 7:01 AM To: Neil Palmer Subject: RE: *M36 passthru config Neil, At 10:18 PM 3/10/98 -0600, you wrote: >AS/400 >------ > Display Controller Description Thanks. >Let me know if you need ODF/SNADS info. If it's not too much trouble... -mark OK - this may not be exactly a complete SNADS/ODF36 setup (no guarantees I didn't miss something) , but you should be able to bluff your way after this. I've simplified my setup (which used a combination of modes #BATCH, #INTER and BLANK/*BLANK (BLANK on the AS/400 is *BLANK on the S/36) to use just *BLANK. AS/400 CFGDSTSRV #1 Display Details of Distribution Queue Queue . . . . . . . . . . . : NXT36A Queue type . . . . . . . . : *SNADS Remote location name . . . : NXT36A Mode . . . . . . . . . . . : BLANK Remote net ID . . . . . . . : *LOC Local location name . . . . : *LOC Normal priority: Send time: From/To . . . . . . . . : : : Force . . . . . . . . . : : Send depth . . . . . . . : 1 High priority: Send time: From/To . . . . . . . . : : : Force . . . . . . . . . : : Send depth . . . . . . . : 1 Number of retries . . . . . : 9999 Number of minutes between retries . . . . . : 10 To ignore time/depth values while receiving: Send queue . . . . . . . : Y Y=Yes, N=No CFGDSTSRV # 2 Display Details of Routing Table Entry Destination system name/Group . . . . . : NXT36A Description . . . . . : SSLTD400 *M36 NXT36A Service level: Fast: Queue name . . . . : NXT36A Maximum hops . . . : *DFT Status: Queue name . . . . : NXT36A Maximum hops . . . : *DFT Data high: Queue name . . . . : NXT36A Maximum hops . . . : *DFT Data low: Queue name . . . . : NXT36A Maximum hops . . . : *DFT WRKDIRE Display Directory Entry Details User ID/Address . . . . : *ANY NXT36A Description . . . . . . : Any userid on *M36 NXT36A System name/Group . . . : NXT36A User profile . . . . . : Network user ID . . . . : *ANY NXT36A Name: Last . . . . . . . . : Any userid on *M36 NXT36A First . . . . . . . . : Middle . . . . . . . : Preferred . . . . . . : Full . . . . . . . . : Any userid on *M36 NXT36A M36 Menu ODF36, #8 COMMAND ODF/36 Use Object Distribution Facility/36 Select one of the following: 1. Send an object 2. Work with arrived objects 3. Work with messages 4. Perform daily operations 5. Work with directory 6. Work with lists 7. Work with profiles 8. Set up or maintain ODF/36 functions COMMAND ODFMNT Set up or maintain Object Distribution Facility/36 functions Select one of the following: 1. Set up ODF/36 support files and folders 2. Maintain system defaults for ODF/36 3. Set up PS/36 (SNA/DS) support files and folders 4. Maintain system defaults for PS/36 (SNA/DS) 5 Maintain PS/36 (SNA/DS) communication queues 6. Maintain communications routes 7. Maintain remote destinations Basically run through the menus. Here are some sample default & profile screens I used: MAINTAIN ODF/36 DEFAULTS These values apply to everyone using ODF/36 on your System/36. Type choices, press Enter ITEM CHOICE POSSIBLE CHOICES System values: Object purge interval in days . . . 031 Maximum (10-180) Restrict ODFPROF procedure. . . . . 1 1=Yes 2=No User values: Automatically submit jobs?. . . . . 3 1=Yes 2=No 3=Match Automatically print spool files?. . 1 1=Yes 2=No Printer ID. . . . . . . . . . . . SYSTEM ID, SYSTEM Forms . . . . . . . . . . . . . . 0001 Copies. . . . . . . . . . . . . . 001 1-255 Priority. . . . . . . . . . . . . 2 0-5 Object arrival message? . . . . 1 1=Yes 2=No MAINTAIN DISTRIBUTION DEFAULTS These values apply to everyone using distribution function on your S/36. Type choices, press Enter. ITEM CHOICE POSSIBLE CHOICES System-wide values: Address . . . . . . NXT36A Used for distribution System . . . . . . NXT36A System name Distribution . . . . 1 1=Normal 2=Expedite MAINTAIN COMMUNICATIONS QUEUE DEFINITIONS All Type an option and press Enter, or use Cmd5 to add definitions Options: 2=Change 4=Delete REMOTE SESSION SEND SEND- RETRY PURGE OPTION LOCATION GROUP LENGTH RECEIVE INTERVAL INTERVAL SSLTD400 *BLANK 01 YES 0010 0000 CHANGE COMMUNICATIONS QUEUE DEFINITION Remote Location SSLTD400 Session Group *BLANK Type choices, press Enter ITEM CHOICE POSSIBLE CHOICES Send length . . . . . 01 To start transmission (0, 1-99) Send while receiving . . . . . . 1 1=Yes 2=No Retry interval . . . 0010 Minutes (1-9999) Purge interval . . . 0000 Hours (0, 1-9999) MAINTAIN COMMUNICATIONS ROUTES All Type an option and press Enter, or use Cmd5 to add routes Options: 2=Change 4=Delete QUEUE REMOTE SESSION OPTION SYSTEM PRIORITY LOCATION GROUP SSLTD400 2 SSLTD400 *BLANK 1 SSLTD400 *BLANK 0 SSLTD400 *BLANK MAINTAIN REMOTE DESTINATIONS To reposition list, type value and press Enter. Position list to . . . Starting character(s) of ADDRESS LIST OF REMOTE DESTINATIONS All Type option and press Enter, or use Cmd5 to add remote destinations. Options: 2=Change 4=Delete VM LIBRARY OPTION ADDRESS SYSTEM DESCRIPTION PROFS SERVICES SSLTD400 SSLTD400 Toronto AS/400 S10 "SSLTD400" NO NO CHANGE REMOTE DESTINATION Address SSLTD400 Type choices, press Enter. ITEM CHOICE POSSIBLE CHOICES System . . . . . . . . . . . SSLTD400 Description . . . . . . . . Toronto AS/400 S10 "SSLTD400" VM PROFS . . . . . . . . . . 2 1=Yes 2=No Distribution Manager . . . PROFS Distribution Manager name Library services . . . . . . 2 1=Yes 2=No Directory VIEW OR MAINTAIN NAMES SORTED BY USER ID To reposition list, type value and press Enter Position list to . . . Starting character(s) of USER ID LIST OF DIRECTORY ENTRIES All Type an option and press ENTER, or use Cmd5 to add entries Options: 2=Change details 4=Delete entry 5=View details AREA OPTION USER ID ADDRESS NAME CODE NUMBER NEIL Neil Palmer - NXT36A (local) PALMER SSLTD400 Neil Palmer - SSLTD400 VIEW DIRECTORY ENTRY DETAILS User ID NEIL Address Mailing Name Neil Palmer - NXT36A (local) Address line 1 *M36 NXT36A Address line 2 NxTrend Technology - Canada Address line 3 Address line 4 Name on alphabetic list NEIL PALMER (LOCAL) Company employee YES Receive distributions YES Telephone Country 1 Area or city code 999 Telephone number 5551212 Extension 238 Alternate number Location Department System name VIEW DIRECTORY ENTRY DETAILS User ID PALMER Address SSLTD400 Mailing Name Neil Palmer - SSLTD400 Address line 1 AS/400 "SSLTD400" Address line 2 NxTrend Technology - Canada Address line 3 Address line 4 Name on alphabetic list NEIL PALMER Company employee YES Receive distributions NO Telephone Country 1 Area or city code 999 Telephone number 5551212 Extension 238 Alternate number Location Department System name SSLTD400 Work with ODF/36 profiles Type choice, press Enter. Item Choice Possible choices User ID . . . . . . . . . . . . . NEIL Automatically submit jobs? . . . . 1 1=Yes 2=No 3=Match Arrived objects procedure name . . Library name . . . . . . . . . . . Run arrival procedure? . . . . . . 2 1=Yes 2=No Automatically print spool files? . 1 1=Yes 2=No Printer ID . . . . . . . . . . . . SYSTEM ID, SYSTEM Forms . . . . . . . . . . . . . . 0001 Copies . . . . . . . . . . . . . . 001 1-255 Priority . . . . . . . . . . . . . 2 0-5 Object arrival message? . . . . . 1 1=Yes 2=No And don't forget this for STRPASTHR/PASSTHRU if you have password security active on the S/36 side (the password IS blank, ie don't enter one: SECEDIT USERID W3 Optional-* Edit the user profiles in the user identification file Mode: Browse or Update - Key in changes and press Enter User ID . . . . . . . . . . . . . . . . . . . . . . . . . . . *NULL Password . . . . . . . . . . . . . . . . . . . . . . . . . . . Security classification . . . . . . . . . . . . . . M,S,O,C,D D Service aid authority ? . . . . . . . . . . . . . . . . . Y,N N Badge number . . . . . . . . . . . . . . . . 00000000-99999999 * Comment . . . . . . . . . . . . . . . . . . . . . AS/400 PASSTHRU * I changed the #STRTUP2 proc in the M36 to startup all this stuff: * #STRTUP2 * NON-DEDICATED STARTUP PROC RUN AT IPL * * IPL ODF/36 ODFIPL,#LIBRARY * * START ODF/36 BACKGROUND TASKS ODFSTART,#LIBRARY * * START PS/36 (SNA/DS) BACKGROUND TASKS OFCCTRL,#LIBRARY RESUME * // IFF ENABLED-',SSLTD400' ENABLE ILANSBS,#CNFGLIB,15,NOSHOW,SSLTD400 And my nightly AS/400 backup shuts it down with: SBMNETJOB FILE(QGPL/QCLSRC) TOUSRID((NEIL NXT36A)) + MBR(PWROFM36) PTY(*HIGH) /* Submit job to + machine NXT36A via SNADS */ Member PWROFM36 on AS/400 in QCLSRC contains: // PWROFM36 And on M36 procedure PWROFM36 in #LIBRARY contains: * PWROFM36 * POWER OFF M36 machine. Called from SAVALL & SAVNONRES. * This is so the M36 will end gracefully with a POWER OFF * command before the AS/400 Nightly Backup job SAVNONRES * forces the system down with an ENDM36 command. * We want the M36 ended for Nightly Backup so the M36 object * saved from library M36LIB on AS/400 will be usable for restore * (as it will be inactive when saved). * AS/400 Nightly Backup will restart M36 when library M36LIB * has been saved. * // IFF ?USER?=NEIL RETURN // MSG ALL,===>>> WARNING - S/36 Machine will POWER OFF in 2 minutes !! // WAIT INTERVAL-000130 // MSG ALL,****** FINAL WARNING - S/36 Machine will POWER OFF in 30 seconds !! ODFCANCL,#LIBRARY OFCCANCL,#LIBRARY // WAIT INTERVAL-000030 // POWER OFF After the AS/400 backup has saved library M36LIB (just the name I chose for library to contain *M36 objects) I run: /* V4R1M0 - Restart *M36 NXT36A after library M36LIB saved. */ STRM36 M36(M36LIB/NXT36A) APYM36CFG(M36LIB/NXT36A) MONMSG MSGID(CPFACA4) EXEC(DO) /* STRM36 not + allowed because of M36 status. */ SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('>>> + *M36 NXT36A was not in proper status to + save (not shut down). Signon to NXT36A + and check for messages at console, and in + HISTORY, to determine problem. Reference + message description for CPFACA4') + TOUSR(*SYSOPR) ENDDO Hope I caught everything ! :-) Neil Palmer AS/400~~~~~ NxTrend Technology - Canada ____________ ___ ~ Thornhill, Ontario, Canada |OOOOOOOOOO| ________ o|__||= Phone: (905) 731-9000 x238 |__________|_|______|_|______) Cell.: (416) 565-1682 x238 oo oo oo oo OOOo=o\ Fax: (905) 731-9202 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ mailto:NPalmer@NxTrend.com AS/400 The Ultimate Business Server http://www.NxTrend.com +--- | This is the Midrange System Mailing List! | To submit a new message, send your mail to MIDRANGE-L@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 +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.