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
