/* REXX       PUMPDATA    Load datapoints to the local RUNDATA table.
                          Change as necessary to initialize a new
                          TBLKEY.

*/ arg argline                         /* pro-forma quick-start      */
address TSO
arg parms "((" opts
opts = Strip( opts,'T','5d'x )
parse var opts "TRACE"  tv  .
parse value tv "N"  with  tv .
rc = Trace( "O" ); rc = Trace( tv )
if WordPos( "?",parms ) > 0 then call HELP    /*                    -*/

   "NEWSTACK"
   excl_IDs    = "CSFSTC EDIT SETFALL SETSPRNG SHOPCERT ",
                 "SSHD SSHDAEM TSSO "
   queue 'tblkey    allusers '
   queue 'exclownr  qluser1 '
   queue 'exclids ' excl_ids
   "RUNDATA WRITE    LOG ((" opts
   do queued()                         /* return from RUNDATA        */
      pull line
      if Pos( "<ERROR>",line ) > 0 then,
         sw.0Error_Found = 1
      say line
   end                                 /* queued                     */
   "DELSTACK"

exit                                   /*@ PUMPDATA                  */
/*
   queue 'sdfhlink  sys1.linklib'
   queue 'sdfhload  cics.sdfhload'
   queue 'sdfhmac   cee.sceemac    '
   queue 'sdfhsamp  cee.sceesamp   '
   queue 'sysuexit  dummy          '
   queue 'sceelked  cee.sceelked   '
   queue 'sysproc   fclarke.fb80.sysexec'
   queue 'ctlcard   cbt.u.skels'
*/
/*
.  ----------------------------------------------------------------- */
HELP:                                  /*@                           */
address TSO;"CLEAR"
   parse source  sys_id  how_invokt  exec_name  DD_nm  DS_nm,
                     as_invokt  cmd_env  addr_spc  usr_tokn
ex_nam = Left(exec_name,8)             /* predictable size           */

say "                                                                          "
say "  "ex_nam"      is a special one-time routine for populating a single     "
say "                RUNDATA table row.  It is meant to be customized for each "
say "                use.                                                      "
say "                                                                          "
say "  Syntax:   "ex_nam"  ( no parms )                                        "
say "                                                                          "
say "                                                                          "
say "   Debugging tools provided include:                                      "
say "                                                                          "
say "        TRACE tv: will use value following TRACE to place the execution   "
say "                  into REXX TRACE Mode.                                   "
say "                                                                          "
say "                                                                          "
say "   Debugging tools can be accessed in the following manner:               "
say "                                                                          "
say "        TSO "ex_nam"  parameters     ((  debug-options                    "
say "                                                                          "
say "   For example:                                                           "
say "                                                                          "
say "        TSO "ex_nam"  (( trace ?r                                         "

if sysvar("SYSISPF") = "ACTIVE" then,
   address ISPEXEC "CONTROL DISPLAY REFRESH"
exit                                   /*@ HELP                      */