Parce que if *in03 est moins lisible que if fin_pgm vous pouvez nommer vos indicateurs écran

Il faut tout d'abord mettre dans le source de l'écran au niveau SDA, ou code designer INDARA

ensuite

dans le PGM RPG

fgeststag  cf   e             workstn indds(Indic)

DIndic           DS                              
DFin_Pgm                   3      3N               
DCreer                       6      6N               
DEcr_Prec                12     12N

                
 /free                                            
   dou Fin_Pgm;                                   
   // votre code                                  
   enddo;                                         
   *inlr = *on;                                   
 /end-free

Dans cet exemple, on boucle jusqu'a ce que F3 soit activé.