PQ66640: JOBS OUTPUT JCL STATEMENTS INCORRECTLY PROCESSED BY DATASTORE

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• When a job which already contains OUTPUT JCL statements with the
  JESDS=ALL parameter is submitted by TWS-z/OS, the //TIVDSTUS
  OUTPUT statement is incorrectly placed into the jobstream and
  the //TIVDSTAL OUTPUT statement is not inserted at all.
  .
  This prevents correct system processing of the original OUTPUT
  statements.  The DATASTORE successfully captures the JOBLOG and
  other SYSOUT data, but the original OUTPUT statements are never
  processed by JES.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All TWS for z/OS users.                      *
  *                 FUNCTION=DS, DataStore                       *
  ****************************************************************
  * PROBLEM DESCRIPTION: //TIVxxx add problems:                  *
  *                      .                                       *
  *                      1) STC PROC not supported               *
  *                      2) if user sysout needed and job        *
  *                         card not found, TIVDSxx misplace     *
  *                      3) wrong TIVDSUST added after exec      *
  ****************************************************************
  * RECOMMENDATION: APPLY THE PTF FIXING THIS APAR               *
  ****************************************************************
  ====================================
  This is an example of the problem 1:
  ====================================
  
  run via opc a started task having the following jcl:
  
  //PROC1     PROC
  //PSTEP12   EXEC  PGM=EQQRETWM,PARM='RC0004,WT02'
  //          PEND
  
  without the fix it will fail when opc tries to add TIVOLI JESDS
  statements as job card is misplaced
  
  ====================================
  This is an example of the problem 2:
  ====================================
  
  Running an operation with the following jcl:
  //
  //COPY  EXEC PGM=IEBCOPY,REGION=1M
  //INPUT DD DSN=OPC240.PTR250.JOB(JOB10),DISP=SHR
  //OUTPUT DD SYSOUT=A
  //JESMSGLG DD DUMMY
  //SYSPRINT DD SYSOUT=*
  //ORNY DD *
   COPY INDD=INPUT,OUTDD=OUTPUT
  /*
  
  Without the fix it should fail with JCL error:
  
  7 IEF645I INVALID REFERBACK IN THE OUTPUT   FIELD
  9 IEF645I INVALID REFERBACK IN THE OUTPUT   FIELD
  
  =====================================
  This is an example of the problem 3:
  =====================================
  
  Run following jcl:
  
  //ROXJOBA1 JOB 91B10701,'HOFFMANN',MSGCLASS=A
  //PRINT OUTPUT DEFAULT=YES,JESDS=ALL,PRMODE=PAGE
  //STEP1    EXEC PGM=IEBGENER
  //SYSUT1   DD DISP=SHR,DSN=TWS.TWSF.JOBLIB(ROXJOB)
  //SYSUT2   DD SYSOUT=*
  //SYSPRINT DD SYSOUT=*
  //SYSIN    DD DUMMY
  //STEP2    EXEC PGM=IEBGENER
  //SYSUT1   DD DISP=SHR,DSN=TWS.TWSF.JOBLIB(JOBB)
  //SYSUT2   DD SYSOUT=*
  //SYSPRINT DD SYSOUT=*
  //SYSIN    DD DUMMY
  
  without the fix a //TIXxxx  is incorrectly added after the first
  exec statement and in addition the local copies of user sysout
  loose their characteristics (PAGE)
  
  Running this jcl more times using Step restart with expanded
  jcl, multiple *.TIVDSTUS  parm are added causing extra copies.
  

Problem conclusion

• ===========
   Problem 1:
  ===========
  with the fix the jcl tailoring will be:
  
  //ROXPRO2  JOB MSGLEVEL=(1,1)                  <-- added by opc
  //TIVDST00 OUTPUT JESDS=ALL,DEST=TWSBDEST      <-- added by opc
  //TIVDSTAL OUTPUT JESDS=ALL                    <-- added by opc
  //PROC1     PROC
  //PSTEP12   EXEC  PGM=EQQRETWM,PARM='RC0004,WT02'
  //          PEND
  //TIVDSSTE  EXEC  PROC1                        <-- added by opc
  
  adding jobcard at beginning and exec procname at the end
  
  ============
   Problem 2:
  ============
  With the fix it ends successfully.
  
  ============
   Problem 3:
  ============
  
  With the fix the problem does not occur and local user output
  do not loose their characteristics.
  
  100N
  102Y
  DCLZZPSC
  EQQJHDST
  EQQWAAIN
  EQQWASUB
  

Temporary fix

• temporary fix sent to customer
  

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

  UQ72522 UQ72523

Modules/Macros

• DCLZZPSC EQQJHDST EQQWAAIN EQQWASUB
  

Fix information

• Fixed component name

  TIV WRKLD SCHD

• Fixed component ID

  5697WSZ01

Applicable component levels

• R102 PSY UQ72523

     UP03/02/21 P F302

• R100 PSN

     UP

Fix is available

• Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.