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]] On Behalf Of George Rodriguez Sent: Wednesday, July 02, 2014 10:10 AM To: [email protected] 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]> 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] 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] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
