Hier ist die Quelle des Systembefehls DSPOBJD V5R4:

PHP-Code:
/*           CRTCMD     CMD(QSYS/DSPOBJD) +                                  */
/*                      PGM(QSYS/QLIDOBJD) +                                 */
/*                      SRCFILE(REULE/QCMDSRC) +                             */
/*                      SRCMBR(DSPOBJD) +                                    */
/*                      THDSAFE(*NO) +                                       */
/*                      MLTTHDACN(*SYSVAL) +                                 */
/*                      TEXT('Objektbeschreibung anzeigen') +                */
/*                      VLDCKR(*NONE) +                                      */
/*                      MODE( +                                              */
/*                        *ALL) +                                            */
/*                      ALLOW( +                                             */
/*                        *ALL) +                                            */
/*                      ALWLMTUSR(*NO) +                                     */
/*                      MAXPOS(3) +                                          */
/*                      PMTFILE(QDEVELOP/QCPFPMT) +                          */
/*                      MSGF(*LIBL/QCPFMSG) +                                */
/*                      HLPSHELF(*LIST) +                                    */
/*                      HLPPNLGRP(*LIBL/QHLICMD1) +                          */
/*                      HLPID(DSPOBJD) +                                     */
/*                      HLPSCHIDX(*NONE) +                                   */
/*                      CURLIB(*NOCHG) +                                     */
/*                      PRDLIB(*NOCHG) +                                     */
/*                      PMTOVRPGM(*NONE) +                                   */
/*                      AUT(*USE) +                                          */
/*                      REPLACE(*YES) +                                      */
/*                      ENBGUI(*YES)                                         */

/*  Internal info                                                            */
/*    PGM call state:           *SYSTEM                                      */
/*    CCSID:                    273                                          */

             
CMD        PROMPT('Objektbeschreibung anzeigen')
             
PARM       KWD(OBJ) +
                        
TYPE(Q04EF) +
                        
SNGVAL( +
                          (*
ALLUSR ) +
                          (*
IBM )) +
                        
MIN(1) +
                        
PROMPT('Objekt')
             
PARM       KWD(OBJTYPE) +
                        
TYPE(*CHAR) +
                        
LEN(7) +
                        
RSTD(*YES) +
                        
SPCVAL( +
                          (*
ALRTBL ALRTBL) +
                          (*
AUTL AUTL) +
                          (*
BNDDIR BNDDIR) +
                          (*
CFGL CFGL) +
                          (*
CHTFMT CHTFMT) +
                          (*
CLD CLD) +
                          (*
CLS CLS) +
                          (*
CMD CMD) +
                          (*
CNNL CNNL) +
                          (*
COSD COSD) +
                          (*
CRG CRG) +
                          (*
CRQD CRQD) +
                          (*
CSI CSI) +
                          (*
CSPMAP CSPMAP) +
                          (*
CSPTBL CSPTBL) +
                          (*
CTLD CTLD) +
                          (*
DEVD DEVD) +
                          (*
DOC DOC) +
                          (*
DTAARA DTAARA) +
                          (*
DTADCT DTADCT) +
                          (*
DTAQ DTAQ) +
                          (*
EDTD EDTD) +
                          (*
EXITRG EXITRG) +
                          (*
FCT FCT) +
                          (*
FILE FILE) +
                          (*
FLR FLR) +
                          (*
FNTRSC FNTRSC) +
                          (*
FNTTBL FNTTBL) +
                          (*
FORMDF FORMDF) +
                          (*
FTR FTR) +
                          (*
GSS GSS) +
                          (*
IGCDCT IGCDCT) +
                          (*
IGCSRT IGCSRT) +
                          (*
IGCTBL IGCTBL) +
                          (*
IMGCLG IMGCLG) +
                          (*
IPXD IPXD) +
                          (*
JOBD JOBD) +
                          (*
JOBQ JOBQ) +
                          (*
JOBSCD JOBSCD) +
                          (*
JRN JRN) +
                          (*
JRNRCV JRNRCV) +
                          (*
LIB LIB) +
                          (*
LIND LIND) +
                          (*
LOCALE LOCALE) +
                          (*
MEDDFN MEDDFN) +
                          (*
MENU MENU) +
                          (*
MGTCOL MGTCOL) +
                          (*
MODD MODD) +
                          (*
MODULE MODULE) +
                          (*
MSGF MSGF) +
                          (*
MSGQ MSGQ) +
                          (*
M36 M36) +
                          (*
M36CFG M36CFG) +
                          (*
NODGRP NODGRP) +
                          (*
NODL NODL) +
                          (*
NTBD NTBD) +
                          (*
NWID NWID) +
                          (*
NWSCFG NWSCFG) +
                          (*
NWSD NWSD) +
                          (*
OUTQ OUTQ) +
                          (*
OVL OVL) +
                          (*
PAGDFN PAGDFN) +
                          (*
PAGSEG PAGSEG) +
                          (*
PDFMAP PDFMAP) +
                          (*
PDG PDG) +
                          (*
PGM PGM) +
                          (*
PNLGRP PNLGRP) +
                          (*
PRDAVL PRDAVL) +
                          (*
PRDDFN PRDDFN) +
                          (*
PRDLOD PRDLOD) +
                          (*
PSFCFG PSFCFG) +
                          (*
QMFORM QMFORM) +
                          (*
QMQRY QMQRY) +
                          (*
QRYDFN QRYDFN) +
                          (*
RCT RCT) +
                          (*
SBSD SBSD) +
                          (*
SCHIDX SCHIDX) +
                          (*
SPADCT SPADCT) +
                          (*
SQLPKG SQLPKG) +
                          (*
SQLUDT SQLUDT) +
                          (*
SRVPGM SRVPGM) +
                          (*
SSND SSND) +
                          (*
SVRSTG SVRSTG) +
                          (*
S36 S36) +
                          (*
TBL TBL) +
                          (*
TIMZON TIMZON) +
                          (*
USRIDX USRIDX) +
                          (*
USRPRF USRPRF) +
                          (*
USRQ USRQ) +
                          (*
USRSPC USRSPC) +
                          (*
VLDL VLDL) +
                          (*
WSCST WSCST)) +
                        
SNGVAL( +
                          (*
ALL )) +
                        
MIN(1) +
                        
MAX(92) +
                        
EXPR(*YES) +
                        
PROMPT('Objektart')
             
PARM       KWD(DETAIL) +
                        
TYPE(*CHAR) +
                        
LEN(1) +
                        
RSTD(*YES) +
                        
DFT(*BASIC) +
                        
SPCVAL( +
                          (*
BASIC B) +
                          (*
FULL F) +
                          (*
SERVICE S)) +
                        
EXPR(*YES) +
                        
PROMPT('Detail')
             
PARM       KWD(ASPDEV) +
                        
TYPE(E048E) +
                        
DFT(*) +
                        
SNGVAL( +
                          (* ) +
                          (*
ALLAVL ) +
                          (*
CURASPGRP ) +
                          (*
SYSBAS )) +
                        
PROMPT('ASP-Einheit')
             
PARM       KWD(OUTPUT) +
                        
TYPE(*CHAR) +
                        
LEN(1) +
                        
RSTD(*YES) +
                        
DFT(*) +
                        
SPCVAL( +
                          (* ) +
                          (*PRINT 
L) +
                          (*
OUTFILE N)) +
                        
EXPR(*YES) +
                        
PROMPT('Ausgabe')
             
PARM       KWD(OUTFILE) +
                        
TYPE(Q056B) +
                        
FILE(*OUT) +
                        
CHOICE(*NONE) +
                        
PMTCTL(P0658) +
                        
PROMPT('Datei für Ausgabe')
             
PARM       KWD(OUTMBR) +
                        
TYPE(E041B) +
                        
CHOICE(*NONE) +
                        
PMTCTL(P0658) +
                        
PROMPT('Auswahl für Ausgabeteildatei')
E041B:       ELEM       TYPE(*NAME) +
                        
LEN(10) +
                        
DFT(*FIRST) +
                        
SPCVAL( +
                          (*
FIRST )) +
                        
EXPR(*YES) +
                        
PROMPT('Teildatei für Ausgabe')
             
ELEM       TYPE(*CHAR) +
                        
LEN(7) +
                        
RSTD(*YES) +
                        
DFT(*REPLACE) +
                        
SPCVAL( +
                          (*
REPLACE REPLACE) +
                          (*
ADD ADD)) +
                        
EXPR(*YES) +
                        
PROMPT('Sätze ersetzen od. hinzufügen')
E048E:       ELEM       TYPE(*NAME) +
                        
LEN(10) +
                        
MIN(1) +
                        
EXPR(*YES) +
                        
PROMPT('Einheit')
             
ELEM       TYPE(*CHAR) +
                        
LEN(10) +
                        
RSTD(*YES) +
                        
DFT(*ASP) +
                        
SPCVAL( +
                          (*
ASP ) +
                          (*
ASPGRP )) +
                        
EXPR(*YES) +
                        
PROMPT('Suchart')
Q04EF:       QUAL       TYPE(*GENERIC) +
                        
LEN(10) +
                        
SPCVAL( +
                          (*
ALL )) +
                        
MIN(1) +
                        
EXPR(*YES)
             
QUAL       TYPE(*NAME) +
                        
LEN(10) +
                        
DFT(*LIBL) +
                        
SPCVAL( +
                          (*
LIBL ) +
                          (*
USRLIBL ) +
                          (*
CURLIB ) +
                          (*
ALL ) +
                          (*
ALLUSR )) +
                        
EXPR(*YES) +
                        
PROMPT('Bibliothek')
Q056B:       QUAL       TYPE(*NAME) +
                        
LEN(10) +
                        
MIN(1) +
                        
EXPR(*YES)
             
QUAL       TYPE(*NAME) +
                        
LEN(10) +
                        
DFT(*LIBL) +
                        
SPCVAL( +
                          (*
LIBL ) +
                          (*
CURLIB '*CURLIB   ')) +
                        
EXPR(*YES) +
                        
PROMPT('Bibliothek')
P0658:       PMTCTL     CTL(OUTPUT) +
                        
COND( +
                          (*
EQ 'N'))
             
DEP        CTL(&OBJ *EQ *ALLUSR) +
                        
PARM( +
                          (&
OBJTYPE *EQ 'LIB')) +
                        
MSGID(CPD2167)
             
DEP        CTL(&OBJ *EQ *IBM) +
                        
PARM( +
                          (&
OBJTYPE *EQ 'LIB')) +
                        
MSGID(CPD2167)
             
DEP        CTL(&OUTPUT *EQ 'N') +
                        
PARM( +
                          (&
OUTFILE *NE ' ')) +
                        
MSGID(CPD9861)
             
DEP        CTL(&OUTMBR *NE *FIRST) +
                        
PARM( +
                          (&
OUTFILE *EQ ' ')) +
                        
NBRTRUE(*EQ 0) +
                        
MSGID(CPD9867)
             
DEP        CTL(&OUTPUT *NE 'N') +
                        
PARM( +
                          (&
OUTFILE *EQ ' ')) +
                        
MSGID(CPD9862