- Code: Select all
//jobname JOB
//*--------------------------------------------------------------------
//* (c) Copyright Relational Architects, Inc. 2008 -All rights reserved
//* Licensed materials - Property of Relational Architects, Inc.
//* -------------------------------------------------------------------
//* Name : DXSJRUN
//* Doc : Execute DX/SPUFI in batch
//*
//* -------------------------------------------------------------------
//* Notes:
//*
//* - Change ?sdwhlq? to the High Level Qualifier of SDW target
//* datasets
//*
//* - Change ?isphlq? to the High Level Qualifier of ISPF target
//* datasets
//*
//* - Change ?tsoid? to your TSO ID
//*
//* - Change ?sn? to DB2 subsystem name
//*
//* -------------------------------------------------------------------
//* History : 05-09-2008 - RAI
//*
//*--------------------------------------------------------------------
// SET HLQ=?sdwhlq?
// SET ISPHLQ=?isphlq?
//DXSPUFI EXEC PGM=IKJEFT1A,DYNAMNBR=20,REGION=0M
//ISPLLIB DD DSN=&HLQ..SDWLOAD,DISP=SHR
//SYSEXEC DD DSN=&HLQ..SDWEXEC,DISP=SHR
//DXSPARM DD DSN=&HLQ..SDWCNTL(DXSPARM),DISP=SHR *DX/SPUFI parms
//DXSIN DD DSN=&HLQ..SDWCNTL(DXSSAMP),DISP=SHR *sample input
//DXSOUT DD DSN=&&DXSOUT,DISP=(,PASS),
// UNIT=SYSDA,SPACE=(CYL,(1,1)),
// DCB=(RECFM=VB,LRECL=4092,BLKSIZE=4096)
//SYSTSPRT DD SYSOUT=*
//ISPPLIB DD DSN=&ISPHLQ..SISPPENU,DISP=SHR
//ISPMLIB DD DSN=&ISPHLQ..SISPMENU,DISP=SHR
//ISPSLIB DD DSN=&ISPHLQ..SISPSLIB,DISP=SHR
//ISPTLIB DD DSN=&ISPHLQ..SISPTENU,DISP=SHR
//ISPPROF DD UNIT=SYSDA,SPACE=(TRK,(9,1,4)),
// DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
//SYSTSIN DD *
PROFILE PREFIX(?tsoid?)
EXECUTIL SEARCHDD(YES)
ISPSTART CMD(DXSBATCH SYSTEM(?sn?))
Follow notes in the JCL to substitute ?variable? with appropriate values. The job executes DX/SPUFI in batch TSO/ISPF. Parameters to DXSBATCH command could be any DX/SPUFI run-time parameters. The parameter defaults are in the sdwhlq.SDWCNTL(DXSPARM) dataset allocated to DXSPARM DDNAME. DX/SPUFI output report is written to a dataset DXSOUT. The reason a dataset was used instead of SYSOUT is that SYSOUT is limited to LRECL of 133 characters while report may required much wider output area.