Software development, photography, jokes, ....

Sites by me

 
tas-logoTransportation Administration System
snoezelkussen-logo-kleinstSnoezelen Pillows for Dementia
ikzoekeenbegeleider-logoBegeleiders voor gehandicapten
Laat uw hond het jaarlijkse vuurwerk overwinnen
Betuweroute en Kunst
logo 50x50Hey Vos! Je eigen naam@vos.net emailadres?
Kunst in huis? Nicole Karrèr maakt echt bijzonder mooie dingen
nettylogo2Kunst in huis? Netty Franssen maakt ook bijzonder mooie dingen
Professionele opvang bij Gastouderbureau
Kind-Zijn
Salarisadministratie en belastingadvies bij
De Zaak Loont
Zutphense Bomenstichting

Hosting Favorites

 
ANU Internet Services
XelMedia .internet services
register.com
GoDaddy.com

Blogroll

 
Bomenstichting
MacFreak
Google Translate
PHP
MySQL
jQuery
jQuery UI
codecademy
YourHead Stacks API
Favicon Generator. For real.
Check HTTPS problems



Marc's Place

 

E$CHKOBJ - Check if object exists

Start Command

call e$chkobj [F4]

Call Parameters

library (a10)
Name of the library where the object is expected. Use *LIBL if you want to check the existance of a library itself.
 
object (a10)
Name of the object.
 
object type (a10)
Same values as used with the OS/400 Commandobject CHKOBJ. Most used values:
 
Value: *FILE
This value instructs the program to check if the object of type FILE exists in library.
Value: *PGM
This value instructs the program to check if the object of type PROGRAM exists in library.
yesno (a1)
Same values as used with the OS/400 Commandobject CHKOBJ. Most used values:
 
Value: *FILE
This value instructs the program to check if the object of type FILE exists in library.
Value: *PGM
This value instructs the program to check if the object of type PROGRAM exists in library.

Return Parameters

yesno (a1)
Returns wheter if the object was found or not:
 
Value: Y
The object of type object type exists in library.
Value: N
The object of type object type does not exist in library.

What it does

Provides an easy means to check for the existance of objects from within other programs. No need for trapping CPF-messages, the program returns a simple Y(es) or N(o).

Examples

Here's an example in RPG III:
 

  C   CALL 'E$CHKOBJ'
C PARM '*LIBL' LIB
C PARM 'QPRINT' OBJ
C PARM '*OUTQ' TYPE
C PARM YN

Go to download page
© 1997- Marc Vos (and others)   -   Privacy Statement   -    Contact Me