On 8 Jan 2012 14:11:36 -0800, in bit.listserv.ibm-main you wrote: >Clark, >Am new to all this, CBT, etc, so more than curious. Your CBT 175 points to >JOB and DD parsing but there are a whole slew of members therein - might I >ask which one in particular - or am I misunderstanding something:-(? Thanks,
Sorry I haven't responded earlier but until I downloaded V to view CBT175, I couldn't tell which files were what. Member NAPJ005 is the Exit 6 which is setting job class based resources. As you can tell it is a modification of a submission by A.N.R. production company. The exit also sets FCB based on form so you can see how to add text. Most of the really clever code was already in the exit when I picked it up so that my changes are a relatively minor part of the exit. The $$DOC member tells what most if not all of the members are. If anyone wants to use any of these members which are now twenty plus years old and has questions please feel free to e-mail me at either [email protected] or [email protected]. Clark Morris >Graham Hobbs > >----- Original Message ----- >From: "Clark Morris" <[email protected]> >Newsgroups: bit.listserv.ibm-main >To: <[email protected]> >Sent: Saturday, January 07, 2012 2:27 PM >Subject: Re: Internal text > > >> On 6 Jan 2012 10:56:09 -0800, in bit.listserv.ibm-main you wrote: >> >>>I have been tasked with an update to JES2 exit 6. One of the functions I >>>need to implement is to forbid all use of a certain JCL parameter. >>> >> See the Philips Lighting mods - File 175 on the CBT tape for an exit 6 >> that does a fair amount of parsing of the JOB and DD cards to among >> other things set the JOBCLASS in the JCT. While the exit is over 20 >> years old, it still should be useful as one way to handle parsing. >> >> Clark Morris >>> >>> >>>Initial testing indicates the INTTXT presents the parameter in the order >>>specified in the JCL. Since the "forbidden" parameter may be in the >>>"middle" of the string, >>> >>>I will need to manipulate the INTTXT buffer to eliminate the "forbidden" >>>parameter" by shifting the characters to the right of the forbidden >>>parameter, to the left. >>> >>> >>> >>>What would be preferable is to "nullify" the parameter in the internal >>>text string without shifting the string. (i.e. create a noop) without >>>the character shift. >>> >>> >>> >>>Does anyone know if this is possible? If so, what is the INTTXT key? I >>>have been all over the IEFVKEYS macro, and can't seem to find one. >>> >>> >>> >>>TIA, >>> >>> >>>---------------------------------------------------------------------- >>>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
