PK88130: set XXXX empty statement problem

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 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