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