Optimisation JES2 et gestion des files d’attente

				
					/*==============================================================*/
/* PROCÉDURES RECOVERY JES2 - Haute disponibilité             */
/* Procédures testées et validées en environnement critique   */
/*==============================================================*/

/* Checkpoint automatique et recovery */
&CKPTSPACE SPACE=(TRK,(1000,100)),DSNAME=JES2.CKPT.DATASET

/*
 * Stratégie checkpoint JES2 :
 * - Checkpoint automatique toutes les 5 minutes
 * - Backup checkpoint toutes les heures  
 * - Recovery point objective (RPO) : 5 minutes max
 */

&CKPTDEF NEWCKPT1=15,NEWCKPT2=60,STORE=YES

//JES2BCAK JOB CLASS=X,MSGCLASS=S
/*
 * Job de backup automatique checkpoint JES2
 * Exécution : toutes les heures via scheduling système
 */
//BACKUP   EXEC PGM=IEFBR14
//CKPTBKUP DD DSN=JES2.CKPT.BACKUP.G&GENNUM,
//            DISP=(NEW,CATLG,DELETE),
//            LIKE=JES2.CKPT.DATASET
//SYSIN    DD DUMMY

/*==============================================================*/
/* PROCÉDURE RECOVERY COLD START                               */
/*==============================================================*/

/* Procédure manuelle en cas de corruption majeure */
//COLDREC  PROC
//JES2     EXEC PGM=HASJES20,
//         PARM='COLD,NOREQ'        /* Cold start, no req queue */
//HASPPARM DD DSN=SYS1.PARMLIB(JES2PARM),DISP=SHR
//HASPLIST DD SYSOUT=A
/*  
 * Étapes recovery Cold Start :
 * 1. Arrêt JES2 contrôlé : $P JES2  
 * 2. Vérification intégrité SPOOL : IDCAMS VERIFY
 * 3. Restart Cold avec perte queues actives
 * 4. Resoumission jobs critiques depuis backup
 */
//         PEND

/*==============================================================*/
/* PROCÉDURE RECOVERY WARM START                               */  
/*==============================================================*/

//WARMREC  PROC
//JES2     EXEC PGM=HASJES20,
//         PARM='WARM,FORMAT'       /* Warm start avec format */
//HASPPARM DD DSN=SYS1.PARMLIB(JES2PARM),DISP=SHR
//HASPLIST DD SYSOUT=A
/*
 * Étapes recovery Warm Start :
 * 1. Arrêt JES2 : $P JES2
 * 2. Vérification checkpoint : HASJES20 PARM='CKPT'
 * 3. Recovery automatique des queues
 * 4. Validation jobs en cours d'exécution
 */
//         PEND

/*==============================================================*/
/* MONITORING RECOVERY - Surveillance automatique              */
/*==============================================================*/

//RECOMON  JOB CLASS=X,MSGCLASS=S,COND=(0,NE)
//STEP1    EXEC PGM=IKJEFT01  
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
/* REXX - Monitoring recovery JES2 */
%RECOVERY_MONITOR

RECOVERY_MONITOR:
parse source . . exec_name .

/* Vérification santé JES2 toutes les 2 minutes */
do forever
    /* Test connectivité JES2 */
    ADDRESS MVS "CONSOLE '$D JES2'"
    if rc ¬= 0 then do
        say "CRITICAL: JES2 non-responsive"
        call initiate_recovery_procedure
    end
    
    /* Vérification checkpoint */
    call check_checkpoint_integrity
    
    /* Test SPOOL accessibility */  
    call verify_spool_access
    
    call sleep 120  /* 2 minutes */
end

return

initiate_recovery_procedure:
say "INITIATING AUTOMATIC RECOVERY SEQUENCE"

/* Notification équipes */
call send_critical_alert "JES2 FAILURE DETECTED - AUTO RECOVERY STARTED"

/* Tentative recovery Warm d'abord */
say "Attempting WARM recovery..."
ADDRESS MVS "START JES2,PARM='WARM'"

call sleep 60
call test_jes2_operational

if jes2_status ¬= "ACTIVE" then do
    say "WARM recovery failed - attempting COLD recovery"
    ADDRESS MVS "START JES2,PARM='COLD'"  
    call restore_critical_jobs
end

return