× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.