Changeset 3913

Timestamp:

Mar 14, 2020, 2:18:13 PM (5 years ago)

Author:

Andreas Schnellbacher

Message:

• Added case handling when NEPMD.INI doesn't exist.

File:

• trunk/src/netlabs/install/cleandatb.cmd (modified) (1 diff)

trunk/src/netlabs/install/cleandatb.cmd ¶

@@ -323 +323 @@
    rcx = IniClose( DataBase)
 
-   /* Delete possible package names from NEPMD.INI after all is done */
-   IF IniFunc( NepmdIni, 'Install', 'PckPrefixNames') <> 'ERROR:' THEN
+   IF NepmdIni <> '' THEN
    DO
-      /*SAY 'rcx = IniFunc( 'NepmdIni', ''Install'', ''PckPrefixNames'', ''DELETE:'')'*/
-      rcx =  IniFunc( NepmdIni, 'Install', 'PckPrefixNames', 'DELETE:')
-   END
-
-   DO p = 1 TO Pck.0
-      IF IniFunc( NepmdIni, 'Install', 'PckNames.'p) <> 'ERROR:' THEN
-      DO
-         /*SAY 'rcx = IniFunc( 'NepmdIni', ''Install'', ''PckNames.'p''', ''DELETE:'')'*/
-         rcx = IniFunc( NepmdIni, 'Install', 'PckNames.'p, 'DELETE:')
-      END
-   END
-
-   IF IniFunc( NepmdIni, 'Install', 'PckNames.0') <> 'ERROR:' THEN
-   DO
-      /*SAY 'rcx = IniFunc( 'NepmdIni', ''Install'', ''PckNames.0'', ''DELETE:'')'*/
-      rcx = IniFunc( NepmdIni, 'Install', 'PckNames.0', 'DELETE:')
-   END
-
-   /* Close NEPMD.INI */
-   rcx = IniClose( NepmdIni)
+      /* Delete possible package names from NEPMD.INI after all is done */
+      IF IniFunc( NepmdIni, 'Install', 'PckPrefixNames') <> 'ERROR:' THEN
+      DO
+         /*SAY 'rcx = IniFunc( 'NepmdIni', ''Install'', ''PckPrefixNames'', ''DELETE:'')'*/
+         rcx =  IniFunc( NepmdIni, 'Install', 'PckPrefixNames', 'DELETE:')
+      END
+
+      DO p = 1 TO Pck.0
+         IF IniFunc( NepmdIni, 'Install', 'PckNames.'p) <> 'ERROR:' THEN
+         DO
+            /*SAY 'rcx = IniFunc( 'NepmdIni', ''Install'', ''PckNames.'p''', ''DELETE:'')'*/
+            rcx = IniFunc( NepmdIni, 'Install', 'PckNames.'p, 'DELETE:')
+         END
+      END
+
+      IF IniFunc( NepmdIni, 'Install', 'PckNames.0') <> 'ERROR:' THEN
+      DO
+         /*SAY 'rcx = IniFunc( 'NepmdIni', ''Install'', ''PckNames.0'', ''DELETE:'')'*/
+         rcx = IniFunc( NepmdIni, 'Install', 'PckNames.0', 'DELETE:')
+      END
+
+      /* Close NEPMD.INI */
+      rcx = IniClose( NepmdIni)
+   END
 END