/* REXX */
trace o
address ispexec "control errors return"   /*                        */
configds="OPCA.BATCH.CONFIG.ALL"          /*                        */
                                          /*                        */
isp="""OPCA.SYSMD.ISPPENU"""
address tso
   "alloc da('"configds"') fi(indd1) shr reuse";
   "execio * diskr indd1(stem prms. finis"

address ispexec "tbend conftab1"
address ispexec "tbcreate conftab1 names(con plex cont
                 d1 d2 d3 d4 d5 d6 d7 d8 d9 d10)"
do x = 1 to prms.0
      prmx=strip(prms.x)
      parse var prmx plex";"mem";"rest
      lrest=length(rest)
      h1=index(rest,"OPCHOST(PLEX)")
      h2=index(rest,"OPCHOST(YES)")
      ro=index(rest,"@ROUTOPTS")
      if h1>0 ! h2>0 then cont=mem
      if ro>0 then
      do
         rest=substr(rest,(ro+10),)
         sna=index(rest,"SNA(")
         xcf=index(rest,"XCF(")
         if sna>0 then do
            parse var rest con "(" dests ")" dmmy
            parse var dests d1","d2","d3","d4","d5"," ,
                       d6","d7","d8","d9","d10
            do y=1 to 10
               st="d"y"=strip(d"y")"
               interpret st
            end
            address ispexec "tbadd conftab1"
         end
         if xcf>0 then do
            rest=substr(rest,xcf,)
            parse var rest con "(" dests ")" rest
            parse var dests d1","d2","d3","d4","d5"," ,
                       d6","d7","d8","d9","d10
            do y=1 to 10
               st="d"y"=strip(d"y")"
               interpret st
            end
            address ispexec "tbadd conftab1"
         end
      end
      do y=1 to 10
         st="d"y"=''"
         interpret st
      end
      if h2>0 & ro=0 then
      do
         con="DSD";cont=mem
         address ispexec "tbadd conftab1"
      end
end
address ispexec "tbtop conftab1"
do forever
      address ispexec "tbdispl conftab1 panel(config10)"
      if rc>7 then leave
end

ende:
address ispexec "tbend conftab1"
address tso "free fi(indd1)"
exit