Source reference from ILE Pgm

["Davide Roveda" <Davide.Roveda@xxxxxxxxxxxxx>]

Hello All

I'm trying to obtain source information from a program ILE, on OUTFILE. 

If you make these step via DSPOBJD on FILE, of an RPG/DDS/CLP and so on
you will obtain, on the designed outfile the "source" field properly
filled: 

ODLBNM     Libreria                       A    14    23    10
B612OMM
ODOBNM     Oggetto                        A    24    33    10
ACP100D1
ODOBTP     Tipo di oggetto                A    34    41     8     *PGM
ODOBAT     Attributo dell'oggetto         A    42    51    10     RPG 

ODSRCF     Nome del file origine          A   255   264    10
QRPGSRC
ODSRCL     Libreria del file origine      A   265   274    10
V610BPCSWK
ODSRCM     Membro del file origine        A   275   284    10
ACP100D1
ODSRCC     Secolo modifica SRC: 0=19xx,   A   285   285     1     1
ODSRCD     Data modifica SRC (YYMMDD)     A   286   291     6     011026
ODSRCT     Ora modifica SRC (HHMMSS)      A   292   297     6     135642

Now, if you make the same for ILE: 

ODLBNM     Libreria                       A    14    23    10
B820PMM
ODOBNM     Oggetto                        A    24    33    10
ACP100D1
ODOBTP     Tipo di oggetto                A    34    41     8     *PGM
ODOBAT     Attributo dell'oggetto         A    42    51    10     RPGLE

ODSRCF     Nome del file origine          A   255   264    10
ODSRCL     Libreria del file origine      A   265   274    10
ODSRCM     Membro del file origine        A   275   284    10
ODSRCC     Secolo modifica SRC: 0=19x     A   285   285     1
ODSRCD     Data modifica SRC (YYMMDD)     A   286   291     6
ODSRCT     Ora modifica SRC (HHMMSS)      A   292   297     6


This info is somehow available, if you use WRKPGM, option 5, on the 3
screen you can have that: 

                Visualizzazione delle informazioni sul programma

                                                             Schermo 3
di 7 
 Programma  . . . . . . :   ACP100D1      Libreria . . . . . . . :
B820PMM    
 Prop.  . . . . . . . . :   SSA

 Attributo del programma:   RPGLE

 Dettagli . . . . . . . :   *MODULE

 

 

 Immettere le opzioni, premere Invio.

   5=Vis. descrizione   6=Stampa descrizione

 

                                           Data      Livello      Dati

 Opz.  Modulo      Libreria    Attributo   creaz.    ottimizzaz.  debug

  5    ACP100D1    QTEMP       RPGLE       27/05/03  *FULL        *NO

 

 
Fine  
 F3=Uscita   F12=Annull.   F17=Inizio dati   F18=Fine

 


                Visualizzazione delle informazioni sul programma

 

 Programma  . . . . . . :   ACP100D1      Libreria . . . . . . . :
B820PMM    
 

 Attributi del modulo:

   Modulo . . . . . . . . . . . . . . . . . . . . :   ACP100D1

     Libreria . . . . . . . . . . . . . . . . . . :     QTEMP

   File origine . . . . . . . . . . . . . . . . . :   QRPGLESRC

     Libreria . . . . . . . . . . . . . . . . . . :     V82WMMO

   Membro origine . . . . . . . . . . . . . . . . :   ACP100D1

   Attributo del modulo . . . . . . . . . . . . . :   RPGLE

   Data/ora di creazione del modulo . . . . . . . :   27/05/03  15:54:27

   Data/ora di modifica del file origine  . . . . :   27/05/03  15:54:17

   Identificativo serie caratteri codificati  . . :   65535

   Creazione dati . . . . . . . . . . . . . . . . :   *UNOBS

   Tabella di sequenza ordinamento  . . . . . . . :   *HEX

   Identificativo lingua  . . . . . . . . . . . . :   *JOBRUN

   Livello ottimizzazione . . . . . . . . . . . . :   *FULL

   Livello massimo ottimizzazione . . . . . . . . :   *FULL

                                                                       
 

 F3=Fine   F12=Annull.

 

Now, how these info can be obtained into an OUTFILE? 

Thanks

Davide