PM65482: MISCELLANEOUS CHANGES

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Per PMR 10526,999,000
  ================================================================
  Date reported: 05/20/2012
  
  Severity: Medium
  
  Prerequisite: V3R2M0 PTF UK77803
  
  Users Affected:
   All IMU users of MU V3.2
  
  Byte code macros change in FSOFT01.V3R2M0.SFSYFJCC:
  
   EASYTRAN - existing macro
   EASYT007 - existing macro
   TBSERV - existing macro
  
  Load modules change in FSOFT01.V3R2M0.SFSYLOAD
  
   FSDYNRNI - existing module
   FSDYNKSI - existing module
   FSCCOBOL - existing module (supersedes APAR PM63275)
   XXCCOBOL - existing module (supersedes APAR PM63275)
   FSCCOB31 - existing module (supersedes APAR PM63275)
   FSCASSEM - existing module (supersedes APAR PM63275)
  
  
  
  Problem Description and conclusions
  ----------------------------------------------------
  EASYT007 macro:
  - Issue warning message when numeric field length exceeds 18
    bytes.
  - Alter reserved words based on the original name  i.e., allow
    ZEROS_, LOW-VALUES_ etc.
  - Bypass EZTPLUS directives placed after the SORT statement
    and before the next JOB/SORT or sort exit.
  - Added support for PUT to external table files
  
  EASYTRAN macro and FSREAD00 sub-module:
  - Allow PARM statement in the temporary macros placed in front
    of the program.
  - Bypass blank lines at the top of the program when looking for
    the PARM statement.
  
  TBSERV macro:
  - Initialize &TABLE-FILE-STATUS with zeros to avoid program
    SC07.
  
  FSDYNKSI - VSAM KSDS run time I/O load module:
  - Added OPTCD=NSP on random read for input to hold record
    position. This allows for subsequent skip sequential GET.
  
  FSDYNRNI - VSAM RRN run time I/O load module:
  - Added OPTCD=NSP on random read for input to hold record
    position. This allows for subsequent skip sequential GET.
  
  FSACCL00 - CCL1 byte code sub-module
  - Allow numeric literal to be 18 characters after excluding the
    sign and the decimal point.
  - The previous logic included the sign and the decimal point in
    the count, thus flagging such numeric items for too many
    characters.
  
  FSREAD00 sub-module:
  - Changed Split Word logic to filter out partial comments.
    Previous logic did not check for partial comments, thus it was
    bypassing  statements on subsequent line, i.e. it took it as a
    part of the continued line.
  ================================================================
  

Local fix

• N/A
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: All IMU V3.2 Users.                          *
  ****************************************************************
  * PROBLEM DESCRIPTION: Miscellaneous changes to:               *
  *                                                              *
  *                      EASYT007                                *
  *                      EASYT007                                *
  *                      TBSERV                                  *
  *                      FSDYNRNI                                *
  *                      FSDYNKSI                                *
  *                      FSCCOBOL                                *
  *                      XXCCOBOL                                *
  *                      FSCCOB31                                *
  *                      FSCASSEM                                *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply PTF.                                   *
  ****************************************************************
  

Problem conclusion

• Made the folling changes:
  
  EASYT007 macro:
  - Issue warning message when numeric
    field length exceeds 18 bytes.
  - Alter reserved words based on the
    original name  i.e., allow ZEROS_,
    LOW-VALUES_ etc.
  - Bypass EZTPLUS directives placed
    after the SORT statement and before
    the next JOB/SORT or sort exit.
  - Added support for PUT to external
    table files
  
  EASYTRAN macro and FSREAD00 sub-module:
  - Allow PARM statement in the
    temporary macros placed in front of
    the program.
  - Bypass blank lines at the top of the
    program when looking for the PARM
    statement.
  
  TBSERV macro:
  - Initialize &TABLE-FILE-STATUS with
    zeros to avoid program SC07.
  
  FSDYNKSI - VSAM KSDS run time I/O load
             module:
  - Added OPTCD=NSP on random read for
    input to hold record position.  This
    allows for subsequent skip sequential
    GET.
  
  FSDYNRNI - VSAM RRN run time I/O load
             module:
  - Added OPTCD=NSP on random read for
    input to hold record position. This
    allows for subsequent skip sequential
    GET.
  
  FSACCL00 - CCL1 byte code sub-module
  - Allow numeric literal to be 18
    characters after excluding the sign
    and the decimal point.
  - The previous logic included the sign
    and the decimal point in the count,
    thus flagging such numeric items for
    too many characters.
  
  FSREAD00 sub-module:
  - Changed Split Word logic to filter
    out partial comments. Previous logic
    did not check for partial comments,
    thus it was bypassing  statements
    on subsequent line, i.e. it took it
    as a part of the continued line.
  

Temporary fix

Comments

APAR Information

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

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

Modules/Macros

•    FSYASSEM FSYBSERV FSYCCBOL FSYDNKSI FSYDNRNI
  FSYETRAN FSYET007 FSYXCOBO
  

Fix information

• Fixed component name

  MIGRATION UTILI

• Fixed component ID

  5697N4400

Applicable component levels

• R320 PSY UK80298

     UP12/07/20 P F207

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.