Figure 7. Defining QUSLOBJ list entry data structure

/* Define quslobj list entry data structure--------------------------*/
             DCL        VAR(&QuslobjDS) TYPE(*CHAR) STG(*BASED)    LEN(600) BASPTR(&QuslobjPtr)
             DCL        VAR(&ObjName) TYPE(*CHAR) STG(*DEFINED)    LEN(10) DEFVAR(&AutoStg 1)
             DCL        VAR(&ObjLib) TYPE(*CHAR) STG(*DEFINED)     LEN(10) DEFVAR(&AutoStg 11)
             DCL        VAR(&ObjType) TYPE(*CHAR) STG(*DEFINED)    LEN(10) DEFVAR(&AutoStg 21)
             DCL        VAR(&ObjAttr) TYPE(*CHAR) STG(*DEFINED)    LEN(10) DEFVAR(&AutoStg 32)
             DCL        VAR(&ObjText) TYPE(*CHAR) STG(*DEFINED)    LEN(50) DEFVAR(&AutoStg 42)
             DCL        VAR(&CrtStamp) TYPE(*CHAR) STG(*DEFINED)   LEN(8)  DEFVAR(&AutoStg 125)
             DCL        VAR(&CrtUser) TYPE(*CHAR) STG(*DEFINED)    LEN(10) DEFVAR(&AutoStg 216)
             DCL        VAR(&LastStamp) TYPE(*CHAR) STG(*DEFINED)  LEN(8)  DEFVAR(&AutoStg 533)
             DCL        VAR(&NumDaysBin) TYPE(*CHAR) STG(*DEFINED) LEN(4)  DEFVAR(&AutoStg 549)
             DCL        VAR(&ObjSizeBin) TYPE(*CHAR) STG(*DEFINED) LEN(4)  DEFVAR(&AutoStg 577)
             DCL        VAR(&SizeMltBin) TYPE(*CHAR) STG(*DEFINED) LEN(4)  DEFVAR(&AutoStg 581)

             DCL        VAR(&NumDaysUse) TYPE(*INT)
             DCL        VAR(&ObjSize) TYPE(*INT)
             DCL        VAR(&SizeMlt) TYPE(*INT)