BYTE BCVPRS_ADDRNUM(0:5), BCVPRS_PROTNUM(0:1), BCVPRS_SRCADR(0:5), + BCVPRS_DSTADR(0:5), BCVPRS_SRCMOD, BCVPRS_DSTMOD, + BCVPRS_PRTMOD, BCVPRS_FLTMOD CHARACTER*128 CCVPRS_FILESPEC INTEGER*2 NCVPRS_ADDRNUM(0:2), NCVPRS_PROTNUM, NCVPRS_SRCADR(0:2), + NCVPRS_DSTADR(0:2), NCVPRS_FILESPECLEN INTEGER*4 ICVPRS_NUMBER, ICVPRS_ADDRNUM COMMON /PARSE_ARGS/ ICVPRS_NUMBER, BCVPRS_ADDRNUM, + BCVPRS_PROTNUM, BCVPRS_DSTADR, BCVPRS_SRCADR, + BCVPRS_DSTMOD, BCVPRS_SRCMOD, BCVPRS_PRTMOD, + BCVPRS_FLTMOD, NCVPRS_FILESPECLEN, CCVPRS_FILESPEC EQUIVALENCE (BCVPRS_ADDRNUM, NCVPRS_ADDRNUM, ICVPRS_ADDRNUM), + (BCVPRS_PROTNUM, NCVPRS_PROTNUM), + (BCVPRS_SRCADR, NCVPRS_SRCADR), + (BCVPRS_DSTADR, NCVPRS_DSTADR)