home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / bit / listserv / ibmmain / 3080 < prev    next >
Encoding:
Text File  |  1993-01-22  |  2.1 KB  |  60 lines
  1. Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
  2. Path: sparky!uunet!paladin.american.edu!auvm!TSCVM.BITNET!TECHGJS
  3. Return-Path: <@VM1.CC.UAKRON.EDU:IBM-MAIN@RUTVM1.BITNET>
  4. Message-ID: <IBM-MAIN%93012211422282@RUTVM1.RUTGERS.EDU>
  5. Newsgroups: bit.listserv.ibm-main
  6. Date:         Fri, 22 Jan 1993 11:32:04 EDT
  7. Sender:       IBM Mainframe Discussion list <IBM-MAIN@RICEVM1.BITNET>
  8. From:         "George Shedlock Jr." <TECHGJS@TSCVM.BITNET>
  9. Subject:      Re: VM to VSE jcl Punch, RDR hangs on VSE, Any Ideas ?
  10. In-Reply-To:  Message of Wed,
  11.               20 Jan 1993 22:22:27 EST from <HARRY@VM.MARIST.EDU>
  12. Lines: 46
  13.  
  14. >On Wed, 20 Jan 1993 13:43:12 GMT <SYSDMCKE@VM.UWP.EDU> said:
  15. >We have a VSE VAE running V=R under VM/ESA 1.1 ,  Our problems is that when
  16. >we punch JCL decks from VM to VSE, they either don't go through the virtual
  17. >rdr on VSE or they get all joined together !
  18. >If anyone has any ideas or needs more information, just let me know !
  19. >Thanks,
  20. >Doug McKeown
  21.  
  22. We are running VSE/ESA 1.2.2 under VM and have the following as part of
  23. our PROFILE EXEC for the VSE machine. I seem to recall having some of
  24. the types of problems that you are experiencing before we implemented
  25. this.
  26.  
  27.  
  28. /* PROFILE EXEC FOR VSE/ESA SYSTEMS    */
  29. 'CP SET RUN ON'
  30. 'CP SET IMSG OFF'
  31. NL = '15'X
  32. /* set up virtual CTCA links to RSCS for POWER networking */
  33. IF USERID()='VTAM' & USERON('ESADEV')
  34.     THEN 'CP COUPLE 800 ESADEV 800'
  35. IF USERID()='ESADEV' & USERON('VTAM')
  36.     THEN 'CP COUPLE 800 VTAM 800'
  37. 'CP SP FEE SYSTEM CL D'
  38. 'CP SP FEF SYSTEM CL F'
  39. 'CP SP 00D TO *'
  40. 'EXECIO 1 PUNCH ( STRING /&'   /* so that when PSTART RDR,00C  */
  41.                                /* is issued, we do not get     */
  42.                                /* intervention required on 00C */
  43.  
  44. 'CP CLOSE 00D'
  45. 'CP SPOOL 00D SYSTEM'
  46. IF USERID()='ESADEV' THEN DO
  47.     CD.1 = 'CP DEFINE STORAGE 16M'
  48.     CD.2 = 'TERM MODE VM CONMODE 3270 SCRN ON BRE GUEST'
  49.     CD.3 = 'CP SP 00C CL A CONT NOHOLD EOF'
  50.     CD.4 = 'IPL 230 CLEAR'
  51.     COM = CD.1 || NL || CD.2 || NL || CD.3 || NL || CD.4
  52.     END
  53. 'CP' COM
  54. Exit /* Just in case */
  55. UserOn:
  56. Arg TestID
  57. 'EXECIO 0 CP ( STRING Q' TestID
  58. IF RC^=0 THEN RETURN 0
  59. Return 1
  60.