Not exactly sure what you are trying to do, but .....
it should be a simple rexx procedure
/* REXX */
STRING = "TEST PROD WHATEVER"
RCS = "4 8 12"
DO JJ = 1 TO WORDS(STRING)
IF WORD(STRING,JJ) = ARG(1) THEN RETURN WORD(RCS,JJ)
END
RETURN 102
Invoke it with
// EXEC PGM=IKJEFT1B,PARM='%SILLYREX &SYMBOL'
And this step will set RC to the translated string value.
On Mon, 4 Mar 2024 16:01:51 +0000 Cameron Conacher
<000003cfc59146bb-dmarc-requ...@listserv.ua.edu> wrote:
:>Hello everyone,
:>From what I have read this is not possible, but I decided to throw it out
there to see if something is possible.
:>
:>I have a block of JCL with a bunch of steps.
:>I have symbolic parameters assigned. (JP1/JP2 SYSPLEX Symbolics for DFSORT)
:>
:>I was looking for a Utility that would examine the value of a Symbolic and
assign a User Return Coe value. RC1 = Development; RC2 = Pre-Production; RC3 =
Production?
:>I need a Return Code value to be able to conditionally execute subsequent JOB
steps. I cannot execute steps conditionally based on Symbolic Variable values.
:>IF Step001.RC = 0
.Development
:>
:>I could write a tine program to do this.
:>I was hunting around for a utility to do this.
:>DFSORT is my go to Utility but as mentioned, I believe it is not suitable for
this task.
:>I believe I could set RC0 or RC4 or RC16. RC0 and RC4 generate a message and
continue, but RC16 generates a message and terminates. I think this
(Termination) would be unsuitable.
:>
:>I was to be able to assign one of three different Return Code values (any
value) that I can let check to determine if I am running in Development,
Pre-Prod or Production, and then execute steps related to the specific
environment.
:>Not something I absolutely need since I could write a tiny program for this.
:>
:>Just curious, and I think my ADHD has just sent me down another rabbit hole ?
:>
:>I could do this in Easytrieve. Or COBOL. Or Assembler. Or Rexx. Or
..
:>
:>Hope this makes sense.
:>
:>Thanks
:>
:>
:>Cameron Conacher
:>Senior Engineer
:>
:>American Express Canada Inc.
:>GCICS
:>2225 Sheppard Avenue East, Toronto, ON M2J 5C2
:>
:>cameron.conac...@aexp.com<mailto:cameron.conac...@aexp.com>
:>Office: 1-437-836-5265
:>Mobile: 1-416-409-5147
:>
:>https://amex.webex.com/join/cameron.conacher
:>
:>
:>
:>________________________________
:>American Express made the following annotations
:>________________________________
:>This e-mail was sent to you by a representative of Amex Bank of Canada, P.O.
Box 3204, Station "F", Toronto, ON, M1W 3W7, www.americanexpress.ca. If you no
longer wish to receive these e-mails, please notify the sender by reply e-mail.
:>
:>This e-mail is solely for the intended recipient and may contain confidential
or privileged information. If you are not the intended recipient, any
disclosure, copying, use, or distribution of the information included in this
e-mail is prohibited. If you have received this e-mail in error, please notify
the sender by reply e-mail and immediately and permanently delete this e-mail
and any attachments. Thank you.
:>
:>American Express a fait les remarques suivantes
:>Ce courriel vous a été envoyé par un représentant de la Banque Amex du
Canada, C.P. 3204, succursale F, Toronto (Ontario) M1W 3W7,
www.americanexpress.ca. Si, par la suite, vous ne souhaitez plus recevoir ces
courriels, veuillez en aviser les expéditeurs par courriel.
:>
:>Ce courriel est réservé au seul destinataire indiqué et peut renfermer des
renseignements confidentiels et privilégiés. Si vous nêtes pas le destinataire
prévu, toute divulgation, duplication, utilisation ou distribution du courriel
est interdite. Si vous avez reçu ce courriel par erreur, veuillez en aviser
lexpéditeur par courriel et détruire immédiatement le courriel et toute pièce
jointe. Merci.
:>
:>----------------------------------------------------------------------
:>For IBM-MAIN subscribe / signoff / archive access instructions,
:>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
--
Binyamin Dissen <bdis...@dissensoftware.com>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
