Renvoie un message de type *RQS

BoTTom |    Changer de couleur
      **************************************************
      * API:  QMHRTVRQ                                 *
      * FORMAT:  RTVQ0100                              *
      *                                                *
      **************************************************
 
       01   RTVQ0100-MSGINF.
            05  BYTES-RETURNED          PIC S9(9) COMP-4.
            05  BYTES-AVAILABLE         PIC S9(9) COMP-4.
            05  RETURN-KEY              PIC X(4).
            05  RESERVED1               PIC X(20).
            05  LENGTH-RQ-MSG-RTN       PIC S9(9) COMP-4.
            05  LENGTH-RQ-MSG-AVL       PIC S9(9) COMP-4.
     I**************************************************
     IMSGINF      DS
     I                                    B   1   40BYTRTN
     I                                    B   5   80BYTAVL
     I                                        9  12 KEYRET
     I                                       13  32 RESERV
     I                                    B  33  360LMSGRT
     I                                    B  37  400LMSGAV
      **************************************************


|    Changer de couleur
      * API:  QMHRTVRQ                                 *
      * FORMAT:  RTVQ0200                              *
      * LANGUAGE: COBOL                                *
      *                                                *
      **************************************************
 
       01   RTVQ0200-MSGINF.
            05  BYTES-RETURNED          PIC S9(9) COMP-4.
            05  BYTES-AVAILABLE         PIC S9(9) COMP-4.
            05  RETURN-KEY              PIC X(4).
            05  PROGRAM-NAME            PIC X(10).
            05  RESERVED1               PIC X(286).
            05  LENGTH-RQ-MSG-RTN       PIC S9(9) COMP-4.
            05  LENGTH-RQ-MSG-AVL       PIC S9(9) COMP-4.
     I**************************************************
     IMSGINF      DS
     I                                    B   1   40BYTRTN
     I                                    B   5   80BYTAVL
     I                                        9  12 KEYRET
     I                                       13  22 PGNAME
     I                                       23 100 RESER1
     I                                      101 308 RESER2


|    Changer de couleur
     I                                    B 309 3120LMSGRT
     I                                    B 313 3160LMSGAV




©AF400