Saludos a todos Estoy llamando a un programa del 400 desde una pagina web,
esto es parte del programa Dim cntDim rsDIM fldDim cmddim nfldcmdtxt="call
mylib.oc800b3 ('" & zitem & "')" Set cnt =
Server.CreateObject("ADODB.Connection")cnt.open "dsn=myas400", "user",
"password" set cmd=cnt.execute(cmdtxt)Set rs = cnt.execute("Select * from
mylib.oc800wk") y al checar el trabajo QZDASOINIT en el joblog veo este
mensaje de error, Display Job Log
System: DEV Job . . : QZDASOINIT User . . : QUSER Number
. . . : 177825
Job 177825/QUSER/QZDASOINIT started on 01/03/07 at
16:04:55 in subsystem QUSRWRK in QSYS. Job entered system on 01/03/07
at 16:04:55. Printer device TESTQ not found.
!
Errors on CHGJOB command for job 177825/QUSER/QZDASOINIT.
Printer device TESTQ not found.
ACGDTA for 177825/QUSER/QZDASOINIT not journaled; reason 1.
Job changed successfully; however errors occurred.
User WEBUSER from client XX.XX.X.XX connected to server.
Library *SYSLIBL not found.
Al presionar F1 sobre el mensaje "Library *SYSLIB not found" esto es lo
que me muestra Additional Message Information
Message ID . . . . . . : CPF2110 Severity . . . . . . . :
40 Message type . . . . . : Escape
Date sent . . . . . . : 01/04/07 Time sent . . . . . . :
10:35:01 !
Message . . . . :
Library *SYSLIBL not found. Cause . . . . . :
Library *SYSLIBL does not exist in the auxiliary storage pools (ASPs)
accessed by the command or API. Recovery . . .
: Either create the library (CRTLIB command), correct the library name,
or make the primary or secondary auxiliary storage pool (ASP) where storage
for the library is allocated accessible to the command or API. Then try the
request again. To make the
ASP accessible, check that the ASP device has the status required by
the command or API (WRKCFGSTS command). Then, if the command or API has an
auxiliary storage pool parameter, use it to specify the ASP. Otherwise,
set the ASP group containing the ASP as the ASP group for the current
thread (SETASPGRP command). !
Alguna pista?... Gracias Gerardo Santillana
_______________________________________________
Join Excite! - http://www.excite.com
The most personalized portal on the Web!
__________________________________________________
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 visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
