/* * Alternate uses for procedure block fields, applied to records. */ #define nfields nparam /* number of fields */ #define recnum nstatic /* record number */ #define recname pname /* record name */