RE: disculpas por no cambiar el asunto.....!!!!!

Juan Carlos Paredes Thu, 06 Jul 2006 07:38:10 -0700

En principio, puedes leer un archivo fuente desde un programa como si fuera un archivo de datos y actualizarlo desde un programa RPG. Te adjunto un fuente que lee un fichero fuente y muestra un mensaje en función de haber encontrado o no la serie 'SqlCode":

fqrpglesrc if   e             disk    usropn
d @Command        s            256a   inz(*blank)
d @Length         s             15p 5 inz(0)
d @Posicion       s              5p 0 inz(0)
d @ExcCmd         pr                  extpgm('QCMDEXC')
d                              256a
d                               15p 5
/free
@Command='OVRDBF FILE(QRPGLESRC) TOFILE(QGPL/QRPGLESRC) ' +
           'MBR(CARQSLIBL)';
@Length=%len(%trim(@Command));
callp @ExcCmd (@Command:@Length);
open qrpglesrc;
read qarpglesrc;
dow not %eof(qrpglesrc);
    @Posicion = %scan('SqlCode':srcdta);

    if @Posicion<>0;
      dsply 'Ok';
    endif;
    read qarpglesrc;
enddo;
*inlr=*on;
return;

Saludos.

Juan Carlos.

De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de Hector Vera G.
Enviado el: jueves, 06 de julio de 2006 15:26
Para: [email protected]
Asunto: disculpas por no cambiar el asunto.....!!!!!

Pero ademas necesito modificarlos!!!!!!!

-----Mensaje original-----
De: Paco [mailto:[EMAIL PROTECTED]
Enviado el: Jueves, 06 de Julio de 2006 12:17 a.m.
Para: [email protected]
Asunto: RE: condolencias para los valencianos

Con el STRPDM opcion 25 en QRPGSRC o QRPGILESRC no te sirve????

Saludos

Paco Medina

Exclusivas Camacho, S.Ltda.

Dtor.Informatica

De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de Hector Vera G.
Enviado el: jueves, 06 de julio de 2006 1:36
Para: [email protected]
Asunto: RE: condolencias para los valencianos

Hola foro!!!

Estoy en un pequeño proyecto y deseo medir el impacto del cambio, para ello necesito leer todos los programas fuentes de los archivos QRPGSRC y QRPGLESRC y buscar determinado string en los fuentes.

Alguien tiene algo que me pueda ayudar.

Gracias de antemano.

saludos,

Hector

RE: disculpas por no cambiar el asunto.....!!!!!

Responder a