PROGRAM EXSTAT C C N. A. Bourgeois, Jr. 12-Feb-88/. C C Get and display the execution status of the current line. C LINUM = ITSLIN () CALL IEXSTS (LINUM,ISTAT) TYPE *,'The execution status code is:',ISTAT TYPE * C CALL EXIT END