How to run Endevor Under Roscoe BTSO? Is there a Sample RPF?
Article ID: 25091
Updated On:
Products
Roscoe
Issue/Introduction
Can you run Endevor under Roscoe/BTSO?
Environment
Release:
Component: ROSCOE
Component: ROSCOE
Resolution
Here is a sample working RPF for Running Endevor under Roscoe BTSO. Put RPF this in your CA Roscoe RPF library.Customize this RPF for your environment:
000001<<BTSOENDV>> 000002 :*-------------------------------------------------------------------* 000003 :* CA-ROSCOE BTSO FACILITY * 000004 :* * 000005 :* This RPF creates the BTSO job stream and calls RTBETSO to * 000006 :* invoke BTSO. This RPF is distributed as a sample only. * 000007 :*-------------------------------------------------------------------* 000008 PUSH : Save user session settings 000009 SET ATTACH NOPAUSE : Put us in NOPAUSE mode 000010 TRAP ON 000011 CREATE AWS TEMP LEVEL NONRECOVERABLE : Create a temp workspace 000012 TRAP OFF 000013 IF (S.TC NE 0) : Create failed 000014 RESPONSE 'JOB004 UNABLE TO CREATE TEMP AWS FOR BTSO PROCESSING' 000015 GOTO <<RETURN>> 000016 ENDIF 000017 :*-------------------------------------------------------------------* 000018 :* Write job stream to AWS (job card is taken from BTSOJOBC) * 000019 :*-------------------------------------------------------------------* 000020 COPY BTSOJOBC R : Get job card 000021 WRITE AWS B : Now add appl specific code 000022 '//$$$$$$@ EXEC PGM=ISPSTART(CP),REGION=7M' 000023 '//STEPLIB DD DSN=xxxxxx.RO60.RO60LIB,DISP=SHR' 000024 '// DD DISP=SHR,DSN=your.endevor.user.AUTHLIB' 000025 '// DD DISP=SHR,DSN=your.endevor.AUTHLIB' 000026 '// DD DISP=SHR,DSN=your.endevor.CONLIB' 000027 '//*' 000028 '//RES DD DSN=SYSx.LINKLIB,DISP=SHR' 000029 '//LIB DD DSN=SYSx.LINKLIB,DISP=SHR' 000030 '//SYSHELP DD DISP=SHR,UNIT=3390,VOL=REF=*.LIB,DSN=SYSx.HELP' 000031 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.RES,DSN=SYSx.HELP' 000032 '// DD DISP=SHR,DSN=hlq.mlq.TSOHELP' 000033 '//SYSPROC DD DISP=SHR,DSN=your.endevor.SOURCE' 000034 '// DD DISP=SHR,DSN=your.ROSCOE.BTSO.CLIST' 000035 '// DD DISP=SHR,DSN=SYSx.CLIST' 000036 '// DD DISP=SHR,DSN=your.endevor.ISRCLIB' 000038 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.LIB,DSN=SYSx.CLIST' 000039 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.RES,DSN=ISP.SISPCLIB' 000040 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.RES,DSN=GIM.SGIMCLS0' 000041 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.RES,DSN=SYSx.SBLSCLI0' 000042 '// DD DISP=SHR,DSN=hlq.mlq.SPFCLIST' 000043 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.RES,DSN=SYSx.SERBCLS' 000044 '//ISPPLIB DD DISP=SHR,DSN=hlq.mlq.SOURCE' 000046 '// DD DISP=SHR,DSN=your.endevor.ISPPLIB' 000047 '// DD DISP=SHR,DSN=your.ROSCOE.BTSO.ISPPLIB' 000048 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.LIB,DSN=SYSs.ISPPLIB' 000049 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.RES,DSN=ISP.SISPPENU' 000050 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.RES,DSN=ISF.SISFPLIB' 000051 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.RES,DSN=GIM.SGIMPENU' 000052 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.RES,DSN=SYSx.SBLSPNL0' 000053 '// DD DISP=SHR,DSN=hlq.mlq.PANEL' 000054 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.LIB,' 000055 '// DSN=hlq.mlq.ISPPLIB' 000056 '//ISPMLIB DD DISP=SHR,DSN=hlq.mlq.SOURCE' 000057 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.LIB,DSN=SYSx.ISPMLIB' 000058 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.RES,DSN=ISP.SISPMENU' 000059 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.RES,DSN=ISF.SISFMLIB' 000060 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.RES,DSN=GIM.SGIMMENU' 000061 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.RES,DSN=SYSx.SBLSMSG0' 000062 '// DD DISP=SHR,DSN=hlq.mlq.MESSAGE' 000063 '// DD DISP=SHR,DSN=your.endevor.ISPMLIB' 000064 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.LIB,' 000065 '// DSN=hlq.mlq.ISPMLIB' 000066 '//MOROCCO DD DUMMY' 000067 '//ISPTLIB DD DISP=SHR,DSN=hlq.mlq.SOURCE' 000068 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.LIB,DSN=SYSx.ISPTLIB' 000069 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.RES,DSN=ISP.SISPTENU' 000070 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.RES,DSN=ISF.SISFTLIB' 000071 '// DD DISP=SHR,DSN=your.endevor.ISPTLIB' 000072 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.RES,DSN=GIM.SGIMTENU' 000073 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.RES,DSN=SYSx.SBLSTBL0' 000074 '//* DD DISP=SHR,UNIT=3390,VOL=REF=*.LIB,' 000075 '//* DSN=hlq.mlq.ISPFLIB' 000076 '// DD DISP=SHR,DSN=hlq.mlq.SPFTABLE' 000077 '// DD DISP=SHR,UNIT=3380,VOL=REF=*.LIB,' 000078 '// DSN=hlq.mlq.ISPFLIB' 000079 '//ISPSLIB DD DISP=SHR,DSN=hlq.mlq.SOURCE' 000080 '// DD DISP=SHR,DSN=your.endevor.ISPSLIB' 000081 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.LIB,DSN=SYSx.ISPSLIB' 000082 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.RES,DSN=ISP.SISPSENU' 000083 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.RES,DSN=ISP.SISPSLIB' 000084 '// DD DISP=SHR,UNIT=3390,VOL=REF=*.RES,DSN=GIM.SGIMSENU' 000085 '// DD DISP=SHR,DSN=hlq.mlq.SKELETON' 000086 '//ISPLLIB DD DISP=SHR,DSN=hlq.BKMGR.VxRx.SEOYLOAD' 000087 '//EDCHKDD DD DISP=SHR,DSN=hlq.JCLCHKvv.PPOPTION($PROCLIB)' 000088 '//SYSTCPD DD DISP=SHR,DSN=VTAM.TCPIP.TCPIP.DATA' 000089 '//* FOLLOWING DATASET NOT FOUND - COMMENT OUT, USE ONE BELOW IT' 000090 '//*ISPPROF DD DISP=SHR,DSN=ROSCOE.'|TRIM(S.KEY 8)|'.ISPF.ISPPROFA' 000091 '//ISPPROF DD DISP=SHR,DSN=your.roscoe.ISPF.ISPPROFA' 000092 '//APIMSGS DD TERM=TS,SYSOUT=*' 000093 '//SYSPRINT DD SYSOUT=(*,TERM)' 000094 '//SYSTERM DD SYSOUT=(*,TERM)' 000095 '//SYSOUT DD SYSOUT=(*,TERM)' 000096 '//*SYSUDUMP DD SYSOUT=D,HOLD=YES,FREE=CLOSE' 000097 '//*EN$TRAUI DD SYSOUT=*' 000098 '//BSTERR DD SYSOUT=*' 000099 '//EXT3RDR1 DD SYSOUT=(B,INTRDR)' 000100 '//*' 000101 ENDWRITE 000102 :*-------------------------------------------------------------------* 000103 :* At this point the job stream is in the AWS, code may be added * 000104 :* to make any final modifications to the JCL... * 000105 :*-------------------------------------------------------------------*
000106 :*-------------------------------------------------------------------*
000107 :* Invoke BTSO by allocating JCL DD to the AWS and calling RTBETSO *
000108 :*-------------------------------------------------------------------*
000109 ALLOC JCL AWS 000110 +call rtbetso |+A1+| 000111don FREE JCL
Feedback
Yes
No
Powered by
