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;
....