Anexo B

Se muestra, a continuación, un ejemplo de cómo puede ser usado el sistema de alarmas por una aplicación usuaria externa al Editran.

En el ejemplo se ha modificado el procedimiento previo a emisión añadiendo un paso en el que se llama al sistema de alarmas en caso de que se produzca un ABEND en el paso anterior.

//      PROC ORIGEN=,FUNCION=,L0=,                                    
//           L1=,L2=,R1=,R2=,AP=,LF=                                  
//*********************************************************************
//* INDRA                                                  ENE- 2002  *
//*********************************************************************
//*   PROCEDIMIENTO PREVIO A LA EMISION DE EDITRAN/G V5.3             *
//*********************************************************************
//A1P      EXEC PGM=ZTBGB110,REGION=6M,TIME=25,                        
//          PARM='&ORIGEN&FUNCION&L1&L2&R1&R2&AP&LF'                   
//*         PARM='&ORIGEN&FUNCION&L1&L2&R1&R2&AP&LF/ENVAR(_EDC_ZERO_RECX
//*            LEN=Y)'                                                 
//STEPLIB  DD DSN=KI.EGDI.LOAD,DISP=SHR                                
//         DD DSN=IMS510P.RESLIB,DISP=SHR                              
//         DD DSN=KI.GCDA.SCDES.LOAD,DISP=SHR                          
//         DD DSN=KI.SNIM.LOAD,DISP=SHR                                
//PROCLIB  DD DSN=KI.EGDI.ZTBG.JCLS,DISP=SHR                           
//ZTBGFPER DD DSN=KI.EGDI.ZTBG.PERFILES,DISP=SHR                       
//ZTBGFLOG DD DSN=KI.EGDI.ZTBG.LOG,DISP=SHR                            
//ZTBGF032 DD DSN=KI.EGDI.ZTBG.ZTBGF032,DISP=SHR                       
//*FICHERO QUE CONTIENE LISTA DE FICHEROS                              
//ZTBGFCAR DD   DSN=KI.EGDI.ZTBG.JCLS(ZTBGFCAR),DISP=SHR               
//ZTBGFLIS DD SYSOUT=*                                                 
//ZTBGFMSJ DD SYSOUT=*                                                
//ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105)                              
//ZTBGFINT DD SYSOUT=(H,INTRDR),DCB=(BLKSIZE=80)                      
//*FICHERO QUE CONTIENE TABLAS CONVERSION                             
//ZTBGFTCO DD   DSN=KI.EGDI.ZTBG.ZTBGFTCO,DISP=SHR                    
//FICHKDES DD DSN=KI.GCDA.CIFRIMS.FICHKDES,DISP=SHR                   
//FICHKRSA DD DSN=KI.GCDA.CIFRIMS.FICHKRSA,DISP=SHR                   
//CEEDUMP  DD SYSOUT=*                                                
//SYSOUT   DD SYSOUT=*                                                
//SYSPRINT DD SYSOUT=*                                                
//SYSTCPD  DD DSN=TCPIP.SEZAINST(TCPDATB2),DISP=SHR                   
//      SET LOCAL0=&L0                                                
//      SET PRESEN=&PR                                                
//*                                                                   
//* LLAMADA AL SISTEMA DE ALARMAS EN CASO DE ABEND (EDITRAN/EA)       
//*                                                                   
//      SET AB='ERROR ABEND CODE. CONSULTE SALIDA DEL JCL.'           
//ZTBEBA00 EXEC PGM=ZTBEBA00,                                         
//         PARM='&ORIGEN&FUNCION&L1&L2&R1&R2&AP&AB',                   
//         REGION=8M,TIME=25,COND=ONLY                                 
//STEPLIB  DD DSN=KI.EGDI.LOAD,DISP=SHR                                
//         DD DSN=IMS510P.RESLIB,DISP=SHR                              
//ZTBGFPER DD DSN=KI.EGDI.ZTBG.PERFILES,DISP=SHR                       
//ZTBGFLOG DD DSN=KI.EGDI.ZTBG.LOG,DISP=SHR                            
//ZTBGF032 DD DSN=KI.EGDI.ZTBG.ZTBGF032,DISP=SHR                       
//ZTBGFLIS DD SYSOUT=*                                                 
//ZTBGFMSJ DD SYSOUT=*                                                 
//ZTBGFPRI DD SYSOUT=*,DCB=(BLKSIZE=105)                               
//ZTBGFINT DD SYSOUT=(H,INTRDR),DCB=(BLKSIZE=80)                       
//*FICHERO QUE CONTIENE TABLAS CONVERSION                              
//CEEDUMP  DD SYSOUT=*                                                 
//SYSOUT   DD SYSOUT=*                                                 
//SYSPRINT DD SYSOUT=*                                                 
//SYSTCPD  DD DSN=TCPIP.SEZAINST(TCPDATB2),DISP=SHR                    
//*