We help IT Professionals succeed at work.

Retrieving DDS source from QASYCOJ4

NicoJanga
NicoJanga asked
on
Hi, I would like to know if there is a way I can retrieve the dds source from file QASYCOJ4 generated in QTEMP with DSPAUDJRNE.
Thank you in advance for your help.
Regards
Nico
Comment
Watch Question

Barry HarperConsultant
CERTIFIED EXPERT

Commented:
There are some freeware Retrieve DDS commands; google RTVDDSSRC and take your pick!

Here is sample output from my system:

A*****************************************************************
A*      Desc: Outfile for journal entry type CO                  *
A*                                                               *
A* File Name: QASYCOJ4                                           *
A*                                                               *
A*      User: BH                                                 *
A*                                                               *
A*      Date: 11/02/11                                           *
A*                                                               *
A* This source file was constructed using the RTVDDSSRC          *
A* command.                                                      *
A*                                                               *
A*****************************************************************
A          R QASYCOJ4                  TEXT('Journal format for entry type CO')
A                                       CO')                      
A            COENTL         5S 0                                  
A                                      TEXT('Length of entry')    
A                                      COLHDG('Entry' 'length')    
A            COSEQN        10S 0                                  
A                                      TEXT('Sequence number')    
A                                      COLHDG('Sequence' 'number')
A            COCODE         1A                                    
A                                      TEXT('Journal code')        
A                                      COLHDG('Code')              
A            COENTT         2A                                    
A                                      TEXT('Entry type')          
A                                      COLHDG('Type')              
A            COTSTP          Z                                    
A                                      TEXT('Timestamp of entry')  
A                                      COLHDG('Timestamp')        
A            COJOB         10A                                    
A                                      TEXT('Name of job')        
A                                      COLHDG('Job' 'name')        
A            COUSER        10A                                  
A                                      TEXT('User of job')      
A                                      COLHDG('Job' 'user')      
A            CONBR          6S 0                                
A                                      TEXT('Number of job')    
A                                      COLHDG('Job' 'number')    
A            COPGM         10A                                  
A                                      TEXT('Name of program')  
A                                      COLHDG('Program' 'name')  
A            CORES1        51A                                  
A                                      TEXT('Not used')          
A                                      COLHDG('Reserved')        
A            COUSPF        10A                                  
A                                      TEXT('User profile name')
A                                      COLHDG('User' 'profile')  
A            COSYNM         8A                                  
A                                      TEXT('System name')      
A                                      COLHDG('System' 'name')          
A            CORES2        20A                                          
A                                      TEXT('Not used')                
A                                      COLHDG('Reserved')              
A            CORESA        50A                                          
A                                      TEXT('Not used')                
A                                      VARLEN(50)                      
A                                      COLHDG('Reserved')              
A            COESDL         4B 0                                        
A                                      TEXT('Length of specific data')  
A                                      COLHDG('Specific' 'data' 'length')
A            COETYP         1A                                          
A                                      TEXT('Type of entry')            
A                                      COLHDG('Entry' 'type')          
A            COONAM        10A                                          
A                                      TEXT('Name of object')          
A                                      COLHDG('Object' 'name')          
A            COOLIB        10A                                        
A                                      TEXT('Library name')          
A                                      COLHDG('Library' 'name')      
A            COOTYP         8A                                        
A                                      TEXT('Object type')            
A                                      COLHDG('Object' 'type')        
A            CORES3        20A                                        
A                                      TEXT('Not used')              
A                                      COLHDG('Reserved')            
A            COOUSR        10A                                        
A                                      TEXT('Office user name')      
A                                      COLHDG('Office' 'user')        
A            COODLO        12A                                        
A                                      TEXT('Folder or document name')
A                                      COLHDG('DLO' 'name')          
A            CORES4         8A                                        
A                                      TEXT('Not used')              
A                                      COLHDG('Reserved')              
A            COOFLR        63A                                          
A                                      TEXT('Folder path')              
A                                      COLHDG('Folder' 'path')          
A            COOBUS        10A                                          
A                                      TEXT('Office on behalf of user')
A                                      COLHDG('Behalf' 'of' 'user')    
A            CORES5        18A                                          
A                                      TEXT('Not used')                
A                                      COLHDG('Reserved')              
A            COOLEN         4B 0                                        
A                                      TEXT('Object name length')      
A                                      COLHDG('Object' 'name' 'length')
A            COCCID         5B 0                                        
A                                      TEXT('Object name CCSID')        
A                                      COLHDG('Object' 'name' 'CCSID')  
A            COCNTY         2A                                          
A                                      TEXT('Object name region ID')  
A                                      COLHDG('Object' 'name' 'region')
A            COLANG         3A                                        
A                                      TEXT('Object name language ID')
A                                      COLHDG('Object' 'name' 'language')
A            CORES6         3A                                        
A                                      TEXT('Not used')                
A                                      COLHDG('Reserved')              
A            COPFID        16A                                        
A                                      TEXT('Parent directory file ID')
A                                      CCSID(65535)                    
A                                      COLHDG('Parent' 'file' 'ID')    
A            COOFID        16A                                        
A                                      TEXT('Object file ID')          
A                                      CCSID(65535)                    
A                                      COLHDG('Object' 'file' 'ID')    
A            COOBJN       512A                                        
A                                      TEXT('Object name')          
A                                      COLHDG('Object' 'name')      
A            COOID         16A                                      
A                                      TEXT('Object file ID')        
A                                      CCSID(65535)                  
A                                      COLHDG('Object' 'file' 'ID')  
A            COASP         10A                                      
A                                      TEXT('ASP name')              
A                                      COLHDG('ASP' 'name')          
A            COASPN         5A                                      
A                                      TEXT('ASP number')            
A                                      COLHDG('ASP' 'number')        
A            COPCCI         5B 0                                    
A                                      TEXT('Path name CCSID')      
A                                      COLHDG('Path' 'name' 'CCSID')
A            COPCNT         2A                                      
A                                      TEXT('Path name region ID')  
A                                      COLHDG('Path' 'name' 'region')  
A            COPLAN         3A                                          
A                                      TEXT('Path name language ID')    
A                                      COLHDG('Path' 'name' 'language')
A            COPNLN         4B 0                                        
A                                      TEXT('Path name length')        
A                                      COLHDG('Path' 'name' 'length')  
A            COAPIN         1A                                          
A                                      TEXT('Absolute path name indicator')
A                                      COLHDG('Absolute' 'path' 'indicator')
A            CORPFI        16A                                          
A                                      TEXT('Relative file ID of path n
A                                      ')                              
A                                      CCSID(65535)                    
A                                      COLHDG('Relative' 'file' 'ID')  
A            COPNM       5000A                                          
A                                      TEXT('Path name')    
A                                      VARLEN(100)          
A                                      CCSID(65535)          
A                                      COLHDG('Path' 'name')

If you need more, post back!
Barry

Author

Commented:

Yes, I also need this for QASYCPJ4, QASYDOJ4, QASYPWJ4, QASYSVJ4 and QASYZCJ4

Thank you very much Barry. I appreciate this.
Consultant
CERTIFIED EXPERT
Commented:
Here they are! You should check out the RTVDDSSRC tools for future reference.
Barry
QDDSSRC.QASYCOJ4.txt
QDDSSRC.QASYCPJ4.txt
QDDSSRC.QASYDOJ4.txt
QDDSSRC.QASYPWJ4.txt
QDDSSRC.QASYSVJ4.txt
QDDSSRC.QASYZCJ4.txt
This seems to be a question without reason. What use is there for DDS for those files? You certainly shouldn't be recompiling them on any system, and the existing files provide any necessary references -- just use REFFLD().

The only reason would seem to be that someone deleted the model files from a system. In such a case, a better option would be to restore them.

Tom
What I'm wondering is whether there is a misunderstanding about how or why to use these files. If you want to compile these in order to have your own copies in a different library, there are better ways than to compile them. If you want to use the record formats in your own programming, the DDS isn't needed at all.

Tom