*        Array length              22/02/2017
ARRAYLEN START
         USING ARRAYLEN,12
         LR    12,15               end of prolog
         LA    1,(AEND-A)/L'A      hbound(a)
         XDECO 1,PG+13             edit
         XPRNT PG,L'PG             print
         BR    14                  exit
A        DC    CL6'apple',CL6'orange'   array
AEND     DC    0C
PG       DC    CL25'Array length='      buffer
         END   ARRAYLEN