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: IBM-MAIN@LISTSERV.UA.EDU
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: IBM-MAIN@LISTSERV.UA.EDU
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: IBM-MAIN@LISTSERV.UA.EDU
>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: IBM-MAIN@LISTSERV.UA.EDU
>>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 <jo.skip.robin...@sce.com>
>>>>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
>>>>jo.skip.robin...@sce.com
>>>>
>>>>
>>>>
>>>>From: CM Poncelet <ponce...@bcs.org.uk>
>>>>To: IBM-MAIN@LISTSERV.UA.EDU,
>>>>Date: 03/27/2014 06:50 PM
>>>>Subject: Re: Clist character string compare
>>>>Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU>
>>>>
>>>>
>>>>
>>>>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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>----------------------------------------------------------------------
>>>For IBM-MAIN subscribe / signoff / archive access instructions,
>>>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>----------------------------------------------------------------------
>>For IBM-MAIN subscribe / signoff / archive access instructions,
>>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>
>>----------------------------------------------------------------------
>>For IBM-MAIN subscribe / signoff / archive access instructions,
>>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>
>>
>>
>>
>>
>>
>
>----------------------------------------------------------------------
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
>----------------------------------------------------------------------
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
>
>
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
