Dear all,
I have problema related to Cobol triggers, I will explain so you can understand the problema.
We are adapting a core banking from and old version to the newest, said core has the same tables that it used to but these, have change in both size and number of fields.
We are having trouble setting up the buffer on these programs, here is an example:
The table FDBLOP shown in the picture has 223 fields and 2060 size in the old version, the new one has 649 fields and a register size of 8969.
Old:
Formato Campos Longit Identificador
LOGREC 223 2069 400BB60D2C5C6
New:
Formato Campos Longit Identificador
LOGREC 649 8969 22D0E2A46B6AE
The BUFFER in the Cobol ILE Trigger is defined as follows:
OLD VERSION
03 RECORD-JUNK.
05 OLD-RECORD PIC X(8969).
05 OLD-NULL-MAP PIC X(223).
05 FILLER PIC X(5).
05 NEW-RECORD PIC X(8969).
05 NEW-NULL-MAP PIC X(223).
NEW VERSION
03 RECORD-JUNK.
05 OLD-RECORD PIC X(8969).
05 OLD-NULL-MAP PIC X(223).
05 FILLER PIC X(14).
05 NEW-RECORD PIC X(8969).
05 NEW-NULL-MAP PIC X(223).
We had a lot of trouble to figure out that the FILLER between both registers must be change, we can?t understand why this is happening and neither we can find information in the IBM documentation.
Could anybody help us in this matter?
Best regards,
Thanks
I have problema related to Cobol triggers, I will explain so you can understand the problema.
We are adapting a core banking from and old version to the newest, said core has the same tables that it used to but these, have change in both size and number of fields.
We are having trouble setting up the buffer on these programs, here is an example:
The table FDBLOP shown in the picture has 223 fields and 2060 size in the old version, the new one has 649 fields and a register size of 8969.
Old:
Formato Campos Longit Identificador
LOGREC 223 2069 400BB60D2C5C6
New:
Formato Campos Longit Identificador
LOGREC 649 8969 22D0E2A46B6AE
The BUFFER in the Cobol ILE Trigger is defined as follows:
OLD VERSION
03 RECORD-JUNK.
05 OLD-RECORD PIC X(8969).
05 OLD-NULL-MAP PIC X(223).
05 FILLER PIC X(5).
05 NEW-RECORD PIC X(8969).
05 NEW-NULL-MAP PIC X(223).
NEW VERSION
03 RECORD-JUNK.
05 OLD-RECORD PIC X(8969).
05 OLD-NULL-MAP PIC X(223).
05 FILLER PIC X(14).
05 NEW-RECORD PIC X(8969).
05 NEW-NULL-MAP PIC X(223).
We had a lot of trouble to figure out that the FILLER between both registers must be change, we can?t understand why this is happening and neither we can find information in the IBM documentation.
Could anybody help us in this matter?
Best regards,
Thanks
Comment