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
