EXTRACT EXIT

1 EXTRACT EXIT PROGRAM(data-value)
2? ENTRYNAME(data-value)
3 GALENGTH(data-area)  GASET(ptr-ref)