Re: Passing PF indicators from RPG to CL

["Booth Martin" <booth@xxxxxxxxxxxx>]

 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
_______________________________________________