RE: DLTOBJ Command (was: Blank object text)

["MCPARTLAND, Stan" <stanley.mcpartland@xxxxxxxxxx>]

<snip>

BTW, is that DLTOBJ command just shorthand, or did you come up with one of
your own? I've never understood why OS/400 doesn't have one.

<snip>

Here's a DLTOBJ command.  Newer object types will need to be added to the
object type parameter since we haven't updated the command since 1991.  IBM
supplies the command processing program (QSYS/QLIDLOBJ).

 DLTOBJ:     CMD        PROMPT('Delete Object')                       
             PARM       KWD(OBJ) TYPE(OBJ) MIN(1) PROMPT('Object or + 
                          generic* name')                             
 OBJ:        QUAL       TYPE(*GENERIC) SPCVAL((*ALL *ALL)) MIN(1)     
             QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL *LIBL)) +
                          PROMPT('Library name')                      
             PARM       KWD(OBJTYPE) TYPE(*CHAR) LEN(7) RSTD(*YES) +  
                          SPCVAL((*AUTL AUTL) (*CFGL CFGL) (*CHTFMT + 
                          CHTFMT) (*CLS CLS) (*CMD CMD) (*COSD +      
                          COSD) (*CUD CUD) (*DEVD DEVD) (*DOC DOC) +  
                          (*DOCL DOCL) (*DTAARA DTAARA) (*DTADCT +    
                          DTADCT) (*DTAQ DTAQ) (*EDTD EDTD) (*FCT +   
                          FCT) (*FILE FILE) (*FLR FLR) (*GSS GSS) +   
                          (*IGCDCT IGCDCT) (*IGCSRT IGCSRT) +         
                          (*IGCTBL IGCTBL) (*JOBD JOBD) (*JOBQ +      
                          JOBQ) (*JRN JRN) (*JRNRCV JRNRCV) (*LIB +   
                          LIB) (*LIND LIND) (*MENU MENU) (*MODD +     
                          MODD) (*MSGF MSGF) (*MSGQ MSGQ) (*OUTQ +    
                          OUTQ) (*PGM PGM) (*PNLGRP PNLGRP) +         
                          (*PRDDFN PRDDFN) (*PRDFUN PRDFUN) +         
                          (*PRTIMG PRTIMG) (*QMQRY QMQRY) (*QRYDFN +  
                          QRYDFN) (*RCT RCT) (*SBSD SBSD) (*SCHIDX +  
                          SCHIDX) (*SPADCT SPADCT) (*SSND SSND) +   
                          SCHIDX) (*SPADCT SPADCT) (*SSND SSND) +   
                          (*S36 S36) (*TBL TBL) (*USRPRF USRPRF)) + 
                          MIN(1) PROMPT('Object type')                
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---