Borrado de la base de datos

Otro proceso BMP tomará la lista de sesiones generada en el paso previo y procederá al borrado efectivo de la base de datos.

La entrada es la lista de sesiones ZTBGFSES que generó el ZTBGJBO1 y una ficha SYSIN con un parámetro que indica si se desea actuar sobre el tampón de emisión o el de recepción. Esta lista debe ser verificada por el usuario para evitar el borrado de sesiones que todavía son útiles. Su contenido puede ser modificado manualmente.

El proceso no verifica el estado de la emisión/recepción en Editran. Tampoco realiza ningún tipo de ENQ sobre la sesión de presentación. Se aconseja realizar una copia de seguridad antes de realizar el borrado.

El proceso se lanza con el JCl ZTBGJBO2.

Se ejecuta en una BMP con opción de escritura sobre la base de datos que realiza CHKP-POINT cada 100 registros borrados o cada cambio de sesión. Podríamos ejecutarla con la PSB de carga de IGA ZTBGEIG1, con la precaución de no bloquear otros procesos de carga. El borrado se ejecuta sesión a sesión leyendo por acceso directo cada uno de los registros (sumando 1 para leer el siguiente), de forma idéntica a como lo hace el producto.

La salida es un listado indicando el número de registros borrados en cada sesión.

Si proceso se interrumpiese podría ser relanzado indicando la misma lista de sesiones.

Los errores se mostrarán en el log de Editran/G.

ZTBGJBO2.

Para borrar las sesiones seleccionadas en el informe previo utilizamos el fichero ZTBGFSES obtenido allí, indicando en la SYSIN si es en Emisión o Recepción.

 EDIT       KI.EGDI.ZTBG.JCLS(ZTBGJBO2) - 01.12             Columns 00001 00072
 Command ===>                                                  Scroll ===> CSR 
 000018 //ZTBGEBO2  EXEC IMSBATCH,MBR=ZTBGEBO2,PSB=ZTBGEBO2,PREFIX=IMS510P,    
 000019 //          REGION=0M                                                  
 000020 //STEPLIB  DD DSN=IMS510P.RESLIB,DISP=SHR                              
 000021 //         DD DSN=KI.EGDI.LOAD,DISP=SHR                                
 000022 //SYSOUT   DD SYSOUT=*                                                 
 000023 //SYSPRINT DD SYSOUT=*                                                 
 000024 //PRINTDD  DD SYSOUT=*                                                 
 000025 //CEEDUMP  DD SYSOUT=*                                                 
 000026 //ZTBGFLOG DD DSN=KI.EGDI.ZTBG.LOG,DISP=SHR                            
 000027 //ZTBGFLIS DD SYSOUT=*                                                 
 000028 //ZTBGFMSJ DD SYSOUT=*                                                 
 000029 //ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105)                               
 000030 //ZTBGFINF DD SYSOUT=*                                                 
 000031 //*SECUENCIAL DE 80                                                    
 000032 //ZTBGFSES DD DSN=KI.EGDI.ZTBG.ZTBGFSES,DISP=SHR                       
 000033 //SYSIN    DD   *                                                     
 000034 E                                                                     
 000035 //                                                                     

Listado.

La ejecución del borrado indicará los registros reales eliminados.

   FECHA : 23/12/2002  B O R R A D O   B. D.  R E C E P C I O N (ZTBPDEMD) -EDITRAN-    PAGINA:   1
   HORA  : 17:03:40                                                            
                                                                               
                     REGISTROS       LOCAL    REMOTO   APLICA                  
                  ---------------  --------- --------- ------                  
                                5  000099980 000099940 CE9994                  
                                5  000099980 000099940 CE9998                  
                                5  000099980 000099940 EE9994                  
                                4  000099980 000099940 ER9998                  
                                9  000099980 000099940 OR9998                  
                            2.352  000099980 000099940 PRUEBA                  
                            2.751  000099980 000099940 PRUEB1                  
                                5  000099980 000099940 PRUMJ1                  
                                5  000099980 000099940 TE9994                  
                                5  000099980 000099940 VR9994                  
        -------------------------  --------------------------                  
        TOTAL REG:          5.146  TOTAL SESIONES:         10
                  
                   ***   F I N     D E    L I S T A D O   ***