RE: ILE reference data -- RPG400-L

The following link may help...

http://www.mcpressonline.com/mc?50@xxxxxxxxxxxxxxxxx@.6b32b846

 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Davide Roveda
Sent: 30 January 2006 21:15
To: RPG programming on the AS400 / iSeries
Subject: ILE reference data 

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

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or
change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
****************************************************************************

This e-mail is confidential, intended only for the named recipient(s) above,
and may well also be legally privileged. If you have received it in error,
you are on notice of its status. Please notify us immediately by reply
e-mail and then delete this message from your system. Please do not copy it
or use it for any purposes, or disclose its contents to any other person: to
do so could be a breach of confidence. Please contact us on +44 (0) 1329
224000 or email postmaster@xxxxxxxxxxxxxxxxxxxxxxx if you need assistance.
Thank you for your co-operation.

****************************************************************************