Buenos días
Con el comando DSPPGM se puede visualizar el dato requerido
Visualizar Información de Programa
Pantalla 3 de 7
Programa . . . . . . . : ITSDSPMSG Biblioteca . . . . . . : ITSUTLLIB
Propietario . . . . . : ITSDES
Atributo programa . . : RPGLE
Detalle . . . . . . . : *MODULE
Teclee opciones, pulse Intro.
5=Visualizar descripción 6=Imprimir descripción
Fecha de Nivel de Datos de
Opc Módulo Biblioteca Atributo Creación Optimización Depuración
5 ITSDSPMSG QTEMP RPGLE 06/04/10 *NONE *YES
Visualizar Información de Programa
Programa . . . . . . . : ITSDSPMSG Biblioteca . . . . . . : ITSUTLLIB
Atributos de módulo:
Módulo . . . . . . . . . . . . . . . . . . . . : ITSDSPMSG
Biblioteca . . . . . . . . . . . . . . . . . : QTEMP
Archivo fuente . . . . . . . . . . . . . . . . : QRPGLESRC
Biblioteca . . . . . . . . . . . . . . . . . : ITSUTLLIB
Miembro fuente . . . . . . . . . . . . . . . . : ITSDSPMSG
Atributo de módulo . . . . . . . . . . . . . . : RPGLE
Fecha/hora de creación de módulo . . . . . . . : 06/04/10 16:43:53
Fecha/hora de cambio de archivo fuente . . . . : 06/04/10 16:43:29
Identificador de juego de caracteres . . . . . : 284
Datos de creación . . . . . . . . . . . . . . : *YES
Tabla de secuencia de ordenación . . . . . . . : *HEX
Identificador de lenguaje . . . . . . . . . . : *JOBRUN
Nivel de optimización . . . . . . . . . . . . : *NONE
Nivel máximo de optimización . . . . . . . . . : *FULL
Más...
Pulse Intro para continuar.
Con el API QCLRPGMI se puede obtener lo sigiuente:
Formato PGMI0100 Basic program information for OPM and ILE programs.
Formato PGMI0200 Basic program information for OPM and ILE programs plus SQL
statement information
Formato PGMI0300 ILE program size information.
Date: Thu, 17 Dec 2009 05:48:35 -0800
From: [email protected]
Subject: Consulta.
To: [email protected]
Buenas Tardes compañeros del foro
Quisiera conocer algun comando
o Api, que me permita recuperar y guardar en un archivo o spool la
libreria y el archivo fuente de una objeto RPGLE
Gracias de antemano por sus comentarios
Saludos
Rafael Betancourt Moreno
_________________________________________________________________
Keep your friends updated—even when you’re not signed in.
http://www.microsoft.com/middleeast/windows/windowslive/see-it-in-action/social-network-basics.aspx?ocid=PID23461::T:WLMTAGL:ON:WL:en-xm:SI_SB_5:092010____________________________________________________
© Publicaciones Help400, S.L. - Todos los
derechos reservados http://www.help400.es
----------------------------------------------------
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
