RE: Accessing files In QTEMP

[booth@xxxxxxxxxxxx]

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
_______________________




Anton Gombkötö <Gombkoetoe@ASsoft.com>
Sent by: owner-rpg400-l@midrange.com
10/19/2000 03:42 PM
Please respond to RPG400-L

 
        To:     RPG400-L@midrange.com
        cc: 
        Subject:        RE: Accessing files In QTEMP

At 18:02 19.10.00 +0000, you wrote:
>By being a single self-submitting job your QTEMP goes with you from the
>interactive to the submitted job.

Wrong.

>Or so I thought until so many people
>corrected me.

They are right.

>What bothers me is that I use this technique regularly without client
>complaint.

And without proper testing.... :-)  Just create any object in "the" QTEMP, 

submit then a little CL that just does an
DSPOBJD OBJ(QTEMP/*ALL) OBJTYPE(*ALL) OUTPUT(*PRINT) and look at the 
spooled file... it wont show your object. Every job, and to submit a job 
means to create a new one, has its own QTEMP. Period.

>    Heck, I've even started long running jobs one after another
>and gone away and let them plug down through the job queue one at a time.
>If I'm this lucky, let me buy your lottery tickets.

Why do you tell me this so late.... have thrown away many old ones... with 

your luck they should turn out as winners... :-)))

By the way, the redbook is 5.666 KB (and every single KB is worth the 
(short) waiting!), RPGISCOOL zipped save file is 418 KB.



Mit freundlichen Grüssen / best regards

Anton Gombkötö

e-mail Office   :       mailto:Anton.Gombkoetoe@avenum.com
Homepage        :       http://www.avenum.com

----------
Avenum Technologie GmbH
Brigittenauer Lände 50-54, Stiege 6     Salzburger Strasse 29   Dreifelder 

Strasse 4
A-1200 Wien / Austria                   A-5163 Mattsee          D-70599 
Stuttgart

Tel./phone      :       +43-1/92101-148         +43-6217/5995 - 
0               +49-711/4411 116
Fax             :       +43-1/92101-300         +43-6217/5995 - 
13      +49-711/4411 563

----------
Avenum ist der Zusammenschluss von AS Software und Black System.

----------

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




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