C2R - Clist to Rexx Converter I have used the above to convert many a clist. It is not perfect, but it gets you VERY close. Not sure where I got it though. I believe the original author is Chuck Tribolet of IBM.
Bob -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Skip Robinson Sent: Friday, March 28, 2014 12:30 AM To: [email protected] Subject: Re: Clist character string compare 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
