/* REXX    VWBR       Invoke View from Browse.

       NOTE ::::      MUST    be invoked via the command table:
                      SELECT CMD(%VWBR |&ZDSN |&ZMEM |&ZMEMB |&ZLINES)
                      Requires POSIT macro.

           Written by Frank Clarke, rexxhead@yahoo.com
*/ arg arglist
if argline = "" then do                /* no command table?          */
   address TSO
   parse source     .    .        exec_nm   .
   "CLEAR"
   say
   say exec_nm "cannot proceed because there is no data to process."
   say
   say "You may not have a command-table entry with the proper"
   say "configuration, or you may not have loaded your command table."
   say
   say exec_nm "can only be exercised via a command-table entry.  If  "
   say "you do not have a command table, you cannot run this routine. "
   "NEWSTACK";pull;"DELSTACK"
   "CLEAR"
   exit
   end
arg info
dlm  =  Left( info,1 )
parse var info (dlm) zdsn . (dlm) zmem .  (dlm) zmemb . (dlm) zlines

ebdsn   = Strip(zdsn)
parse value  zmem zmemb             with  ebmem  .
parse value  Strip(zlines,,0)  0    with  ebtl   .

if ebmem <> "" then ebdsn = ebdsn"("ebmem")"

address ISPEXEC
"VPUT (ebtl) SHARED"
"CONTROL NONDISPL ENTER"
"VIEW DATASET('"ebdsn"') MACRO(POSIT) PROFILE(DEFAULT)"
exit                                   /*@ VWBR                      */