Gracias a todos por vuestras respuestas.
La verdad que no hab�a ca�do en esa opci�n. Es mucho mas sencilla.
Un Saludo.
Jose Vicente.
| [EMAIL PROTECTED]
Enviado por: [EMAIL PROTECTED] 15/09/05 09:46
|
|
Yo en estos casos utilizo el mandato RTVJOBA que lo ejecuto previamente en
la cl de llamada al programa y como numero de trabajo *last
Saludos
Jose Manuel Navarro
Departamento Inform�tica
E-mail: [EMAIL PROTECTED]
Tlfno: 966.54.10.00
Fax : 966.55.40.15
Jose Vicente Cercos
Barres Para: [EMAIL PROTECTED]
<[EMAIL PROTECTED]> cc:
Enviado por: Fax para:
forum.help400-request@ Asunto: Obtener referencia a SPOOL desde el RPG que lo genera
combios.es
14/09/2004 18:59
Por favor, responda a
forum.help400
Buenas tardes.
Estoy buscando como obtener la referencia a un SPOOL
(Archivo/Trabajo/N�mero/usuario/num_arch) que est� creando un RPG. Necesito
guardarme en un fichero la referencia a determinados SPOOLS que genera un
programa en concreto, pero no puedo alterar su nombre, datos de usuario o
formulario.
Hab�a pensado usar una INFDS con el archivo de impresora, pero la
referencia que me da es a la QSPL, o sea, al archivo interno de spool.
�Alguien sabe como hacerlo?
En concreto accedo a estas posiciones de la INFDS
D DSPFBK DS
D ODP_TYPE 81 82
D FILE_NAME 83 92
D LIBRARY 93 102
D SPOOL_FILE 103 112
D SPOOL_LIB 113 122
D SPOOL_NUM 123 124I 0
D RCD_LEN 125 126I 0
D KEY_LEN 127 128I 0
D MEMBER 129 138
Y me devuelve lo siguiente:
ODP_TYPE OF DSPFBK = 'SP'
FILE_NAME OF DSPFBK = 'ANSL1LIL1 '
LIBRARY OF DSPFBK = 'JVCB '
SPOOL_FILE OF DSPFBK = 'Q04079N003'
SPOOL_LIB OF DSPFBK = 'QSPL '
SPOOL_NUM OF DSPFBK = 18
RCD_LEN OF DSPFBK = 140
KEY_LEN OF DSPFBK = 0
MEMBER OF DSPFBK = 'Q276139202'
Un Saludo.
Jose Vicente.
_____________________________________________________
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]
