Re: DLTOBJ Command (was: Blank object text) -- MIDRANGE-L

Thanks Stan.  Back in the dark ages when I had to write one I did it by
creating a trash library, moving the objects to it, then deleting the
library. I can't even remember why I needed it. But I'll definitely save
yours just in case.  Thanks again!

----- Original Message -----
From: "MCPARTLAND, Stan" <stanley.mcpartland@bently.com>
To: <MIDRANGE-L@midrange.com>
Sent: Thursday, July 26, 2001 11:26 AM
Subject: RE: DLTOBJ Command (was: Blank object text)


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


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.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
+---