RE: Help with Reply List

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