Command generation
- PANEL(panel1 panel2)
- selection and (optional) result panels
- RESULT(panel)
- show result panel
- REUSE(files)
- do not clear specified files
- SYSIN(member)
- (also) included member of CKRCARLA
- HELP(panel)
- member of SCKRPLIB for use in BROWSE
- PERFORM(command)
- TSO command to be called instead of CKRCARLA
If your installation defines its own ISPF panels, a user exit can be called to generate TSO commands for example. These commands are displayed to the user so that they can be confirmed, executed, and queued like the TSO commands generated by zSecure™.
CKRERUN PERFORM(xxxx) PANEL(yyyy)
/* ADDALIAS REXX */
push "DEFINE ALIAS (NAME('" || uuser || "') RELATE('" || ucat || "'))"
'EXECIO 1 DISKW CKRCMD (FINIS'
'EXECIO 0 DISKW CKREPORT (FINIS OPEN'
The EXECIO to CKREPORT ensures that the user does not need browse the CKREPORT file. (The RESULTS panel displays the first non-empty file from CKREPORT, CKRCMD, CKR2PASS, and SYSPRINT.)
%------------------- Define catalog alias for userid -------------------
%COMMAND ===>_ZCMD
+Userid ===>_UUSER +
+Usercatalog ===>_UCAT +(no quotes)
)PROC
VPUT (UUSER UCAT) SHARED
&CKRNEXT = &Z /* no continuation panel */
)END
Set CKRNEXT to the membername of the next panel to display, or clear the variable to indicate that this is the last panel. When CKRNEXT is empty, the function defined by the PERFORM statement is executed, or, if PERFORM was not specified, zSecure is run. In the latter case, the variable CKRCMDV is passed to zSecure to perform the user specified option.