IBM Support

PK88130: set XXXX empty statement problem

Subscribe

You can track all active APARs for this component.

 

APAR status

  • Closed as program error.

Error description

  • The customer is having an issue with set statement empty.
    
    Customer selects 2 files in RBD and tries to generate. The set X
    XXXX empty statement in the second file is generated wrong. The
    null indicators are set to -1 in the second program.
    
           COMPUTE EZEREPLY = EZELFV-SET-10318
               CALL 'ELAFXNUM' USING EZEREPLY (LENGTH OF EZEREPLY: 1
    )
          * EGL *1131* Set ATHPATEL empty;
               INITIALIZE ATHPATEL-8880
               MOVE -1 TO DAPCODE-8857-I IN ATHPATEL-8880
               MOVE -1 TO ZONENO-8858-I IN ATHPATEL-8880
               MOVE -1 TO TELLERNO-8859-I IN ATHPATEL-8880
               MOVE -1 TO STATUS-8860-I IN ATHPATEL-8880
               MOVE -1 TO SIGNMODE-8861-I IN ATHPATEL-8880
               MOVE -1 TO TRXSQNB-8862-I IN ATHPATEL-8880
               MOVE -1 TO TRXSQNS-8863-I IN ATHPATEL-8880
               MOVE -1 TO TSFKEY-8864-I IN ATHPATEL-8880
               MOVE -1 TO TIMOFST-8865-I IN ATHPATEL-8880
               MOVE -1 TO BRNO-8866-I IN ATHPATEL-8880
               MOVE -1 TO PASSWORD-8867-I IN ATHPATEL-8880
    

Local fix

Problem summary

  • Problem was caused when the record was generated the second
    time, because the cobol generator is modifying the field
    type during generation.
    

Problem conclusion

  • I have added code to reset the field type to the original
    value when generation completes
    

Temporary fix

Comments

APAR Information

  • APAR number

    PK88130

  • Reported component name

    RATL BUS DEV

  • Reported component ID

    5724S5000

  • Reported release

    751

  • Status

    CLOSED PER

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt

  • Submitted date

    2009-06-05

  • Closed date

    2009-11-09

  • Last modified date

    2009-11-09

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

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

Fix information

  • Fixed component name

    RATL BUS DEV

  • Fixed component ID

    5724S5000

Applicable component levels

  • R751 PSN

       UP

[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSMQ79","label":"Rational Business Developer"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"7.5.1","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]

Document Information

Modified date:
09 November 2009