Trabajo

Solo disponible en BuenasTareas
  • Páginas : 3 (637 palabras )
  • Descarga(s) : 0
  • Publicado : 24 de febrero de 2012
Leer documento completo
Vista previa del texto
PROCEDIMIENTO PARA RELANZAMIENTO DE

PROGRAMAS CON CURSOR


El paso principal para realizar los relanzamientos de programas con CURSORES es guardar los datos del ultimo registro actualizado,para esto se realiza el llamado de la rutina de arquitectura QG9C0020 la cual insertar estos datos en la tabla QGDTB09.

Para realizar el llamado a la rutina QG9C0020 Modulo de Relanzamientos deAplicaciones Altamira se debe realizar los siguientes pasos:

1. Se debe definir una variable en el SETVAR de Control-M que será el número de registros para realizar el COMMIT, esta variable debeingresar al programa como parámetro.


SET VAR %%COM=000050


//SYSTSIN DD *
DSN SYSTEM(DB2D)
RUN PROGRAM(BA4C7000) PLAN(BVDBGPB) PARM('LTAR%%COM')








No olvidarcolocar este parámetro dentro de la definición de LINKAGE SECTION EN EL PROGRAMA

LO TIENEN LOS 2


2. El cursor se debe declarar con el comando WITH HOLD para que al momento re realizar elCOMMIT el DB2 no cierre los cursores.

DECLARE BADTCHE CURSOR WITH HOLD FOR
SELECT *
FROM BADTCHE0
WHERE TCHE_BAESTADO = 'P'



LO TIENEN LOS 2


3. En laWORKING-STORAGE SECTION se debe incluir el copy QGWC002 que corresponde al área de comunicación de la rutina.

LO TIENEN LOS 2

4. El en procedimiento principal del programa se debe realizar como primerpaso el primer llamado a la rutina este llamado se debe realizar para insertar un registro de INICIO con los siguientes parámetros :
2000-PROCESO.
PERFORM 2100-ABRIR-CURSOR.
PERFORM1200-VERIF-RELANZA THRU 1200-EXIT

2100-ABRIR-CURSOR.
EXEC SQL
OPEN BADTCHE
END-EXEC.
MOVE SQLCODE TO DB2-RETURN-CDE
IF DB2-OKCONTINUE
ELSE
MOVE 'BA4C7000' TO DB2-PGRNAME
MOVE 'BADTCHE0' TO DB2-OBJETO
MOVE 'OPEN ' TO DB2-SENTENCIA...
tracking img