/* rexx */
trace o
address ispexec "control errors return"   /*                      */
configds="OPCA.BATCH.CONFIG.ALL"          /*                        */
address tso
   "alloc da('"configds"') fi(indd1) shr reuse"
   "execio * diskr indd1(stem prms. finis"
k=0;y=0;key_score=0
address ispexec "tbend prmtab1"
address ispexec "tbcreate prmtab1 keys(parq) names(pdesc)"
do x = 1 to prms.0
   prx=strip(prms.x)
   parse var prx plex";"mem";"rest
   do while rest ^= ''
      parse var rest parm ";" rest
      parse var parm parq "("
      if parq>'' & ,
         substr(parq,1,1) ^= "@" &,
         substr(parq,1,1) ^= "#" &,
         mem ^= "RESOURCE" &,
         mem ^= "DATASETS" then
      do
         prmtab=substr(parq,1,8)
         pdesc=parq
         upper prmtab
         address ispexec "tbadd prmtab1"
         if rc=0 then
         do
            address ispexec "tbend" prmtab
            address ispexec "tbcreate" prmtab "names(plex mem parm)"
         end
         address ispexec "tbadd" prmtab
      end
   end
end
address ispexec "tbsort prmtab1 fields(parq,c,a)"
address ispexec "tbtop prmtab1"
hrc=0
do while hrc=0
   address ispexec "tbskip prmtab1"
   hrc=rc
   if hrc=0 then
   do
      y=y+1
      parq.y=substr(parq,1,8)
      prm_score=y
   end
end
address ispexec "tbvclear prmtab1"
parq="*"
do forever
   address ispexec "tbsarg prmtab1"
   address ispexec "tbdispl prmtab1 panel(config21)"
   if rc>7 then leave
   upper c1 command
   select
     when c1="S" then tabl=substr(parq,1,8)
     when c1="B" then book=parq
     otherwise nop
   end
   if c1="B" then
   do
      address ispexec "select cmd(bookmgr book('bkm.eqqj0000.book')
               cmd(search" book")"
   end
   if c1 = "S" then
   do
      upper tabl
      address ispexec "tbsort" tabl "fields(parm,c,a)"
      address ispexec "tbvclear" tabl
      parm="*";mem="*";plex="*"
      do forever
         address ispexec "tbsarg" tabl
         address ispexec "tbdispl" tabl "panel(config31)"
         if rc>7 then leave
         upper command
         if command="B" then do
            parse var parm parx "("
            address ispexec "select cmd(bookmgr book('bkm.eqqj0000.book')
                     cmd(search" parx")"
         end
         address ispexec "tbvclear" tabl
         if ms>"" ! xs>"" then
         do
           if ms>"" then mem =ms"*"
           if xs>"" then plex=xs"*"
         end
         else do
           parm="*"
           mem ="*"
           plex="*"
         end
      end
   end
   address ispexec "tbvclear prmtab1"
   if ps>"" then
   do
      parq=ps"*"
   end
   else parq="*"
end
do q=1 to prm_score
   prmtab=parq.q
   address ispexec "tbend" prmtab
end
address tso "free fi(indd1)"
exit