Hi Quasar,Quasar Chunawala wrote:17. An SQL join on most occasions out-performs a programmatic join. Programmatic joins are bad and should be avoided at all times.
Programmatic joinCode: Select all
----+----1----+----2----+----3----+----4----+----5----+----6----+----7-- EXEC SQL OPEN C1 END-EXEC PERFORM UNTIL END-OF-C1 EXEC SQL FETCH C1 INTO :HV-A, :HV-B, :HV-C END-EXEC EVALUATE SQLCODE WHEN 0 PERFORM 1000-OPEN-C2 THRU 1000-EXIT PERFORM 2000-FETCH-C2 THRU 2000-EXIT UNTIL END-OF-C2 PERFORM 3000-CLOSE-C2 THRU 3000-EXIT WHEN +100 MOVE SPACES TO :HV-A, :HV-B, :HV-C SET END-OF-C1 TO TRUE WHEN OTHER PERFORM 9000-PROCESS-ERROR THRU 9000-EXIT END-EVALUATE END-PERFORM EXEC SQL CLOSE C1 END-EXEC
I might have not understood it well, however, you show a COBOL code - which is neither a "programmatic join" nor a "SQL-Join" -- so what does it convey. Possibly I've misunderstood. Please guide.