Rif: Source reference from ILE Pgm

    
   You must use an API (QBNLPGMI - List ILE Program Information)
   Ciao,
   Elisabetta
    
   -----bpcs-l-bounces+elisabetta.migliaretti=gminformatica.it@xxxxxxxxxxxx
   ha scritto: -----

   Per: "SSA's BPCS ERP System" <bpcs-l@xxxxxxxxxxxx>
   Da: "Davide Roveda" <Davide.Roveda@xxxxxxxxxxxxx>
   Inviato da:
   bpcs-l-bounces+elisabetta.migliaretti=gminformatica.it@xxxxxxxxxxxx
   Data: 24/01/2006 11.45
   Oggetto: [BPCS-L] Source reference from ILE Pgm

   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 SSA's BPCS ERP System (BPCS-L) mailing list
   To post a message email: BPCS-L@xxxxxxxxxxxx
   To subscribe, unsubscribe, or change list options,
   visit: http://lists.midrange.com/mailman/listinfo/bpcs-l
   or email: BPCS-L-request@xxxxxxxxxxxx
   Before posting, please take a moment to review the archives
   at http://archive.midrange.com/bpcs-l.

   Delivered-To: elisabetta.migliaretti@xxxxxxxxxxxxxxxx