/*      A  ReXX Program called UPMACRO.CMD
*       Author:  Graham Pinnoy
*       Purpose: Signs on to TSO with my SCxxxxx and password and then
*                uploads a PRN file to the Mainframe using Communications Manager
*       Created: March 10, 1995
*/
                       

ret_code = Rxfuncadd('HLLAPI','SAAHLAPI','HLLAPISRV')                          /* Registers the dynamic link library */
/* ret_code = 0 (registered) > 0 (not registered)                          */
session_id = 'TSO SC77777'                                                     /*   My TSO sign on # SCxxxxx   */
                                                                               /*   This is used by all later  */
                                                                               /*   hllapi calls */
ret_code = hllapi('Connect' ,session_id)                                       /*   Connect to host   */
             if rc > 0  then do
                          say  ' No connection took place.  RC =' rc
                          signal quit
ret_code = hllapi('Send_file',"C:\myfile.prn,'ldfip.fis.buddata(abc')/SAYHI"    /*  Sends a file from a PC to a host computer  */

end
quit :
        Say  'Disconnecting the session..'
         ret_code = hllapi('disconnect')
         if  ret_code = 0 then say  'Successfully disconnected'
            else say 'Disconnection unsuccessful'
          hllapi('reset_system')    /*     reset back to the defaults */
          return