< if f$mode() .nes. DQTINTERACTIVEDQT then myprompt = DQTC:DQTR if f$length("QTQTmypromptQTDQT) .eq. 0 then inquire/global myprompt DQTNew PATHDQT on control then exit on error then continue on severe_error then continue  if f$file_attributes(DQTQTQTmypromptQTQTQTthefileQTDQT,DQTalqDQT) .gt. 0 then diff/para/ign=trail nfile QTmypromptQTQTthefileQT/out=QTprefixQT.diff  mystat = rfstat \ if mystat .eqs. "%X006C8013" then write sys$output DQTDiff file QTQTprefixQT.DIFF createdDQT9 if mystat .eqs. "%X006C8009" then delete QTprefixQT.diff; 