¿ 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 subsistema en el que se está ejecutando un trabajo

Mandato que permite recuperar el susbistema en el que se está ejecutando un trabajo

Fuentes del mandato RTVJOBSBS
CL

     
/*-------------------------------------------------------------MRB*/
/* Retrieve Job Subsistem (calling API QUSRJOBI)                  */
/* Marti Riera 06/05/2003                                         */
/* http://www.recursos-as400.com/                                 */
/* mailto:mrierab@teleline.es                                     */
/*----------------------------------------------------------------*/
/* Return the subsistem name where a work is executed             */
/*----------------------------------------------------------------*/
             PGM        PARM(&JOBID &SBSNAM)
             DCL        VAR(&JOBID) TYPE(*CHAR) LEN(26)
             DCL        VAR(&JOBNBR) TYPE(*CHAR) LEN(6)
             DCL        VAR(&JOBUSR) TYPE(*CHAR) LEN(10)
             DCL        VAR(&JOBNAM) TYPE(*CHAR) LEN(10)
             DCL        VAR(&SBSNAM) TYPE(*CHAR) LEN(10)
             DCL        VAR(&RCVVAR) TYPE(*CHAR) LEN(256)
/* Set qualified name of job */
    IF         COND(&JOBID *EQ '*') THEN(DO)
    RTVJOBA    JOB(&JOBNAM) USER(&JOBUSR) NBR(&JOBNBR)
    CHGVAR     VAR(&JOBID) VALUE(&JOBNAM *CAT &JOBUSR *CAT &JOBNBR)
          ENDDO
/* Retrieve subsistem name */
          CALL       PGM(QUSRJOBI) PARM(&RCVVAR X'00000100' +
                       'JOBI0200' &JOBID ' ')
/* Extract job status from receiver */
          CHGVAR     VAR(&SBSNAM) VALUE(%SST(&RCVVAR 63 10))
/* Send status */
          SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Job' +
                       *BCAT &JOBID *TCAT ' running in +
                       subsistem' *BCAT &SBSNAM *TCAT '.') +
                       MSGTYPE(*STATUS)
/* End program */
          RETURN
          ENDPGM
Mandato


/*-------------------------------------------------------------MRB*/
/* Retrieve Job Subsistem (calling API QUSRJOBI)                  */
/* Marti Riera 06/05/2003                                         */
/* http://www.recursos-as400.com/                                 */
/* mailto:mrierab@teleline.es                                     */
/*----------------------------------------------------------------*/
/* Return the subsistem name where a work is executed             */
/*----------------------------------------------------------------*/
/* Compiled with PGM(*LIBL/RTVJOBSBS) ALLOW(*IPGM *BPGM)          */
/*----------------------------------------------------------------*/
          CMD        PROMPT('Retrieve Job Subsistem')
          PARM       KWD(JOB) TYPE(JOB) DFT(*) SNGVAL((*)) +
                       PROMPT('Job name')
 JOB:     QUAL       TYPE(*NAME) LEN(10) MIN(1)
          QUAL       TYPE(*NAME) LEN(10) MIN(1) PROMPT('User')
          QUAL       TYPE(*CHAR) LEN(6) RANGE(000000 999999) +
                       MIN(1) PROMPT('Number')
          PARM       KWD(SBSNAM) TYPE(*CHAR) LEN(10) RTNVAL(*YES) +
                          PROMPT('Subsistem name')

                        
 

Puedes descargar el fuente aquí Puedes bajarte la utilidad aquí (37 Kb) (2Kb)
Autor: Marti Riera

Junio 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