Dave, Here's the RSCS definition for our MVS link where 1C0 is the address of our CTCTA:
LINKDEF XXXXXMVS TYPE NJE LINE 1C0 Q PRI DP 4 NOAST LINKDEF XXXXXMVS SLOWDOWN 9900 9500 PARM XXXXXMVS 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 XXXXXMVS' 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 XXXXXMVS 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 XXXXXMVS 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 XXXXXMVS 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 = XXXXXMVS 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: [email protected] 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
