/* Delete the current file on the /QNTC/Server */ 
　　　DEL OBJLNK(&TOPATH) 
　　　MONMSG MSGID(CPFA0A9)
/* Move the newly generated file to the /QNTC/Server */ 
　　　MOVE   OBJ(&FRMPATH) + 
　　　TODIR('/QNTC/WINNTSVR01/Public/Daily + Operating Report') TOCCSID(*CALC)
　　MONMSG　 MSGID(CPFA0A9 CPFA0A0)
/* Change the /QNTC/Server file Authority to all Public Access */
　　 CHGAUT  OBJ(&TOPATH) USER(*PUBLIC) DTAAUT(*RWX) + OBJAUT(*ALL) 
　　MONMSG   MSGID(CPFA0A9 CPFA0AD)
　　 ENDDO 
　　RETURN 
　　ENDPGM