Re: external *PRTF (was: RE: 'ILE RPG' or 'RPG IV' . What's the difference!!!)

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]

Hello Jim,

You wrote:
>Then I came across another program I was trying to debug that had an
>external print file.  Okay, I was going to have to open up the source for
>that one.  I searched for the report file, and couldn't find it.  I then went 
>to
>the OCL and saw that the print file was overridden and was another name.
>I fouind the print file, then went to find the source, I couldn't find it.  
>After
>at least half an hours search I found  the source in a completely differet
>library, someone had moved the report file, but didn't take the source
>with it.

As you pointed out, your problem is not with RLU but is a source management 
issue.  
Now I am not repeat NOT defending RLU here.  You said the object had been moved 
but 
the source hadn't?  If that's what you meant then it shouldn't take more than 5 
minutes to find the source.  Use the following commands:

        DSPFD library/printer-file

Look in the spooled file for the following line (on the first page):

         Device File Attributes                                                 
  
           Externally described file . . . . . . . . . :            Yes         
  

Since the file is externally defined we can learn more from the object itself.

        DSPOBJD library/print-file *FILE

Take option 8=Display service attributes

 Object . . . . . . . . . . . . . . . . . :   PRTEX4A        
   Library  . . . . . . . . . . . . . . . :     IRPGV1LIB    
 Type . . . . . . . . . . . . . . . . . . :   *FILE          
                                                             
 Source file  . . . . . . . . . . . . . . :   QDDSSRC        
   Library  . . . . . . . . . . . . . . . :     IRPGV1LIB    
 Member . . . . . . . . . . . . . . . . . :   PRTEX4A        
 Attribute  . . . . . . . . . . . . . . . :   PRTF           

Looky there!  I know where the source is.

Of course, none of this will help if the source has been moved but then we're 
back 
to te real problem -- source management.

Regards,
Simon Coulter.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«» FlyByNight Software         AS/400 Technical Specialists       «»
«» Eclipse the competition - run your business on an IBM AS/400.  «»
«»                                                                «»
«» Phone: +61 3 9419 0175      Mobile: +61 0411 091 400           «»
«» Fax:   +61 3 9419 0175      mailto: shc@flybynight.com.au      «»
«»                                                                «»
«» Windoze should not be open at Warp speed.                      «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---