Flat file comparision

[A Paul <amandapaul1@xxxxxxxxxxx>]

Below is my code 
 
       IF         COND(Z10_A = 'ADMFILE' & Z10_B = &LIB) THEN(DO)    
   ALCOBJ     OBJ((Z10_B/Z10_A *FILE *EXCL)) WAIT(500)            
   MONMSG     MSGID(CPF1002 CPF1085) EXEC(GOTO CMDLBL(RETRY))       
   CALL       PGM(ADMPGMC)                                      
   CLRPFM     FILE(&LIB/ADM.FILE)                                  
   MONMSG     MSGID(CPF3142) EXEC(CRTPF FILE(&LIB/ADM.FILE)   
   CPYF       FROMFILE(&LIB/ADMFILE) TOFILE(&LIB/ADM.FILE) MBROPT(*REPLACE)   
   COMMANDC   P1(ADM.FILE) P2(&LIB)    
   DLTF       FILE(&LIB/ADMFILE)                                   
   ENDDO 

I receive a flat file by name ADMFILE into AS/400, This flat file does not contain any date in it. I apply the contents of the file(to my in house files) by calling an internal program. I copy the contents of the file into another file (flat file in our system contain dot)and delete it. 
 
What I am trying to do is compare the file as soon as it received  with previous day file and  if both are same  send an email alert ( if both are different dont do anything and go to next step) and if the file is not received by certain time send an email alert.
I am looking for AS/400 utility(or if any code) that does the job and also open for suggestions to change my existing code. I need to keep check for the file for an hour time and send an alert as well.
 
Thanks