5 1 16 Data Queue Programs

LANSA Integrator

5.1.16 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)

 

Also see

MQSeries and DataQueue programs Example