//****************************************************************** //* * //* @START_COPYRIGHT@ * //* * //* Materiales bajo licencia - Propiedad de IBM; * //* 5655-G97 (c) Copyright IBM Corp. 2004; * //* Reservados todos los derechos; * //* Derechos restringidos para los usuarios del gobierno de EE.UU. * //* Utilización, duplicación o divulgación restringida por el GSA * //* ADP Schedule Contract con IBM Corp.; * //* Vea las instrucciones de copyright * //* * //* @END_COPYRIGHT@ * //* * //****************************************************************** //* IBM WebSphere Event/Message Brokers * //* * //* Ejemplo de trabajo para crear un ServidorNombresUsuario * * //* * //****************************************************************** //* MÁS INFORMACIÓN - Vea: * //* * //* Centro de información de WebSphere Event/Message Brokers. * //* * //****************************************************************** //* PERSONALICE AQUÍ ESTE JCL PARA SU INSTALACIÓN //* HA DE EFECTUAR CAMBIOS GLOBALES EN ESTOS PARÁMETROS USANDO SU EDITOR //* * //* Sustituya ++HOME++ //* Directorio inicial donde se crearán los //* archivos ENVFILE, STDERR y STDOUT. //* por ej. '/u/home' //* //* Sustituya ++INSTALL++ //* Directorio de instalación de WBI Brokers. //* por ej. '/usr/lpp/mqsi ' //* //* Sustituya ++QUEUEMANAGER++ //* Nombre del gestor de colas. //* por ej. 'MQ01' //* //* Sustituya ++COMPONENTDIRECTORY++ //* Directorio Servidornombresusuario. //* por ej. '/mqsi/brokers/MQ01BRK ' //* //* Sustituya ++STARTEDTASKNAME++ //* Nombre de tarea iniciada (máximo 8 caracteres en mayúsculas). //* por ej. 'MQ01BRK' //* //* Sustituya ++WMQHLQ++ //* Calificador de alto nivel WebSphere. //* por ej. 'MQM.V531' //* //****************************************************************** //* //++STARTEDTASKNAME++ PROC INSTP='++INSTALL++', // MAINP='bipimain', // SRVMP='bipservice', // COMPK='++STARTEDTASKNAME++', // STRTP='AUTO', // COMPDIR='++COMPONENTDIRECTORY++', // STDD='OTRUNC', // HOME='++HOME++', // WMQHLQ='++WMQHLQ++' //* //****************************************************************** //* Copiar ENVFILE en SYSOUT //****************************************************************** //* //COPYENV EXEC PGM=IKJEFT01, // PARM='OCOPY INDD(BIPFROM) OUTDD(ENVFILE)' //SYSTSPRT DD DUMMY //BIPFROM DD PATHOPTS=(ORDONLY), // PATH='&HOME./ENVFILE' //ENVFILE DD SYSOUT=*,DCB=(RECFM=V,LRECL=256) //SYSTSIN DD DUMMY //* //****************************************************************** //* Verificación de ServidorNombresUsuario de MQ //****************************************************************** //* //VFYDB2MQ EXEC PGM=BPXBATSL,REGION=0M,TIME=NOLIMIT, // PARM='PGM &INSTP./bin/bipcvp u ++QUEUEMANAGER++' //* Bibliotecas de ejecución MQSeries //STEPLIB DD DISP=SHR,DSN=&WMQHLQ..SCSQANLE // DD DISP=SHR,DSN=&WMQHLQ..SCSQAUTH // DD DISP=SHR,DSN=&WMQHLQ..SCSQLOAD //STDENV DD PATH='&HOME./ENVFILE' //STDOUT DD SYSOUT=* //STDERR DD SYSOUT=* //SYSMDUMP DD SYSOUT=* //* //****************************************************************** //* Comprobar RC de pasos anteriores //****************************************************************** //* // IF (RC=0) THEN //* //****************************************************************** //* Paso para suprimir bloqueos residuales //* (esto sólo es necesario si el intermediario está habilitado para ARM) //****************************************************************** //* //*RMLOCKS EXEC PGM=BPXBATCH,REGION=0M,TIME=NOLIMIT, //* PARM='SH rm -f &COMPDIR./common/locks/*' //* //****************************************************************** //* Inicio : //* Espacio de direcciones de servidor de nombres de usuario (bipimain, bipservice y bipuns) //****************************************************************** //* //UNS EXEC PGM=BPXBATCH,REGION=0M,TIME=NOLIMIT, // PARM='PGM &INSTP./bin/&MAINP. &SRVMP. &COMPK. &STRTP.' //* Bibliotecas de ejecución MQSeries //STEPLIB DD DISP=SHR,DSN=&WMQHLQ..SCSQANLE // DD DISP=SHR,DSN=&WMQHLQ..SCSQAUTH // DD DISP=SHR,DSN=&WMQHLQ..SCSQLOAD //STDENV DD PATH='&HOME./ENVFILE' //STDOUT DD PATHOPTS=(OWRONLY,OCREAT,&STDD), // PATHMODE=(SIRWXU,SIRWXG), // PATH='&COMPDIR./output/stdout' //STDERR DD PATHOPTS=(OWRONLY,OCREAT,&STDD), // PATHMODE=(SIRWXU,SIRWXG), // PATH='&COMPDIR./output/stderr' //SYSMDUMP DD SYSOUT=* //* //****************************************************************** //* Copia de stdout en SYSOUT //****************************************************************** //* //COPYOUT EXEC PGM=IKJEFT01,COND=EVEN, // PARM='OCOPY INDD(BIPFROM) OUTDD(STDOUT)' //SYSTSPRT DD DUMMY //BIPFROM DD PATHOPTS=(ORDONLY), // PATH='&COMPDIR./output/stdout' //STDOUT DD SYSOUT=*,DCB=(RECFM=V,LRECL=256) //SYSTSIN DD DUMMY //* //****************************************************************** //* Copia de stderr en SYSOUT //****************************************************************** //* //COPYERR EXEC PGM=IKJEFT01,COND=EVEN, // PARM='OCOPY INDD(BIPFROM) OUTDD(STDERR)' //SYSTSPRT DD DUMMY //BIPFROM DD PATHOPTS=(ORDONLY), // PATH='&COMPDIR./output/stderr' //STDERR DD SYSOUT=*,DCB=(RECFM=V,LRECL=256) //SYSTSIN DD DUMMY //* // ENDIF //* //*----------------------------------------------------------------- // PEND //*----------------------------------------------------------------- //* //