Rational Developer para System z, Versión 7.6

Estructuras COMMAREA

Este tema describe las estructuras COMMAREA.

* Estructura  COMMAREA de catálogo
           03 CA-REQUEST-ID PIC X(6).
           03 CA-RETURN-CODE PIC 9(2).
           03 CA-RESPONSE-MESSAGE PIC X(79).
           03 CA-REQUEST-SPECIFIC PIC X(911).
      * Campos utilizados en Inquire Catalog (consulta de catálogo)
           03 CA-INQUIRE-REQUEST REDEFINES CA-REQUEST-SPECIFIC.
               05 CA-LIST-START-REF PIC 9(4).
               05 CA-LAST-ITEM-REF PIC 9(4).
               05 CA-ITEM-COUNT PIC 9(3).
               05 CA-INQUIRY-RESPONSE-DATA PIC X(900).
               05 CA-CAT-ITEM REDEFINES CA-INQUIRY-RESPONSE-DATA
                               OCCURS 15 TIMES.
                   07 CA-ITEM-REF PIC 9(4).
                   07 CA-DESCRIPTION PIC X(40).
                   07 CA-DEPARTMENT PIC 9(3).
                   07 CA-COST PIC X(6).
                   07 IN-STOCK PIC 9(4).
                   07 ON-ORDER PIC 9(3).
      * Campos utilizados en Inquire Single (consulta única)
           03 CA-INQUIRE-SINGLE REDEFINES CA-REQUEST-SPECIFIC.
               05 CA-ITEM-REF-REQ PIC 9(4).
               05 FILLER PIC 9(4).
               05 FILLER PIC 9(3).
               05 CA-SINGLE-ITEM.
                   07 CA-SNGL-ITEM-REF PIC 9(4).
                   07 CA-SNGL-DESCRIPTION PIC X(40).
                   07 CA-SNGL-DEPARTMENT PIC 9(3).
                   07 CA-SNGL-COST PIC X(6).
                   07 IN-SNGL-STOCK PIC 9(4).
                   07 ON-SNGL-ORDER PIC 9(3).
               05 FILLER PIC X(840).
      * Campos utilizados en Place Order (efectuar pedido)
           03 CA-ORDER-REQUEST REDEFINES CA-REQUEST-SPECIFIC.
               05 CA-USERID PIC X(8).
               05 CA-CHARGE-DEPT PIC X(8).
               05 CA-ITEM-REF-NUMBER PIC 9(4).
               05 CA-QUANTITY-REQ PIC 9(3).
               05 FILLER PIC X(888).



	* Estructura COMMAREA de gestor de stocks/expedidor
           03 CA-ORD-REQUEST-ID PIC X(6).
           03 CA-ORD-RETURN-CODE PIC 9(2).
           03 CA-ORD-RESPONSE-MESSAGE PIC X(79).
           03 CA-ORD-REQUEST-SPECIFIC PIC X(23).
      * Campos utilizados en Expedidor
           03 CA-DISPATCH-ORDER REDEFINES CA-ORD-REQUEST-SPECIFIC.
               05 CA-ORD-ITEM-REF-NUMBER PIC 9(4).
               05 CA-ORD-QUANTITY-REQ PIC 9(3).
               05 CA-ORD-USERID PIC X(8).
               05 CA-ORD-CHARGE-DEPT PIC X(8).
      * Campos utilizados en Gestor de Stocks
           03 CA-STOCK-MANAGER-UPDATE REDEFINES CA-ORD-REQUEST-SPECIFIC.
               05 CA-STK-ITEM-REF-NUMBER PIC 9(4).
               05 CA-STK-QUANTITY-REQ PIC 9(3).                                
               05 FILLER PIC X(16).

Términos de uso | Comentarios

Este Information Center está basado en tecnología Eclipse. (http://www.eclipse.org)