/* REXX    SECURE      demonstrates how to provide a stub 'in clear'
                       for a process which is itself secured in an
                       execute-only library.
*/
address TSO
parse arg line                         /* all the parameters         */
parse source . .  xname .              /* the name of the EXEC.  This
                                          base module can be ALIASed
                                          to provide an entry point
                                          for other EXECs in the
                                          ALTLIB library.            */
"ALTLIB ACT   QUIET APPLICATION(EXEC) DATASET('ISCH89.EXECONLY.EXEC')"
if rc > 0 then do
   say "ALTLIB failed.  Execution suppressed."
   exit
   end
(xname)   line
"ALTLIB DEACT QUIET APPLICATION(EXEC)"
exit                                   /*@ SECURE                    */