Jesus, te paso un RPG que lee el WRKACTJOB por medio de un API y podes obtener todos los datos por ejemplo el subsitema.
Espero que te sirva.
Fernando.
El día 19/12/05, [EMAIL PROTECTED] <[EMAIL PROTECTED]> escribió:
Hola a todos,
Me gustaria saber desde un CL en que subsistema se esta ejecutando un
trabajo
Conoceis la manera
Gracias
Jesús Mª Arzak Capilla
Talleres de Escoriaza,S.A.(TESA)
Dpto Proceso de Datos
www.tesa.es
ADVERTENCIA/WARNING
ESTE CORREO ELECTRONICO CONTIENE INFORMACION PRIVADA Y
ESTRICTAMENTE CONFIDENCIAL. Si usted no es el destinatario del
presente mensaje no esta autorizado a leerlo, retenerlo, copiarlo o
difundirlo. Ni esta empresa ni el remitente asume ninguna responsabilidad
referente a la posible transmision de virus y es responsabilidad del
receptor realizar un escaneo del mensaje y de sus anexos (si los hubiera) .
THIS E-MAIL IS PRIVILEGED, CONFIDENTIAL AND CONTAINS PRIVATE
INFORMATION. Any reading, retention, distribution or copying of this
communication by any person other than its intended recipient is
prohibited. Neither this company nor the sender accepts any responsibility
for viruses and it is your responsibility to scan the email and attachments
(if any) .
__________________________________________________
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://coyote.combios.es/mailman/listinfo/forum.help400
******************************************************
*
* Dado un nombre de Job retorna el Status
*
******************************************************
*
* User Space
*
IUSRSPC DS
I I 'USLJOB ' 1 10 SPCNAM
I I 'QTEMP ' 11 20 SPCLIB
*
* Parametros para la API QUSLJOB
*
I DS
I 1 26 QJOBI
I I '*ALL ' 1 10 JOBNMI
I I '*ALL ' 11 20 USRNMI
I I '*ALL ' 21 26 JOBNOI
I I '*ACTIVE ' 27 36 STATI
*
* Posicion de Inicio y Longitud del array de Jobs
*
I DS
I B 1 40STRPOS
I B 5 80STRLEN
*
IHEADER DS
I B 125 1280OFFSET
I B 133 1360COUNT
I B 137 1400LENGTH
*
* Lista de Jobs del WRKACTJOB
*
ILIST DS
I 1 10 JOBNML
I 11 20 USRNML
I 21 26 JOBNOL
I 1 26 JOBQUA
I 43 52 STATL
*
* Parametros para la API QUSCRTUS
*
IDSAPIS DS
I B 1 40USSIZE
I B 5 80STRPOX
I B 9 120HDRLEN
I B 13 160RTVLEN
I B 17 200RCVLEN
I B 21 240SPLFX
*
* Parametros error API'S
*
IERRCOD DS
I B 1 40BYTPRO
I B 5 80BYTAVA
I 9 15 EXCPID
I 16 16 RESERV
I 17 116 EXCDTA
*
* Longitud Parametro retorno API QUSRJOBI
*
IINFLEN DS
I B 1 40LENINF
*
* Parametros retorno API QUSRJOBI
*
IJOBINF DS 256
I 9 18 JOBNOM
I 19 28 JOBUSR
I 29 34 JOBNUM
I 35 50 INTEID
I 51 60 STATUS
I 61 61 JOBTYP
I 62 62 JOBSTY
I 63 72 JOBSBS
I B 73 760JOBRUP
I B 77 800SYSPOL
I B 81 840PROUNI
I B 85 880AUXREQ
I B 89 920INTTRA
I B 93 960TOTTIM
I 97 97 FUNTYP
I 98 107 FUNNAM
I 108 111 STSJOB
I 112 112 RESER1
I B 113 1160BLOWA1
I B 117 1200BLOWA2
I B 121 1240BLOWA3
I 125 127 TIMBLK
I 128 130 TIMBL2
I 131 133 TIMBL3
*
******************************************************
*
******************************************************
*
C *ENTRY PLIST
C PARM JOBNAM 10
C PARM JOBSTS 4
C PARM $JOBNU 6
C PARM $JOBUS 10
*
* Crea el USRSPACE
*
C MOVEL'USLJOB ' SPCNAM P
C MOVEL'QTEMP' SPCLIB P
C CALL 'QUSCRTUS'
C PARM USRSPC
C PARM *BLANK USATTR 10
C PARM 1024 USSIZE
C PARM *BLANK USINIT 1
C PARM '*CHANGE' USAUT 10
C PARM *BLANK USTEXT 50
C PARM '*YES' USREPL 10
C PARM ERRCOD
*
* Obtiene la lista del WRKACTJOB
*
C CALL 'QUSLJOB'
C PARM USRSPC
C PARM 'JOBL0100'FORMAT 8
C PARM QJOBI
C PARM STATI
*
* Llama al RTV USER SPACE
*
C CALL 'QUSRTVUS'
C PARM USRSPC
C PARM 1 STRPOS
C PARM 140 STRLEN
C PARM HEADER
*
C OFFSET ADD 1 STRPOS
C Z-ADDLENGTH STRLEN
*
C DO COUNT
*
* Llama al RTV User Space
*
C CALL 'QUSRTVUS'
C PARM USRSPC
C PARM STRPOS
C PARM STRLEN
C PARM LIST
*
C MOVE *BLANK OPT 2
C MOVELJOBNML JOB 10
C MOVELUSRNML USR 10
C MOVELJOBNOL NBR 6
C MOVELSTATL STS 10
C ADD LENGTH STRPOS
*
* Nombre de JOB = al Solicitado por Parametro
*
C JOB IFEQ JOBNAM
*
* Llama al API que retorna el Status del Job
*
C Z-ADD256 LENINF
*
C CALL 'QUSRJOBI'
C PARM JOBINF
C PARM LENINF
C PARM 'JOBI0200'APIFMT 8
C PARM JOBQUA
C PARM *BLANKS JOBINT 16
*
C MOVE STSJOB JOBSTS
*
C MOVE JOBNUM $JOBNU
C MOVE JOBUSR $JOBUS
*
C LEAVE
C ENDIF
*
C ENDDO DO COUNT
*
C MOVE *ON *INLR
******************************************************
