× 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.



Willie, following may look like an overkill, but it ought to get the job
done in some of my CL programs.

PGM

dcl &jobrpy *char 10
dcl &seqnbr *dec (4 0) 49

RTVJOBA INQMSGRPY(&JOBRPY)
CHGJOB INQMSGRPY(*SYSRPYL)
retry: chgvar &seqnbr (&seqnbr + 1)
ADDRPYLE SEQNBR(&seqnbr) MSGID(CPF1054) RPY('I')
MONMSG MSGID(CPF2555) EXEC(GOTO CMDLBL(RETRY))
ENDSBS SBS(QPFASTX) OPTION(*IMMED)
RMVRPYLE SEQNBR(&seqnbr)
CHGJOB INQMSGRPY(&JOBRPY)

ENDPGM

Elvis

2007 System i Fall Technical Conference | Orlando | November 4-7
Celebrating 10-Years of SQL Performance Excellence on IBM i5/OS and OS/400

-----Original Message-----
Subject: Help with Reply List

I am trying to use a reply list to answer a CPF1054 message. I want the
system reply to be 'I' to this message. When it runs the answer is a 'D'
not the 'I' I wanted. I have done this for other messages and it has worked
fine. What am I overlooking? It must be to close to the weekend...
Thanks in advance for all help,
William Moore

CL:
ADDRPYLE SEQNBR(50) MSGID(CPF1054) RPY(I)
ENDSBS SBS(QPFASTX) OPTION(*IMMED)
RMVRPYLE SEQNBR(50)

JOBLOG MSG:
Reply List entry with sequence number 50 added to system reply list.
No subsystem QPFASTX active.
CPF1054 received by CLOSDWN2CL at 6300. (C D I R)
D



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.