Update QSHQRYSRCC.CLP

richardschoen · Jul 27, 2024 · fc7e521 · fc7e521
1 parent 56ea594
commit fc7e521
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/QSHQRYSRCC.CLP b/QSHQRYSRCC.CLP
@@ -210,11 +210,13 @@
              CHGVAR     VAR(&COMPMSGTYP) VALUE(*COMP)
              ENDDO
 
-             /* Delete temporary source file */
-             /* If selected.                 */
-             IF         COND(&DLTTMPSRC *EQ *YES) THEN(DO)
-             DLTF       FILE(QTEMP/TMPQRYSRC)
-             ENDDO
+             /* Delete temporary source file */            
+             /* If selected.                 */            
+             IF         COND(&SQLLOC *EQ *IFSFILE) THEN(DO)
+             IF         COND(&DLTTMPSRC *EQ *YES) THEN(DO) 
+             DLTF       FILE(QTEMP/TMPQRYSRC)              
+             ENDDO                                         
+             ENDDO                                         
 
              SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Temp +
                           file' |> &TEMPLIB |< '/' |< &TEMPFILE |> +