|
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. ****************************************************************************
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.