Code: Select all
01 WS-LOCAL-VARIABLES.
05 QMHRDQM-DATA PIC X(1000).
05 QMHRDQM-LENGTH PIC 9(04) BINARY.
05 QMHRDQM-FORMAT PIC X(8) VALUE "RDQM0100".
05 QMHRDQM-NAME PIC X(20).
05 QMHRDQM-MSI.
10 MSI-SELTYPE PIC X(1) VALUE 'F'.
10 MSI-FILLER PIC X(3) VALUE SPACES.
10 MSI-CNT PIC 9(4) BINARY.
05 QMHRDQM-MSIL PIC 9(4) BINARY.
05 QMHRDQM-MSIF PIC X(8) VALUE "RDQS0100".
05 QMHRDQM-ERROR PIC X(100).
* Read data queue
Code: Select all
INITIALIZE QMHRDQM-DATA
INITIALIZE MSI-FILLER
MOVE 1000 TO QMHRDQM-LENGTH
MOVE 8 TO QMHRDQM-MSIL
MOVE 'F' TO MSI-SELTYPE
MOVE 10 TO MSI-CNT
CALL "QMHRDQM" USING QMHRDQM-DATA
QMHRDQM-LENGTH
QMHRDQM-FORMAT
QMHRDQM-NAME
QMHRDQM-MSI
QMHRDQM-MSIL
QMHRDQM-MSIF
QMHRDQM-ERROR.
code tags added by dbz