免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 2178 | 回复: 9
打印 上一主题 下一主题

jance进来看 [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2006-08-07 11:38 |只看该作者 |倒序浏览
假设FTP脚本存放路径为:
NAME = OUTFTP
LIB  = JANCE
FILE = SPFEPOD

脚本内容如下:
jance pass                                                              
bin                                                                     
quote site namefmt 1                                                   
cd qsys.lib/jance.lib                                                   
put epodbak/&savfname

其中&savfname是10位长的参数,那么可在400上写个C程序,假设程序名为CRTFTPTXT,简要代码如下:  


#include <stdio.h>
#include <stdlib.h>
#include <string.h>

main(int argc,char **argv)
{
  char savfname??(11??);
  char fname??(255??);

  FILE *fp;

  memset(savfname,0,sizeof(savfname));
  strncpy(savfname,argv??(1??),10);

  memset(fname,0,sizeof(fname));
  sprintf(fname,"JANCE/SPFEPOD(OUTFTP)");

  if ( ( fp=fopen(fname,"w+") ) == NULL )  {
       printf("creat ftptxt error");
       exit(127);
       }
  fprintf(fp,"jance pass??/n");
  fprintf(fp,"bin??/n");
  fprintf(fp,"quote site namefmt 1 ??/n");
  fprintf(fp,"cd qsys.lib/jance.lib ??/n");
  fprintf(fp,"put epodbak/%s??/n",savfname);
  fprintf(fp,"quit");
  }


CLP调用前,先将原OUTFTP删去,再CALL  CRTFTPTXT PARM(&savfname)

[ 本帖最后由 胖有型 于 2006-8-7 11:39 编辑 ]

论坛徽章:
0
2 [报告]
发表于 2006-08-07 11:45 |只看该作者
恩,谢谢!等会我实验一下!有什么问题再向你请教,谢谢!

论坛徽章:
0
3 [报告]
发表于 2006-08-07 11:55 |只看该作者
谢谢lz分享

论坛徽章:
0
4 [报告]
发表于 2006-08-07 12:21 |只看该作者
………………
问题严重了,请问怎么在400上创建C程序啊?

论坛徽章:
0
5 [报告]
发表于 2006-08-07 12:23 |只看该作者
--

[ 本帖最后由 胖有型 于 2007-7-2 12:35 编辑 ]

论坛徽章:
0
6 [报告]
发表于 2006-08-07 12:24 |只看该作者
--

[ 本帖最后由 胖有型 于 2007-7-2 12:35 编辑 ]

论坛徽章:
0
7 [报告]
发表于 2006-08-07 13:24 |只看该作者
原帖由 胖有型 于 2006-8-7 12:24 发表
然后和RPGLE一样编译,没有特别的


RPGLE怎么编译啊?我只在400上写过CL程序,别的程序还不太了解,能不能说的详细写?谢谢!

论坛徽章:
0
8 [报告]
发表于 2006-08-07 18:36 |只看该作者
原帖由 jance 于 2006-8-7 13:24 发表


RPGLE怎么编译啊?我只在400上写过CL程序,别的程序还不太了解,能不能说的详细写?谢谢!



在400编译C程和编译RPG程序的过程是一样的,要不可以到
http://publib.boulder.ibm.com/infocenter/iseries/v5r3/index.jsp

下载有关编写和编译C和RPG程序的rebook看看!


前提是你的系统要有C编译器!

论坛徽章:
0
9 [报告]
发表于 2006-08-07 21:14 |只看该作者
我想起了以前我的一个处理的例子,
**FTP001F*********************************************************************
ftp ftp
lcd BPCS612F
put     BPCS612F/LOGIIMFT.LOGIIMFT      ME/LOGIIM20020118.TXT
put     BPCS612F/LOGIIMxFT.LOGIIMXFT    ME/LOGIIMX20020118.TXT
put     BPCS612F/LOGFRTFT.LOGFRTFT      ME/LOGFRT20020118.TXT
put     BPCS612F/LOGFMAFT.LOGFMAFT      ME/LOGFMA20020118.TXT
put     BPCS612F/LOGMBMFT.LOGMBMFT      ME/LOGMBM20020118.TXT
close
quit
**FTP001 *********************************************************************
如上  ME/LOGFMA20020118.TXT
这个以日期为结尾的文件名就是在RPG中写进这个TXT类型中的。

论坛徽章:
0
10 [报告]
发表于 2006-08-07 21:15 |只看该作者
ME/LOGIIM20020118.TXT
以上表示在PC文件夹下面的名称为ME的目录下将文件放成 LOGIIM20020118.TXT
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP