/*--+------------------------------------------------------------+--*/
/*--+   COMMAND ID : DSPOBJS                                     +--*/
/*--+ COMMAND NAME : DISPLAY OBJECT SIZE                         +--*/
/*--+------------------------------------------------------------+--*/
/*--+      VERSION : 1.1 (98/10/08) REMOVED *ALLUSR AND *IBM     +--*/
/*--+                               FROM OBJ KEYWORD.            +--*/
/*--+                1.0 (98/09/28)                              +--*/
/*--+------------------------------------------------------------+--*/
             CMD        PROMPT('DISPLAY OBJECT SIZE')

             PARM       KWD(OBJ) TYPE(GETOBJ) MIN(1) PROMPT(OBJECT)

             PARM       KWD(OBJTYPE) TYPE(*CHAR) LEN(7) RSTD(*YES) +
                          SPCVAL((*ALRTBL) (*AUTL) (*BNDDIR) +
                          (*CFGL) (*CHTFMT) (*CLD) (*CLS) (*CMD) +
                          (*CNNL) (*COSD) (*CRQD) (*CSI) (*CSPMAP) +
                          (*CSPTBL) (*CTLD) (*DEVD) (*DOC) +
                          (*DTAARA) (*DTADCT) (*DTAQ) (*EDTD) +
                          (*EXITRG) (*FCT) (*FILE) (*FLR) (*FNTRSC) +
                          (*FNTTBL) (*FORMDF) (*FTR) (*GSS) +
                          (*IGCDCT) (*IGCSRT) (*IGCTBL) (*IPXD) +
                          (*JOBD) (*JOBQ) (*JOBSCD) (*JRN) +
                          (*JRNRCV) (*LIB) (*LIND) (*LOCALE) +
                          (*MENU) (*MODD) (*MODULE) (*MSGF) (*MSGQ) +
                          (*M36) (*M36CFG) (*NODGRP) (*NODL) +
                          (*NTBD) (*NWID) (*NWSD) (*OUTQ) (*OVL) +
                          (*PAGDFN) (*PAGSEG) (*PDG) (*PGM) +
                          (*PNLGRP) (*PRDAVL) (*PRDDFN) (*PRDLOD) +
                          (*PSFCFG) (*QMFORM) (*QMQRY) (*QRYDFN) +
                          (*RCT) (*SBSD) (*SCHIDX) (*SPADCT) +
                          (*SQLPKG) (*SRVPGM) (*SSND) (*SVRSTG) +
                          (*S36) (*TBL) (*USRIDX) (*USRPRF) (*USRQ) +
                          (*USRSPC) (*VLDL) (*WSCST)) +
                          SNGVAL((*ALL)) MIN(1) MAX(84) +
                          PROMPT('OBJECT TYPE')


             PARM       KWD(UNIT) TYPE(*CHAR) LEN(6) RSTD(*YES) +
                          DFT(*BYTE) SPCVAL((*BYTE) (*KBYTE) +
                          (*MBYTE)) PMTCTL(*PMTRQS) PROMPT('BYTE OR +
                          KBYTE OR MBYTE')

             PARM       KWD(BYTE) TYPE(*DEC) LEN(4) DFT(1024) +
                          RANGE(1 9999) PMTCTL(*PMTRQS) +
                          PROMPT('WHAT BYTE IS 1KBYTE ?')

 GETOBJ:     QUAL       TYPE(*GENERIC) LEN(10) SPCVAL((*ALL))
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +
                          SPCVAL((*LIBL) (*USRLIBL) (*CURLIB) +
                          (*ALL) (*ALLUSR)) PROMPT(LIBRARY)