On Mon, 9 Nov 2015 10:12:01 -0600, Tom Marchant wrote:
>
>Mine was corrected with OA47958
>
My systems programmer tells me we now have that. In my somewhat
different case, the JESJCL shows:
...
3 // EXPORT SYMLIST=*
4 //P PROC
//GEN EXEC PGM=IEBGENER
// SET V3=&V2 This shouldn't be necessary!
//SYSUT1 DD *,SYMBOLS=JCLONLY
//SYSPRINT DD SYSOUT=(,)
//SYSIN DD DUMMY
//SYSUT2 DD SYSOUT=(,&V2) (Just to display &V2.)
//P PEND
//*
5 // SET V2=WOMBAT ****************************************
6 //V2 EXPORT EXPSET=WOMBAT GENERATED
STATEMENT
7 //WOMBAT1 EXEC P
8 ++P PROC
9 ++GEN EXEC PGM=IEBGENER
10 ++ SET V3=&V2 This shouldn't be necessary!
IEFC653I SUBSTITUTION JCL - V3=WOMBAT
11 ++V3 EXPORT EXPSET=WOMBAT GENERATED
STATEMENT
12 ++SYSUT1 DD *,SYMBOLS=JCLONLY
13 ++SYSPRINT DD SYSOUT=(,)
14 ++SYSIN DD DUMMY
15 ++SYSUT2 DD SYSOUT=(,&V2) (Just to display &V2.)
IEFC653I SUBSTITUTION JCL - SYSOUT=(,WOMBAT)
16 ++V3 EXPORT EXPSET= GENERATED
STATEMENT
17 //WOMBAT2 EXEC P
18 ++P PROC
19 ++GEN EXEC PGM=IEBGENER
20 ++ SET V3=&V2 This shouldn't be necessary!
IEFC653I SUBSTITUTION JCL - V3=WOMBAT
21 ++V3 EXPORT EXPSET=WOMBAT GENERATED
STATEMENT
22 ++SYSUT1 DD *,SYMBOLS=JCLONLY
23 ++SYSPRINT DD SYSOUT=(,)
24 ++SYSIN DD DUMMY
25 ++SYSUT2 DD SYSOUT=(,&V2) (Just to display &V2.)
IEFC653I SUBSTITUTION JCL - SYSOUT=(,WOMBAT)
26 ++V3 EXPORT EXPSET= GENERATED
STATEMENT
27 // SET V2=XYZZY ****************************************
28 //V2 EXPORT EXPSET=XYZZY GENERATED
STATEMENT
29 //XYZZY1 EXEC P
30 ++P PROC
31 ++GEN EXEC PGM=IEBGENER
32 ++ SET V3=&V2 This shouldn't be necessary!
IEFC653I SUBSTITUTION JCL - V3=XYZZY
33 ++V3 EXPORT EXPSET=XYZZY GENERATED
STATEMENT
34 ++SYSUT1 DD *,SYMBOLS=JCLONLY
35 ++SYSPRINT DD SYSOUT=(,)
36 ++SYSIN DD DUMMY
37 ++SYSUT2 DD SYSOUT=(,&V2) (Just to display &V2.)
IEFC653I SUBSTITUTION JCL - SYSOUT=(,XYZZY)
38 ++V3 EXPORT EXPSET= GENERATED
STATEMENT
39 //XYZZY2 EXEC P
40 ++P PROC
41 ++GEN EXEC PGM=IEBGENER
42 ++ SET V3=&V2 This shouldn't be necessary!
IEFC653I SUBSTITUTION JCL - V3=XYZZY
43 ++V3 EXPORT EXPSET=XYZZY GENERATED
STATEMENT
44 ++SYSUT1 DD *,SYMBOLS=JCLONLY
45 ++SYSPRINT DD SYSOUT=(,)
46 ++SYSIN DD DUMMY
47 ++SYSUT2 DD SYSOUT=(,&V2) (Just to display &V2.)
IEFC653I SUBSTITUTION JCL - SYSOUT=(,XYZZY)
48 ++V3 EXPORT EXPSET= GENERATED
STATEMENT
//*
49 //
But the various SYSUT2 are:
user@OS/390.25.00: head */*SYSUT2.text
==> WOMBAT1.GEN/104.SYSUT2.text <==
GENER step:
with V2=WOMBAT; V3=WOMBAT.
==> WOMBAT2.GEN/106.SYSUT2.text <==
GENER step:
with V2=XYZZY; V3=WOMBAT.
==> XYZZY1.GEN/108.SYSUT2.text <==
GENER step:
with V2=XYZZY; V3=XYZZY.
==> XYZZY2.GEN/110.SYSUT2.text <==
GENER step:
with V2=XYZZY; V3=XYZZY.
user@OS/390.25.00:
Still broke.
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
