/* scan every jcl line -----------------------------------------------*/
do forever                                    /* do while jcl in      */
   "execio 1 diskr CA7JCL"                    /* seq. file            */
   if rc>0 then call exit                     /* after last jcl line  */
   parse pull line                            /* get it               */
   if pos("//",line)=1 then                   /* cut it if not data   */
      line=substr(line,1,72)