Ted, Exactly...but I don't understand what Michael is trying to do
Scott ford www.identityforge.com from my IPAD > On Mar 30, 2014, at 1:30 PM, Ted MacNEIL <[email protected]> wrote: > > What I'm saying is you don't need TSOEXEC for LISTA. > But, you do for TRANSMIT. > (Actually only under ISPF) > > And, you don't need the address TSO if you invoked it in a TSO environment. > But, that's a digression. > > - > -teD > - > Original Message > From: CM Poncelet > Sent: Sunday, March 30, 2014 13:25 > To: [email protected] > Reply To: IBM Mainframe Discussion List > Subject: Re: Clist character string compare > > Do you mean not if there is an ADDRESS TSO before the LISTA? ('From > memory' as it takes 40 mins to IPL my machine.) > > Ted MacNEIL wrote: > >> Sorry, you do need it for transmit, but not for lista. >> >> Apples & oranges. >> >> - >> -teD >> - >> Original Message >> From: Ted MacNEIL >> Sent: Sunday, March 30, 2014 12:30 >> To: [email protected] >> Reply To: IBM Mainframe Discussion List >> Subject: Re: Clist character string compare >> >> But, do you need it? >> My recollection is NO. >> >> - >> -teD >> - >> Original Message >> From: CM Poncelet >> Sent: Sunday, March 30, 2014 12:23 >> To: [email protected] >> Reply To: IBM Mainframe Discussion List >> Subject: Re: Clist character string compare >> >> As in (for REXX): >> LIST_CURRENT_CONCAT: >> X = OUTTRAP('DSN.',999,CONCAT) >> "TSOEXEC LISTA ST" >> X = OUTTRAP('OFF') >> <etc.> >> >> and in e.g. (for Clist): >> PROC 0 NODE() UID() >> CONTROL END(ENDO) >> IF &UID = THEN SET UID = &SYSUID >> OPENFILE SYSIN INPUT >> GETFILE SYSIN >> DO WHILE &MAXCC = 0 >> TSOEXEC TRANSMIT &NODE..&UID NOTIFY &STR(&SYSIN) >> GETFILE SYSIN >> ENDO >> <etc.> >> >> Ted MacNEIL wrote: >> >> >> >>> I don't think so. >>> I've never used it within CLIST or REXX. >>> >>> - >>> -teD >>> - >>> Original Message >>> From: CM Poncelet >>> Sent: Saturday, March 29, 2014 13:15 >>> To: [email protected] >>> Reply To: IBM Mainframe Discussion List >>> Subject: Re: Clist character string compare >>> >>> Yep, my mistake. But TSOEXEC is needed if LISTA is issued from Clist or >>> REXX ... which is what I was thinking of :-( >>> >>> Ted MacNEIL wrote: >>> >>> >>> >>> >>> >>>> You don't need the TSOEXEC for LISTA. >>>> >>>> - >>>> -teD >>>> - >>>> Original Message >>>> From: CM Poncelet >>>> Sent: Friday, March 28, 2014 18:34 >>>> To: [email protected] >>>> Reply To: IBM Mainframe Discussion List >>>> Subject: Re: Clist character string compare >>>> >>>> You can store/execute a REXX exec in your Clist library if you code /* >>>> REXX */ as the first line. >>>> >>>> You can also issue a "TSOEXEC LISTA ST" from option 6 to see which >>>> datasets are allocated to your SYSPROC (for Clist) and to your SYSEXEC >>>> (for REXX). >>>> >>>> Micheal Butz wrote: >>>> >>>> >>>> >>>> >>>> >>>> >>>> >>>>> My first choice was Rexx however there seems to be a problem with TSOLIB >>>>> the example in the IBM doc says you push meaning the TSOLIB command takes >>>>> effect after you leave the exec >>>>> >>>>> Sent from my iPhone >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>>> On Mar 28, 2014, at 12:30 AM, Skip Robinson <[email protected]> >>>>>> wrote: >>>>>> >>>>>> I wish OP would take a step back and consider why this process must be a >>>>>> CLIST. As a newbie many years ago, I spent inordinate hours mastering >>>>>> CLIST. I became adept at the double/quadruple ampersand and other >>>>>> kludges >>>>>> necessary to make acrobatic string manipulations work as desired. After >>>>>> Rexx appeared in TSO/E in the 80's, I vowed never to write a new CLIST >>>>>> again. That first Rexx incarnation in TSO/E was replete with >>>>>> deficiencies >>>>>> even from a VM/CMS perspective. I stuck with it and coded with one hand >>>>>> on >>>>>> the keyboard and the other on the Rexx manual. >>>>>> >>>>>> The question is not whether it's possible to do anything in CLIST. The >>>>>> question is why bother? Unless you're making a minor modification to an >>>>>> existing, complex CLIST, I suggest (re)writing it in Rexx. That's what >>>>>> lies over the next hill. >>>>>> >>>>>> . >>>>>> . >>>>>> J.O.Skip Robinson >>>>>> Southern California Edison Company >>>>>> Electric Dragon Team Paddler >>>>>> SHARE MVS Program Co-Manager >>>>>> 626-302-7535 Office >>>>>> 323-715-0595 Mobile >>>>>> [email protected] >>>>>> >>>>>> >>>>>> >>>>>> From: CM Poncelet <[email protected]> >>>>>> To: [email protected], >>>>>> Date: 03/27/2014 06:50 PM >>>>>> Subject: Re: Clist character string compare >>>>>> Sent by: IBM Mainframe Discussion List <[email protected]> >>>>>> >>>>>> >>>>>> >>>>>> Have you tried coding: >>>>>> SET JOBCARD = &STR(&SUBSTR(2:10,&NRSTR(&INPUT)))? >>>>>> >>>>>> BTW Are you also sure that '//JOBCARD' starts in column 2 (i.e. at >>>>>> offset >>>>>> 1)? Otherwise change your code to something like: >>>>>> A1: GETFILE INPUT >>>>>> SET B = &SYSINDEX(&STR(//JOBCARD),&NRSTR(&INPUT),1) >>>>>> IF &B > 0 THEN DO >>>>>> SET JOBCARD = &STR(&SUBSTR(&B:&B+8,&NRSTR(&INPUT))) >>>>>> If JOBCARD = &STR(//JOBCARD) + >>>>>> Then write got it >>>>>> END /* IF */ >>>>>> ELSE + >>>>>> GOTO A1 >>>>>> <...> >>>>>> >>>>>> Cheers, CP >>>>>> >>>>>> >>>>>> >>>>>> Micheal Butz wrote: >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>>> Hi >>>>>>> >>>>>>> I cann't seem to get equal looking for a character string in the input >>>>>> file >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>>> I know that the job card is somewhere in the middle of the file >>>>>>> >>>>>>> So here is the code >>>>>>> >>>>>>> A1: GETFILE INPUT >>>>>>> SET JOBCARD = &STR(&SUBSTR(2:10) >>>>>>> If JOBCARD = &STR(//JOBCARD) >>>>>>> Then write got it >>>>>>> GOTO A1 >>>>>>> I do writes and see the character string however I never get an equal >>>>>> condition on the if statement >>>>>> >>>>>> ---------------------------------------------------------------------- >>>>>> 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 > > ---------------------------------------------------------------------- > 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
