/* scan every jcl line -----------------------------------------------*/
do forever                                    /* do while jcl in      */
   ...
   jcl_num =jcl_num+1                         /* count the lines      */
   onum = jcl_num//1000                       /* just to track the    */
   if onum=0 then say jcl_num "processed"     /* process in joblog    */
   ...
end                                           /*                      */