I have a TMS listing that I wrote a rexx prog to process and it generated 
IEBGENER jobs that copied from the non-cataloged tape to a new disk dataset 
(which contained the original creation date/time in the DSN),  That dataset was 
later migrated via HSM.

Brian

On Mon, 21 Sep 2020 22:49:00 -0400, David Mingee <[email protected]> wrote:

>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

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to