program FTPDXX,1.0(100) ! SBX Function wrapper for FTPDLX.SBR
!--------------------------------------------------------------------------
!Usage:
!
! ? tab(-10,AG_XFUNC);"FTPDXX,";HOST;",";USERNAME;",";PASSWORD;","; &
!            LOCALPATH;",";HOSTFILE;",";HOSTDIR;","; &
!		OPCODE;",";STATUS;",";PORT;chr(127);
! input "",STATUS
!
! or, preferably, if you have 5.1.1159 or higher on the server side:
!
!   PARMS$ = "FTPDXX,"+HOST+","+USERNAME+","+PASSWORD+"," &
!       + LOCALPATH+","+HOSTFILE+","+HOSTDIR+"," & 
!       + OPCODE+","+STATUS+","+PORT 
!   xcall MIAMEX, MX_AGWRAPPER, AG_XFUNC, PARMS$, STATUS
!
!--------------------------------------------------------------------------
!EDIT HISTORY
!VEDIT=100
![100] September 2, 2011 08:46 AM           Edited by jack
!	Created
!--------------------------------------------------------------------------

++pragma SBX
MAP1 FTPDLX'PARAMS
	MAP2 HOST,S,100			! host machine name or IP
	MAP2 HOSTDIR,S,260		! host directory (optional)
	MAP2 HOSTFILE,S,260		! host file (or full path spec)
	MAP2 LOCALPATH,S,260		! local file
	MAP2 OPCODE,F			! operation flags
	MAP2 USERNAME,S,32
	MAP2 PASSWORD,S,32
	MAP2 STATUS,F
	MAP2 PORT,F

        xgetargs HOST,USERNAME,PASSWORD,LOCALPATH,HOSTFILE,HOSTDIR, &
            OPCODE,STATUS,PORT

	xcall FTPDLX,HOST,USERNAME,PASSWORD,LOCALPATH,HOSTFILE,HOSTDIR, &
		OPCODE,STATUS,PORT

        RETURN (STATUS)
	END