There has been some talk about changing JCL interpretation. Sure
it is old, and ugly, but we are used to it, and it does "work". Here is
what happened going from os390 to zos 1.08
Somewhere between OS390 2.10 (our old system) and zos 1.08 (our
new system) the JCL interpreter changed. Here is a simplified example of
some JCL we have been running for years.
//AFITJLMU JOB CLASS=S,MSGCLASS=X,TYPRUN=SCAN
//UNVTEST PROC
//PS001 EXEC PGM=IEFBR14
//REMOTE DD DISP=SHR,DSN=MSYS.UCMD.REMOTE
//SYSIN DD DISP=SHR,DSN=QALC.UNVLIB
//MYSCRIPT DD DISP=SHR,DSN=QALC.UNVLIB
//SYSPRINT DD SYSOUT=*
// PEND ---------------------
//*
//JS001 EXEC PROC=UNVTEST
//MYSCRIPT DD *
WHATEVER
/*
WHEREEVER
/*
Note the Extra "sysin" which the programmer left there in case he ever
needed it again, soft of "self documenting. Worked just fine... until zOS
1.08
Here is how OS390 2.10 handles the GENERATED SYSIN
//JS001 EXEC PROC=UNVTEST
++UNVTEST PROC
++PS001 EXEC PGM=IEFBR14
++REMOTE DD DISP=SHR,DSN=MSYS.UCMD.REMOTE
++SYSIN DD DISP=SHR,DSN=QALC.UNVLIB
//MYSCRIPT DD *
+/MYSCRIPT DD DISP=SHR,DSN=QALC.UNVLIB
++SYSPRINT DD SYSOUT=*
//SYSIN DD * GENERATED STATEMENT
Here is how zOS 1.08 handles the GENERATED SYSIN
4 ++UNVTEST PROC
5 ++PS001 EXEC PGM=IEFBR14
6 ++REMOTE DD DISP=SHR,DSN=MSYS.UCMD.REMOTE
7 //SYSIN DD * GENERATED STATEMENT
+/SYSIN DD DISP=SHR,DSN=QALC.UNVLIB
8 //MYSCRIPT DD *
+/MYSCRIPT DD DISP=SHR,DSN=QALC.UNVLIB
9 ++SYSPRINT DD SYSOUT=*
The os390 way, the JCL works. zOS 1.8 it gets the old "WHEREVER"
junk in the sysin dd and fails. Sigh.
Notice that zos 1.08 neatly lines up the sysin from way down at
the bottom with the existing SYSIN. Perfect example of a program being
"TOO HELPFUL". It wasn't broke, why did you "fix" it.
So, is this a "bug" or "working as designed"? Or maybe there is an
option somewhere that I can change and have it work the way it used to.
MUCH better than changing hundreds of pieces of JCL. Really.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
