From fc7e521707e0bdc9a43d4bc461a2aaad77b8f715 Mon Sep 17 00:00:00 2001
From: Richard Schoen <richard@richardschoen.net>
Date: Fri, 26 Jul 2024 19:03:43 -0500
Subject: [PATCH] Update QSHQRYSRCC.CLP

---
 QSHQRYSRCC.CLP | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/QSHQRYSRCC.CLP b/QSHQRYSRCC.CLP
index 2018ac6..8d8d86e 100644
--- 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 |> +