| View previous topic :: View next topic |
| Author |
Message |
jctgf
Beginner
Joined: 05 Nov 2006
Posts: 89
Topics: 36
|
 Posted: Mon Aug 31, 2009 6:53 pm Post subject: if statement with alphanumeric value |
 |
|
Hi,
I'm used to do this:
| Code: |
// IF &P = 1 THEN
//STEP1 EXEC ...
// ENDIF |
But I'd like to do this:
| Code: |
// IF &P = 'ABC' THEN
//STEP1 EXEC ...
// ENDIF
|
Is it possible to compare a symbolic parameter to an alphabetic value?
Thanks. |
|
| Back to top |
|
 |
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
| Posted: Mon Aug 31, 2009 7:52 pm Post subject: |
|
|
jctgf,
You cannot directly compare a alphabetic value, however you can code in a small rexx exec which will read ur parm and set the numerical return code and you can use that to run your other steps
| Code: |
//MYPROC PROC P=' '
//STEP0100 EXEC PGM=IKJEFT01,PARM='%JCTGF &P'
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSIN DD DUMMY
//SYSEXEC DD DSN=any pds with a member named JCTGF,DISP=SHR
//*
// IF RC = 1 THEN
//STEP1 EXEC ...
// ENDIF
// PEND
//GO EXEC MYPROC,P='ABC'
|
REXX EXEC
| Code: |
/* REXX */
PULL ARG
SELECT
WHEN(ARG(1) = 'ABC') THEN RETURN 1
WHEN(ARG(1) = 'DEF') THEN RETURN 2
WHEN(ARG(1) = 'EFG') THEN RETURN 3
OTHERWISE RETURN 4
END
|
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
