Figure 8. Using QUSLMBR

/* Define quslmbr list entry data structure--------------------------*/
             DCL        VAR(&QuslmbrDS) TYPE(*CHAR) STG(*BASED) LEN(100) BASPTR(&QuslmbrPtr)
             DCL        VAR(&AutoStg) TYPE(*CHAR) STG(*AUTO) LEN(100)
             DCL        VAR(&MemberName) TYPE(*CHAR) STG(*DEFINED) LEN(10) DEFVAR(&AutoStg 1)
             DCL        VAR(&SourceType) TYPE(*CHAR) STG(*DEFINED) LEN(10) DEFVAR(&AutoStg 11)
             DCL        VAR(&CrtDateTim) TYPE(*CHAR) STG(*DEFINED) LEN(13) DEFVAR(&AutoStg 21)
             DCL        VAR(&ChgDateTim) TYPE(*CHAR) STG(*DEFINED) LEN(13) DEFVAR(&AutoStg 34)
             DCL        VAR(&MbrText) TYPE(*CHAR) STG(*DEFINED)    LEN(50) DEFVAR(&AUTOSTG 47)
             DCL        VAR(&CCSID) TYPE(*CHAR) STG(*DEFINED)      LEN(4)  DEFVAR(&AutoStg 97)