/* ------------------------------------------------------------------ */
/* read the vars translation table                                    */
/* ------------------------------------------------------------------ */
address tso                                   /*                      */
   "execio * diskr VARMIG (stem varmig. finis"/* translation table    */
do x=1 to varmig.0                            /* do while             */
   mig=strip(varmig.x)                        /* cut trailing blanks  */
   parse var mig ca7.x";"tws.x";"td.x.1";" ,  /* get all vars and tws */
               td.x.2";"td.x.3";"td.x.4";" ,  /* directives if defined*/
               td.x.5";"td.x.6";"rest         /*                      */
   cal.x=length(ca7.x)                        /* get the length of    */
   twl.x=length(tws.x)                        /* the vriables         */
   select                                     /*                      */
      when td.x.6/="" then dir.x=6            /* to find out          */
      when td.x.5/="" then dir.x=5            /* the max count of     */
      when td.x.4/="" then dir.x=4            /* defined directives   */
      when td.x.3/="" then dir.x=3            /*                      */
      when td.x.2/="" then dir.x=2            /*                      */
      when td.x.1/="" then dir.x=1            /*                      */
      otherwise dir.x=0                       /*                      */
   end                                        /*                      */
end                                           /*                      */