 |
 |
 |
|
|
|
|
REXX and Dialog Manager Output Examples |
|---|
|
These four examples show how variables entered into the ISPF Dialog Manager panel affect the generated
job JCL. |
Example 1:
Create Online Image Copy utility JCL for a production IMS payroll application one output cartridge
Input Panel:
---------------------------- ONLINE IMAGE COPY ----------------------
COMMAND ==>
APPLICATION ID ==> PY AP AR PL PY RE TX application
IMS SYSTEM ==> P P or T P = prod, T = test (default)
JOBNAME SUFFIX ==> O O default for Online Image Copy
JOBNAME CHAR ==> 0 0 default jobname unique char
SCHEDULE ==> D D W M D=Daily(default) W=Week M=Mon
DUPLICATE COPY ==> 0 D 0 D=dup (default), 0=no dup
CONTROL CARD ==> Y Y N Y=cntl cards (default) N=no
SUBMIT BY ==> T T P T=TSO submit (default) P=prod
JCL:
//PPY00O JOB (1234,01,DB),'IMS IMAGE COPY',CLASS=D,
// MSGCLASS=X,NOTIFY=SYD2D1
//*******************************************************************
//*
//* ONLINE IMAGE COPY GENERATED BY SYD2D1 ON 09/06/1999
//* OPTIONS:
//* APPLICATION ID = PY
//* IMS SYSTEM = PROD
//* JOBNAME CHAR = 0
//* JOBNAME SUFFIX = O
//* SCHEDULE = DAILY
//* DUPLICATE COPY = 0
//* CONTROL CARD = Y
//* SUBMIT BY = TSO USER
//*
//*******************************************************************
//JSTEP01 EXEC PGM=DB1BMP,REGION=4M
//STEPLIB DD DISP=SHR,DSN=SYST.ENDEVOR.LOADLIB
// DD DISP=SHR,DSN=IMST.DYNLIB
// DD DISP=SHR,DSN=IMST.RESLIB
// DD DISP=SHR,DSN=SYST.BMC.LOADLIB
// DD DISP=SHR,DSN=SYS1.COB2LIB
//DFSRESLB DD DISP=SHR,DSN=IMST.RESLIB
//DFSESL DD DISP=SHR,DSN=IMST.RESLIB
//IMS DD DISP=SHR,DSN=IMST.DBDLIB
// DD DISP=SHR,DSN=IMST.PSBLIB
//IDILOAD DD DISP=SHR,DSN=SYST.BMC.LOADLIB
//PROCLIB DD DISP=SHR,DSN=IMST.PROCLIB
//IMSUDUMP DD SYSOUT=X
//SYSUDUMP DD SYSOUT=X
//SYSABOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSIN DD DISP=SHR,DSN=SYD2D1.JCLCC(PPY0IC)
//IM001 DD DISP=(,CATLG,DELETE),DCB=(DSCB,BUFNO=10),
// LABEL=(,SL,EXPDT=99000),
// VOL=(,RETAIN,,32),UNIT=CART,
// DSN=IMST.IMAGECPY.PPY0IC1(+1)
//
Control Card:
D1 DBDPAYRO IM001 IMAGE COPY
Example 2:
Create Online Image Copy utility JCL for a production IMS tax application
one output cartridge
Input Panel:
--------------------------- ONLINE IMAGE COPY -----------------------
COMMAND ==>
APPLICATION ID ==> TX AP AR PL PY RE TX application
IMS SYSTEM ==> P P or T P = prod, T = test (default)
JOBNAME SUFFIX ==> O O default for Online Image Copy
JOBNAME CHAR ==> 0 0 default jobname unique char
SCHEDULE ==> D D W M D=Daily(default) W=Week M=Mon
DUPLICATE COPY ==> 0 D 0 D=dup (default), 0=no dup
CONTROL CARD ==> Y Y N Y=cntl cards (default) N=no
SUBMIT BY ==> T T P T=TSO submit (default) P=prod
JCL:
//*******************************************************************
//*
//* ONLINE IMAGE COPY GENERATED BY SYD2D1 ON 09/06/1999
//* OPTIONS:
//* APPLICATION ID = TX
//* IMS SYSTEM = PROD
//* JOBNAME CHAR = 0
//* JOBNAME SUFFIX = O
//* SCHEDULE = DAILY
//* DUPLICATE COPY = 0
//* CONTROL CARD = Y
//* SUBMIT BY = TSO USER
//*
//*******************************************************************
//JSTEP01 EXEC PGM=DB1BMP,REGION=4M
//STEPLIB DD DISP=SHR,DSN=SYST.ENDEVOR.LOADLIB
// DD DISP=SHR,DSN=IMST.DYNLIB
// DD DISP=SHR,DSN=IMST.RESLIB
// DD DISP=SHR,DSN=SYST.BMC.LOADLIB
// DD DISP=SHR,DSN=SYS1.COB2LIB
//DFSRESLB DD DISP=SHR,DSN=IMST.RESLIB
//DFSESL DD DISP=SHR,DSN=IMST.RESLIB
//IMS DD DISP=SHR,DSN=IMST.DBDLIB
// DD DISP=SHR,DSN=IMST.PSBLIB
//IDILOAD DD DISP=SHR,DSN=SYST.BMC.LOADLIB
//PROCLIB DD DISP=SHR,DSN=IMST.PROCLIB
//IMSUDUMP DD SYSOUT=X
//SYSUDUMP DD SYSOUT=X
//SYSABOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSIN DD DISP=SHR,DSN=SYD2D1.JCLCC(PTX0IC)
//IM001 DD DISP=(,CATLG,DELETE),DCB=(DSCB,BUFNO=10),
// LABEL=(,SL,EXPDT=99000),
// VOL=(,RETAIN,,32),UNIT=CART,
// DSN=IMST.IMAGECPY.PTX0IC1(+1)
//
Control Card:
D1 DBDTAX IM001 IMAGE COPY
Example 3:
Create Online Image Copy utility JCL for a test IMS payroll application two output cartridges
Input Panel:
---------------------------- ONLINE IMAGE COPY ----------------------
COMMAND ==>
APPLICATION ID ==> PY AP AR PL PY RE TX application
IMS SYSTEM ==> T P or T P = prod, T = test (default)
JOBNAME SUFFIX ==> O O default for Online Image Copy
JOBNAME CHAR ==> 0 0 default jobname unique char
SCHEDULE ==> W D W M D=Daily(default) W=Week M=Mon
DUPLICATE COPY ==> D D 0 D=dup (default), 0=no dup
CONTROL CARD ==> Y Y N Y=cntl cards (default) N=no
SUBMIT BY ==> T T P T=TSO submit (default) P=prod
JCL:
//TPYD0O JOB (1234,01,DB),'IMS IMAGE COPY',CLASS=D,
// MSGCLASS=X,NOTIFY=SYD2D1
//*******************************************************************
//*
//* ONLINE IMAGE COPY GENERATED BY SYD2D1 ON 09/06/1999
//* OPTIONS:
//* APPLICATION ID = PY
//* IMS SYSTEM = TEST
//* JOBNAME CHAR = 0
//* JOBNAME SUFFIX = O
//* SCHEDULE = WEEKLY
//* DUPLICATE COPY = D
//* CONTROL CARD = Y
//* SUBMIT BY = TSO USER
//*
//*******************************************************************
//JSTEP01 EXEC PGM=DB1BMP,REGION=4M
//STEPLIB DD DISP=SHR,DSN=SYST.ENDEVOR.LOADLIB
// DD DISP=SHR,DSN=IMST.DYNLIB
// DD DISP=SHR,DSN=IMST.RESLIB
// DD DISP=SHR,DSN=SYST.BMC.LOADLIB
// DD DISP=SHR,DSN=SYS1.COB2LIB
//DFSRESLB DD DISP=SHR,DSN=IMST.RESLIB
//DFSESL DD DISP=SHR,DSN=IMST.RESLIB
//IMS DD DISP=SHR,DSN=IMST.DBDLIB
// DD DISP=SHR,DSN=IMST.PSBLIB
//IDILOAD DD DISP=SHR,DSN=SYST.BMC.LOADLIB
//PROCLIB DD DISP=SHR,DSN=IMST.PROCLIB
//IMSUDUMP DD SYSOUT=X
//SYSUDUMP DD SYSOUT=X
//SYSABOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSIN DD DISP=SHR,DSN=SYD2D1.JCLCC(TPYDIC)
//IM001 DD DISP=(,CATLG,DELETE),DCB=(DSCB,BUFNO=10),
// LABEL=(,SL,EXPDT=99000),
// VOL=(,RETAIN,,32),UNIT=CART,
// DSN=IMST.IMAGECPY.TPYDIC1(+1)
//IM002 DD DISP=(,CATLG,DELETE),DCB=(DSCB,BUFNO=10),
// LABEL=(SL,EXPDT=99000),
// VOL=(,RETAIN,,32),UNIT=AFF=IM001,
// DSN=IMST.IMAGECPY.TPYDIC2(+1)
//
Control Card:
D2 DBDPAYRO IM001 IM002 IMAGE COPY
Example 4:
Create Online Image Copy utility JCL for a test IMS tax application two output cartridges
Input Panel:
---------------------------- ONLINE IMAGE COPY ----------------------
COMMAND ==>
APPLICATION ID ==> TX AP AR PL PY RE TX application
IMS SYSTEM ==> T P or T P = prod, T = test (default)
JOBNAME SUFFIX ==> O O default for Online Image Copy
JOBNAME CHAR ==> 0 0 default jobname unique char
SCHEDULE ==> D D W M D=Daily(default) W=Week M=Mon
DUPLICATE COPY ==> D D 0 D=dup (default), 0=no dup
CONTROL CARD ==> Y Y N Y=cntl cards (default) N=no
SUBMIT BY ==> T T P T=TSO submit (default) P=prod
JCL:
//TTXD0O JOB (1234,01,DB),'IMS IMAGE COPY',CLASS=D,
// MSGCLASS=X,NOTIFY=SYD2D1
//*******************************************************************
//*
//* ONLINE IMAGE COPY GENERATED BY SYD2D1 ON 09/06/1999
//* OPTIONS:
//* APPLICATION ID = TX
//* IMS SYSTEM = TEST
//* JOBNAME CHAR = 0
//* JOBNAME SUFFIX = O
//* SCHEDULE = DAILY
//* DUPLICATE COPY = D
//* CONTROL CARD = Y
//* SUBMIT BY = TSO USER
//*
//*******************************************************************
//JSTEP01 EXEC PGM=DB1BMP,REGION=4M
//STEPLIB DD DISP=SHR,DSN=SYST.ENDEVOR.LOADLIB
// DD DISP=SHR,DSN=IMST.DYNLIB
// DD DISP=SHR,DSN=IMST.RESLIB
// DD DISP=SHR,DSN=SYST.BMC.LOADLIB
// DD DISP=SHR,DSN=SYS1.COB2LIB
//DFSRESLB DD DISP=SHR,DSN=IMST.RESLIB
//DFSESL DD DISP=SHR,DSN=IMST.RESLIB
//IMS DD DISP=SHR,DSN=IMST.DBDLIB
// DD DISP=SHR,DSN=IMST.PSBLIB
//IDILOAD DD DISP=SHR,DSN=SYST.BMC.LOADLIB
//PROCLIB DD DISP=SHR,DSN=IMST.PROCLIB
//IMSUDUMP DD SYSOUT=X
//SYSUDUMP DD SYSOUT=X
//SYSABOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSIN DD DISP=SHR,DSN=SYD2D1.JCLCC(TTXDIC)
//IM001 DD DISP=(,CATLG,DELETE),DCB=(DSCB,BUFNO=10),
// LABEL=(,SL,EXPDT=99000),
// VOL=(,RETAIN,,32),UNIT=CART,
// DSN=IMST.IMAGECPY.TTXDIC1(+1)
//IM002 DD DISP=(,CATLG,DELETE),DCB=(DSCB,BUFNO=10),
// LABEL=(SL,EXPDT=99000),
// VOL=(,RETAIN,,32),UNIT=AFF=IM001,
// DSN=IMST.IMAGECPY.TTXDIC2(+1)
//
Control Card:
D2 DBDTAX IM001 IM002 IMAGE COPY |