© serviceprofessionalgmbh

Die nachfolgende Job Control kann benutzt werden, um einen TSO-Adressraum zu starten, in welchem entsprechende REXX-Aktionen mit ISPF-Services ablaufen können. Sofern Folgesteps angefügt werden und der RC der REXX-Verarbeitung von Bedeutung ist, kann im REXX-Programm die Variable ZISPFRC entsprechend gesetzt und per VPUT-Befehl in den SHARED-Pool geschrieben werden.

//name JOB parms-für-jobanweisung
//**************************************************
//* 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)