Home

 

COBOL declaration

**   MQOD structure
  10 MQOD.
**    Structure identifier
   15 MQOD-STRUCID             PIC X(4).
**    Structure version number
   15 MQOD-VERSION             PIC S9(9) BINARY.
**    Object type
   15 MQOD-OBJECTTYPE          PIC S9(9) BINARY.
**    Object name
   15 MQOD-OBJECTNAME          PIC X(48).
**    Object queue manager name
   15 MQOD-OBJECTQMGRNAME      PIC X(48).
**    Dynamic queue name
   15 MQOD-DYNAMICQNAME        PIC X(48).
**    Alternate user identifier
   15 MQOD-ALTERNATEUSERID     PIC X(12).
**    Number of object records present
   15 MQOD-RECSPRESENT         PIC S9(9) BINARY.
**    Number of local queues opened successfully
   15 MQOD-KNOWNDESTCOUNT      PIC S9(9) BINARY.
**    Number of remote queues opened successfully
   15 MQOD-UNKNOWNDESTCOUNT    PIC S9(9) BINARY.
**    Number of queues that failed to open
   15 MQOD-INVALIDDESTCOUNT    PIC S9(9) BINARY.
**    Offset of first object record from start of MQOD
   15 MQOD-OBJECTRECOFFSET     PIC S9(9) BINARY.
**    Offset of first response record from start of MQOD
   15 MQOD-RESPONSERECOFFSET   PIC S9(9) BINARY.
**    Address of first object record
   15 MQOD-OBJECTRECPTR        POINTER.
**    Address of first response record
   15 MQOD-RESPONSERECPTR      POINTER.
**    Alternate security identifier
   15 MQOD-ALTERNATESECURITYID PIC X(40).
**    Resolved queue name
   15 MQOD-RESOLVEDQNAME       PIC X(48).
**    Resolved queue manager name
   15 MQOD-RESOLVEDQMGRNAME    PIC X(48).


 

Home