pgm

   dcl   &CC1         *char    1
   dcl   &CC2         *char    1
   dcl   &NbrBytRd    *char    4
   dcl   &hInpBuf     *char    4
   dcl   &hCmdBuf     *char    4
   dcl   &hLoLvlEnv   *char    4
   dcl   &ErrCod      *char    8
   dcl   &RtnVal      *char    4


   callprc 'QsnReadImm'     ( +
                              &CC1         +
                              &CC2         +
                              &NbrBytRd    +
                              &hInpBuf     +
                              &hCmdBuf     +
                              &hLoLvlEnv   +
                              &ErrCod      +
                            ) +
                      rtnval( +
                              %bin( &RtnVal ) +
                            )

   return

endpgm