TRANSFER Release D30 Documentation Supplement

ENQ-D30 UOW
1-18 118474—TRANSFER Release D30 Documentation Supplement
TRANSFER D30 Documentation Supplement
05 FILLER PIC X(1) VALUE LOW-VALUE.
END
DEF Deq-D30-Rsp.
05 Hdr TYPE Uow-Hdr.
05 Retn-Code TYPE Uow-Retn-Code.
*^ OK
*^ E-BAD-TRANSACTION
*^ E-MUST-BE-YN
*^ E-RESERVED-MUST-BE-N
*^ E-INVALID-PRIORITY
*^ E-INVALID-MAX-DATASIZE
*^ W-QUEUE-EMPTY
*^ E-ERR-QUEUE-FILE
*^ E-IO-TIMEOUT
*^ W-DATA-TRUNCATED
*^ E-INCOMPATIBLE-QFILE
05 Retn-Code-Detail TYPE Uow-Retn-Code-Detail.
05 Queue-Name TYPE *.
05 Priority TYPE *.
05 Time-Of-Enq PIC X(8).
05 PHandle PIC X(20).
05 Data-Len TYPE Max-Data-Size.
* The format of the data in the queue entry returned by DEQ
* should be defined by the application. This data will
* immediately follow the Data-Len field and will be Max-
* Data-Size bytes. The maximum size for the data portion *
of the response is constrained by the record size of the
* Queue File. An example would be:
* 05 Data-Field PIC X(100).
END
ENQ-D30 UOW
Users of the ENQ UOW have to make a choice when running high PIN processes. Either
they convert their programs to use the new ENQ-D30 UOW and RSP, or they will have
to force the Entry Manager to run at a low PIN. If the queue file is in the old format, the
ENQ-D30 UOW returns error E-INCOMPATIBLE-QFILE.
ENQ-D30-UOW looks like ENQ-UOW, but has a different UOW-HDR. ENQ-D30-RSP
looks like ENQ-RSP, but has a process handle instead of CPU-PIN.
DEF Enq-D30-Uow.
05 Hdr TYPE Uow-Hdr. *-
VALUE 512.
05 Flags.
10 Notify-Wait-Manager TYPE Boolean VALUE "Y".
10 Reserved1 TYPE Boolean VALUE "N".
10 Reserved2 TYPE Boolean VALUE "N".
10 Reserved3 TYPE Boolean VALUE "N".
10 Reserved4 TYPE Boolean VALUE "N".
10 Reserved5 TYPE Boolean VALUE "N".
10 Reserved6 TYPE Boolean VALUE "N".
10 Reserved7 TYPE Boolean VALUE "N".