×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
Hi
I found this link
https://archive.midrange.com/midrange-l/200204/msg01666.html ..
I tried the example
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Begin +
Scope Message processing')
CALL PGM(QUSRJOBI) PARM(&RCVVAR X'00000090' +
'JOBI0200' &PARM ' ')
CHGVAR VAR(&JOBISTS) VALUE(%SST(&RCVVAR 108 4))
IF COND(&JOBISTS = 'END') THEN(DO)
RETURN
ENDDO
/* Normal completion */
RETURN
But always return normal completion (&JOBISTS =RUN)
I have also tried this other
Call QMHSNDSM ( +
'*PGM' +
'SCOPEMS *LIBL' +
&KeyVar +
x'00000000' +
'0000' +
x'0000000000000000' +
)
But also this came called always .. pheraps i can "play" with the first
parameter ( Scope type *EXT,*PGM,*CSE)
Any idea ?
Thanks in advance
Gio
--
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact
[javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
