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)