Hello,
Can any one help me by providing a sample CL program to add and retrieve data from a keyed Data Queue? Please see the below mentioned CL program I am getting “CPF3C36” error. Can any one help me in this regards?
PGM
DCL VAR(&DQNAME) TYPE(*CHAR) LEN(10) VALUE(‘BIBIN’)
DCL VAR(&DQLIB) TYPE(*CHAR) LEN(10) VALUE(‘D993336′)
DCL VAR(&DQSNDL) TYPE(*DEC) LEN(5 0) VALUE(14)
DCL VAR(&DQLEN) TYPE(*DEC) LEN(5 0)
DCL VAR(&DQSNDD) TYPE(*CHAR) LEN(100)
DCL VAR(&DQDATA) TYPE(*CHAR) LEN(100)
DCL VAR(&DQWAIT) TYPE(*DEC) LEN(5 0) VALUE(0)
DCL VAR(&KEYLE) TYPE(*DEC) LEN(3 0) VALUE(1)
DCL VAR(&KEYDAT) TYPE(*CHAR) LEN(1)
CHGVAR VAR(&DQSNDD) VALUE(‘THIS IS BIBIN ‘)
CALL QSNDDTAQ PARM(&DQNAME &DQLIB &DQSNDL &DQSNDD &KEYLE &KEYDAT)
CALL QRCVDTAQ PARM(&DQNAME &DQLIB &DQDATA –
&KEYLE &KEYDAT &DQWAIT )
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&DQDATA)
ENDPGM