©
serviceprofessionalgmbh
The following Job Control can be used to start a TSO address space in which respective REXX actions can be processed with IPSF
services. In case follow up steps are appended and the return code of the REXX processing is of importance, the variable
ZISPFRC may be set accordingly in the REXX program and be written back in the SHARED pool with the VPUT command.
//name JOB parms-for-job-statement
//**************************************************
//* ISPF-PROFILE ERSTELLEN
//**************************************************
//COPYPROF EXEC PGM=IEBCOPY
//SYSPRINT DD DUMMY,DCB=(LRECL=121,BLKSIZE=9438,RECFM=FB)
//SYSUT3 DD UNIT=WORK1,SPACE=(TRK,200)
//SYSUT4 DD UNIT=WORK1,SPACE=(TRK,200)
//DDIN DD DSN=std-profile-dataset,DISP=SHR
//DDOUT DD DSN=&&&&PROF,DISP=(,PASS),
// UNIT=WORK1,SPACE=(TRK,(20,5,45),RLSE),
// DCB=(LRECL=80,BLKSIZE=0,RECFM=FB)
//SYSIN DD *
COPY INDD=DDIN,OUTDD=DDOUT
//**************************************************
//* ISPF BATCH AUFRUF
//**************************************************
//TSOBAT EXEC PGM=IKJEFT01,DYNAMNBR=1000
//SYSTSPRT DD SYSOUT=*
//ISPLOG DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//ISPPROF DD DSN=*.COPYPROF.DDOUT,DISP=(OLD,DELETE)
//SYSEXEC DD DISP=SHR,DSN=rexx-lib
//SYSPROC DD DISP=SHR,DSN=clist-lib
//STEPLIB DD DISP=SHR,DSN=load-lib
//ISPPLIB DD DISP=SHR,DSN=std-panel-lib
//ISPMLIB DD DISP=SHR,DSN=std-msg-lib
//ISPSLIB DD DISP=SHR,DSN=std-skel-lib
//ISPTABL DD DISP=SHR,DSN=std-tab-input-lib
//ISPTLIB DD DISP=SHR,DSN=std-tab-input-lib
//SYSTSIN DD *
ISPSTART CMD(rxprog)
back to REXX in batch