Running Endevor as a Started Task Under BTSO Under Roscoe.

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

Introduction: 

Here are a sample RPF and a sample PROC to run Endevor as a BTSO Started Task under CA ROSCOE.

Instructions:

The RPF is 
<<BTSOENDX>>
:*-------------------------------------------------------------------*
:* CA-ROSCOE BTSO FACILITY *
:* *
:* This RPF creates the BTSO job stream and calls RTBETSO to *
:* invoke BTSO. This RPF is distributed as a sample only. *
:*-------------------------------------------------------------------*
PUSH : Save user session settings
SET ATTACH NOPAUSE : Put us in NOPAUSE mode
TRAP ON
CREATE AWS TEMP LEVEL NONRECOVERABLE : Create a temp workspace
TRAP OFF
IF (S.TC NE 0) : Create failed
RESPONSE 'JOB004 UNABLE TO CREATE TEMP AWS FOR BTSO PROCESSING'
GOTO <<RETURN>>
ENDIF
:*-------------------------------------------------------------------*
:* WRITE JOB STREAM TO AWS *
:*-------------------------------------------------------------------*
WRITE AWS B : Now add appl specific code
'PGM=ISPF(CP)'
'PROC=VBDBTSO3'
'PROCPARM=USERID='|SUBSTR(S.KEY 1 8)
ENDWRITE
:*-------------------------------------------------------------------*
:* At this point the job stream is in the AWS, code may be added *
:* to make any final modifications to the JCL... *
:*-------------------------------------------------------------------*
:*-------------------------------------------------------------------*
:*-------------------------------------------------------------------*
:* Invoke BTSO by allocating JCL DD to the AWS and calling RTBETSO *
:*-------------------------------------------------------------------*
ALLOC JCL AWS
LET L1 = 'CMD(C1SM1000)'
+CALL RTBETSO |+L1+|
FREE JCL
IF (S.RC NE 0)
? 'RETURN CODE = '|S.RC|' FROM BTSO'
ENDIF
RETURN
 
 
This is the PROC to put in the PROCLIB:
//JOB CARD
//* ENDEVOR UDER BTSO
//VBDBTSO PROC USERID='NONE',BTSOCNTL='00000000'
//*
//$$$$$$@ EXEC PGM=RTBBATCH,
// PARM='BTSOCNTL=&BTSOCNTL,&TRACE',
// REGION=6M
//*$$$$$$@ EXEC PGM=ISPF(CP)
//STEPLIB DD DSN=ROSCOE.TESTLIB.RO60LIB,DISP=SHR
// DD DSN=ROSCOE.RO60.RO60LIB,DISP=SHR
// DD DSN=ISP.SISPLOAD,DISP=SHR
// DD DSN=ISF.SISFLOAD,DISP=SHR
// DD DSN=BST.C11200.AUTHLIB,DISP=SHR
// DD DSN=BST.C11200.CONLIB,DISP=SHR
//CONLIB DD DSN=ROSCOE.RO60.RO60LIB,DISP=SHR
// DD DSN=BST.C11200.CONLIB,DISP=SHR
//SDSFMENU DD DSN=ISF.SISFPLIB,DISP=SHR
//HASPINDX DD DSN=ISF.HASPINDX,DISP=SHR
//SYSPROC DD DSN=BST.C11200.ISRCLIB,DISP=SHR
// DD DSN=SYS2.CLIST,DISP=SHR
// DD DSN=ISP.SISPCLIB,DISP=SHR
//ISPPROF DD DSN=RO60.ISPF.ISPPROF,DISP=SHR
//*ISPTABL DD DSN=RO60.ISPF.ISPPROF,DISP=SHR
//ISPLLIB DD DSN=ISP.SISPLOAD,DISP=SHR
// DD DSN=ISF.SISFLOAD,DISP=SHR
//ISPSLIB DD DSN=BST.C11200.ISPSLIB,DISP=SHR
// DD DSN=ICQ.ICQSLIB,DISP=SHR
// DD DSN=ISP.SISPSLIB,DISP=SHR
//ISPPLIB DD DSN=BST.C11200.ISPPLIB,DISP=SHR
// DD DSN=ISP.SISPPENU,DISP=SHR
// DD DSN=ISF.SISFPLIB,DISP=SHR
// DD DSN=ICQ.ICQPLIB,DISP=SHR
// DD DSN=SYS1.SBLSPNL0,DISP=SHR
//ISPTLIB DD DSN=ISF.SISFTLIB,DISP=SHR
// DD DSN=ISP.SISPTENU,DISP=SHR
// DD DSN=ICQ.ICQTABLS,DISP=SHR
//ISPMLIB DD DSN=BST.C11200.ISPMLIB,DISP=SHR
// DD DSN=ISP.SISPMENU,DISP=SHR
// DD DSN=ISF.SISFMLIB,DISP=SHR
// DD DSN=SYS1.SBLSMSG0,DISP=SHR
// DD DSN=ICQ.ICQMLIB,DISP=SHR
//SYSHELP DD DSN=SYS1.HELP,DISP=SHR
//CONLIB DD DSN=BST.C11200.CONLIB,DISP=SHR
//SYSLBC DD DSN=SYS1.BRODCAST,DISP=SHR
//MOROCCO DD DUMMY
//ISPFLOG1 DD DUMMY
//SYSPRINT DD SYSOUT=(*,TERM)
//SYSTERM DD SYSOUT=(*,TERM)
//SYSOUT DD SYSOUT=(*,TERM)
//SYSUDUMP DD DUMMY
//EXT3RDR1 DD SYSOUT=(B,INTRDR)
// PEND
//$$$$$$@ EXEC VBDBTSO

Additional Information:

IMPORTANT NOTE: Depending on your maintenance level of CA Roscoe, you may need to apply apars to support running a started task under BTSO.  Do a Knowledge Based earch for Published Solutions for Roscoe BTSO (you will need to sign in) or open a case on CA Support.