pgm

   dcl   &Screen      *char    4
   dcl   &hCmdBuf     *char    4
   dcl   &hLoLvlEnv   *char    4
   dcl   &ErrCod      *char    8
   dcl   &RtnVal      *char    4


   callprc 'QsnSavScr'      ( +
                              &Screen      +
                              &hCmdBuf     +
                              &hLoLvlEnv   +
                              &ErrCod      +
                            ) +
                     rtnval( +
                             %bin( &RtnVal ) +
                           )

   return

endpgm