Trigger Buffer and Ext def DS

I noticed recently that someone asked how to get data fields from
the trigger programs buffer and saw a reference to external defined
DS, so I gave it a try.

I had problems because all the Varying Char fields were 2 bytes
bigger than they should have been.  When I program described
the fields in the DS and made the Varying Char fields the
proper size all worked OK.

There is probably a PTF for this and I have ordered the latest Cume
others may have a similar issue.

What came in externally.

D DS_EXPENSES   E DS                  ExtName(EXPENSES) PREFIX(F1)
D F1CATEGORY                     9B 0 EXTFLD (CATEGORY)
D F1STATUS                       4B 0 EXTFLD (STATUS)
D F1PROFILE                     22A   EXTFLD (PROFILE)
D                                     VARYING
D F1NOTE                       257A   EXTFLD (NOTE)
D                                     VARYING
What worked program described.

D DS_EXPENSES     DS
D  F1CATEGORY                    9B 0
D  F1STATUS                      4B 0
D  F1PROFILE                    20A   VARYING
D  F1NOTE                      255A   VARYING

Frank Kolmann