© 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