Fix IBM exclusion to LIBRARY

2023-07-09 12:48:48 -04:00
parent 760f289c23
commit bc82c71dbd
1 changed files with 1 additions and 1 deletions
@@ -122,7 +122,7 @@ begin
                iterate Refs_Loop;
            end if; 
            -- Don't expand IBM stuff further
-            if substr(USES_NAME, 1, 1) = 'Q' then
+            if substr(USES_LIBRARY, 1, 1) = 'Q' then
                iterate Refs_Loop;
            end if; 
            -- No further expansion if DSPPGMREF doesn't handle object