Archivo de ejemplo BIPBRKP

Inicio del cambio
//******************************************************************
//* *
//* @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 intermediario.                * *
//* *
//******************************************************************
//* MÁS INFORMACIÓN - Consulte:                                    *
//* *
//* 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 de intermediario.
//*                      por ej. '/mqsi/brokers/MQ01BRK '
//*
//*  Sustituya   ++STARTEDTASKNAME++
//*                      Nombre de tarea iniciada (máximo 8 caracteres en mayúsculas).
//*                      por ej. 'MQ01BRK'
//*
//*  Sustituya   ++COMPONENTDATASET++
//*                      Conjunto de datos de intermediario.
//*                      por ej. 'BIP.BROKER.MQ01BRK'
//*
//*  Sustituya   ++DB2HLQ++
//*                      Calificador de alto nivel DB2.
//*                      por ej. 'SYS2.DB2.V810'
//*
//*  Sustituya   ++DB2RUNLIB++
//*                      DB2.
//*                      por ej. 'DSN810PK.RUNLIB.LOAD'
//*
//*  Sustituya   ++WMQHLQ++
//*                      Calificador de alto nivel WebSphere.
//*                      por ej. 'MQM.V530'
//*
//******************************************************************
//*
//* Las siguientes variables cambian al iniciar un DataFlowEngine:
//*     ID de semáforo
//* SE=<ID de esemáforo=""> (el valor por omisión es '')
//*     ID de segmento de memoria compartida
//* SH=<Memoria compartida=""> (el valor por omisión es '')
//*     Nombre exclusivo de componente
//*       COMPK='' (el valor por omisión es ++STARTEDTASKNAME++)
//*     Parámetro de inicio
//*       STRTP='' (el valor por omisión es 'AUTO')
//*
//******************************************************************
//*
//++STARTEDTASKNAME++ PROC INSTP='++INSTALL++',
//         MAINP='bipimain',
//         SRVMP='bipservice',
//         COMPK='++STARTEDTASKNAME++',
//         COMDS='++COMPONENTDATASET++',
//         STRTP='AUTO',
//         SE='',
//         SH='',
//         HOME='++HOME++',
//         DB2HLQ='++DB2HLQ++',
// WMQHLQ='++WMQHLQ++'
//*
//******************************************************************
//* Copia de 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
//*
//******************************************************************
//* Copiar DSNAOINI en SYSOUT
//******************************************************************
//*
//COPYDSN   EXEC PGM=IKJEFT01,
//         PARM='OCOPY INDD(BIPFROM) OUTDD(DSNAOINI)'
//SYSTSPRT  DD DUMMY
//BIPFROM DD DISP=SHR,DSN=&COMDS.;(BIPDSNAO)
//DSNAOINI DD SYSOUT=*,DCB=(RECFM=V,LRECL=256)
//SYSTSIN   DD DUMMY
//*
//******************************************************************
//* Prueba para ver si se inicia un espacio de direcciones de DataFlowEngine.
//* Debe devolver RC=0 si se inicia un espacio de direcciones de control o
//* de servidor de nombres de usuario, RC=12 si se inicia un espacio de
//* direcciones de DataFlowEngine.
//******************************************************************
//*
//CHECKDFE EXEC PGM=IKJEFT01,
// PARM='LISTDS ''&COMDS.;&SE.;'''
//SYSTSIN   DD DUMMY
//SYSTSPRT  DD DUMMY
//SYSMDUMP DD SYSOUT=*
//*
//         IF (RC=0) THEN
//*
//******************************************************************
//* Verificación de DB2 y MQ de intermediario
//******************************************************************
//*
//VFYDB2MQ EXEC PGM=BPXBATSL,REGION=0M,TIME=NOLIMIT,
// PARM='PGM &INSTP.;/bin/bipcvp b ++QUEUEMANAGER++'
//*        Bibliotecas de ejecución DB2
//STEPLIB DD DISP=SHR,DSN=&DB2HLQ..SDSNEXIT;
// DD DISP=SHR,DSN=&DB2HLQ..SDSNLOAD;
// DD DISP=SHR,DSN=&DB2HLQ..SDSNLOD2;
//         DD DISP=SHR,DSN=++DB2RUNLIB++
//*        Bibliotecas de ejecución MQSeries
// 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=*
//*
//         ENDIF
//*
//******************************************************************
//* Comprobar RCs de pasos anteriores
//******************************************************************
//*
//         IF (CHECKDFE.RC NE 0) OR
//            (VFYDB2MQ.RC EQ 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 ++COMPONENTDIRECTORY++/common/locks/*'
//*
//******************************************************************
//* Iniciar:
//* Espacio de direcciones de control (bipimain, bipservice y bipbroker)
//* Espacio de direcciones de DataFlowEngine (bipimain y DataFlowEngine)
//******************************************************************
//*
//BROKER EXEC PGM=BPXBATA8,REGION=0M,TIME=NOLIMIT,
// PARM='PGM &INSTP.;/bin/&MAINP.; &SRVMP.; &SE.; &SH.; &COMPK.;
// &STRTP.;'
//*        Bibliotecas de ejecución DB2
//STEPLIB DD DISP=SHR,DSN=&DB2HLQ..SDSNEXIT;
// DD DISP=SHR,DSN=&DB2HLQ..SDSNLOAD;
// DD DISP=SHR,DSN=&DB2HLQ..SDSNLOD2;
//         DD DISP=SHR,DSN=++DB2RUNLIB++
//*        Bibliotecas de ejecución MQSeries
// 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=*
//*
//         ENDIF
//*
//*-----------------------------------------------------------------
//         PEND
//*-----------------------------------------------------------------
//*
//
Fin del cambio
Tareas relacionadas
Personalización del conjunto de datos del componente intermediario
Referencia relacionada
Mandato mqsichangebroker
Mandato mqsideletebroker
Avisos | Marcas registradas | Descargas | Biblioteca | Soporte | Su opinión
Copyright IBM Corporation 1999, 2006 Última actualización: 04/05/2006
ae22380_