Figure 13. Pointer-based DS

DCL VAR(&A) TYPE(*CHAR) STG(*AUTO) LEN(10)                     
                                                                                    
DCL VAR(&QuslobjDS) TYPE(*CHAR) STG(*BASED) LEN(600) BASPTR(&QuslobjPtr)                             
DCL VAR(&ObjLib) TYPE(*CHAR) STG(*DEFINED)  LEN(10)  DEFVAR(&QuslobjDS 11)                            
                                                                                    
CHGVAR     VAR(&A) VALUE(&OBJLIB)