How to run Endevor Under Roscoe BTSO? Is there a Sample RPF?

Document ID : KB000025091
Last Modified Date : 14/02/2018
Show Technical Document Details

Question: 

Here is a sample working RPF for Running Endevor under Roscoe BTSO. Put RPF this in your CA Roscoe RPF library.

Answer: 

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=ROSCOE.RO60.RO60LIB,DISP=SHR'
000024 '//          DD DISP=SHR,DSN=PUBLIC.P5706.AUTHLIB'
000025 '//          DD DISP=SHR,DSN=BST.SE1200.AUTHLIB'
000026 '//          DD DISP=SHR,DSN=BST.SE1200.CONLIB'
000027 '//*'
000028 '//RES      DD  DSN=SYS1.LINKLIB,DISP=SHR'
000029 '//LIB      DD  DSN=SYS2.LINKLIB,DISP=SHR'
000030 '//SYSHELP  DD  DISP=SHR,UNIT=3390,VOL=REF=*.LIB,DSN=SYS2.HELP'
000031 '//         DD  DISP=SHR,UNIT=3390,VOL=REF=*.RES,DSN=SYS1.HELP'
000032 '//         DD  DISP=SHR,DSN=SYSPROG.PDS723.TSOHELP'
000033 '//SYSPROC  DD  DISP=SHR,DSN=PUBLIC.P5706.SOURCE'
000034 '//         DD  DISP=SHR,DSN=ROSCOE.BTSO.CLIST'
000035 '//         DD  DISP=SHR,DSN=SYS1.CLIST'
000036 '//         DD  DISP=SHR,DSN=BST.ENDVR.ISRCLIB'
000037 '//         DD  DISP=SHR,DSN=BST.SE1200.ISRCLIB'
000038 '//         DD  DISP=SHR,UNIT=3390,VOL=REF=*.LIB,DSN=SYS2.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=SYS1.SBLSCLI0'
000042 '//         DD  DISP=SHR,DSN=SYSPROG.PDS723.SPFCLIST'
000043 '//         DD  DISP=SHR,UNIT=3390,VOL=REF=*.RES,DSN=SYS1.SERBCLS'
000044 '//ISPPLIB  DD  DISP=SHR,DSN=PUBLIC.P5706.SOURCE'
000045 '//         DD  DISP=SHR,DSN=BST.ENDVR.ISPPLIB'
000046 '//         DD  DISP=SHR,DSN=BST.SE1200.ISPPLIB'
000047 '//         DD  DISP=SHR,DSN=ROSCOE.BTSO.ISPPLIB'
000048 '//         DD  DISP=SHR,UNIT=3390,VOL=REF=*.LIB,DSN=SYS2.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=SYS1.SBLSPNL0'
000053 '//         DD  DISP=SHR,DSN=SYSPROG.PDS723.PANEL'
000054 '//         DD  DISP=SHR,UNIT=3390,VOL=REF=*.LIB,'
000055 '//             DSN=SYSPROG.PDS84.ISPPLIB'
000056 '//ISPMLIB  DD  DISP=SHR,DSN=PUBLIC.P5706.SOURCE'
000057 '//         DD  DISP=SHR,UNIT=3390,VOL=REF=*.LIB,DSN=SYS2.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=SYS1.SBLSMSG0'
000062 '//         DD  DISP=SHR,DSN=SYSPROG.PDS723.MESSAGE'
000063 '//         DD  DISP=SHR,DSN=BST.SE1200.ISPMLIB'
000064 '//         DD  DISP=SHR,UNIT=3390,VOL=REF=*.LIB,'
000065 '//             DSN=SYSPROG.PDS84.ISPMLIB'
000066 '//MOROCCO  DD  DUMMY'
000067 '//ISPTLIB  DD  DISP=SHR,DSN=PUBLIC.P5706.SOURCE'
000068 '//         DD  DISP=SHR,UNIT=3390,VOL=REF=*.LIB,DSN=SYS2.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=BST.SE1200.ISPTLIB'
000072 '//         DD  DISP=SHR,UNIT=3390,VOL=REF=*.RES,DSN=GIM.SGIMTENU'
000073 '//         DD  DISP=SHR,UNIT=3390,VOL=REF=*.RES,DSN=SYS1.SBLSTBL0'
000074 '//*        DD  DISP=SHR,UNIT=3390,VOL=REF=*.LIB,'
000075 '//*            DSN=SYSPROG.PCM610.ISPFLIB'
000076 '//         DD  DISP=SHR,DSN=SYSPROG.PDS723.SPFTABLE'
000077 '//         DD  DISP=SHR,UNIT=3380,VOL=REF=*.LIB,'
000078 '//             DSN=SYSPROG.PCM610.ISPFLIB'
000079 '//ISPSLIB  DD  DISP=SHR,DSN=PUBLIC.P5706.SOURCE'
000080 '//         DD  DISP=SHR,DSN=BST.SE1200.ISPSLIB'
000081 '//         DD  DISP=SHR,UNIT=3390,VOL=REF=*.LIB,DSN=SYS2.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=SYSPROG.PDS723.SKELETON'
000086 '//ISPLLIB  DD  DISP=SHR,DSN=SYSPROG.BKMGR.V1R2.SEOYLOAD'
000087 '//EDCHKDD  DD  DISP=SHR,DSN=SYSPROG.JCLCHK70.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=BST.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