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
