Renvoie infos sur une alerte

BoTTom |    Changer de couleur
      ****************************************************************
      *                                                              *
      * API:  QALRTVA                                                *
      * Format:  ALRT0100                                            *
      *                                                              *
      ****************************************************************
       01 ALRT0100-RCVVAR.
           05 BYTES-RETURNED                 PIC S9(9) COMP-4.
           05 BYTES-AVAILABLE                PIC S9(9) COMP-4.
           05 LOGGED-TOD                     PIC X(08).
           05 ASSIGNED-USER                  PIC X(10).
           05 ASSIGNED-GROUP                 PIC X(10).
           05 FILTER-USED                    PIC X(20).
           05 ALERT-ID                       PIC X(04).
           05 PROBLEM-ID                     PIC X(10).
           05 PROBLEM-ORIGIN                 PIC X(20).
           05 HELD-ALERT                     PIC X(01).
           05 LOCAL-RECEIVED                 PIC X(01).
           05 ALERT-HELD                     PIC X(01).
           05 ALERT-DELAYED                  PIC X(01).
           05 OPERATOR-GENERATED             PIC X(01).
           05 ANALYSIS-AVAILABLE             PIC X(01).


|    Changer de couleur
           05 ALERT-TYPE                     PIC X(02).
           05 ALERT-DESCRIPTION              PIC X(04).
           05 PROBABLE-CAUSE                 PIC X(04).
           05 RESOURCE-NAME                  PIC X(10).
           05 RESOURCE-TYPE                  PIC X(03).
      ****************************************************************
     IRCVVAR      DS
     I                                    B   1   40BYTRTN
     I                                    B   5   80BYTVAL
     I                                        9  16 LOGTOD
     I                                       17  26 ASNUSR
     I                                       27  36 ASNGRP
     I                                       37  56 FTRUSE
     I                                       57  60 ALRID
     I                                       61  70 PRBID
     I                                       71  90 PRBORG
     I                                       91  91 HLDALR
     I                                       92  92 LCLRCV
     I                                       93  93 ALRHLD
     I                                       94  94 DLYALR
     I                                       95  95 OPGEN
     I                                       96  96 ANYAVL


|    Changer de couleur
     I                                       97  98 ALRTYP
     I                                       99 102 ALRDSC
     I                                      103 106 PBLCSE
     I                                      107 116 RSCNAM
     I                                      117 119 RSCTYP
      ****************************************************************
      *                                                              *
      * API:  QALRTVA                                                *
      * Format:  ALRT0200                                            *
      *                                                              *
      ****************************************************************
       01 ALRT0200-RCVVAR.
           05 BYTES-RETURNED                 PIC S9(9) COMP-4.
           05 BYTES-AVAILABLE                PIC S9(9) COMP-4.
           05 LOGGED-TOD                     PIC X(08).
           05 ASSIGNED-USER                  PIC X(10).
           05 ASSIGNED-GROUP                 PIC X(10).
           05 FILTER-USED                    PIC X(20).
           05 ALERT-MAJOR-VECTOR             PIC X(512).
      ****************************************************************
     IRCVVAR      DS
     I                                    B   1   40BYTRTN


|    Changer de couleur
     I                                    B   5   80BYTVAL
     I                                        9  16 LOGTOD
     I                                       17  26 ASNUSR
     I                                       27  36 ASNGRP
     I                                       37  56 FTRUSE
     I                                       57 568 ALRMV




©AF400