HP Integrity NonStop H-Series - Manual (Page 117)

if (FTPpwd(hd1,PROXY,&buffer[0],511)<0)
printf("errno returned: %d\n",errno);
if (FTPio(&hd1,WAIT,&cp,&tag))
printf("result: %s\n",cp);
else
printf("errno returned: %d\n",errno);
if (FTPget(hd1,PRIMARY,"abc","") < 0)
printf("errno returned: %d\n",errno);
else
printf("successful retrieve file abc\n");
if (FTPget(hd1,PROXY,"c","") < 0)
printf("errno returned: %d\n",errno);
else
printf("successful retrieve proxy file c\n");
if (FTPput(hd1,PRIMARY,"eft","mmm") < 0)
printf("errno returned: %d\n",errno);
else
printf("successfully store file eft onto remote host\n");
if (FTPrename(hd1,PRIMARY,"abc","mmm") < 0)
printf("errno returned: %d\n",errno);
else
printf("successfully rename file from mmm to mmm1\n");
if (FTPlist(hd1,PRIMARY,"",buffer,511) < 0)
printf("LIST:errno returned: %d\n",errno);
else
printf("successfully list files: %s\n",buffer);
if (FTPlist(hd1,PROXY,"",buffer,1023) < 0)
printf("LIST:errno returned: %d\n",errno);
else
printf("successfully list proxy files: \n%s\n",buffer);
if (FTPappend(hd1,PRIMARY,"c","d") < 0)
printf("errno returned: %d\n",errno);
else
printf("successfully append file c to d\n");
if (FTPmkdir(hd2,PRIMARY,"tdir") < 0)
printf("errno returned: %d\n",errno);
else
printf("successfully mkdir tdir\n");
if (FTPmkdir(hd2,PRIMARY,"cdir") < 0)
printf("errno returned: %d\n",errno);
else
printf("successfully mkdir cdir\n");
if (FTPrmdir(hd2,PRIMARY,"tdir") < 0)
printf("errno returned: %d\n",errno);
else
printf("successful rmdir tdir\n");
if (FTPsetfilecode(hd1, PRIMARY,100) < 0)
printf("errno returned: %d\n",errno);
else
printf("successfully set file code\n");
if (FTPsetstruct(hd1, PRIMARY,'F') < 0)
printf("errno returned: %d\n",errno);
else
printf("successfully set struct to F\n");
if (FTPsettype(hd1, PRIMARY, 'I') < 0)
printf("errno returned: %d\n",errno);
else
printf("successfully set type to I\n");
err:
(void)FTPbye(hd1,PRIMARY);
(void)FTPbye(hd2,PRIMARY);
}
For CISC objects, the command below compiles and links the sample program. The command
asumes That the library files are in the standard location and that the the source file is on the
compilation subvolume named $DATA.EXMPL.FTPAPIXC .
>C /IN FTPAPIXC, OUT $S.#FTPAPIX/ FTPAPIXO; WIDE, SYMBOLS, &
RUNNABLE INSPECT, SEARCH "$SYSTEM.ZTCPIP.APILIB", SSV0 &
"$PERM.MMFTPAPI", SSV1 "$SYSTEM.ZTCPIP", SSV2 &
"$SYSTEM.SYSTEM"
For RISC objects, the command belo9w compiles and links the sample program.
>NMC /IN FTPAPIXC, OUT $S.#FTPAPIX/FTPAPIN; SYMBOLS, &
RUNNABLE, SEARCH "$SYSTEM.ZTCPIP.NAPILIB", &
SSV0 "$PERM.MMFTPAPI", SSV1 "$SYSTEM.ZTCPIP", &
SSV2 "$SYSTEM.SYSTEM"
Sample Program 117