Question

how can we use ponter in function keys?

RPGLE, iSeries development

usually we are using
if *in03=*off like that instead of this i want to give directly
IF EXIT like that I think some pointers are used to this i am not sure about that please replay me this question.

In order to assign Function Keys F1-F24 to Names/Pointers use the INDARA in the Dispaly File see the example here:

http://publib.boulder.ibm.com/infocenter/iseries/v5r4/topic/rzakc/rzakcmstdfindar.htm

Then use the INDDS keyword in your RPG program

http://publib.boulder.ibm.com/infocenter/iseries/v5r4/index.jsp?topic=/rzakc/rzakcmstdfindar.htm

 FZZDR917D  CF   E             WORKSTN                     
 F                                     INDDS(SRIND)        

Define the datastructure in the RPG program:

 D SRIND           DS                
 D*                                  
 D*  -- Display File Command Key Indi
 D  EXIT                   3      3N 
 D  PROMPT                 4      4N 
 D  DELETE                11     11N 
 D  CANCEL                12     12N 

Then use the names in your in the RPG program:

     DOU EXIT = *ON; 
     |
     ENDDO;
 or
     IF PROMPT = *ON; 
 or
    IF DELETE = *ON;  
 or 
       IF EXIT = *ON OR CANCEL = *ON; 
        EVAL EXIT = *ON;              
        LEAVESR;                      
       ENDIF;                         
 

------------------------------------------------------

An excellent response. As the original question had to do with using 'IF EXIT' I'll just point out that the above examples could just as easily have used 'IF EXIT' and 'IF NOT EXIT' rather than '= *ON' as the fields are defined as indicator fields.

Bruce Vining