¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
System i5 iSeries AS400 Recursos. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Noticias tecnológicas
Documentos
Recuperar nombre del trabajo de un usuario

Este programa permite recuperar el nombre del trabajo de un determinado usuario.
Utiliza un programa RPG y un CL


Programa USRJOBNAM

IRCVVAR DS I 108 111 ACTJOB * * API FORMAT JOBL0200: KEY FIELD LIST * IJOBLKL DS I B 1 40JBLKY1 I B 5 80JBLKY2 I B 9 120JBLKY3 I B 13 160JBLKY4 I B 17 200JBLKY5 I B 21 240JBLKY6 I B 25 280JOBLKN * * * API ERROR STRUCTURE * IAPIERR DS I I 96 B 1 40ERRPRV I B 5 80ERRLEN I 9 15 EXCPID I 17 96 EXCPDT * * API VARIABLE NAMES * I DS I I 0 B 1 40STRPOS I I 0 B 5 80HDRLEN I I 0 B 9 120APILEN I I 0 B 13 160ENTNBR I I 0 B 17 200MSGSTK I 21 28 APIFMT * * USER SPACE HEADER FOR LIST APIS * IAPIHDR DS I B 125 1280OFFSET I B 133 1360NBRENT I B 137 1400ENTLEN * I DS I 1 4 ALPHA I B 1 40BINAER * IAPIRTN DS 2000 I 1 26 QJOBL * C *ENTRY PLIST C PARM RTNJOB 26 C PARM PMUSER 10 * C DO *HIVAL * C MOVE *BLANK RTNJOB * C MOVEL'CKSYSRQ 'USRSPC 10 P C MOVEL'QTEMP' SPCLIB 10 P * * Aufbereiten Qualifizierten Namen = USRSPC CAT SPCLIB * C USRSPC CAT SPCLIB FULSPC 20 P C MOVEL*BLANK EXTATR 10 C MOVE *BLANK INLVAL 1 C MOVEL'*USE' AUT 10 P C MOVE *BLANK TEXT 50 * * AnfangsgrÝ~e dezimal -> bin{r * C Z-ADD2000 BINAER * C CALL 'QUSCRTUS' 99 C PARM FULSPC C PARM EXTATR C PARM ALPHA C PARM INLVAL C PARM AUT C PARM TEXT C PARM '*YES' CRTURP 10 C PARM APIERR * C *IN99 IFEQ *ON C LEAVE C ENDIF *IN99=*ON * * SET DEFAULT VALUES * C MOVEL'*ALL' JOBLST 10 P C MOVE 'I' JOBLTP 1 C MOVEL'*ALL' JOBLNM 10 C MOVELPMUSER JOBLUS 10 C MOVEL'*ALL' JOBLNO 6 P * C JOBLNM CAT JOBLUS JOBLQN 26 P C MOVE JOBLNO JOBLQN * C Z-ADD0101 JBLKY1 C Z-ADD1004 JBLKY2 C Z-ADD1005 JBLKY3 C Z-ADD1903 JBLKY4 C Z-ADD1904 JBLKY5 C Z-ADD1906 JBLKY6 C MOVELJOBLKL JOBLKF C Z-ADD6 JOBLKN * * CREATE THE JOB LIST * C CALL 'QUSLJOB' C PARM FULSPC C PARM 'JOBL0200'APIFMT 8 C PARM JOBLQN C PARM JOBLST C PARM APIERR C PARM JOBLTP C PARM JOBLKN C PARM JOBLKF 40 * C CALL 'QUSRTVUS' C PARM FULSPC C PARM 1 STRPOS C PARM 140 HDRLEN C PARM APIHDR C PARM APIERR * C Z-ADD1 ENTNBR * C NBRENT IFLE 1 C LEAVE C ENDIF NBRENT<=1 * C ENTNBR DOUEQ*ZERO * * CALCULATE THE STARTING POSITION FOR THE ENTRY NUMBER * C ENTNBR SUB 1 STRPOS C MULT ENTLEN STRPOS C ADD OFFSET STRPOS C ADD 1 STRPOS * C CALL 'QUSRTVUS' C PARM FULSPC C PARM STRPOS C PARM ENTLEN C PARM APIRTN C PARM APIERR * C Z-ADD111 BINAER C MOVELALPHA ERRCOD 96 P * C CALL 'QUSRJOBI' C PARM RCVVAR C PARM ALPHA C PARM 'JOBI0200'JOBIAP 8 C PARM QJOBL C PARM ' ' INTJOB 16 C PARM ERRCOD * C ERRLEN IFEQ *ZERO C MOVELQJOBL RTNJOB C ENDIF ERRLEN=*ZERO * C LEAVE * C ENDDO ENTNBR=*ZERO * C LEAVE * C ENDDO 1 DO *HIVAL * C RETRN

 

El CL que llama al programa USRJOBNAM es el siguiente:

PGM PARM(&USER) DCL VAR(&USER) TYPE(*CHAR) LEN(10) DCL VAR(&WS) TYPE(*CHAR) LEN(10) DCL VAR(&JOBNAM) TYPE(*CHAR) LEN(26) DCL VAR(&MSG) TYPE(*CHAR) LEN(128) CALL PGM(USRJOBNAM) PARM(&JOBNAM &USER) CHGVAR VAR(&MSG) VALUE('PRIMER TRABAJO -> JOBNR:' + *BCAT %SST(&JOBNAM 21 6) *BCAT '- USER:' + *BCAT %SST(&JOBNAM 11 10) *BCAT '- JOB:' + *BCAT %SST(&JOBNAM 1 10)) RTVJOBA JOB(&WS) SNDBRKMSG MSG(&MSG) TOMSGQ(&WS) ENDPGM

Ejemplo enviado por Rainer

 

Noviembre 2003

Comentarios de usuarios

Nombre:
Mail:
Comentario:
 

Subir a la parte superior de la web

 

 

NUESTRA COMUNIDAD EN
ÚNETE Y.... ¡¡ PARTICIPA !!
Dossiers técnicos iSeries y AS400
- Seguridad
- Alta disponibilidad.
Nuestros links favoritos
- Tendencias tecnologías de la información
Expertos en tecnologías de la información, nos dan su punto de vista sobre las tendencias actuales y futuras
- Los últimos anuncios sobre hardware-software para iSeries AS400 realizados por IBM
- Freeware y shareware para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Los manuales y links más interesantes del iSeries AS400

  Links patrocinados
  •  
  •  

[ Soy nuevo |   Profesionales |   AS qué |   Empresas |    Foros |   Recomiéndanos |    Productos ]
 
Recursos iSeries AS400. Es una web de: PUBLICACIONES HELP400, S.L. CIF:B-60-202827 Gran Vía de les Corts Catalanes, núm. 715, Entresuelo – 3ª - Barcelona - Tel.+34.932.310.049