/* rexx */
/* ------------------------------------------------------------------ */
/* read xref data and create arrays for 2 values                      */
/* for further comparisions                                           */
/* ------------------------------------------------------------------ */
do forever                                    
   "execio 1 diskr XRFIN"                    
   if rc>0 then call exit                     
   parse pull xref           
   xjob = word(xref,1)                         /* Jobname             */
   xown = word(xref,5)                         /* Owner               */
   xc11 = word(xref,11)                        /* flag Y/N            */
   x_ownerid.xjob = xown                       /* Jobname = Owner     */
   x_CA11stp.xjob = xc11                       /* Jobname = flag      */
end                                            /*                     */