modified=0;                                                 
                                                            
      /* In the PUBTRAK application, CHECK determines if  */
      /* the user modified any field and sets the         */
      /* value of MODIFIED accordingly                    */
   link check;                                              
                                                            
if modified then do;                                        
                                                            
      /* Assign appropriate values to the WHOTW and       */
      /* UPDTTW variables.                                */
   whotw=symget('sysjobid');                                
   updttw=today();                                          
end;                                                        
return;