Help for this page

Select Code to Download


  1. or download this
    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).
  2. or download this
    @fields = unpackeb('i, p6.0, s e10', $record);