Hi Bob! Never gave it any thought... Perhaps there's a variable from the panel id library that could be used. The logic of the Rexx EXEC would need to change as the allocation would need to be called only if option 8 is selected. The reason I added the code originally was because of the out of space condition the I was having when I selected option 8.
In the read me file of the downloaded from IBM, the email address to report problems is going to [email protected]. Perhaps they can help? The other option would be to trace the EXEC to see if it'll give us the variable it uses... Thanks for letting me know about the flaw! On Thursday, July 3, 2014, Richards, Robert B. <[email protected]> wrote: > George, > > Thanks for drawing my attention to TASID. I "was" back-leveled at 5.18. > Now have 5.21. > > My thought about your code was "what if the user changes the name of the > SNAPDSN variable in the dialog?" > > When I tested it, it was ignored when invoking TASID using TASIDSNP. > > Suggestions anyone? > Hank? :-) > > Bob > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected] > <javascript:;>] On Behalf Of George Rodriguez > Sent: Wednesday, July 02, 2014 10:10 AM > To: [email protected] <javascript:;> > Subject: Re: TASID Snapshot File > > Thanks for all the help! I modified the Rexx EXEC that I use to call > TASID... Here's what I wrote: > > /* Rexx */ > /* Trace I */ > /*********************************************************************/ > /* This exec invokes Doug Nadel's TASID dialog. It was modified by */ > /* George Rodriguez from the School District of PBC to either alloc */ > /* file TASIDSNP if the file exists or create it if it doesn't. */ > /*********************************************************************/ > parse arg ztrail > address tso > user_snap = USERID()".TASID.SNAPSHOT" > > exist = SYSDSN(user_snap) > IF exist ¬= 'OK' THEN CALL Create_SNAP > > "ALLOC FI(TASIDSNP) SHR REUSE DA("user_snap")" > > IF rc ¬= 0 THEN > CALL ErrMsg "UNABLE TO ALLOCATE TASIDSNP:" user_snap > > address ispexec > "LIBDEF ISPLLIB DATASET ID('SYS2.TASID.LOAD') STACK" > "LIBDEF ISPPLIB DATASET ID('SYS2.TASID.PANELS') STACK" > "SELECT PGM(TASID) PARM("ztrail") SCRNAME(TASID)" > "LIBDEF ISPLLIB" > "LIBDEF ISPPLIB" > > address tso > "FREE F(TASIDSNP)" > EXIT 0 > > /* ================================================================= */ > > Create_SNAP: > > "ALLOC FI(TASIDSNP) DA('"user_snap"') NEW SPACE(2 1)", > "CYLINDERS BLKSIZE(0) LRECL(255) RECFM(V B A) CATALOG" > IF rc ¬= 0 THEN DO > CALL ErrMsg "UNABLE TO ALLOCATE TASIDSNP:" user_snap END > > RETURN 0 > ErrMsg: > > PARSE ARG message > SAY message > EXIT 008 > > > *George Rodriguez* > *Specialist II - IT Solutions* > *IT Enterprise Applications* > *PX - 47652* > *(561) 357-7652 (office)* > *(561) 707-3496 (mobile)* > *School District of Palm Beach County* > *3348 Forest Hill Blvd.* > *Room B-251* > *West Palm Beach, FL. 33406-5869* > *Florida's Only A-Rated Urban District For Eight Consecutive Years* > > > On Tue, Jul 1, 2014 at 9:30 PM, Hank Oerlemans <[email protected] > <javascript:;>> wrote: > > > That panel should have been cleaned up when ASIDSETL was done. Those > > fields don't affect the snap file. > > Preallocating TASIDSNP is the way to go.. > > > > > > Cheers Hank.... Who No Longer Looks After Tasid. > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, send > > email to [email protected] <javascript:;> with the message: INFO > IBM-MAIN > > > > -- > > > The *Summer Learning Inspirations > <http://www.palmbeachschools.org/Students/SummerLearning.asp>* website > offers ideas and suggestions for parents and students to sustain learning > throughout the summer. > > > * Follow us on * [image: > Facebook] <http://www.palmbeachschools.org/links/facebook.html> [image: > Twitter] <http://www.palmbeachschools.org/links/twitter.html> > *Disclaimer: *Under Florida law, e-mail addresses are public records. If > you do not want your e-mail address released in response to a public > records request, do not send electronic mail to this entity. Instead, > contact this office by phone or in writing. > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email > to [email protected] <javascript:;> with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] <javascript:;> with the message: > INFO IBM-MAIN > -- *George Rodriguez* *Specialist II - IT Solutions* *IT Enterprise Applications* *PX - 47652* *(561) 357-7652 (office)* *(561) 707-3496 (mobile)* *School District of Palm Beach County* *3348 Forest Hill Blvd.* *Room B-251* *West Palm Beach, FL. 33406-5869* *Florida's Only A-Rated Urban District For Eight Consecutive Years* -- The *Summer Learning Inspirations <http://www.palmbeachschools.org/Students/SummerLearning.asp>* website offers ideas and suggestions for parents and students to sustain learning throughout the summer. * Follow us on * [image: Facebook] <http://www.palmbeachschools.org/links/facebook.html> [image: Twitter] <http://www.palmbeachschools.org/links/twitter.html> *Disclaimer: *Under Florida law, e-mail addresses are public records. If you do not want your e-mail address released in response to a public records request, do not send electronic mail to this entity. Instead, contact this office by phone or in writing. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
