Chicago-Soft
ATTN: TSO Times
One Maple Street
Hanover, NH 03755
(603) 643-4002
information
@tsotimes.com

ISPF/PDF Dialog Manager Variables In Panel Definitions

by Jim Leone

If you ever find it desirable to execute a CLIST or REXX exec from a panel, without having the library containing the member concatenated in the user’s TSO sign-on PROC, the following techniques will be useful.

For library dataset names starting with 'TSO’, use the format of the TRANS( command in the panel )PROC section as follows.

DV,’CMD(EX A143500.CLIST(DOCVIEW))’ 

or you can create a dialog variable such as:

&DOCVIEW = 'EX '’TSO.A143500.CLIST(DOCVIEW)’’’

in the )PROC section of the panel definition. Then you can reference the variable in the TRANS( command as:

     DV,’CMD(&DOCVIEW)’

For library dataset names not starting with 'TSO’, I’ve found the only 'clean’ way to execute the CLIST or REXX exec, without having the library allocated in the sign-on PROC, is to use the ISPF Dialog variable assignment, and subsequent reference.

An example of an ISR@PRIM panel using these techniques follows.

Download this Exec in text format (DIALOG.TXT)

%¯¯¯¯¯¯¯¯¯¯¯  ISPF/PDF PRIMARY OPTION MENU  ¯¯¯¯¯¯¯¯¯¯¯¯
%OPTION  ===>_ZCMD                       		      +
++¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯***********************+
%   ISPF TOOLS+   % CA PRODUCTS+   % OTHER PRODUCTS+    +*                   +*
                                                        * USERID  - &ZUSER   +*
% 0+ISPF PARMS   %CA1+CA-1          %ST+STORGARD        * TIME    - &ZTIME   +*
% 1+BROWSE        %11+CA-11         %PR+PROWL           * DATE    - &ZDATE   +*
% 2+EDIT          % A+CA-ACTIVATOR  % $+$AVRS           * JULIAN  - &ZJDATE  +*
% 3+UTILITIES     %OP+CA-OPTII      %IP+IPCS            * TERMINAL- &ZTERM   +*
% 6+COMMAND       %PS+POOLDASD SIM  % P+PDS             * PF KEYS - &ZKEYS   +*
% 7+DIALOG TEST   % D+CA-DISPATCH   %FA+File-AID       +***********************+
% X+EXIT          %DA+CA-DASDCHECK  % V+VER MERGER     
% T+TUTORIAL      % J+JCL-CHECK     % O+OPS/MVS        
+                 % L+LIBRARIAN     %XP+XPEDITER 6.1   
+                 % M+MANAGER       %XX+ISMF           
                  %DV+docview                          
+¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯-
+Enter%END+command to terminate ISPF.
)INIT
  .HELP = ISR00003
  &ZPRIM = YES                 /* ALWAYS A PRIMARY OPTION MENU      */
  &ZHTOP = ISR00003            /* TUTORIAL TABLE OF CONTENTS        */
  &ZHINDEX = ISR91000          /* TUTORIAL INDEX - 1ST PAGE         */
  VPUT (ZHTOP,ZHINDEX) PROFILE
)PROC
&PROWL = ‘EX ‘’SYS2.PROWL.PAS.CLIST(PAS6)’’’
&STORGARD = ‘EX ‘’SYS1.STORGARD.EXECLIB2(STORGARD)’’’
&PLDSIM = ‘EX ‘’SYS2.PLDR331.SPFLIB(PLDC1000)’’’
&XPEDIT61 = ‘EX ‘’SYS2.XPEDITER.V6R1M0.CLIST(XPLIBDEF)’’’
&XPEDIT53 = ‘EX ‘’SYS1.XPEDITER.CLIST(XPLIBDEF)’’’

&ZQ = &Z
  IF (&ZCMD ^= ‘ ‘)
    &ZQ = TRUNC(&ZCMD,’.’)
    IF (&ZQ = ‘ ‘)
      .MSG = ISRU000
  &ZSEL = TRANS( &ZQ
      0,’PANEL(ISPOPTA)’                              /* ISPF PARMS  */
      1,’PGM(ISRBRO) PARM(ISRBRO01)’                  /* ISPF BROWSE */
     PR,’CMD(&PROWL)’
     ST,’CMD(&STORGARD)’
     PS,’CMD(&PLDSIM)’                               /* PLD SIMULATOR*/
     DV,’CMD(EX A143500.CLIST(DOCVIEW))’                 /* DOCVIEW  */
     XP,’CMD(&XPEDIT61)’                               /* XPEDITER   */
     XX,’PANEL(DGTSMMD2)’                              /*            */
      2,’PGM(ISREDIT) PARM(P,ISREDM01)’                 /* ISPF EDIT */
      3,’PANEL(ISRUTIL)’                           /* ISPF UTILITIES */
      4,’PANEL(ISRFPA)’             /* FORGROUND LANGUAGE PROCESSORS */
      5,’PGM(ISRJB1) PARM(ISRJPA) NOCHECK’    /*BATCH LANGUAGE PROC. */
      6,’PGM(ISRPTC)’                                /* TSO COMMANDS */
      7,’PGM(ISpYXDR) NOCHECK’                     /* DIALOG TESTING */
      8,’PANEL(ISRLPRIM)’                   /* LIBRARY ADMINISTRATER */
      9,’PANEL(ISRDIIS)’                             /* IBM PRODUCTS */
    CA1,’PGM(TMSIOPRI) NEWAPPL(TMS) NOCHECK ‘
     11,’PANEL(C11IMSTR)’                                 /* CA-11   */
      $,’PGM(ISP$AVRS) PARM(&ZCMD) NOCHECK NEWAPPL($AVR)’ /* $AVERS  */
      A,’PGM(CACTVATE) NEWAPPL(CACT)’                   /* ACTIVATOR */
  /* AP,’CMD(%APCDOC)’                                       APCDOC  */
      B,’CMD(BMSTART) NEWAPPL(BMII)’                      /* BLKM

home · current articles · archives · forums ·
· subscribe · about us · contact us · links