/* ************************************************************************** */
/* KILLJOBLCK: End jobs with lock on specified object                         */
/* Copyright (C) 2007  Martin Rowe  <martin@dbg400.net>                       */
/*                                                                            */
/* This program is free software; you can redistribute it and/or modify       */
/* it under the terms of the GNU General Public License as published by       */
/* the Free Software Foundation; either version 2 of the License, or          */
/* (at your option) any later version.                                        */
/*                                                                            */
/* This program is distributed in the hope that it will be useful,            */
/* but WITHOUT ANY WARRANTY; without even the implied warranty of             */
/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the              */
/* GNU General Public License for more details.                               */
/*                                                                            */
/* You should have received a copy of the GNU General Public License          */
/* along with this program; if not, write to the Free Software                */
/* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307   USA */
/* ************************************************************************** */
             CMD        PROMPT('End jobs with lock on object')
             PARM       KWD(OBJ) TYPE(NAME2) MIN(1) PROMPT('Object +
                          name')
             PARM       KWD(OBJTYPE) TYPE(*CHAR) LEN(7) RSTD(*YES) +
                          VALUES(*ALRTBL *AUTL *BNDDIR *CFGL +
                          *CHTFMT *CLD *CLS *CMD *CNNL *COSD *CRG +
                          *CRQD *CSI *CSPMAP *CSPTBL *CTLD *DEVD +
                          *DOC *DTAARA *DTADCT *DTAQ *EDTD *EXITRG +
                          *FCT *FILE *FLR *FNTRSC *FNTTBL *FORMDF +
                          *FTR *GSS *IGCDCT *IGCSRT *IGCTBL *IMGCLG +
                          *IPXD *JOBD *JOBQ *JOBSCD *JRN *JRNRCV +
                          *LIB *LIND *LOCALE *MEDDFN *MENU *MGTCOL +
                          *MODD *MODULE *MSGF *MSGQ *M36 *M36CFG +
                          *NODL *NTBD *NWID *NWSCFG *NWSD *OUTQ +
                          *OVL *PAGDFN *PAGSEG *PDFMAP *PDG *PGM +
                          *PNLGRP *PRDAVL *PRDDFN *PRDLOD *PSFCFG +
                          *QMFORM *QMQRY *QRYDFN *SBSD *SCHIDX +
                          *SPADCT *SQLPKG *SQLUDT *SRVPGM *SSND +
                          *S36 *TBL *TIMZON *USRIDX *USRPRF *USRQ +
                          *USRSPC *VLDL *WSCST) MIN(1) +
                          CHOICE('*FILE, *PGM, etc') PROMPT('Object +
                          type')
 NAME2:      QUAL       TYPE(*SNAME) LEN(10)
             QUAL       TYPE(*CHAR) LEN(10) DFT(*LIBL) +
                          PROMPT('Object Library')