Fffd001    if   e             disk    rename(QWHDRFFD:rcd1) prefix(I)     
 Fffd002    if   e             disk    rename(QWHDRFFD:rcd2) prefix(O)     
 Ftol026w   cf   e             workstn sfile(sfl:recno)                    
 Fqsysprt   o    f   80        printer oflind(*INOF)        usropn         
  *                                                                        
 C     *entry        plist                                                 
 C                   parm                    obj                           
 C                   parm                    lib                           
 C                   parm                    obj1                          
 C                   parm                    lib1                          
 C                   parm                    typo                          
 C                   time                    tyme              6 0         
  *                                                                        
 C                   if        typo = '*FLD'                               
 C                   eval      detail = '(Campos)    '                     
 C                   else                                                  
 C                   eval      detail = '(Claves)    '                     
 C                   endif                                                 
 C                   movea     '00'          *in(30)                       
 C                   z-add     0             recno             6 0         
 C                   write     ctl                                         
 C                   write     foot                                        
  *                                                                        
C                   if        not *in22                                
C                   exsr      wrtdet                                   
C                   endif                                              
 *                                                                     
C                   if        recno > 0                                
C                   movea     '11'          *in(30)                    
C                   else                                               
C                   movea     '01'          *in(30)                    
C                   endif                                              
 *                                                                     
C                   dow       not *in12                                
C                   write     foot                                     
C                   exfmt     ctl                                      
 *                                                                     
C                   if        *in22                                    
C     1             chain     ffd001                                   
C     1             chain     ffd002                                   
C                   exsr      prtanz                                   
C                   endif                                              
C                   enddo                                              
C                   eval      *inlr = *on                              
 * ---------------------------------------------------------------     
C     prtanz        begsr                                              
C                   open      qsysprt                              99  
C  n99              except    head                                          
C                   exsr      wrtdet                                        
C                   close     qsysprt                              99       
C                   endsr                                                   
 *  --------------------------------------------------------------          
C     wrtdet        begsr                                                   
C                   read      ffd001                                 01     
C                   read      ffd002                                 02     
 *                                                                          
C                   dow       not *in01 or not *in02                        
C                   clear                   exist                           
C                   clear                   long                            
C                   clear                   texto                           
C                   clear                   ok                              
 *                                                                          
C                   if        *in01                                         
C                   movel     *blanks       IWHFLDI                         
C                   z-add     0             IWHFLDB                         
C                   z-add     0             IWHFLDD                         
C                   z-add     0             IWHFLDP                         
C                   endif                                                   
 *                                                                          
C                   if        *in02                                         
C                   movel     *blanks       OWHFLDI                         
C                   z-add     0             OWHFLDB                   
C                   z-add     0             OWHFLDD                   
C                   z-add     0             OWHFLDP                   
C                   endif                                             
 *                                                                    
C                   if        IWHFLDI = OWHFLDI and                   
C                             IWHFLDB = OWHFLDB and                   
C                             IWHFLDD = OWHFLDD and                   
C                             IWHFLDP = OWHFLDP                       
C                   move      'X'           OK                        
C                   endif                                             
 *                                                                    
C                   if        IWHFLDI <> OWHFLDI                      
C                                                                     
C                   move      'X'           EXIST                     
C                   endif                                             
 *                                                                    
C                   if        IWHFLDB <> OWHFLDB or                   
C                             IWHFLDD <> OWHFLDD or                   
C                             IWHFLDP <> OWHFLDP                      
C                   move      'X'           long                      
C                   endif                                             
 *                                                                    
C                   if        IWHFTXT <> OWHFTXT                      
C                   move      'X'           texto                             
C                   endif                                                     
 * --------------------------------------------------------------------       
C                   if        not *in22                                       
C                   eval      recno = recno + 1                               
C                   write     sfl                                             
C                   else                                                      
C                   except    prtdet                                          
 *                                                                            
C                   if        *INOF                                           
C                   except    head                                            
C                   endif                                                     
C                   endif                                                     
C                   read      ffd001                                 01       
C                   read      ffd002                                 02       
C                   enddo                                                     
C                   endsr                                                     
 * ---------------------------------------------------------------            
Oqsysprt   E            head           1 02                                   
O                                           +3 'TOL026'                       
O                                          +19 'Comparar Archivos físicos'    
O                       *date         Y     80                                
O          E            head           1                                      
O                       tyme                80 '  :  :  '                     
O                       tyme                80 '  :  :  '                    
O          E            head           2                                     
O                                          + 0 'Tipo de analisis: '          
O                       typo               + 1                               
O                       detail             + 1                               
O          E            head           1                                     
O                                          + 0 'Archivo  1:'                 
O                       obj                + 1                               
O                                          + 1 'Archivo  2:'                 
O                       obj1               + 1                               
O          E            head           1                                     
O                                          + 0 'Biblioteca:'                 
O                       lib                                                  
O                                          + 1 'Biblioteca:'                 
O                       lib1               + 1                               
O                                           74 'D I F E R E N C I A S'       
O          E            head           1                                     
O                                          + 0 '______________________'      
O                                          + 1 '______________________'      
O                                          + 7 '____________________'        
O          E            head           1                                     
O                                          + 0 'Campo_______Long_En_Dc'      
O                                          + 1 'Campo_______Long_En_Dc'      
O                                          + 7 'Exist_Long_Texto__Ok__'      
O          E            prtdet         1                                     
O                       IWHFLDI            + 0                               
O                       IWHFLDB       Z    + 1                               
O                       IWHFLDD       Z    + 1                               
O                       IWHFLDP       Z    + 1                               
O                       OWHFLDI            + 1                               
O                       OWHFLDB       Z    + 1                               
O                       OWHFLDD       Z    + 1                               
O                       OWHFLDP       Z    + 1                               
O                       exist              + 8                               
O                       long               + 5                               
O                       texto              + 5                               
O                       ok                 + 5