Re: multi layer prob.

---Rob Berendt <rob@dekko.com> wrote:
>
> Learn to love the MONMSG command.  If you come from a PC Dos
background then the closest comparison is the IF ERRORLEVEL command
from DOS.  What version of OS/400 are you running?  If you are running
V4R2 or above you can do the following with any AS/400 command:

actually, when i looked at a compile listing i'm running on V3R2M0.
 
> Sample on how to use this:
> CHKOBJ OBJ(&LIB/&OBJ)   OBJTYPE(&OBJTYP) 
> MONMSG MSGID(CPF9801)   EXEC(DO)
> /*  Insert your logic here  */
> ENDDO

something like this goes on in the RPG pgm. i take it.

> I have no idea what info you want displayed from this file on the
screen.

"any fields" generated from the CALL QCMDEXC in the QTEMP file will be
displayed on the 2nd screen.

Mohammad

 
> mohammadakhan@yahoo.com on 10/05/98 09:33:11 
> 
> hi, I'd like some help, if anyone is willing.
> 
> 1-does CHKOBJ command only work in a CL program?
> 2-how does a CL pgm. execute a command that displays an error mssg.
> for instance?
> 3-how does CALL QCMDEXC in rpg pgm. execute the DSPOBJD command so
> that a temporary output file in QTEMP is created?
> 
> basically i'm working on a pgm. that a user inputs an obj. name, lib.,
> and obj. type.
> 
> if the obj. does not exist CL pgm activates error msg.
> 
> if the obj. does exist then the temporary file created in QTEMP by
> CALL QCMDEXC (that activates DSPOBJD cmd)
> should have some of its info displayed on an output screen.
> 
> hope this makes sense.
> 
> Mohammad
_________________________________________________________
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
+---