RE: Help with Reply List

["Elvis Budimlic" <ebudimlic@xxxxxxxxxxxxxxxxxxxxxxxxx>]

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