/* REXX */                                                     
DDEVLIB = SYSVAR(SYSUID)||".DIALOG.DEV"                        
DO FOREVER                                                     
   ADDRESS ISPEXEC                                             
   "DISPLAY PANEL(DDEV) CURSOR(EXCED)"                         
   IF RC = 8 THEN                                              
      DO                                                       
         "LIBDEF ISPPLIB DATASET ID()"                         
         "LIBDEF ISPSLIB DATASET ID()"                         
         "LIBDEF ISPMLIB DATASET ID()"                         
         "LIBDEF ISPTLIB DATASET ID()"                         
         EXIT                                                  
      END                                                      
   IF EXCED = "X" THEN                                    
      DO                                                    
        "LIBDEF ISPPLIB DATASET ID('"DDEVLIB"')"                
        "LIBDEF ISPSLIB DATASET ID('"DDEVLIB"')"                
        "LIBDEF ISPMLIB DATASET ID('"DDEVLIB"')"                
        "LIBDEF ISPTLIB DATASET ID('"DDEVLIB"')"                
        ADDRESS "TSO"                                           
        "EX '"DDEVLIB"("DIALMEM")'" "'"CPARM"'"                
      END                                                        
   IF EXCED = "E" THEN                                         
      DO                                                         
        IF DIALMEM = "" THEN "EDIT DATASET('"DDEVLIB"')"                          
        ELSE "EDIT DATASET('"DDEVLIB"("DIALMEM")')"          
      END                                                   
END                                                            
========================================================================
PANEL DDEV (in ISPPLIB)

)ATTR                                                                   
 + TYPE(TEXT) SKIP(ON) INTENS(LOW)                                      
 % TYPE(TEXT) SKIP(ON) INTENS(HIGH)   
 _ TYPE(INPUT) INTENS(HIGH) PAD('_')                                    
 ¢ TYPE(INPUT) INTENS(HIGH)                                             
)BODY                                                                   
%         ISPF DIALOG DEVELOPMENT ENTRY SCREEN      
+                                                                       
+    Command ===>¢ZCMD                                                  
+                                                                       
+    Enter%X+to eXecute dialog member,%E+to Edit ===>_Z+    
+    Enter dialog member to be executed/edited ===>_DIALMEM +          
+    Enter dialog parameter(s), if any ===>_CPARM                       
+    Enter PDS containing dialog elements =>_DDEVLIB                    
+                                                                       
%           Press END key to exit                
)INIT                        
  .ZVARS = '(EXCED)'         
)PROC                        
VER(&DDEVLIB,NONBLANK)       
VER(&EXCED,NB,LIST,X,E)    
)END