On 2014-08-15, at 08:45, Farley, Peter x23353 wrote:
> How are you able to execute that JCL at all? On my V2.1 system I get a JCL
> error with these messages and no execution at all:
>
> 6 IEFC001I PROCEDURE P WAS EXPANDED USING INSTREAM PROCEDURE DEFINITION
> 6 IEFC657I THE SYMBOL S WAS NOT USED
> 14 IEFC001I PROCEDURE P WAS EXPANDED USING INSTREAM PROCEDURE DEFINITION
> 14 IEFC657I THE SYMBOL S WAS NOT USED
>
> Inquiring minds wish to know how you managed this.
>
I had somewhat expected that and was pleasantly surprised not to
need to circumvent that.
Oops. When I excerpted, I omitted an "EXPORT", probably essential.
(I submitted the job via FTP; probably inconsequential.)
More completely (are you testing with EXECSYS != CNVTSYS?):
//
//PARMDD JOB 505303JOB,'Paul Gilmartin',
// MSGLEVEL=(1,1),REGION=0M
//*
//* Doc: Show behavior of PARMDD and DD *,SYMBOLS=
//*
//USERC OUTPUT JESDS=ALL,DEFAULT=YES,
// CLASS=R,PAGEDEF=V0648Z,CHARS=GT12
//*
// EXPORT SYMLIST=*
// SET S='Substituted'
//*
//*.+....|....+....|....+....|....+....|....+....|....+....|....+....|....+....|
//P PROC S='no sub'
//PSTEP EXEC PGM=BPXBATCH,PARMDD=PARMDD
//PARMDD DD *,SYMBOLS=CNVTSYS
SH set -x; sleep 11;
echo "Hello, world! from PARMDD. &&S &S";
echo "Time is &HR:&MIN:&SEC Date is &YR4-&MON-&DAY.."
//STDOUT DD SYSOUT=(,)
//STDERR DD SYSOUT=(,)
//STDIN DD PATH='/dev/null'
// PEND
//*
//D1 EXEC PGM=IEFBR14 (Timestamp in job log.)
//STEP1 EXEC P,S='Substituted in step 1'
//D2 EXEC PGM=IEFBR14 (Timestamp in job log.)
//STEP2 EXEC P,S='Substituted in step 2'
//*
//*.+....|....+....|....+....|....+....|....+....|....+....|....+....|....+....|
//
# must be 2.1 system or above.
:w ! submit ...
Thanks,
gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
