Passing PF indicators from RPG to CL

["Dave Odom" <Dave.Odom@xxxxxxxxxxxx>]

Gang,

I'm trying to pass some indicator actions, in this case F3 and F12,
from an RPG program which has been called by a CL program, back to the
CL program so I can take appropriate action there.  What's the
appropriate code in both environments?   Inside the CL program I'm doing
the following:

PGM        PARM(&USER)                          
DCL        VAR(&USER) TYPE(*CHAR) LEN(10)       
DCL        VAR(&RTNCDE) TYPE(*CHAR) LEN(1)   */ 
DCL        VAR(&RTNCD) TYPE(*DEC) LEN(5 0)   */ 
DCL        VAR(&RECS) TYPE(*DEC) LEN(10 0)      
DCL        VAR(&INKC)     TYPE(*LGL)  LEN(1)    
DCL        VAR(&INKL)     TYPE(*LGL)  LEN(1)    

            Other logic


CALL       PGM(HTEUSRTEST/CRWESTUN) PARM(&INKC &INKL)  
 
IF         COND(&INKL) THEN(DO) 
 GOTO       CMDLBL(ENDPGM)      
                     
              the rest of the program   

In this case, if the person hits the F12 key I just want the program to
end instead of doing what follows which is a clearing of a PF.   I know
I'm missing something easy but I can't seem to figure it out.

Thanks in advance,

Dave Odom