Re: Service Program

Jaime Villa Torres Thu, 04 Sep 2003 18:04:55 -0700

Title: RE: Service Program

Nicol�s, gracias por tu respuesta, pero creo que mi necesidad es al contrario, o no te entiendo correctamente,

Tengo el programa A , cuando lo compilo con CRTPGM, incluyo el Service Program B( y as� muchos programas), cuando cambio el programa B, esos cambios no los puede utilizar el programa A, mi pregunta es como enlazo a B desde A, pero que B no sea parte del objeto de A

Ahora no se si lo enrede m�s....gracias y perd�n por insistir

Jaime Villa T.

----- Mensaje original -----

De: Nico AS/400

Para: [EMAIL PROTECTED]

Enviado: Jueves, 04 de Septiembre de 2003 06:29 p.m.

Asunto: Re: Service Program

Hola Tambien se puede indicar que LVLCHK(*NONE)

Y si cambias el Service Program, es decir le agregas funciones, no te afecta a los porgramas que los usan.

Este LVLCHK funciona con una filosofia similar a los archivos.

Saludos

Nicolas

----- Original Message -----

From: Pinedo Pedro

To: [EMAIL PROTECTED]

Sent: Thursday, September 04, 2003 3:59 AM

Subject: RE: Service Program

No es necesario recompir el programa de servicio.
El fuente que te mando especifica las llamadas que hacia antes el programa de servicio y las que hace ahora. Si a�ades las llamadas al final no tienes problemas.

as . . :    1 71           Edici�n                      AULIBD/QSRVSRC
                                                                  AUSERV
...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
STRPGMEXP PGMLVL(*PRV)
/********************************************************************/
/*      *MODULE    AUSERV         AULIBD          200601         */
/********************************************************************/
   EXPORT SYMBOL("AUSERV")
   EXPORT SYMBOL("AUCONT")
   EXPORT SYMBOL("AUMAMI")
   EXPORT SYMBOL("AUSACE")
   EXPORT SYMBOL("VALFEC")
   EXPORT SYMBOL("CALFEC")
   EXPORT SYMBOL("EDTNUM")
   EXPORT SYMBOL("PRCENT")
   EXPORT SYMBOL("DIV365")
ENDPGMEXP
STRPGMEXP PGMLVL(*CURRENT)
/********************************************************************/
/*      *MODULE    AUSERV         AULIBD          291101         */
/********************************************************************/
EXPORT SYMBOL("AUSERV")
EXPORT SYMBOL("AUCONT")
EXPORT SYMBOL("AUMAMI")
EXPORT SYMBOL("AUSACE")
EXPORT SYMBOL("VALFEC")
EXPORT SYMBOL("CALFEC")
EXPORT SYMBOL("EDTNUM")
EXPORT SYMBOL("PRCENT")
EXPORT SYMBOL("DIV365")
ENDPGMEXP
****************** Fin de datos ***************************************

Luego al crear programa de servicio:

                     Crear Programa de Servicio (CRTSRVPGM)            Nivel: 2

Teclee elecciones, pulse Intro.

Etiqueta . . . . . . . . . . . .
Programa de servicio . . . . . . > auserv        Nombre
   Biblioteca . . . . . . . . . . >   &BIBLI      Nombre, *CURLIB
M�dulo . . . . . . . . . . . . . > *SRVPGM       Nombre, gen�rico*, *SRVPGM...
   Biblioteca . . . . . . . . . .                 Nombre, *LIBL, *CURLIB...
               + para m�s valores

Exportar . . . . . . . . . . . . > *SRCFILE      *SRCFILE, *ALL
Exportar archivo fuente . . . . > QSRVSRC       Nombre, QSRVSRC
   Biblioteca . . . . . . . . . . >   &BIBLI      Nombre, *LIBL, *CURLIB
Exportar miembro fuente . . . .   *SRVPGM       Nombre, *SRVPGM
Texto descriptivo . . . . . . .   *BLANK

Espero que esto te ayude.

> -----Mensaje original-----
> De: Jaime Villa Torres [mailto:[EMAIL PROTECTED]]
> Enviado el: jueves, 04 de septiembre de 2003 02:24
> Para: [EMAIL PROTECTED]
> Asunto: Service Program
>
>
> Como siempre un favor, como puedo compilar un programa que
> utiliza un service program, pero que lo ejecute como un
> llamado, que no sea parte del objeto del programa llamador,
> esto es necesario ya el service program es utilizado por
> muchos otros programas, pero cuando se cambia el service
> program hay que recompilar nuevamente todos los programas.
>
> De antemano gracias.
>
> Jaime Villa T.
>
>
>
> _____________________________________________________
> Forum.HELP400 es un servicio m�s de NEWS/400.
> � Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es _____________________________________________________

Para darte de baja, env�a el mensaje resultante de pulsar mailto:[EMAIL PROTECTED]
_____________________________________________________________________ AMCOR FLEXIBLES EUROPE - LEADING THROUGH INNOVATION _____________________________________________________________________ CAUTION - This message may contain privileged and confidential information intended only for the use of the addressee named above. If you are not the intended recipient of this message you are hereby notified that any use, dissemination, distribution or reproduction of this message is prohibited. If you have received this message in error please notify AMCOR FLEXIBLES EUROPE immediately. Any views expressed in this message are those of the individual sender and may not necessarily reflect the views of AMCOR FLEXIBLES EUROPE.

Re: Service Program

Responder a