Source code for PGM1

Here is the source code for PGM1.

Figure 1. Source code for PGM1

      ....
      EXEC SQL
        CONNECT TO SYSB
      END-EXEC.
      EXEC SQL
        SELECT ....
      END-EXEC.
      CALL PGM2.
      ....

Command to create program and SQL package for PGM1:

CRTSQLCBL PGM(PGM1) COMMIT(*NONE) RDB(SYSB)