RE: Accessing files In QTEMP

["York, Albert" <albert.york@xxxxxxxxxxxxxx>]

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
+---