Problem: H211 1.3 - Need support for SPLEVEL 6

Solution:

++APAR(QZ22770).
++VER(Z038) FMID(BFX0103)
  PRE(QVB9409)
  /*
    DESCRIPTION: THIS APAR CORRECTS AN ASSEMBLY ERROR ENCOUNTERED
                 ON OS/390 SYSTEMS WHEN PTF QVB9409 IS APPLIED,
                 DUE TO SPLEVEL 6 NOT BEING RECOGNIZED AS A
                 VALID SPLEVEL.
    MACROS AFFECTED: BFXIDENT
    REFERENCE:
    ENVIRONMENT: MVS/ESA OS/390
  */   .
++MACUPD (BFXIDENT ) .
./ CHANGE NAME=BFXIDENT
         AIF   ('&SYSSPLV' EQ '6').SETEQ5  GO IF MVS/SP 6 ESA  QZ22770  00099200
*        GLOBAL-SYMBOLIC VAR &SYSSPLV HAS A VALUE OF 5 OR 6    QZ22770  00195630
./ ENDUP

Problem: H211 1.3 - S0C4 ABEND IN MODULE BFXPRM IF THE 'NTXID=' PARAMETER IS SPECIFIED AS THE LAST PARAMETER ON THE COMMAND STATEMENT

Solution:

++APAR(QZB1000).
++VER(Z038) FMID(BFX0103)
  /*
    DESCRIPTION: THIS APAR CORRECTS AN S0C4 ABEND THAT OCCURS IN
                 MODULE BFXPRM IF THE 'NTXID=' PARAMETER IS SPECIFIED
                 AS THE LAST PARAMETER ON THE COMMAND STATEMENT
    MODULES AFFECTED: BFXPRM
    REFERENCE:
    ENVIRONMENT: MVS/ESA OS/390
  */   .
++SRCUPD (BFXPRM) .
./ CHANGE NAME=BFXPRM
NTXID010 CR    R1,R8               IS IT END OF PARMS ?        QZB1000  00548100
         BNL   NTXID050            YES, GO FINISH UP           QZB1000  00548200
         CLI   0(R1),C' '          IS THIS A BLANK ?           QZB1000  00549000
*   DELETED BY                                                 QZB1000  00558000
*   DELETED BY                                                 QZB1000  00559000
./ ENDUP