Archives par mot-clé : HANDLE

CICS Cours

CICS – AID & HANDLE AID

Il existe certains identificateurs d’attention (AID) associés à chaque écran. Les écrans d’entrée ont des touches ENTER et PF1 (Aide). Les écrans de requête ont PF7 (Page vers le haut), PF8 (Page vers le bas), PF1 (Aide) et ainsi de suite. En fonction de la touche enfoncée par l’utilisateur, le traitement doit se produire dans le programme. EIBAID de DFHEIBLK a la dernière touche appuyée par l’utilisateur. Il peut être vérifié dans le programme après la commande RECEIVE.

DFHAID :

La liste d’identifiants d’attention standard est DFHAID. Il simplifie le test du contenu du champ EIBAID après une opération de prise en charge cartographique de base (BMS) ou d’entrée de contrôle de terminal.

Le contenu suivant est présent dans le copybook DFHAID :

01    DFHAID.
   02  DFHNULL   PIC  X  VALUE IS ' '.
   02  DFHENTER  PIC  X  VALUE IS ''''.
   02  DFHCLEAR  PIC  X  VALUE IS '_'.
   02  DFHCLRP   PIC  X  VALUE IS '¦'.
   02  DFHPEN    PIC  X  VALUE IS '='.
   02  DFHOPID   PIC  X  VALUE IS 'W'.
   02  DFHMSRE   PIC  X  VALUE IS 'X'.
   02  DFHSTRF   PIC  X  VALUE IS 'h'.
   02  DFHTRIG   PIC  X  VALUE IS '"'.
   02  DFHPA1    PIC  X  VALUE IS '%'.
   02  DFHPA2    PIC  X  VALUE IS '>'.
   02  DFHPA3    PIC  X  VALUE IS ','.
   02  DFHPF1    PIC  X  VALUE IS '1'.
   02  DFHPF2    PIC  X  VALUE IS '2'.
   02  DFHPF3    PIC  X  VALUE IS '3'.
   02  DFHPF4    PIC  X  VALUE IS '4'.
   02  DFHPF5    PIC  X  VALUE IS '5'.
   02  DFHPF6    PIC  X  VALUE IS '6'.
   02  DFHPF7    PIC  X  VALUE IS '7'.
   02  DFHPF8    PIC  X  VALUE IS '8'.
   02  DFHPF9    PIC  X  VALUE IS '9'.
   02  DFHPF10   PIC  X  VALUE IS ':'.
   02  DFHPF11   PIC  X  VALUE IS '#'.
   02  DFHPF12   PIC  X  VALUE IS '@'.
   02  DFHPF13   PIC  X  VALUE IS 'A'.
   02  DFHPF14   PIC  X  VALUE IS 'B'.
   02  DFHPF15   PIC  X  VALUE IS 'C'.
   02  DFHPF16   PIC  X  VALUE IS 'D'.
   02  DFHPF17   PIC  X  VALUE IS 'E'.
   02  DFHPF18   PIC  X  VALUE IS 'F'.
   02  DFHPF19   PIC  X  VALUE IS 'G'.
   02  DFHPF20   PIC  X  VALUE IS 'H'.
   02  DFHPF21   PIC  X  VALUE IS 'I'.
   02  DFHPF22   PIC  X  VALUE IS '¢'.
   02  DFHPF23   PIC  X  VALUE IS '.'.
   02  DFHPF24   PIC  X  VALUE IS '<'.

Pour la vérification des valeurs dans EIBAID, copiez le cahier de copie de la liste AID standard fourni par CICS dans votre programme (COPY DFHAID). Maintenant, vous pouvez facilement vérifier la touche enfoncée comme suit.

EVALUATE EIBAID
    WHEN DFHENTER
          PERFORM PARA-1
    WHEN DFHPF1
          PERFORM PARA-2
    WHEN OTHER
          PERFORM PARA-3
END-EVALUATE.

La vérification ci-dessus est effectuée en COBOL et ce type de vérification doit être effectué après chaque commande RECEIVE pour acheminer correctement le flux. CICS fournit son propre traitement de routage basé sur la touche enfoncée par la commande HANDLE AID. Cela sera efficace tout au long du programme et réduira la redondance du code. Le routage sera automatiquement appelé à chaque RECEIVE.

EXEC CICS HANDLE AID
    DFHENTER(PARA-1)
    DFHPF1(PARA-2)
    ANYKEY(PARA-3)
END-EXEC.