Re: RSCS<->z/OS question....
Many thanks to all those who responded to my queryI've got it working now. The list comes through again. ;-) DJ Roy, Bruce wrote: Dave, Here's the RSCS definition for our MVS link where 1C0 is the address of our CTCTA: LINKDEF XMVS TYPE NJE LINE 1C0 Q PRI DP 4 NOAST LINKDEF XMVS SLOWDOWN 9900 9500 PARM XMVS BUFF=3840 ST=1 TA=0 Here's an RSCS GCS EXEC for handling a vCTCA and starting the link: /**/ ADDRESS 'RSCS' 'CP DETACH 1C0' 'CP DEFINE CTCA 1C0' 'CP COUPLE 1C0 MVSTEST EC0' 'START XMVS' Here's an MVS EXEC that our CMS users use to send a JOB to MVS: /* This exec send a file to MVS as a job for execution. */ address 'COMMAND' parse upper arg fn ft fm . select when fn = '' then do /* No argument passed */ 'CP SPOOL PUNCH RSCS' /* Set PUNCH to send to RSCS */ 'CP TAG DEV PUNCH XMVS JOB' /* Set TAG values so file goes to MVS*/ exit rc /* Exit exec */ end when ft = '' then signal help /* Only one argument passed */ when fm = '' then fm = 'A' /* If filemode is not passed, set to A disk*/ otherwise nop end /* select */ 'CP SPOOL PUNCH RSCS' /* Set PUNCH to send to RSCS */ 'CP TAG DEV PUNCH XMVS JOB' /* Set TAG values so file goes to MVS */ 'PUNCH' fn ft fm '(NOHEADER' /* PUNCH job with NOHEADER option */ exit rc HELP: say 'The MVS EXEC will issue the following commands in order to send a job to' say 'MVS through RSCS:' say ' CP SPOOL PUNCH RSCS' say ' CP TAG DEV PUNCH XMVS JOB' say ' PUNCH fn ft fm (NOHEADER' say 'where fn ft fm is the filename, filetype, and filemode of the file.' Here's an MVSQ EXEC that's used to send commands to MVS (yes, it was written before we had REXX!): &TRACE OFF &A1 = &1 &IF .&A1 EQ .? &GOTO -TELL IDENTIFY (STACK LIFO &READ VARS &USERID &D &D &D &RSCS &IF .&A1 EQ . &A1 = &USERID &A = &PIECE OF &A1 1 1 &IF .&A EQ .$ &GOTO -FIX &A = $DJOBQ' &A = &CONCAT OF &A &A1 ' -SMSG &NODE = XMVS EXECIO * CP (STEM CPREP STRING TAG QUERY DEV PUN &IF &CPREP0 LT 2 &GOTO -BYNODE &N = &LOCATION OF JOB &CPREP2 &IF &N EQ 0 &GOTO -BYNODE &N = &N - 1 &NODE = &SUBSTR OF &CPREP2 1 &N -BYNODE CP SMSG &RSCS CMD &NODE &A &IF &RETCODE EQ -3 &TYPE Communications with MVS temporarily unavailable &EXIT -FIX &A = &A1 &GOTO -SMSG -TELL &TYPE The format for the MVSQ command is: &TYPE MVSQ jobname &TYPE (where the userid is used as the jobname if no name is given) &TYPE or &TYPE MVSQ command &TYPE (where 'command' is a JES2 command, preceded by a $) If you need the MVS end of the definitions, let me know and I'll contact our MVS colleague. I'm pretty sure that the MVS end does NOT use VTAM or the LINKDEF TYPE in the above definition would be SNANJE. Hope this helps. Bruce Roy University of Connecticut -Original Message- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of Dave Jones Sent: Thursday, April 20, 2006 2:19 PM To: IBMVM@LISTSERV.UARK.EDU Subject: RSCS<->z/OS question Hi, Gang I have a problem I'm hoping somebody on this list can assist me with. I need to configure an NJE connection between a first level RSCS server and a 2nd level z/OS guest. The client wants to be able to submit z/OS batch type jobs from CMS user id on the 1st level VM system to the 2nd level z/OS one, and get the prt/pun output back to the CMS user. I have a virtual CTC connection set up between VM and z/OS already, and z/OS can see the CTC, vary it online, etc. What I am missing are the RSCS and JES2 (I think, or maybe I need to use VTAM?) line configuration statements. Does anyone have a set of working examples they would be willing to share? TIA. Have a good one. DJ
Re: RSCS<->z/OS question....
Dave, Here's the RSCS definition for our MVS link where 1C0 is the address of our CTCTA: LINKDEF XMVS TYPE NJE LINE 1C0 Q PRI DP 4 NOAST LINKDEF XMVS SLOWDOWN 9900 9500 PARM XMVS BUFF=3840 ST=1 TA=0 Here's an RSCS GCS EXEC for handling a vCTCA and starting the link: /**/ ADDRESS 'RSCS' 'CP DETACH 1C0' 'CP DEFINE CTCA 1C0' 'CP COUPLE 1C0 MVSTEST EC0' 'START XMVS' Here's an MVS EXEC that our CMS users use to send a JOB to MVS: /* This exec send a file to MVS as a job for execution. */ address 'COMMAND' parse upper arg fn ft fm . select when fn = '' then do /* No argument passed */ 'CP SPOOL PUNCH RSCS' /* Set PUNCH to send to RSCS */ 'CP TAG DEV PUNCH XMVS JOB' /* Set TAG values so file goes to MVS*/ exit rc /* Exit exec */ end when ft = '' then signal help /* Only one argument passed */ when fm = '' then fm = 'A' /* If filemode is not passed, set to A disk*/ otherwise nop end /* select */ 'CP SPOOL PUNCH RSCS' /* Set PUNCH to send to RSCS */ 'CP TAG DEV PUNCH XMVS JOB' /* Set TAG values so file goes to MVS */ 'PUNCH' fn ft fm '(NOHEADER' /* PUNCH job with NOHEADER option */ exit rc HELP: say 'The MVS EXEC will issue the following commands in order to send a job to' say 'MVS through RSCS:' say ' CP SPOOL PUNCH RSCS' say ' CP TAG DEV PUNCH XMVS JOB' say ' PUNCH fn ft fm (NOHEADER' say 'where fn ft fm is the filename, filetype, and filemode of the file.' Here's an MVSQ EXEC that's used to send commands to MVS (yes, it was written before we had REXX!): &TRACE OFF &A1 = &1 &IF .&A1 EQ .? &GOTO -TELL IDENTIFY (STACK LIFO &READ VARS &USERID &D &D &D &RSCS &IF .&A1 EQ . &A1 = &USERID &A = &PIECE OF &A1 1 1 &IF .&A EQ .$ &GOTO -FIX &A = $DJOBQ' &A = &CONCAT OF &A &A1 ' -SMSG &NODE = XMVS EXECIO * CP (STEM CPREP STRING TAG QUERY DEV PUN &IF &CPREP0 LT 2 &GOTO -BYNODE &N = &LOCATION OF JOB &CPREP2 &IF &N EQ 0 &GOTO -BYNODE &N = &N - 1 &NODE = &SUBSTR OF &CPREP2 1 &N -BYNODE CP SMSG &RSCS CMD &NODE &A &IF &RETCODE EQ -3 &TYPE Communications with MVS temporarily unavailable &EXIT -FIX &A = &A1 &GOTO -SMSG -TELL &TYPE The format for the MVSQ command is: &TYPE MVSQ jobname &TYPE (where the userid is used as the jobname if no name is given) &TYPE or &TYPE MVSQ command &TYPE (where 'command' is a JES2 command, preceded by a $) If you need the MVS end of the definitions, let me know and I'll contact our MVS colleague. I'm pretty sure that the MVS end does NOT use VTAM or the LINKDEF TYPE in the above definition would be SNANJE. Hope this helps. Bruce Roy University of Connecticut -Original Message- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of Dave Jones Sent: Thursday, April 20, 2006 2:19 PM To: IBMVM@LISTSERV.UARK.EDU Subject: RSCS<->z/OS question Hi, Gang I have a problem I'm hoping somebody on this list can assist me with. I need to configure an NJE connection between a first level RSCS server and a 2nd level z/OS guest. The client wants to be able to submit z/OS batch type jobs from CMS user id on the 1st level VM system to the 2nd level z/OS one, and get the prt/pun output back to the CMS user. I have a virtual CTC connection set up between VM and z/OS already, and z/OS can see the CTC, vary it online, etc. What I am missing are the RSCS and JES2 (I think, or maybe I need to use VTAM?) line configuration statements. Does anyone have a set of working examples they would be willing to share? TIA. Have a good one. DJ
Re: RSCS<->z/OS question....
David Boyes wrote: > For JES, you need to do the JES gen with the NJE node name > set, and provide a routing table that identifies the link and > the destinations beyond that link. You then need a DEST= parm > on the output DD cards (or a ROUTE card somewhere in the deck > to send output to the appropriate (node, userid) combination. It's particularly important to make sure that the JES2 path manager is not turned on for your RSCS link. You need PATHMGR=NO on the NODE def in JES2, and then one or more CONNECT statements to define the static connection between JES2 and RSCS, and any ROUTEs that RSCS may have. Tony H.
Re: RSCS<->z/OS question....
Redbook GG22-9339 (NJE and JES2 Implementation) is what you're looking for. I can't find it on the redbooks site, but I think I may have a Bookie copy in addition to my paper copy. At a high-level: For RSCS, you need a TYPE NJE link with ADDR=vaddr of the VCTC to the JES system. Since you are on the system which has a direct connection, you don't need any ROUTE statements. Note that TA0 and TA1 are the only supported transmission algorithms unless you are talking to a VERY modern JES. For JES, you need to do the JES gen with the NJE node name set, and provide a routing table that identifies the link and the destinations beyond that link. You then need a DEST= parm on the output DD cards (or a ROUTE card somewhere in the deck to send output to the appropriate (node, userid) combination. JES3 is a whole other animal. Don't know about that one. David Boyes Sine Nomine Associates
Re: RSCS<->z/OS question....
Dave, What you are trying to do with virtual CTCs, I have done with EMIF'ed real CTCs across LPARs. It should be the same - YES?? Here are my RSCS and JES2 configuration data for the NJE definitions. The RSCS system runs in LPAR2 (my naming convention is System-ID, System-configuration and LPAR number - thus System "Z" running in "S"-ingle image mode and LPAR 2 becomes ZS02). So, RSCS running first level under z/VM in LPAR 2 is named ZS02RSCS. The JES 2 file came from LPAR 3. RSCS (LPAR 2): * * Link Virt Spool Keep Queue LOGMODE Aut * Linkid Type Addr * Class Slot Type DP LUNAME Name Sta * - - - -- --- LINKDEFINE ZS01JES2 AST CL * DP 5 LINE 0F15 TYPE NJE NODE ZS01JES2 LINKDEFINE ZS03JES2 AST CL * DP 5 LINE 0F3B TYPE NJE NODE ZS03JES2 * JES 2 (LPAR 3): NJEDEF NODENUM=16,/* MAX NUMBER OF NODES */ RESTNODE=100, /* DEFAULT */ LINENUM=10,/* NUMBER OF LINES */ JTNUM=2, /* DEFAULT */ JRNUM=2, /* DEFAULT */ SRNUM=2, /* DEFAULT */ STNUM=2, /* DEFAULT */ PATH=2,/* DEFAULT */ OWNNODE=1 SMFDEF BUFNUM=10 /* */ /* NJE PARAMETERS*/ /* CTCA NJE */ /* */ NODE(1) NAME=ZS03JES2,AUTH=(NET=YES) NODE(3) NAME=ZS01JES2 /* Z/800 Z/OS LPAR - 1 */ NODE(2) NAME=ZS02RSCS,PATHMGR=NO /* Z/800 Z/VM LPAR - 2 */ /* */ DESTID(ZS01) DEST=ZS01JES2 DESTID(ZS02) DEST=ZS02RSCS DESTID(ZS03) DEST=OWNODE /* */ CONNECT NODEA=ZS01JES2,MEMBA=1,NODEB=ZS02RSCS,MEMBB=1,REST=100 APPL(ZS03JES2) COMPACT=0,NODE=1 APPL(ZS01JES2) COMPACT=0,NODE=2 APPL(ZS02RSCS) COMPACT=0,NODE=3 /* LINE1 UNIT=303,REST=20,TRANSPAR=YES */ LINE(1) UNIT=SNA LINE(2) UNIT=F25,REST=20,TRANSPAR=YES LINE(3) UNIT=SNA LINE(5) UNIT=SNA LINE(6) UNIT=SNA LINE(7) UNIT=SNA LOGON1 APPLID=ZS03JES2 /*END OF NJE PARMS */ Hope this helps. Any questions, feel free to call or e-mail. HITACHI DATA SYSTEMS Raymond E. Noal Lab Manager, San Diego Facility Office: (858) 537 - 3268 Cell: (858) 248 - 1172 -Original Message- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of Dave Jones Sent: Thursday, April 20, 2006 11:19 AM To: IBMVM@LISTSERV.UARK.EDU Subject: RSCS<->z/OS question Hi, Gang I have a problem I'm hoping somebody on this list can assist me with. I need to configure an NJE connection between a first level RSCS server and a 2nd level z/OS guest. The client wants to be able to submit z/OS batch type jobs from CMS user id on the 1st level VM system to the 2nd level z/OS
Re: RSCS<->z/OS question....
I can't help with the JES side. We have a CTC between 2 VM's. the LINKDEF in RSCS CONFIG on one side is: LINKDEF VM4 TYPE NJE LINE 92D0 NODE VM4 AST RETRY Regards, Richard Schuh -Original Message- From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of Dave Jones Sent: Thursday, April 20, 2006 11:19 AM To: IBMVM@LISTSERV.UARK.EDU Subject: RSCS<->z/OS question Hi, Gang I have a problem I'm hoping somebody on this list can assist me with. I need to configure an NJE connection between a first level RSCS server and a 2nd level z/OS guest. The client wants to be able to submit z/OS batch type jobs from CMS user id on the 1st level VM system to the 2nd level z/OS one, and get the prt/pun output back to the CMS user. I have a virtual CTC connection set up between VM and z/OS already, and z/OS can see the CTC, vary it online, etc. What I am missing are the RSCS and JES2 (I think, or maybe I need to use VTAM?) line configuration statements. Does anyone have a set of working examples they would be willing to share? TIA. Have a good one. DJ
RSCS<->z/OS question....
Hi, Gang I have a problem I'm hoping somebody on this list can assist me with. I need to configure an NJE connection between a first level RSCS server and a 2nd level z/OS guest. The client wants to be able to submit z/OS batch type jobs from CMS user id on the 1st level VM system to the 2nd level z/OS one, and get the prt/pun output back to the CMS user. I have a virtual CTC connection set up between VM and z/OS already, and z/OS can see the CTC, vary it online, etc. What I am missing are the RSCS and JES2 (I think, or maybe I need to use VTAM?) line configuration statements. Does anyone have a set of working examples they would be willing to share? TIA. Have a good one. DJ
