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
