Re: Passing PF indicators from RPG to CL

 
 are user switches still available?  (U1 thru U8)

or, if all that is left to do is clearing the file, do that inside the RPG
program instead of the CL?

---------------------------------
Booth Martin
http://www.martinvt.com
---------------------------------
-------Original Message-------
 
From: Midrange Systems Technical Discussion
Date: 03/23/04 11:43:08
To: midrange-l@xxxxxxxxxxxx
Subject: Passing PF indicators from RPG to CL
 
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
_______________________________________________