**FREE                                                                                              
DCL-DS Duratn_FldRef QUALIFIED;                                                                     
Date#5                 ZONED(5);                                                                    
Date#6                 ZONED(6);                                                                    
Date#7                 ZONED(7);                                                                    
Date#8                 ZONED(8);                                                                    
DateChr                CHAR(10);                                                                    
DurationFmt            CHAR(10);                                                                    
Time#                  ZONED(6);                                                                    
TimeChr                CHAR(8);                                                                     
Timestmp#              ZONED(20);                                                                   
TimestmpChr            CHAR(26);                                                                    
END-DS;                                                                                             
                                                                                                    
DCL-DS dsDuratn_RetDate QUALIFIED;                                                                  
Date DATE INZ;                                                                                      
Success IND INZ(*OFF);                                                                              
END-DS;                                                                                             
                                                                                                    
DCL-DS dsDuratn_RetDate# QUALIFIED;                                                                 
Date# LIKE(Duratn_FldRef.Date#8) INZ;                                                               
Success IND INZ(*OFF);                                                                              
END-DS;                                                                                             
                                                                                                    
DCL-DS dsDuratn_RetDateChr QUALIFIED;                                                               
DateChr LIKE(Duratn_FldRef.DateChr) INZ;                                                            
Success IND INZ(*OFF);                                                                              
END-DS;                                                                                             
                                                                                                    
DCL-DS dsDuratn_RetTime QUALIFIED;                                                                  
Time TIME INZ;                                                                                      
Success IND INZ(*OFF);                                                                              
END-DS;                                                                                             
                                                                                                    
DCL-DS dsDuratn_RetTime# QUALIFIED;                                                                 
Time# LIKE(Duratn_FldRef.Time#) INZ;                                                                
Success IND INZ(*OFF);                                                                              
END-DS;                                                                                             
                                                                                                    
DCL-DS dsDuratn_RetTimeChr QUALIFIED;                                                               
TimeChr LIKE(Duratn_FldRef.TimeChr) INZ;                                                            
Success IND INZ(*OFF);                                                                              
END-DS;