AS/400 Code Samples - AS/400 - GFND - GSS Find Objects Author: George Pearson Company: Green Springs Software, Inc. Purpose: Programmers Utility to WRKOBJ. Defaults Library and Object to *All and supports IBM Generics. Written by and for a lazy programmer, what can I say? (OK, I'm a hunt n' pecker typist) Components: GFND CMD GFND CL Program Parameters: Object Name/Library: Qualified or Unqualified Object Name Special Values: *All, *Job, *Libl, *Curlib Object Type: Special Values: *All Written: 1998 /* ***************************************************************** */ /* */ /* GREEN SPRINGS SOFTWARE, INC. */ /* */ /* ***************************************************************** */ /* */ /* COMMAND NAME - GFND AS/400 VERSION */ /* COMMAND PROC PGM. - GFND */ /* CREATED BY - George Pearson, Green Springs Software Inc.*/ /* DATE CREATED - 4/20/99 */ /* */ /* PURPOSE - Generic WrkObj defaulting Library and Object */ /* Type to "*All". Works for me! */ /* NOTES - Executes GFND CPP */ /* Copyright 2002 Green Springs Software, Ashland OR */ /* (541) 488-2560 */ /* www.green-springs.com */ /* ***************************************************************** */ CMD PROMPT('FIND OBJECTS') /* OBJECT AND LIBRARY /* ------------------ PARM KWD(OBJLIB) TYPE(QUAL1) MIN(1) + PROMPT('Object Name') /* OBJECT TYPE /* ----------- PARM KWD(TYPE) TYPE(*CHAR) LEN(10) RTNVAL(*NO) + DFT(*ALL) SPCVAL((*ALL)) MIN(0) + PROMPT('Object Type') QUAL1: QUAL TYPE(*GENERIC) LEN(10) MIN(1) EXPR(*YES) QUAL TYPE(*NAME) LEN(10) DFT(*ALL) SPCVAL((*LIBL) + (*ALL) (*ALLUSR)) PROMPT('In Library') /* ***** End of Source (GFND) Command ****************************** */ /* *********************************************************************/ /* */ /* Green Springs Software, Inc. Ashland, OR */ /* */ /* *********************************************************************/ /* */ /* PROGRAM NAME - GFND AS/400 VERSION */ /* COMMAND PROC PGM. - GFND */ /* CREATED BY - George Pearson, Green Springs Software Inc. */ /* DATE CREATED - 4/20/99 */ /* */ /* PURPOSE - Generic WrkObj defaulting Library and Object */ /* Type to "*All". Works for me! */ /* NOTES - Executed by Command GFND */ /* Copyright 2002 Green Springs Software, Ashland OR */ /* (541) 488-2560 */ /* www.green-springs.com */ /* *********************************************************************/ PGM PARM(&ObjLib &Type) DCL &Lib *Char Len(10) DCL &Obj *Char Len(10) DCL &ObjLib *Char Len(20) DCL &Type *Char Len(10) CHGVAR &Obj Value(%SST(&ObjLib 1 10)) CHGVAR &Lib Value(%SST(&ObjLib 11 10)) WRKOBJ &Lib/&Obj &Type ENDPGM: ENDPGM /* ******** End Of Source (GFND) CL Program *************************/