Source code for PGM2

 

Here is the source code for PGM2. Figure 1. Source code for PGM2

   …
           EXEC SQL              CONNECT TO SYSC;
           EXEC SQL              DECLARE C1 CURSOR FOR
                 SELECT ....;
           EXEC SQL              OPEN C1;
           do {
                EXEC SQL                   FETCH C1 INTO :st1;
                EXEC SQL                   UPDATE ...
                      SET COL1 = COL1+10
                      WHERE CURRENT OF C1;
                PGM3(st1);
           } while SQLCODE == 0;
           EXEC SQL             CLOSE C1;
           EXEC SQL COMMIT;
....

Command to create program and SQL package for PGM2:

CRTSQLCI OBJ(PGM2) COMMIT(*CHG) RDB(SYSC) OBJTYPE(*PGM)

 

Parent topic:

Connection management and activation groups