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
