Invoke the IUI MSG Dialog (DGADGDSP)
The IUI main dialog includes the MSG (message) dialog. If you want to look up a Connect:Direct® for z/OS® message without having to go through the IUI login process, you can use the message dialog. You must allocate the same ISPF components as for the IUI dialog, except that you do not need to allocate the DMMSGFIL or DMPUBLIB DDs. The message dialog is invoked through SELECT PGM in the same ways as the IUI dialog, but it uses a different program name and parameter. To specify the message file, you may use either generic LIBDEF with lib-type DMMSGFIL as with the IUI main dialog, or specify it in the SELECT parameter. If you did not specify the message file DSN via generic LIBDEF DMMSGFIL, you must specify it in the SELECT parameter. If you specify the DSN via generic LIBDEF DMMSGFIL and via SELECT PARM, the PARM is ignored. The DSN is the same VSAM message file DSN you would allocate or LIBDEF to DMMSGFIL when invoking the IUI Main Dialog.
Panel |
&ZSEL = TRANS( TRUNC (&ZCMD,'.') … CD,'PGM(DGADGDSP) PARM(cd-msgfile-dsn) …) |
CLIST |
ISPEXEC SELECT PGM(DGADGDSP) PARM(cd-msgfile-dsn) |
REX |
ADDRESS ISPEXEC “SELECT PGM(DGADGDSP) PARM(cd-msgfile-dsn)” |
CMD Table |
ZCTACT = SELECT PGM(DGADGDSP) PARM(cd-msgfile-dsn) |
A new ISPF APPLID for Connect:Direct for z/OS can also be specified by using NEWAPPL(applid). If LIBDEF was used to allocate the ISPF application component data sets, and NEWAPPL was specified in the SELECT, you must also specify PASSLIB, or the LIBDEFs are not searched or used. In the following example, all needed Connect:Direct application component data sets must have been pre-allocated.
See the following example of the invocation of ISPF primary option panel with IUI and MSG dialogs:
%------------ ISPF PRIMARY OPTION MENU --------------------
%OPTION ===>_ZCMD +
%%
+USERID - &ZUSER
% 0+SPF PARMS - Specify ... +TIME - &ZTIME
% 1+BROWSE - Display ... +DATE - &ZDATE
% 2+EDIT - Create ... +JULIAN - &ZJDATE
% 3+UTILITIES - Perform ... +TERMINAL - &ZTERM
% 4+FOREGROUND - Compile,... +PF KEYS - &ZKEYS
% 5+BACKGROUND - Compile, Assemble, or Link Edit
% 6+COMMAND - Enter TSO command or CLIST
% 7+SUPPORT - Test dialog or convert menu/message fmts
% M+C:D-MSGS - Display Sterling Connect:Direct messages
% N+C:D - Sterling Connect:Direct
% X+EXIT - Terminate ISPF using List/Log defaults
%%
)INIT
.HELP=TTUTOR
&ZHTOP=TTUTOR
&ZHINDEX=TINDEX
)PROC
&ZSEL=TRANS( TRUNC (&OPT,'.')
0,'PANEL(ISPOPT)'
1,'PGM(ISPBRO)'
2,'PGM(ISPEDIT)'
3,'PANEL(ISPUTIL)'
4,'PANEL(ISPFORA)'
5,'PANEL(ISPJOB)'
6,'PGM(ISPTSO)'
7,'PANEL(ISPQTAC) NEWPOOL'
M,'PGM(DGADGDSP) PARM($CD.MSG)'
N,'PGM(DGADISTR) PARM($CD.NETMAP) NEWAPPL(CD)'
X,'EXIT'
)END