is there a way to let the record lock (R I D C) error stay at the program that do the CHAIN

Here is the program flow:
1) PGMA call PGMB. 
2) PGMA has *PSSR routine.
3) Both program run in the same name activation group.
 
problem I have:
1) PGMB CHAIN to a file and sometime gets record lock error RNX1218.  When I 
test run the program, the record lock error is caught by PGMA *pssr routine and 
I did not get an option for retry the CHAIN operation.
 
 
Is there a way to do this:
1) Is there a way to get the retry option without removing the *pssr in PGMA?
 
thanks