15  ABC-NO      PIC S9(09) COMP.
15  ABC-ACCT-NO PIC S9(11) COMP-3.
15  XYZ-NO      PIC S9(04) COMP.
15  XYZ-NAME    PIC X(10).

##</code><code>##

@fields = unpackeb('i, p6.0, s e10', $record);