call xvpclose(status) status =zvpclose()
x/zvpclose gets the unit number of the parameter data set which is currently open and closes it with a call to x/zvclose.
Arguments: