/* rexx */   trace ?r
address TSO
 
xref.0 = 1
xref.1 =  "G0A11111 G0B11111 G0C11111 G0D11111 G0E11111 G0F11111 G0G11111 G0H11111 G0I11111 G0J11111 G0K11111 G0L11111 G0M11111 G0N11111 G0O11111 G0P11111 G0Q11111 G0R11111 G0S11111 G0T11111 G0U11111 G0V11111 G0W11111 G0X11111 G0Y11111 G0Z11111"
 
searchfor = "G0D*****"
 
searchfor = translate(searchfor,'00'X,"*")
 
do ii = 1 to xref.0
   do zz = 1 to words(xref.ii)
      check = word(xref.ii,zz)
 
      say "AND" bitand(searchfor,check),
          "OR" bitor(searchfor,check),
          "XOR" bitxor(searchfor,check) "SEARCH" searchfor "CHECK" check
 
      if bitor(searchfor,check) = check then
         say "CHECK" check "SEARCH" searchfor "FORMAT" word(xref.ii,1)
      if bitand(searchfor,check) = check then
         say "CHECK" check "SEARCH" searchfor "FORMAT" word(xref.ii,1)
 
   end                                 /*                            */
end                                    /*                            */
                                       /*                            */
exit                                   /*                            */