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)
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)