/* REXX */
/* Format OEM vendor anchor table */
cvt = C2D(Storage('10',4))
ecvt = C2D(Storage(D2X(cvt+140),4))
ctbl = C2X(Storage(D2X(ecvt+204),4))
Say 'Customer Anchor Table found at 'ctbl
Call load_tab
anchors = Storage(ctbl,1024)   /* pick up table */
Do i = 1 to 1020 by 4
   ptr = Substr(anchors,i,4)
     /* handle entries with non-zero pointers */
   If ptr \= '00000000'x then Do
      ix = (i+3)/4
        /* if entry in table, use it */
      If vtab.ix \= '' then ,
         Vendor = vtab.ix
      Else ,
         Vendor = '?????'
      Say ix Left(Vendor,30) C2X(ptr)
      End
   End i
Exit 0
 /* load vendor name table */
 /* based on information posteded on IBM-Main */
load_tab:procedure expose vtab.
vtab. = ''
vtab.9  = 'BMC Mainview'
vtab.12 = 'Computer Associates'
vtab.21 = 'BMC Mainview'
vtab.25 = 'MVS Solutions ThruPut Manager'
vtab.31 = 'Compuware Strobe'
vtab.34 = 'Computer Associates (Sterling)'
vtab.36 = 'Syncsort'
vtab.44 = 'BMC Control-O'
vtab.46 = 'IBM IMS Connect'
vtab.58 = 'ASG TMON'
vtab.61 = 'DKL tableBASE'                
vtab.75 = 'Cole Software XDC'
vtab.76 = 'IBM Healthchecker'
return