Which object not restored ?

[abhishek_ec002]

After restoration, how can i check which obj was not restored??

General method is to use joblog. But its very tidy if the number of objects in particular library is very large (i.e. 1000 or more).

Is there any short method or any utility for this ?

Waiting for your positive response......

[jamief]

Re: Which object not restored ?

not really....you could do a dspobjd on all objects *SERVICE i think.
then write program to compare all last saved dates....the one that
doesnt match the other(s) was not saved.

jamie

[littlepd]

Re: Which object not restored ?

DSPJOBLOG  JOB(&JOBNBR/&JOBUSR/&JOBNAM) OUTPUT(*PRINT)      
CPYSPLF    FILE(&FILENAME) TOFILE(QTEMP/JOBLOGPF) +         
             SPLNBR(*LAST)                                  
OVRDBF     FILE(JOBLOGPF) TOFILE(QTEMP/JOBLOGPF)                
CALL       PGM(PJL001R) PARM(&JOBNAM &JOBUSR &JOBNBR &FILENAME) 
DLTOVR     FILE(JOBLOGPF)

PJL001R:

FJobLogPf  if   f  132        disk              
*
*
*
d InRec           ds           132                                
d InData                       132                                
d MsgId                          7    overlay(InData:1)           
*
*
*
  setll 1 JobLogPf;                                                    
  Read JobLogPf InRec;                                                 
  DoW not %EOF;                                                        
                                                                       
    Select;                                                            
      When MsgID = 'CPF3756';              // File Message             
        Exsr CPF3756;                                                  
      When MsgID = 'CPF3773';              // Library Message          
        Exsr CPF3773;                                                  
      When MsgID = 'CPF3779';              // End of Restore Message   
        Exsr CPF3779;                                                  
    ENDSL;                                                             
                                                                       
    Read JobLogPf InRec;                                               
  Enddo;                                                               
*
*
*