5.2.14 Data Queue Programs
All programs will return at least a status and message. The status is a string value or an i5/OS API reason code, such as:
-
OK
-
ERROR
-
FATAL
-
NOMSG
-
CPF9801 - Object not found
and so on...
JSMDQGET - Get message
|
Parameter |
Description |
I/O |
Type |
Len |
Dec |
|
JSMQLIB |
Library |
I |
CHAR |
10 |
|
|
JSMQNME |
Queue |
I |
CHAR |
10 |
|
|
JSMQKEY |
Key - Use a blank key value for a non-keyed data queue. |
I |
CHAR |
256 |
|
|
JSMWAIT |
Wait time (millisecs, rounded to nearest second) |
I |
DEC |
8 |
0 |
|
JSMSTS |
Status |
O |
CHAR |
20 |
|
|
JSMMSG |
Message |
O |
CHAR |
256 |
|
Example
CHANGE FIELD(#JSMQLIB) TO(MYLIB)
CHANGE FIELD(#JSMQNME) TO(MYQUEUE)
CHANGE FIELD(#JSMQKEY) TO(*BLANK)
CALL PGM(JSMDQGET) PARM(#JSMQLIB #JSMQNME #JSMQKEY #JSMWAIT #JSMSTS #JSMMSG) NUM_LEN(*DEFINED)
JSMDQPUT - Put message
|
Parameter |
Description |
I/O |
Type |
Len |
Dec |
|
JSMQLIB |
Library |
I |
CHAR |
10 |
|
|
JSMQNME |
Queue |
I |
CHAR |
10 |
|
|
JSMQKEY |
Key - Use a blank key value for a non-keyed data queue. |
I |
CHAR |
256 |
|
|
JSMSTS |
Status |
O |
CHAR |
20 |
|
|
JSMMSG |
Message |
O |
CHAR |
256 |
|
Example
CALL PGM(JSMDQPUT) PARM(#JSMQLIB #JSMQNME #JSMQKEY #JSMSTS #JSMMSG)