Hello,
I am converting existing JCL to be included by an ISPF skeleton.
The JCL uses JCL SET statements but the values are not
substituted correctly.
Following is a CLIST that sets variables
UPD and REG and FTINCLs a ISPF skeleton called TESTSET.
In TESTSET skeleton 1 (Example 1) , the values of DTE1, HLQ2, LVL2 are SET and used later in the skeleton.
In the Resulting JCL 1, the SET statements are correctly resolved
with UPD and REG but the &HLQ2, &LVL2, and &DTE1 in the dataset
name are NOT resolved.
In TESTSET skeleton 2, I doubled the ampersands (&&) in the
dataset name.
In the Resulting JCL 2, variables show their variable names like &HLQ2, &LVL2,
and &DTE1,
How can I take the resolved results of SET statements and use them later
in the skeleton?
I appreciate your assistance..
Thanks.
---------------------------------------------------------
CLIST (partial) - Variables UPD and REG are SET
SET UPD=R090727
SET REG=3
ISPEXEC FTOPEN TEMP
ISPEXEC FTINCL TESTSET
ISPEXEC FTCLOSE
ISPEXEC VGET (ZTEMPF)
ISPEXEC EDIT DATASET('&ZTEMPF'
----------------------------------------------------------
SKELETON TESTSET (Example 1)
// SET DTE1=&UPD
// SET HLQ2=&ZUSER..R®
// SET LVL2=VAL
//IEFBIT EXEC PGM=IEFBR14
//INDD01 DD DSN=&HLQ2..&LVL2.BKUP.GOODATA.DATA.R&DTE1,
// DISP=(MOD,DELETE,DELETE),
// SPACE=(TRK,0)
//*
------------------------------------------------------------
Resulting JCL 1 - Dataset Name Variables are NOT resolved
// SET DTE1=R090727
// SET HLQ2=XYZ.R3
// SET LVL2=VAL
//IEFBIT EXEC PGM=IEFBR14
//INDD01 DD DSN=.BKUP.GOODATA.DATA.R,
// DISP=(MOD,DELETE,DELETE),
// SPACE=(TRK,0)
//*
-------------------------------------------------------------
SKELETON TESTSET (Example same as example 1 but used 2 &s in
the dataset name
// SET DTE1=&UPD
// SET HLQ2=&ZUSER..R®
// SET LVL2=VAL
//IEFBIT EXEC PGM=IEFBR14
//INDD01 DD DSN=&&HLQ2..&&LVL2.BKUP.GOODATA.DATA.R&&DTE1,
// DISP=(MOD,DELETE,DELETE),
// SPACE=(TRK,0)
//*
------------------------------------------------------------
Resulting JCL 2 - Dataset Name Variables are NOT resolved
// SET DTE1=R090727
// SET HLQ2=XYZ.R3
// SET LVL2=VAL
//IEFBIT EXEC PGM=IEFBR14
//INDD01 DD DSN=&HLQ2..&LVL2.BKUP.GOODATA.DATA.R&DTE1,
// DISP=(MOD,DELETE,DELETE),
// SPACE=(TRK,0)
//*
-------------------------------------------------------------