The following idea/method will probably not work, but what the hell.
Consider listing the needed tape files with a TMS report to disk.
1. create a PDSE to load these files into.
2. change create fiche jcl to create a new member e.g. (d092120)
3 create job to load old tape files as member names.  This could be a second 
PDSE, if helpful.
4. change jobs to read pdse member (d051719) for example.
Alternate method, after finding all these old tapes from TMS report, load each 
tape to disk as PS/EF with compress.  They would get migrated after
X days of no use.

-----Original Message-----
From: IBM Mainframe Discussion List <[email protected]> On Behalf Of 
Brian Westerman
Sent: Monday, September 21, 2020 5:48 PM
To: [email protected]
Subject: Re: rename a dataset in acs routine?

Jes Exit 6 seems to be the best place to do this.  There is only a max of one 
dataset per job and it's never re-read in that same job (or any other) and we 
already know what the dataset(s) are called, so it's pretty simple to scan for 
the DSN= text object and if the supplied DSN matches one of the ones we want, 
we just replace it with the symbolic.  Actually at that point in time I could 
just insert the actual date and time.  The test version does just that.  Of 
course as soon as I started writing the exit, several people came in to ask for 
more "features".  The only thing I forgot was a way to bypass the exit in the 
event that I wanted to actually process one of the tapes manually (by volser), 
but I now have that worked out as well, I just don't have time to test it 
properly at this time.  I also think it's possible to limit the processing to 
ONLY the jobs that we know will contain the fiche tapes, so I'm waiting on a 
programmer to tell me if that's true.

Brian

 On Mon, 21 Sep 2020 13:11:56 +0000, Seymour J Metz <[email protected]> wrote:

>What's the down side?


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


________________________________________
From: IBM Mainframe Discussion List <[email protected]> on behalf of 
Lizette Koehler <[email protected]>
Sent: Sunday, September 20, 2020 11:06 PM
To: [email protected]
Subject: Re: rename a dataset in acs routine?

I apologize if this has been discussed

The SYSTEM Symbols can be made available to JES2 batch jobs   The shop needs
to determine if they want that to happen

https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1
.ieab600/jclsymstr.htm

The three types of symbols that can be used for JES2 in-stream substitution are 
JCL Symbols, JES Symbols and System Symbols:

On a JES2 JOBCLASS definition, the field SYSSYM needs to be ALLOW rather than 
DISALLOW



If there Is scheduling software available, it is possible it might provide 
symbolic substitution at Submission time (I know CA Workload Manager ESP can do 
that)

Otherwise, you might want to have something like s REXX be executed (or 
language of your choice) to generate the JCL then submit into the Internal 
Reader

ACS routines cannot do this type of function.

Best of luck

Lizette

-----Original Message-----
From: IBM Mainframe Discussion List <[email protected]> On Behalf Of 
Seymour J Metz
Sent: Sunday, September 20, 2020 5:47 PM
To: [email protected]
Subject: Re: rename a dataset in acs routine?

ITYM IEFUJV; IEFUJI doesn't have the right interfaces. I'd probably use an 
internal text exit.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


________________________________________
From: IBM Mainframe Discussion List <[email protected]> on behalf of 
Brian Westerman <[email protected]>
Sent: Saturday, September 19, 2020 12:14 AM
To: [email protected]
Subject: Re: rename a dataset in acs routine?

Actually I'm leaning towards the JES or SMF UJI exit as well.  File tailoring 
doesn't help in this case because most of the JCL doesn't get submitted via TSO.

Brian

On Fri, 18 Sep 2020 16:41:29 +0000, Seymour J Metz <[email protected]> wrote:

>Well, if they want to use a chainsaw to open a bag of peanuts, you 
>could
write a JES exit, but the proper way to handle it is for the process that 
creates the JCL to generate a unique name. If they're using ISPF it's super 
easy to do it with File Tailoring, and many production control programs have 
similar capabilities.

--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


________________________________________
From: IBM Mainframe Discussion List <[email protected]> on behalf of 
Brian Westerman <[email protected]>
Sent: Friday, September 18, 2020 3:36 AM
To: [email protected]
Subject: rename a dataset in acs routine?

Hi,

I was asked a question today that I honestly don't know how to answer.  The 
programmer has a (very large) series of jobs that generate fiche tapes that get 
created and have a expiration date but never are cataloged (because they all 
have exactly the same DSN).  So over time, they ended up with about
30,000 tapes from the over 9,000 jobs that CA-1 keeps around until expiration 
date.  Obviously, these are not the easiest datasets to use later because they 
need to look up the tape volser every time.

The problem is that they want to know if there is a way to automatically 
catalog datasets at creation time, to which I told them we could, but only 1 of 
them because you can't catalog two datasets with the same name.  But they want 
to have "the system" which I'm guessing is me :), dynamically rename these 
datasets at creation time to add a date and time, such as change HLQ.FICHE.TAPE 
to which I would dynamically make it HLQ.FICHE.TAPE.D091720.T1123, meaning 
today's date and the current time (if it was 11:23am).

I can't think of a way to do that in an acs routine, or any other simple way, 
and I'm hoping that someone has an idea that might apply here.  I think I can 
alter almost anything about the dataset, except the name.  Is there something I 
am missing?

Brian

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

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

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

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

Reply via email to