XSUB B: ERA FORT10.DAT A:PIP FORT07.DAT=TEST2.DAT REG1 7 REG2 A:PIP FORT08.DAT=TEST31.DAT REG1 8 REG2 A:PIP FORT09.DAT=TEST32.DAT REG1 9 REG2