Error en ILE COBOL al llamar a otro ILE COBOL

2018-01-24 Por tema Javier B. 
Buenos días :



Estamos intentando meternos en ILE/COBOL y tenemos problemas con algo tan 
básico como llamar a otro ILE COBOL.

Os explicamos brevemente en qué consiste nuestra prueba :

El programa LLAMA1ILE llama a LLAMA2ILE.

Creamos cada programa en un módulo separado y creamos programa LLAMA.

Pero, al ejecutar LLAMA, da el siguiente error :

No puede resolverse la referencia al objeto LLAMA2ILE. Tipo y Subtipo

  X'0201' Autorización X''.

Error de función. MCH3401 no supervisado por LLAMA en la sentencia

  21, instrucción X''.

Mensaje 'MCH3401' en programa 'LLAMA' de la biblioteca 'JAVI' (C D F G).


LLAMA1ILE :

…

CALL 'LLAMA2ILE'.

STOP RUN.



Creo módulo con :

CRTCBLMOD MODULE(JAVI/LLAMA1ILE)

  SRCFILE(JAVI/QRPGSRC)

  SRCMBR(LLAMA1ILE)

  DBGVIEW(*LIST)



LLAMA2ILE :

PROCEDURE DIVISION.

INICIO.

MOVE '1' TO WP1.

MOVE '2' TO WP2.

EXIT PROGRAM.



Creamos módulo con :

CRTCBLMOD MODULE(JAVI/LLAMA2ILE)

  SRCFILE(JAVI/QRPGSRC)

  SRCMBR(LLAMA2ILE)

  DBGVIEW(*LIST)



LLAMA :

Creamos programa con :

CRTPGM PGM(JAVI/LLAMA)

   MODULE(JAVI/LLAMA1ILE JAVI/LLAMA2ILE)



¿Alguien nos podría ayudar por favor?



Saludos y gracias por anticipado,



Javier


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

RE: Archivo qpsrvtrcj

2018-01-24 Por tema LLagostera Vila, Emilio 
Si un trace de comunicaciones sería algo así:

STRSST

USUARIO/CONTRAESEÑA

Opcion 1 - Arrancar una herramienta de servicio

3. Trabajar con rastreo de comunicaciones

Y mira si hay algun raastreo activo.


Saludos,



-Mensaje original-
De: forum.help400-boun...@listas.combios.es 
[mailto:forum.help400-boun...@listas.combios.es] En nombre de beng...@einb.net
Enviado el: miércoles, 24 de enero de 2018 14:03
Para: forum.help400 
Asunto: RE: Archivo qpsrvtrcj

Buenos días, y se puede deshabilitar?

Saludos y gracias

El 24-01-2018 13:58, LLagostera Vila, Emilio escribió:
> Tienes habilitada alguna traza.creo
>
> Objeto . . . . . . . :   QPSRVTRCJ   Atributo . . . . . . :   PRTF
>   Biblioteca . . . . : QSYS  Propietario  . . . . :   QSYS
> Disp ASP biblioteca  :   *SYSBAS Grupo ASP biblioteca :
> *SYSBAS
> Tipo . . . . . . . . :   *FILE   Grupo primario . . . :   *NONE
>
> Información definida por el usuario:
>   Atributo . . . . . . . . . . . . . . :
>   Texto  . . . . . . . . . . . . . . . :   Printer file for service
> trace
>
>
> -Mensaje original-
> De: forum.help400-boun...@listas.combios.es
> [mailto:forum.help400-boun...@listas.combios.es] En nombre de
> beng...@einb.net Enviado el: miércoles, 24 de enero de 2018 13:27
> Para: as400 
> Asunto: Archivo qpsrvtrcj
>
> Buenos días, desde hace unos días me he fijado que me sale un mensaje
> de que el archivo qpsrvtrcj esta lleno,  no se que trabajo del sistema
> me esta generando este fichero, y si se puede parar, he buscado por
> Internet pero no encuentro nada.
>
> Saludos
>
> Ana Noguero
> 
> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> Forum.Help400 © Publicaciones Help400, S.L.
>
> P Antes de imprimir este mensaje piense bien si es necesario hacerlo:
> El medio ambiente es cosa de todos.
> La información de este mensaje y documentación adjunta es propiedad de
> BANCO MEDIOLANUM, S. A.; tiene carácter confidencial, y se dirige
> exclusivamente a su destinatario. Si ha recibido este mensaje por
> error, le rogamos que lo comunique al emisor por esta misma vía y
> proceda a su destrucción o borrado. Utilizar, reproducir, alterar o
> comunicar a terceros el presente mensaje o parte del mismo, sin
> consentimiento previo y expreso de BANCO MEDIOLANUM, S. A. está
> prohibido y puede comportar responsabilidades legales para el
> infractor.
> 
> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> Forum.Help400 © Publicaciones Help400, S.L.

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

P Antes de imprimir este mensaje piense bien si es necesario hacerlo: El medio 
ambiente es cosa de todos.
La información de este mensaje y documentación adjunta es propiedad de BANCO 
MEDIOLANUM, S. A.; tiene carácter confidencial, y se dirige exclusivamente a su 
destinatario. Si ha recibido este mensaje por error, le rogamos que lo 
comunique al emisor por esta misma vía y proceda a su destrucción o borrado. 
Utilizar, reproducir, alterar o comunicar a terceros el presente mensaje o 
parte del mismo, sin consentimiento previo y expreso de BANCO MEDIOLANUM, S. A. 
está prohibido y puede comportar responsabilidades legales para el infractor.

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Error en ILE COBOL al llamar a otro ILE COBOL

2018-01-24 Por tema José Ignacio Lázaro 
Las llamadas a procedimientos se hacen con call linkage procedure
Un saludo.
José Ignacio.

El 24/1/2018 11:52 a. m., "Javier Baca"  escribió:

> Buenos días :
>
>
>
> Estamos intentando meternos en ILE/COBOL y tenemos problemas con algo tan
> básico como llamar a otro ILE COBOL.
>
> Os explicamos brevemente en qué consiste nuestra prueba :
>
> El programa LLAMA1ILE llama a LLAMA2ILE.
>
> Creamos cada programa en un módulo separado y creamos programa LLAMA.
>
> Pero, al ejecutar LLAMA, da el siguiente error :
>
> No puede resolverse la referencia al objeto LLAMA2ILE. Tipo y Subtipo
>
>   X'0201' Autorización X''.
>
> Error de función. MCH3401 no supervisado por LLAMA en la sentencia
>
>   21, instrucción X''.
>
> Mensaje 'MCH3401' en programa 'LLAMA' de la biblioteca 'JAVI' (C D F G).
>
>
>
> *LLAMA1ILE :*
>
> …
>
> CALL 'LLAMA2ILE'.
>
> STOP RUN.
>
>
>
> Creo módulo con :
>
> CRTCBLMOD MODULE(JAVI/LLAMA1ILE)
>
>   SRCFILE(JAVI/QRPGSRC)
>
>   SRCMBR(LLAMA1ILE)
>
>   DBGVIEW(*LIST)
>
>
>
> *LLAMA2ILE :*
>
> PROCEDURE DIVISION.
>
> INICIO.
>
> MOVE '1' TO WP1.
>
> MOVE '2' TO WP2.
>
> EXIT PROGRAM.
>
>
>
> Creamos módulo con :
>
> CRTCBLMOD MODULE(JAVI/LLAMA2ILE)
>
>   SRCFILE(JAVI/QRPGSRC)
>
>   SRCMBR(LLAMA2ILE)
>
>   DBGVIEW(*LIST)
>
>
>
> *LLAMA :*
>
> Creamos programa con :
>
> CRTPGM PGM(JAVI/LLAMA)
>
>MODULE(JAVI/LLAMA1ILE JAVI/LLAMA2ILE)
>
>
>
> ¿Alguien nos podría ayudar por favor?
>
>
>
> Saludos y gracias por anticipado,
>
>
>
> Javier
>
>
>
> 
> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> Forum.Help400 © Publicaciones Help400, S.L.
>

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

RE: Archivo qpsrvtrcj

2018-01-24 Por tema bengono 

Buenos días, y se puede deshabilitar?

Saludos y gracias

El 24-01-2018 13:58, LLagostera Vila, Emilio escribió:

Tienes habilitada alguna traza.creo

Objeto . . . . . . . :   QPSRVTRCJ   Atributo . . . . . . :   PRTF
  Biblioteca . . . . : QSYS  Propietario  . . . . :   QSYS
Disp ASP biblioteca  :   *SYSBAS Grupo ASP biblioteca :   
*SYSBAS

Tipo . . . . . . . . :   *FILE   Grupo primario . . . :   *NONE

Información definida por el usuario:
  Atributo . . . . . . . . . . . . . . :
  Texto  . . . . . . . . . . . . . . . :   Printer file for service 
trace



-Mensaje original-
De: forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] En nombre de
beng...@einb.net
Enviado el: miércoles, 24 de enero de 2018 13:27
Para: as400 
Asunto: Archivo qpsrvtrcj

Buenos días, desde hace unos días me he fijado que me sale un mensaje
de que el archivo qpsrvtrcj esta lleno,  no se que trabajo del sistema
me esta generando este fichero, y si se puede parar, he buscado por
Internet pero no encuentro nada.

Saludos

Ana Noguero

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

P Antes de imprimir este mensaje piense bien si es necesario hacerlo:
El medio ambiente es cosa de todos.
La información de este mensaje y documentación adjunta es propiedad de
BANCO MEDIOLANUM, S. A.; tiene carácter confidencial, y se dirige
exclusivamente a su destinatario. Si ha recibido este mensaje por
error, le rogamos que lo comunique al emisor por esta misma vía y
proceda a su destrucción o borrado. Utilizar, reproducir, alterar o
comunicar a terceros el presente mensaje o parte del mismo, sin
consentimiento previo y expreso de BANCO MEDIOLANUM, S. A. está
prohibido y puede comportar responsabilidades legales para el
infractor.

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

RE: Archivo qpsrvtrcj

2018-01-24 Por tema LLagostera Vila, Emilio 
Tienes habilitada alguna traza.creo

Objeto . . . . . . . :   QPSRVTRCJ   Atributo . . . . . . :   PRTF
  Biblioteca . . . . : QSYS  Propietario  . . . . :   QSYS
Disp ASP biblioteca  :   *SYSBAS Grupo ASP biblioteca :   *SYSBAS
Tipo . . . . . . . . :   *FILE   Grupo primario . . . :   *NONE

Información definida por el usuario:
  Atributo . . . . . . . . . . . . . . :
  Texto  . . . . . . . . . . . . . . . :   Printer file for service trace


-Mensaje original-
De: forum.help400-boun...@listas.combios.es 
[mailto:forum.help400-boun...@listas.combios.es] En nombre de beng...@einb.net
Enviado el: miércoles, 24 de enero de 2018 13:27
Para: as400 
Asunto: Archivo qpsrvtrcj

Buenos días, desde hace unos días me he fijado que me sale un mensaje de que el 
archivo qpsrvtrcj esta lleno,  no se que trabajo del sistema me esta generando 
este fichero, y si se puede parar, he buscado por Internet pero no encuentro 
nada.

Saludos

Ana Noguero

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

P Antes de imprimir este mensaje piense bien si es necesario hacerlo: El medio 
ambiente es cosa de todos.
La información de este mensaje y documentación adjunta es propiedad de BANCO 
MEDIOLANUM, S. A.; tiene carácter confidencial, y se dirige exclusivamente a su 
destinatario. Si ha recibido este mensaje por error, le rogamos que lo 
comunique al emisor por esta misma vía y proceda a su destrucción o borrado. 
Utilizar, reproducir, alterar o comunicar a terceros el presente mensaje o 
parte del mismo, sin consentimiento previo y expreso de BANCO MEDIOLANUM, S. A. 
está prohibido y puede comportar responsabilidades legales para el infractor.

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

RE: Archivo qpsrvtrcj

2018-01-24 Por tema Javier Mora 
Tiene pinta de ser información de rastreo. Si buscas en Google por el nombre 
del archivo encuentras varios documentos de IBM (no tienen por qué ser la 
solución) que pueden darte alguna pista.

Yo en estos casos suelo llamar a soporte de IBM, porque un rastreo 
(normalmente) se activa y desactiva a mano para proporcionar información al 
técnico.

Javier

-Mensaje original-
De: forum.help400-boun...@listas.combios.es 
[mailto:forum.help400-boun...@listas.combios.es] En nombre de beng...@einb.net
Enviado el: miércoles, 24 de enero de 2018 13:27
Para: as400
Asunto: Archivo qpsrvtrcj

Buenos días, desde hace unos días me he fijado que me sale un mensaje de que el 
archivo qpsrvtrcj esta lleno,  no se que trabajo del sistema me esta generando 
este fichero, y si se puede parar, he buscado por Internet pero no encuentro 
nada.

Saludos

Ana Noguero

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) 
Forum.Help400 © Publicaciones Help400, S.L.

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

RE: ** Newsletter ** RE: Duda copias en preformatos

2018-01-24 Por tema Javier Mora 
Te pongo un pequeño ejemplo de la DDS de archivo de impresora:

 A  R OVL1
 A  OVERLAY( 6.9 2.5)
 AOVLNM2 8A  P

Y en el programa cambias el valor de la variable en función del preformato a 
imprimir

OVLNM2 = ‘PREFORM01’;
WRITE OVL1;
WRITE OTRO_REG;

OVLNM2 = ‘PREFORM02’;
WRITE OVL1;
WRITE OTRO_REG;

Normalmente la palabra clave OVERLAY debe ir en un registro a parte, que suele 
“escribirse” antes que el contenido variable del documento.

Javier


De: forum.help400-boun...@listas.combios.es 
[mailto:forum.help400-boun...@listas.combios.es] En nombre de alberto
Enviado el: miércoles, 24 de enero de 2018 10:45
Para: forum.help400
Asunto: Re: ** Newsletter ** RE: Duda copias en preformatos

Caray. Esto pinta bien. Evidentemente no lo he hecho nunca.
Interpreto que es un registro vacio, sólo con esta variable?
Descrito en el fichero al principio al final?, le da lo mismo?
Interpreto que el orden de escritura sería algo así:
Overlay=1;
   Exsr Sr_albaran;
Overlay=2;
   Exsr Sr_albaran;

Begsr Sr_albaran;
   Write reg_overlay
   write cabecera
   dow not %eof
Write lineas
Enddo
   write total
Endsr;




De:"Javier Mora" >
Para:"forum.help400" 
>
Fecha:24/01/2018 10:34
Asunto:** Newsletter ** RE: Duda copias en preformatos
Enviado por:
forum.help400-boun...@listas.combios.es




Otra opción consiste en incluir en el PRTF un registro con OVERLAY y 
parametrizarlo con una “variable a programa” y cargar el nombre de un 
preformato u otro.

Javier Mora

De: 
forum.help400-boun...@listas.combios.es
 [mailto:forum.help400-boun...@listas.combios.es] En nombre de Fernando Sánchez 
Piña
Enviado el: miércoles, 24 de enero de 2018 9:25
Para: forum.help400
Asunto: Re: Duda copias en preformatos

Buenos días,

De esa manera te genera dos impresos.
Yo suelo hacer un sólo preformato sin el texto y luego se lo añado en el PRTF 
como una variable de texto más, de esta forma se genera un único impreso y 
quedan identificadas cada hoja con Original y Copia. Además se puede ver antes 
de imprimirlo en el mismo spool del as400.

Un saludo

Fernando Sánchez Piña

El 24 de enero de 2018, 9:17, alberto 
> escribió:
Buenos dias.
Para los que hacéis preformatos, a ver si me podéis confirmar una cosa. Lo digo 
porque igual tiro para el camino más largo, y luego resulta que hay un atajo:
Tengo que hacer una impresión con original + copia en la que en la primera 
página ponga 'original' y en la segunda ponga 'copia'
Yo he pensado en hacer dos preformatos(uno para cada hoja) y dos rutinas de 
impresión, evidentemente antes de ejecutar cada una de ellas, hago un ovrprtf 
del printerfile y le asigno un preformato.

-Llenar fichero
ovrprtf file(printerfile) FRONTOVL(/PREFORMato1)
Ejecutar rutina printer
ovrprtf file(printerfile) FRONTOVL(/PREFORMato2)
Ejecutar rutina printer

Alguien lo ha hecho de un sólo paso?
Gracias!


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
 
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Archivo qpsrvtrcj

2018-01-24 Por tema bengono 
Buenos días, desde hace unos días me he fijado que me sale un mensaje de 
que el archivo qpsrvtrcj esta lleno,  no se que trabajo del sistema me 
esta generando este fichero, y si se puede parar, he buscado por 
Internet pero no encuentro nada.


Saludos

Ana Noguero

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Duda copias en preformatos

2018-01-24 Por tema Jose Luis Hernandez Riesgo 
A ver, te cuento como va la circuitería interna, espero que te sirva.

1º Necesitas un registro en el RLU que al que se asociará el objeto *PAGSEG:

 A  R DETAL24CC


 A*%%***
 A*%%RI 0


 A*%%***
 A  PAGSEG(/ 

 A  SA)

 A*

  * Campo de biblioteca segmento, 10 tipo A y uso P

  * Campo de nombre segmento, 8 tipo A y uso P

  * Campos de desplazamiento, 5,3 tipo S y uso P

 ALIBSIGSEG 10A  P

 ASIGSEG 8A  P

 APOSD   5S 3P

 APOSA   5S 3P


Como ves se puede parametrizar la biblioteca y el nombre del objeto
*PAGSEG, y las coordenadas XY de donde quieres que aparezca. Yo lo tengo en
una tabla y me sirve para hacer los cambios de forma dinámica, incluso lo
tengo con fecha de caducidad, por si quiero que deje de salir de forma
automática a partir de una fecha, si mañana cambia la imagen a mostrar,
creo una nueva y cargo su nombre en la tabla.

2º En el programa, recupero de la tabla (RtvPagSeg es un módulo que
devuelve las características del PAGSEG a imprimir ) y cargo los valores
que muevo a los campos del RLU.

If RtvPagSeg(P1ABCD:'FI':ZZPGM:'DETAL24CC':'
':Pr_LibSeg:Pr_NomSeg:Pr_PosDown:Pr_PosAcross);
  LibSigSeg = Pr_LibSeg;
  SigSeg= %Subst(Pr_NomSeg:1:8);
  PosD = Pr_PosDown;
  PosA = Pr_PosAcross;
  EscribeFirma = *On;
Else;
  EscribeFirma = *Off;
EndIf;
.
...
...  Muchas líneas más adelante

...
...
If EscribeFirma;
  Write DETAL24CC;
EndIf;

Tu puedes tener dos segmentos, uno con "ORIGINAL"  y otro con "DUPLICADO".
Lo único que necesitas es saber bajo que circunstancias se muestra uno u
otro y al campo SIGSEG moverle el nombre de un segmento u otro, hacer el
Write al registro con los valores y ya está. (como siempre tendrás que
jugar con los valores Down/Across hasta que aparezca colocado donde te
conviene).

Un saludo

Date: Wed, 24 Jan 2018 10:45:13 +0100
> From: "alberto" 
> Subject: Re: ** Newsletter ** RE: Duda copias en preformatos
> To: "forum.help400" 
> Message-ID:
> <
> of4a05b05a.e70eb05a-onc125821f.0034d3df-c125821f.00359...@arcadie.es>
> Content-Type: text/plain; charset="utf-8"
>
> Caray. Esto pinta bien. Evidentemente no lo he hecho nunca.
> Interpreto que es un registro vacio, sólo con esta variable?
> Descrito en el fichero al principio al final?, le da lo mismo?
> Interpreto que el orden de escritura sería algo así:
> Overlay=1;
>Exsr Sr_albaran;
> Overlay=2;
>Exsr Sr_albaran;
>
> Begsr Sr_albaran;
>Write reg_overlay
>write cabecera
>dow not %eof
> Write lineas
> Enddo
>write total
> Endsr;
>
>
>
>
> De: "Javier Mora" 
> Para:   "forum.help400" 
> Fecha:  24/01/2018 10:34
> Asunto: ** Newsletter ** RE: Duda copias en preformatos
> Enviado por:forum.help400-boun...@listas.combios.es
>
>
>
> Otra opción consiste en incluir en el PRTF un registro con OVERLAY y
> parametrizarlo con una ?variable a programa? y cargar el nombre de un
> preformato u otro.
>
> Javier Mora
>
> De: forum.help400-boun...@listas.combios.es [
> mailto:forum.help400-boun...@listas.combios.es] En nombre de Fernando
> Sánchez Piña
> Enviado el: miércoles, 24 de enero de 2018 9:25
> Para: forum.help400
> Asunto: Re: Duda copias en preformatos
>
> Buenos días,
>
> De esa manera te genera dos impresos.
> Yo suelo hacer un sólo preformato sin el texto y luego se lo añado en el
> PRTF como una variable de texto más, de esta forma se genera un único
> impreso y quedan identificadas cada hoja con Original y Copia. Además se
> puede ver antes de imprimirlo en el mismo spool del as400.
>
> Un saludo
>
> Fernando Sánchez Piña
>
> El 24 de enero de 2018, 9:17, alberto 
> escribió:
> Buenos dias.
> Para los que hacéis preformatos, a ver si me podéis confirmar una cosa. Lo
> digo porque igual tiro para el camino más largo, y luego resulta que hay
> un atajo:
> Tengo que hacer una impresión con original + copia en la que en la primera
> página ponga 'original' y en la segunda ponga 'copia'
> Yo he pensado en hacer dos preformatos(uno para cada hoja) y dos rutinas
> de impresión, evidentemente antes de ejecutar cada una de ellas, hago un
> ovrprtf del printerfile y le asigno un preformato.
>
> -Llenar fichero
> ovrprtf file(printerfile) FRONTOVL(/PREFORMato1)
> Ejecutar rutina printer
> ovrprtf file(printerfile) FRONTOVL(/PREFORMato2)
> Ejecutar rutina printer
>
> Alguien lo ha hecho de un sólo paso?
> Gracias!
>
>
>

Únete a Recursos AS400, nuestra Comunidad (

Error en ILE COBOL al llamar a otro ILE COBOL

2018-01-24 Por tema Javier Baca 
Buenos días :

Estamos intentando meternos en ILE/COBOL y tenemos problemas con algo tan 
básico como llamar a otro ILE COBOL.
Os explicamos brevemente en qué consiste nuestra prueba :
El programa LLAMA1ILE llama a LLAMA2ILE.
Creamos cada programa en un módulo separado y creamos programa LLAMA.
Pero, al ejecutar LLAMA, da el siguiente error :
No puede resolverse la referencia al objeto LLAMA2ILE. Tipo y Subtipo
  X'0201' Autorización X''.
Error de función. MCH3401 no supervisado por LLAMA en la sentencia
  21, instrucción X''.
Mensaje 'MCH3401' en programa 'LLAMA' de la biblioteca 'JAVI' (C D F G).

LLAMA1ILE :
...
CALL 'LLAMA2ILE'.
STOP RUN.

Creo módulo con :
CRTCBLMOD MODULE(JAVI/LLAMA1ILE)
  SRCFILE(JAVI/QRPGSRC)
  SRCMBR(LLAMA1ILE)
  DBGVIEW(*LIST)

LLAMA2ILE :
PROCEDURE DIVISION.
INICIO.
MOVE '1' TO WP1.
MOVE '2' TO WP2.
EXIT PROGRAM.

Creamos módulo con :
CRTCBLMOD MODULE(JAVI/LLAMA2ILE)
  SRCFILE(JAVI/QRPGSRC)
  SRCMBR(LLAMA2ILE)
  DBGVIEW(*LIST)

LLAMA :
Creamos programa con :
CRTPGM PGM(JAVI/LLAMA)
   MODULE(JAVI/LLAMA1ILE JAVI/LLAMA2ILE)

¿Alguien nos podría ayudar por favor?

Saludos y gracias por anticipado,

Javier


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: ** Newsletter ** RE: Duda copias en preformatos

2018-01-24 Por tema alberto 
Caray. Esto pinta bien. Evidentemente no lo he hecho nunca. 
Interpreto que es un registro vacio, sólo con esta variable?
Descrito en el fichero al principio al final?, le da lo mismo? 
Interpreto que el orden de escritura sería algo así:
Overlay=1;
   Exsr Sr_albaran;
Overlay=2;
   Exsr Sr_albaran;

Begsr Sr_albaran;
   Write reg_overlay
   write cabecera
   dow not %eof
Write lineas
Enddo
   write total
Endsr;




De: "Javier Mora" 
Para:   "forum.help400" 
Fecha:  24/01/2018 10:34
Asunto: ** Newsletter ** RE: Duda copias en preformatos
Enviado por:forum.help400-boun...@listas.combios.es



Otra opción consiste en incluir en el PRTF un registro con OVERLAY y 
parametrizarlo con una “variable a programa” y cargar el nombre de un 
preformato u otro.
 
Javier Mora
 
De: forum.help400-boun...@listas.combios.es [
mailto:forum.help400-boun...@listas.combios.es] En nombre de Fernando 
Sánchez Piña
Enviado el: miércoles, 24 de enero de 2018 9:25
Para: forum.help400
Asunto: Re: Duda copias en preformatos
 
Buenos días,
 
De esa manera te genera dos impresos.
Yo suelo hacer un sólo preformato sin el texto y luego se lo añado en el 
PRTF como una variable de texto más, de esta forma se genera un único 
impreso y quedan identificadas cada hoja con Original y Copia. Además se 
puede ver antes de imprimirlo en el mismo spool del as400.
 
Un saludo
 
Fernando Sánchez Piña
 
El 24 de enero de 2018, 9:17, alberto  
escribió:
Buenos dias. 
Para los que hacéis preformatos, a ver si me podéis confirmar una cosa. Lo 
digo porque igual tiro para el camino más largo, y luego resulta que hay 
un atajo: 
Tengo que hacer una impresión con original + copia en la que en la primera 
página ponga 'original' y en la segunda ponga 'copia' 
Yo he pensado en hacer dos preformatos(uno para cada hoja) y dos rutinas 
de impresión, evidentemente antes de ejecutar cada una de ellas, hago un 
ovrprtf del printerfile y le asigno un preformato. 

-Llenar fichero 
ovrprtf file(printerfile) FRONTOVL(/PREFORMato1) 
Ejecutar rutina printer 
ovrprtf file(printerfile) FRONTOVL(/PREFORMato2) 
Ejecutar rutina printer 

Alguien lo ha hecho de un sólo paso? 
Gracias! 


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
 
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Duda copias en preformatos

2018-01-24 Por tema Jose Luis Hernandez Riesgo 
Buenos días.

Yo tengo impresos en los que todas las páginas tienen las mismas
características de diseño y para ello utilizo los performatos. Pero cuando
necesito "personalizar" alguna página con alguna característica adicional y
diferente, utilizo los segmentos de página (objetos *PAGSEG).

Un ejemplo práctico, imprimo en pdf un documento de varias páginas y en
función de unas variables, necesito que se inserte la firma de una persona
o la de otra. Lo que hago es aplicar un preformato a todo el documento (por
OVRPRTF) y un segmento de página u otro (con la firma de cada una de las
personas) (por programa).

No es de un solo paso, pero me permite cierta flexibilidad adicional y
complementaria a los preformato.

Un saludo

El mié., 24 ene. 2018 a las 10:10, 
escribió:

> Envíe los mensajes para la lista Forum.help400 a
> forum.help400@listas.combios.es
>
> Para subscribirse o anular su subscripción a través de la WEB
> http://listas.combios.es/cgi-bin/mailman/listinfo/forum.help400
>
> O por correo electrónico, enviando un mensaje con el texto "help" en
> el asunto (subject) o en el cuerpo a:
> forum.help400-requ...@listas.combios.es
>
> Puede contactar con el responsable de la lista escribiendo a:
> forum.help400-ow...@listas.combios.es
>
> Si responde a algún contenido de este mensaje, por favor, edite la
> linea del asunto (subject) para que el texto sea mas especifico que:
> "Re: Contents of Forum.help400 digest...". Además, por favor, incluya
> en la respuesta sólo aquellas partes del mensaje a las que está
> respondiendo.
>
>
> Message: 1
> Date: Wed, 24 Jan 2018 09:17:10 +0100
> From: "alberto" 
> Subject: Duda copias en preformatos
> To: "forum.help400" 
> Message-ID:
> <
> of3a61accb.3d90349c-onc125821f.002c58c6-c125821f.002d8...@arcadie.es>
> Content-Type: text/plain; charset="iso-8859-1"
>
> Buenos dias.
> Para los que hacéis preformatos, a ver si me podéis confirmar una cosa. Lo
> digo porque igual tiro para el camino más largo, y luego resulta que hay
> un atajo:
> Tengo que hacer una impresión con original + copia en la que en la primera
> página ponga 'original' y en la segunda ponga 'copia'
> Yo he pensado en hacer dos preformatos(uno para cada hoja) y dos rutinas
> de impresión, evidentemente antes de ejecutar cada una de ellas, hago un
> ovrprtf del printerfile y le asigno un preformato.
>
> -Llenar fichero
> ovrprtf file(printerfile) FRONTOVL(/PREFORMato1)
> Ejecutar rutina printer
> ovrprtf file(printerfile) FRONTOVL(/PREFORMato2)
> Ejecutar rutina printer
>
> Alguien lo ha hecho de un sólo paso?
> Gracias!
>

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: ** Newsletter ** Re: Duda copias en preformatos

2018-01-24 Por tema alberto 
Es por temas de diseño, Fernando letra difuminada, extragrande, etc...y 
algunos impresos se van a la cola, y otros los convierto en PDF y los 
envio por email.

Albert Martinez de Urda
  Director TIC
Roler España SLU
Grupo Arcadie



De: "Fernando Sánchez Piña" 
Para:   "forum.help400" 
Fecha:  24/01/2018 09:45
Asunto: ** Newsletter ** Re: Duda copias en preformatos
Enviado por:forum.help400-boun...@listas.combios.es



Buenos días,

De esa manera te genera dos impresos.
Yo suelo hacer un sólo preformato sin el texto y luego se lo añado en el 
PRTF como una variable de texto más, de esta forma se genera un único 
impreso y quedan identificadas cada hoja con Original y Copia. Además se 
puede ver antes de imprimirlo en el mismo spool del as400.

Un saludo

Fernando Sánchez Piña

El 24 de enero de 2018, 9:17, alberto  
escribió:
Buenos dias. 
Para los que hacéis preformatos, a ver si me podéis confirmar una cosa. Lo 
digo porque igual tiro para el camino más largo, y luego resulta que hay 
un atajo: 
Tengo que hacer una impresión con original + copia en la que en la primera 
página ponga 'original' y en la segunda ponga 'copia' 
Yo he pensado en hacer dos preformatos(uno para cada hoja) y dos rutinas 
de impresión, evidentemente antes de ejecutar cada una de ellas, hago un 
ovrprtf del printerfile y le asigno un preformato. 

-Llenar fichero 
ovrprtf file(printerfile) FRONTOVL(/PREFORMato1) 
Ejecutar rutina printer 
ovrprtf file(printerfile) FRONTOVL(/PREFORMato2) 
Ejecutar rutina printer 

Alguien lo ha hecho de un sólo paso? 
Gracias! 


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

RE: Duda copias en preformatos

2018-01-24 Por tema Javier Mora 
Otra opción consiste en incluir en el PRTF un registro con OVERLAY y 
parametrizarlo con una “variable a programa” y cargar el nombre de un 
preformato u otro.

Javier Mora

De: forum.help400-boun...@listas.combios.es 
[mailto:forum.help400-boun...@listas.combios.es] En nombre de Fernando Sánchez 
Piña
Enviado el: miércoles, 24 de enero de 2018 9:25
Para: forum.help400
Asunto: Re: Duda copias en preformatos

Buenos días,

De esa manera te genera dos impresos.
Yo suelo hacer un sólo preformato sin el texto y luego se lo añado en el PRTF 
como una variable de texto más, de esta forma se genera un único impreso y 
quedan identificadas cada hoja con Original y Copia. Además se puede ver antes 
de imprimirlo en el mismo spool del as400.

Un saludo

Fernando Sánchez Piña

El 24 de enero de 2018, 9:17, alberto 
> escribió:
Buenos dias.
Para los que hacéis preformatos, a ver si me podéis confirmar una cosa. Lo digo 
porque igual tiro para el camino más largo, y luego resulta que hay un atajo:
Tengo que hacer una impresión con original + copia en la que en la primera 
página ponga 'original' y en la segunda ponga 'copia'
Yo he pensado en hacer dos preformatos(uno para cada hoja) y dos rutinas de 
impresión, evidentemente antes de ejecutar cada una de ellas, hago un ovrprtf 
del printerfile y le asigno un preformato.

-Llenar fichero
ovrprtf file(printerfile) FRONTOVL(/PREFORMato1)
Ejecutar rutina printer
ovrprtf file(printerfile) FRONTOVL(/PREFORMato2)
Ejecutar rutina printer

Alguien lo ha hecho de un sólo paso?
Gracias!


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: ** Newsletter ** Re: Duda copias en preformatos

2018-01-24 Por tema alberto 
Buenas. Pues sí, es una posibilidad lo del texto, pero es por temas de 
diseño, me han sugerido hacerlo en un tipo de letra más grande de lo 
normal, y difuminada para que se vea bien, y se pueda escribir encima.

Albert Martinez de Urda
  Director TIC
Roler España SLU
Grupo Arcadie



De: "INFORMATICA" 
Para:   "forum.help400" 
Fecha:  24/01/2018 09:57
Asunto: ** Newsletter ** Re: Duda copias en preformatos
Enviado por:forum.help400-boun...@listas.combios.es



Hola.
Por que no usas el mismo preformato, pero te montas un campo TEXTO donde 
mueves ORIGINAL o COPIA en funcion del estado??
Saludos
- Original Message - 
From: alberto 
To: forum.help400 
Sent: Wednesday, January 24, 2018 9:17 AM
Subject: Duda copias en preformatos

Buenos dias. 
Para los que hacéis preformatos, a ver si me podéis confirmar una cosa. Lo 
digo porque igual tiro para el camino más largo, y luego resulta que hay 
un atajo: 
Tengo que hacer una impresión con original + copia en la que en la primera 
página ponga 'original' y en la segunda ponga 'copia' 
Yo he pensado en hacer dos preformatos(uno para cada hoja) y dos rutinas 
de impresión, evidentemente antes de ejecutar cada una de ellas, hago un 
ovrprtf del printerfile y le asigno un preformato. 

-Llenar fichero 
ovrprtf file(printerfile) FRONTOVL(/PREFORMato1) 
Ejecutar rutina printer 
ovrprtf file(printerfile) FRONTOVL(/PREFORMato2) 
Ejecutar rutina printer 

Alguien lo ha hecho de un sólo paso? 
Gracias! 


Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Duda copias en preformatos

2018-01-24 Por tema INFORMATICA 
Hola.
Por que no usas el mismo preformato, pero te montas un campo TEXTO donde mueves 
ORIGINAL o COPIA en funcion del estado??
Saludos
  - Original Message - 
  From: alberto 
  To: forum.help400 
  Sent: Wednesday, January 24, 2018 9:17 AM
  Subject: Duda copias en preformatos


  Buenos dias. 
  Para los que hacéis preformatos, a ver si me podéis confirmar una cosa. Lo 
digo porque igual tiro para el camino más largo, y luego resulta que hay un 
atajo: 
  Tengo que hacer una impresión con original + copia en la que en la primera 
página ponga 'original' y en la segunda ponga 'copia' 
  Yo he pensado en hacer dos preformatos(uno para cada hoja) y dos rutinas de 
impresión, evidentemente antes de ejecutar cada una de ellas, hago un ovrprtf 
del printerfile y le asigno un preformato. 

  -Llenar fichero 
  ovrprtf file(printerfile) FRONTOVL(/PREFORMato1) 
  Ejecutar rutina printer 
  ovrprtf file(printerfile) FRONTOVL(/PREFORMato2) 
  Ejecutar rutina printer 

  Alguien lo ha hecho de un sólo paso? 
  Gracias! 



--


  
  Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
  Forum.Help400 © Publicaciones Help400, S.L.
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Re: Duda copias en preformatos

2018-01-24 Por tema Fernando Sánchez Piña 
Buenos días,

De esa manera te genera dos impresos.
Yo suelo hacer un sólo preformato sin el texto y luego se lo añado en el
PRTF como una variable de texto más, de esta forma se genera un único
impreso y quedan identificadas cada hoja con Original y Copia. Además se
puede ver antes de imprimirlo en el mismo spool del as400.

Un saludo

Fernando Sánchez Piña

El 24 de enero de 2018, 9:17, alberto  escribió:

> Buenos dias.
> Para los que hacéis preformatos, a ver si me podéis confirmar una cosa. Lo
> digo porque igual tiro para el camino más largo, y luego resulta que hay un
> atajo:
> Tengo que hacer una impresión con original + copia en la que en la primera
> página ponga 'original' y en la segunda ponga 'copia'
> Yo he pensado en hacer dos preformatos(uno para cada hoja) y dos rutinas
> de impresión, evidentemente antes de ejecutar cada una de ellas, hago un
> ovrprtf del printerfile y le asigno un preformato.
>
> -Llenar fichero
> ovrprtf file(printerfile) FRONTOVL(/PREFORMato1)
> Ejecutar rutina printer
> ovrprtf file(printerfile) FRONTOVL(/PREFORMato2)
> Ejecutar rutina printer
>
> Alguien lo ha hecho de un sólo paso?
> Gracias!
>
> 
> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> Forum.Help400 © Publicaciones Help400, S.L.
>

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Duda copias en preformatos

2018-01-24 Por tema alberto 
Buenos dias.
Para los que hacéis preformatos, a ver si me podéis confirmar una cosa. Lo 
digo porque igual tiro para el camino más largo, y luego resulta que hay 
un atajo:
Tengo que hacer una impresión con original + copia en la que en la primera 
página ponga 'original' y en la segunda ponga 'copia'
Yo he pensado en hacer dos preformatos(uno para cada hoja) y dos rutinas 
de impresión, evidentemente antes de ejecutar cada una de ellas, hago un 
ovrprtf del printerfile y le asigno un preformato.

-Llenar fichero
ovrprtf file(printerfile) FRONTOVL(/PREFORMato1)
Ejecutar rutina printer
ovrprtf file(printerfile) FRONTOVL(/PREFORMato2)
Ejecutar rutina printer

Alguien lo ha hecho de un sólo paso?
Gracias!

Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.