PROGRAM GVAL C C N. A. Bourgeois, Jr. 15-Feb-88/. C C Get and display the number of blocks per job in SY:TSXUCL.TSX. C IBLOCK = ISPY (-20) TYPE *,'The number of blocks per job are:',IBLOCK TYPE * C CALL EXIT END