 |
 |
 |
|
|
|
|
ISPF Dialog Manager Panel |
|---|
|
The user enters variables in this panel which causes the REXX program to generate the
IMS Image Copy utility jobs. By changing the variables, the user can generate jobs for test, production and for different groups of application databases. |
)ATTR
DEFAULT(%+_)
% TYPE(TEXT) INTENS(HIGH) SKIP(ON)
+ TYPE(TEXT) INTENS(LOW) SKIP(ON)
@ TYPE(TEXT) INTENS(HIGH) SKIP(OFF)
_ TYPE(INPUT) INTENS(HIGH) SKIP(OFF)
)BODY
%---------------------------- ONLINE IMAGE COPY ----------------------
%COMMAND ==> _ZCMD
%
%APPLICATION ID ==> _Z + AP AR PL PY RE TX application
%IMS SYSTEM ==> _Z+ P or T P = prod, T = test (default)
%JOBNAME SUFFIX ==> _Z+ O default for Online Image Copy
%JOBNAME CHAR ==> _Z+ 0 default jobname unique char
%SCHEDULE ==> _Z+ D W M D=Daily(default) W=Week M=Mon
%DUPLICATE COPY ==> _Z+ D 0 D=dup (default), 0=no dup
%CONTROL CARD ==> _Z+ Y N Y=cntl cards (default) N=no
%SUBMIT BY ==> _Z+ T P T=TSO submit (default) P=prod
%
)INIT
.HELP = HIMAGECP
.ZVARS = '(IMSID,IMSSYS,JSUF,JCHAR,JSCHED,JDUP,JCC,JSUB)'
.CURSOR = ''
&IMSID = ''
&IMSSYS = 'T'
&JSUF = 'O'
&JCHAR = '0'
&JSCHED = 'D'
&JDUP = 'D'
&JCC = 'Y'
&JSUB= 'T'
)PROC
&PFKEY = .RESP
IF (&PFKEY = 'END') EXIT
&ZCURFLD = .CURSOR
VER (&IMSID,NONBLANK,LIST,PY,TX,AR,AP,RE,PL)
VER (&IMSSYS,NONBLANK,LIST,P,T)
VER (&JSUF,NONBLANK)
VER (&JCHAR,NONBLANK)
VER (&JSCHED,NONBLANK,LIST,D,W,M)
VER (&JDUP,NONBLANK,LIST,D,0)
VER (&JCC,NONBLANK,LIST,Y,N)
VER (&JSUB,NONBLANK,LIST,T,P)
)END
|