I’m getting error “BASED variable without an implicit qualifier must be explicitly qualified.” for line no 19 & 22.
What is wrong with these 2 statements?
My intent of this prog is to understand what values get assigned when using locator qualifier.

000001  PROG: PROC OPTIONS(MAIN);            
000002                                       
000003         DCL VARA CHAR(12) BASED(PA);  
000004         DCL VARB CHAR(15) BASED;      
000005         DCL (PA,PB) POINTER;          
000006                                       
000007         ALLOCATE VARA;                
000008                                       
000009         VARA = 'TEST-DATA';           
000010         PA->VARA='TEST-DATA1';        
000011         PUT SKIP LIST(PA);            
000012         PUT SKIP LIST(VARA);          
000013                                       
000014         PB->VARA='TEST-DATA2';        
000015         PUT SKIP LIST(PA,PB);         
000016         PUT SKIP LIST(VARA);          
000017                                    
000018         ALLOCATE VARB SET (PB);    
000019         VARB = 'NEW-TEST-DATA';    
000020         PB->VARB='NEW-TEST-DATA1'; 
000021         PUT SKIP LIST(PB);         
000022         PUT SKIP LIST(VARB);       
000023  END PROG;