(r2) CmdEXCSQL < DBG400

You are here: DBG/400>DBG400 Web>SourceCodeList>CmdSource>CmdEXCSQL (revision 2) (raw view)~~EditAttach~~
<verbatim>
/* ************************************************************************** */
/* ENDJOBLCK: 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')                                      
            PARM       KWD(MBR) TYPE(*CHAR) LEN(10) DFT(*NONE) +     
                         SPCVAL((*ALL) (*FIRST) (*NONE)) +           
                         CASE(*MIXED) CHOICE('*NONE, *FIRST or +     
                         *ALL') PROMPT('Name')                       
            PARM       KWD(OPTION) TYPE(*CHAR) LEN(7) RSTD(*YES) +   
                         DFT(*IMMED) VALUES(*IMMED *CNTRLD) +        
                         PROMPT('ENDJOB OPTION(*IMMED|*CNTRLD)')     
            PARM       KWD(LOCKS) TYPE(*DEC) LEN(10 0) RTNVAL(*YES) +
                         PROMPT('Number of locks found')             
            PARM       KWD(ERRORS) TYPE(*DEC) LEN(10 0) +            
                         RTNVAL(*YES) PROMPT('Number of jobs not +   
                         ended')                                     
NAME2:      QUAL       TYPE(*SNAME) LEN(10)                          
            QUAL       TYPE(*CHAR) LEN(10) DFT(*LIBL) +              
                         PROMPT('Object Library')                    
</verbatim>
Topic revision: r2 - 15 Jun 2016 - 14:20:14 - MartinRowe
DBG400
Send a link to this page
Copyright © by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding DBG/400? Send feedback