/* REXX       PUMPDATA    load datapoints to the local RUNDATA table

*/ arg argline                         /* pro-forma quick-start      */
address TSO
arg parms "((" opts
opts = Strip(opts,"T",")")
parse var opts "TRACE"  tv  .
parse value tv "N"  with  tv .
rc = Trace("O"); rc = Trace(tv)

parse var parms key .

   "NEWSTACK"
   queue 'tblkey'  key
   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'
   "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                  */