Call Query -- RPG400-L

Newbie question here,

I want to call a query from either an RPG or CL program, with parms passed
in from a screen. Passing the parms might be tricky. I think this would be
easier than writing the rpg program that generates the report but could be
wrong. I am using DBU and we are an rpg400 shop.  Any comments or
suggestions would be appreciated. 
Thanks.


-----Original Message-----
From: York, Albert [mailto:albert.york@nissan-usa.com]
Sent: Friday, October 20, 2000 8:12 AM
To: 'RPG400-L@midrange.com'
Subject: RE: Accessing files In QTEMP


It seems you are also confusing the program with the job. There really isn't
such a thing as a "self-submitting" job. When you do the submit job you
specify the program to be called. It doesn't matter if it is the same
program or a different one. A new job is started and the program is called. 

Now TFRJOB is a different matter ....

        -----Original Message-----
        From:   booth@martinvt.com [SMTP:booth@martinvt.com]
        Sent:   Thursday, October 19, 2000 4:51 PM
        To:     RPG400-L@midrange.com
        Subject:        RE: Accessing files In QTEMP

        I just went back and looked at the code.    I am not doing quite
what I 
        thought I was doing.  I do the information gathering in the
interactive 
        part of the process,  then submit the job, then do the CRTDUPOBJ to
QTEMP. 
         


        ....
                     SBMJOB     CMD(CALL PGM(APPLABCL) PARM(&DATE1 &DATE2 + 
                                  &TYPE &HOLDP &SAVEP)) PRTDEV(&PRINTID) 
                     RETURN 
                     ENDDO 
          /* ======================================================= */ 
          /* end of self-submitting job:                             */   
          /* ======================================================= */ 
         
                     RMVLIBLE   LIB(QTEMP) 
                     ADDLIBLE   LIB(QTEMP) POSITION(*FIRST) 
         
                     CHKOBJ     OBJ(QTEMP/TRM02) OBJTYPE(*FILE) 
                     MONMSG     MSGID(CPF9801) EXEC(DO) 
         
                     CRTDUPOBJ  OBJ(TRM02) FROMLIB(INQ2) OBJTYPE(*FILE) + 
                                  TOLIB(QTEMP) NEWOBJ(*SAME) 
                     ENDDO     
        .....
         
        Sorry I pushed on it so, but this is so much easier to do than
trying to 
        name members, delete them, and all the other stuff that goes with
trying 
        to use the multi-member approach.
         
        _______________________
        Booth Martin
        Booth@MartinVT.com
        http://www.MartinVT.com
        _______________________




        

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---


Confidentiality Notice:

The information contained and/or attached to this electronic mail is 
intended only for the person(s) or entity(ies) to which it is addressed and 
may contain confidential and/or legally privileged material.  Any use 
whatsoever of this information by persons other than the intended recipient 
is prohibited.  If you received this in error, please contact the sender 
and delete the material from your computer. 


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---