RE: DLTOBJ Command (was: Blank object text)

[barsa@xxxxxxxxxxxxxxxxxxx]

I don't believe that this command is level 40 compliant.

Al

Al Barsa, Jr.
Barsa Consulting Group, LLC

400>390

914-251-1234
914-251-9406 fax

http://www.barsaconsulting.com
http://www.taatool.com





                                                                                
                                           
                    "MCPARTLAND, Stan"                                          
                                           
                    <stanley.mcpartland@b        To:     
"'MIDRANGE-L@midrange.com'" <MIDRANGE-L@midrange.com>             
                    ently.com>                   cc:                            
                                           
                    Sent by:                     Subject:     RE: DLTOBJ 
Command (was: Blank object text)                  
                    owner-midrange-l@midr                                       
                                           
                    ange.com                                                    
                                           
                                                                                
                                           
                                                                                
                                           
                    07/26/01 02:26 PM                                           
                                           
                    Please respond to                                           
                                           
                    MIDRANGE-L                                                  
                                           
                                                                                
                                           
                                                                                
                                           




<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
+---




+---
| 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
+---