Filter
Top Products
ᑍ
ᑍ Send information to the data queue.
ᑍ
CALL "QSNDDTAQ" USING NAME-OF-QUEUE, NAME-OF-LIBRARY,
SIZE-OF-MSG, MSG.
ᑍ
ᑍ Retrieve information from the data queue.
ᑍ
CALL "QRCVDTAQ" USING NAME-OF-QUEUE, NAME-OF-LIBRARY,
SIZE-OF-MSG, MSG-BACK, WAIT-TIME.
ᑍ
ᑍ Display the returned message
ᑍ
DISPLAY MSG-BACK.
ᑍ
ᑍ Delete the data queue
ᑍ
CALL QCAPCMD USING DLTDQ, COMMAND-LENGTH, QCA-PCMD-CPOP1,
OPTIONS-SIZE, FORMAT-NAME, RECEIVER,
RECEIVER-LENGTH, RECEIVER-LENGTH, QUS-EC.
ᑍ
ᑍ If an exception occurs, the API returns the exception in the
ᑍ error code parameter. The bytes available field is set to
ᑍ zero if no exception occurs and greater than zero if an
ᑍ exception does occur.
ᑍ
ᑍ
IF BYTES-AVAILABLE > PERFORM ERROR-FOUND.
ᑍ
ᑍ Delete the library
ᑍ
CALL QCAPCMD USING DLTLIB, COMMAND-LENGTH, QCA-PCMD-CPOP1,
OPTIONS-SIZE, FORMAT-NAME, RECEIVER,
RECEIVER-LENGTH, RECEIVER-LENGTH, QUS-EC.
ᑍ
ᑍ If an exception occurs, the API returns the exception in the
ᑍ error code parameter. The bytes available field is set to
ᑍ zero if no exception occurs and greater than zero if an
ᑍ exception does occur.
ᑍ
ᑍ
IF BYTES-AVAILABLE > PERFORM ERROR-FOUND.
ᑍ
STOP RUN.
ᑍ
ᑍ End of MAINLINE
ᑍ
ᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍᑍ
ᑍ
ERROR-FOUND.
ᑍ
ᑍ Process errors returned from the API.
ᑍ
ᑍ If first error found, then open QPRINT ᑍPRTF
ᑍ
IF FIRST-ERROR = "" OPEN OUTPUT LISTING,
MOVE "1" TO FIRST-ERROR.
ᑍ
B-168 System API Programming V4R1