ftp_setproxy procedure

[basim1971]

Hi Scott,

Probably this code should be change
P FTP_setProxy B export
D PI 10i 0
D peProxy 256A varying const
D pePort 10i 0 const options(*nopass:*omit)
D peUser 2048A varying const options(*nopass:*omit)
D pePass 2048A varying const options(*nopass:omit)
C0N01Factor1+++++++Opcode&ExtFactor2+++++++Result++++++++Len++D+HiLoEq
c eval wkProxHost = peProxy
c eval wkProxPort = 0
c eval wkProxUser = ''
c eval wkProxPass = ''

 c                   if        %parms >= 4 and %addr(pePort) <> *null  shoud be if        %parms >= 2 
 c                   eval      wkProxPort = pePort
 c                   endif

 c                   if        %parms >= 5 and %addr(peUser) <> *null   should be if        %parms >= 3 
 c                   eval      wkProxUser = peUser
 c                   endif

 c                   if        %parms >= 6 and %addr(pePass) <> *null should be if        %parms >= 4 
 c                   eval      wkProxPass = pePass
 c                   endif
    
 c                   return    0
 P                 E