pgm

   dcl   &hBuf        *char    4
   dcl   &ErrCod      *char    8
   dcl   &RtnVal      *char    4


   callprc 'QsnDltBuf'      ( +
                              &hBuf        +
                              &ErrCod      +
                            ) +
                      rtnval( +
                              %bin( &RtnVal ) +
                            )

   return

endpgm