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
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.