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