Petit exemple très simple d'utilisation de pointeur inspiré de Scott Klément

H* Test    pointeur                                  
D* Déclaration variable simple                       
D msg             S             30A                  
D* Déclaration variable simple                       
D Var1            S             12A                  
D* Déclaration pointeur                              
D Ptr             S               *                  
D* Déclaration variable basée sur un pointeur        
D Var2            S             12A   based(Ptr)     
 /FREE                                               
  // Affectation adresse de la var1  au pointeur     
                              Ptr = %addr(Var1)     ;
  // Affectation nouvelle valeur à var1              
                              Var1 = 'Hello World !';
  // affichage var2                                   
                     msg  ='var2 = ' + var2         ;
                    dsply msg                      ;
 // Affectation nouvelle valeur à var1             
                             Var2 = 'World Hello !';
 // Affichage var1                                 
                    msg  ='Var1 = ' + var1         ;
                    dsply msg                      ;
 // Fin de programme                               
                             *inlr = *on           ;
/END-FREE