William,
Here's a modified version of your test without SETs:
//*
//CKEXIST1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
LISTCAT ENTRIES('S01CH.TEST.LOADLIB')
/*
//CHECKIF1 IF CKEXIST1.RC < 4 THEN
//IFEXECED EXEC PGM=IEFBR14
//CHECKIF1 ENDIF
//*
//CKEXIST2 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
LISTCAT ENTRIES('S01CH.TEST.NO.LOADLIB')
/*
//CHECKIF2 IF CKEXIST2.RC < 4 THEN
//IFEXECED EXEC PGM=IEFBR14
//CHECKIF2 ENDIF
//*
And the results:
-STEPNAME PROCSTEP RC
-CKEXIST1 00
-IFEXECED 00
-CKEXIST2 04
-IFEXECED FLUSH
IEF404I S01CHIFT - ENDED
The first dataset exists, the second doesn't.
Is this what you're trying to accomplish or are you truly wanting variable SETs?
C-
Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology
Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
[email protected] | www.thermofisher.com
WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this
e-mail or the information herein by anyone other than the intended recipient,
or an employee or agent of a system responsible for delivering the message to
the intended recipient, is prohibited. If you are not the intended recipient,
please inform the sender and delete all copies.
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of George, William@FTB
Sent: Friday, February 17, 2017 2:27 PM
To: [email protected]
Subject: Re: JCL IF Condition - I'm Missing Something
Thanks. I guess I'll have to attack the setting of the suffix differently then.
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Jim Brooks
Sent: Friday, February 17, 2017 11:26 AM
To: [email protected]
Subject: Re: JCL IF Condition - I'm Missing Something
The SET statement is not executed conditionally. For example, if the SET
statement appears in an IF/THEN/ELSE/ENDIF statement construct, the value is
assigned to the symbolic parameter regardless of the logic of the construct.
Regards,
Jim
On Fri, Feb 17, 2017 at 2:03 PM, George, William@FTB <[email protected]
> wrote:
> The JCL below
>
> 1. Sets symbolic &SFX = "A"
>
> 2. checks if a dataset exists,
>
> 3. if it does exist it changes the symbolic &SFX = "B"
>
> 4. for the dataset used in the Step3.
>
> However, processing ALWAYS falls into the THEN path even when the RC = 0.
> What am I missing?
> Note: this is just test JCL to verify the changing of the &SFX
> symbolic works.
> Thanks for any insights!
> Bill
>
> //*
> //SET1 SET SFX=A
> //*
> //CHKEXIST EXEC PGM=IDCAMS
> //SYSPRINT DD SYSOUT=*
> //SYSIN DD *
> LISTCAT ENTRIES('Q6498.BIND.ENTLISTA')
> /*
> //CHECKIF IF CHKEXIST.RC < 4 THEN
> //SET2 SET SFX=B
> //CHECKIF ENDIF
> //*
> //STEP3 EXEC PGM=SORT
> //SYSOUT DD SYSOUT=*
> //SORTIN DD DISP=SHR,DSN=Q6498.BIND.ENTLIST&SFX
> //SORTOUT DD DSN=DUMMY
> //SYSIN DD *
> SORT FIELDS=COPY
> //
>
>
> ______________________________________________________________________
> CONFIDENTIALITY NOTICE: This email from the State of California is for
> the sole use of the intended recipient and may contain confidential
> and privileged information. Any unauthorized review or use, including
> disclosure or distribution, is prohibited. If you are not the intended
> recipient, please contact the sender and destroy all copies of this email.
>
> ----------------------------------------------------------------------
> 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
----------------------------------------------------------------------
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
