creating a log spool file for backups

We have a CL program that operates our backups, but we have not been logging 
the details of what is backed up, whether or not it is successful, etc.

Here is a snippet of the program, if anyone has any suggestions on how to 
add in some logging I would be most appreciative.

0007.00 PGM                     
0008.00                         
0009.00 /* SET PROGRAM VARIABLES
0010.00 DCL &SYSDATE *CHAR 6    
0011.00 RTVSYSVAL QDATE &SYSDATE
0012.00                         
0013.00 /* ADD LIBRARY TO LIST  
0014.00 ADDLIBLE LIB(DPALMES)   
0015.00 MONMSG MSGID(CPF2103)   
 MONMSG MSGID(CPF2103)                                                   
                                                                         
 /* INITIALIZE THE TAPE                                                  
 INZTAP DEV(TAP01) NEWVOL(&SYSDATE) VOL(*MOUNTED) CHECK(*NO) DENSITY(*DE 
        ENDOPT(*REWIND) CLEAR(*NO)                                       
                                                                         
 /* SEND FIRST BREAK MESSAGE ANNOUNCING BACKUP IN 15 MINUTES             
 SNDBRKMSG MSG('SYSTEM GOING DOWN FOR NIGHTLY PROCESSING IN 15 MINUTES') 
           TOMSGQ(*ALLWS)                                                
           DLYJOB DLY(300)                                               
                                                                         
 /* SEND SECOND BREAK MESSAGE ANNOUNCING BACKUP IN 10 MINUTES            
 SNDBRKMSG MSG('SYSTEM GOING DOWN FOR NIGHTLY PROCESSING IN 10 MINUTES') 
           TOMSGQ(*ALLWS)                                                
           DLYJOB DLY(300)                                               
                                                                      
/* SEND THIRD BREAK MESSAGE ANNOUNCING BACKUP IN 5 MINUTES            
SNDBRKMSG MSG('SYSTEM GOING DOWN FOR NIGHTLY PROCESSING IN 5 MINUTES')
          TOMSGQ(*ALLWS)                                              
          DLYJOB DLY(180)                                             
                                                                      
/* SEND FOURTH BREAK MESSAGE ANNOUNCING BACKUP IN 3 MINUTES           
SNDBRKMSG MSG('SYSTEM GOING DOWN FOR NIGHTLY PROCESSING IN 3 MINUTES')
          TOMSGQ(*ALLWS)                                              
          DLYJOB DLY(120)                                             
                                                                        
/* SEND FINAL BREAK MESSAGE ANNOUNCING BACKUP IN 1 MINUTE               
SNDBRKMSG MSG('SYSTEM GOING DOWN FOR NIGHTLY PROCESSING IN 1 MINUTE') + 
          TOMSGQ(*ALLWS)                                                
          DLYJOB DLY(60)                                                
                                                                        
/* ADD IN VARY OFF COMMANDS HERE AT A LATER TIME TO VARY OFF VIRTUAL DE 
ENDSBS SBS(QINTER) OPTION(*IMMED)                                       
/* START THE BACKUP PROCESS                                             
                                                             
 /* BACKUP DIRECTORIES                                       
              SAVLIB     LIB(DPALMES) DEV(TAP01) SEQNBR(1) + 
                           ENDOPT(*LEAVE)                    
              SAVLIB     LIB(ATGI) DEV(TAP01) SEQNBR(2) +    
                           ENDOPT(*LEAVE)                    
              SAVLIB     LIB(ATFTLIB) DEV(TAP01) SEQNBR(3) + 
                           ENDOPT(*LEAVE)                    
             SAVLIB      LIB(ATLRLIB) DEV(TAP01) SEQNBR(4) + 
                          ENDOPT(*LEAVE)                    
             SAVLIB      LIB(ILMODTA) DEV(TAP01) SEQNBR(5) + 
                          ENDOPT(*LEAVE)                    
             SAVLIB      LIB(ILMOLIB) DEV(TAP01) SEQNBR(6) + 
                          ENDOPT(*LEAVE)                    
             SAVLIB      LIB(ILMOS) DEV(TAP01) SEQNBR(7) +   
                          ENDOPT(*LEAVE)                    
             SAVLIB      LIB(QGPL) DEV(TAP01) SEQNBR(8) +    
                          ENDOPT(*UNLOAD)        
                                   
 /* RESTART INTERACTIVE SUBSYSTEM  
 STRSBS SBSD(QINTER)               
                                   
 ENDPGM                            
           

If you bought, it was hauled by a truck - somewhere, sometime.