TRANSFER Release D30 Documentation Supplement

ENQ-TIMED-D30 UOW
1-20 118474—TRANSFER Release D30 Documentation Supplement
TRANSFER D30 Documentation Supplement
05 FILLER PIC X(1) VALUE LOW-VALUE.
END
DEF Readq-D30-Rsp.
05 Hdr TYPE Uow-Hdr.
05 Retn-Code TYPE Uow-Retn-Code.
*^ OK
*^ W-EOF
*^ E-MUST-BE-YN
*^ E-RESERVED-MUST-BE-N
*^ E-INVALID-PRIORITY
*^ E-INVALID-MAX-DATASIZE
*^ W-DATA-TRUNCATED
*^ E-ERR-QUEUE-FILE
*^ E-IO-TIMEOUT
*^ 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.
*
* Applications should define the actual format of the data
* portion.
END
ENQ-TIMED-D30 UOW
If the ENQ-TIMED-D30 UOW is used and the queue file is in the old format, the new
error E-INCOMPATIBLE-QFILE is returned.
ENQ-TIMED-D30-UOW looks like ENQ-TIMED-UOW, but has a different UOW-
HDR. ENQ-TIMED-D30-RSP looks like ENQ-TIMED-RSP, but has a process handle
instead of CPU-PIN.
DEF Enq-Timed-D30-Uow.
05 Hdr TYPE Uow-Hdr VALUE 513.
05 Flags.
10 Notify-Wait-Manager TYPE Boolean VALUE "Y".
10 Effective-Now TYPE Boolean VALUE "N".
10 Rel-Effective-Time 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".
05 Effective-Time TYPE Abs-Or-Rel-Time.
05 Queue-Name TYPE * VALUE SPACES.
05 Priority TYPE * VALUE 0.
05 Data-Byte-Count TYPE Max-Data-Size VALUE 0.
*
* Applications should define the actual format of the data
* portion.