免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1962 | 回复: 9

jance进来看 [复制链接]

论坛徽章:
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
发表于 2006-08-07 11:45 |显示全部楼层
恩,谢谢!等会我实验一下!有什么问题再向你请教,谢谢!

论坛徽章:
0
发表于 2006-08-07 11:55 |显示全部楼层
谢谢lz分享

论坛徽章:
0
发表于 2006-08-07 12:21 |显示全部楼层
………………
问题严重了,请问怎么在400上创建C程序啊?

论坛徽章:
0
发表于 2006-08-07 12:23 |显示全部楼层
--

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

论坛徽章:
0
发表于 2006-08-07 12:24 |显示全部楼层
--

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

论坛徽章:
0
发表于 2006-08-07 13:24 |显示全部楼层
原帖由 胖有型 于 2006-8-7 12:24 发表
然后和RPGLE一样编译,没有特别的


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

论坛徽章:
0
发表于 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
发表于 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
发表于 2006-08-07 21:15 |显示全部楼层
ME/LOGIIM20020118.TXT
以上表示在PC文件夹下面的名称为ME的目录下将文件放成 LOGIIM20020118.TXT
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

SACC2019中国系统架构师大会

【数字转型 架构演进】SACC2019中国系统架构师大会
2019年10月31日~11月2日第11届中国系统架构师大会(SACC2019)将在北京隆重召开。四大主线并行的演讲模式,1个主会场、20个技术专场、超千人参与的会议规模,100+来自互联网、金融、制造业、电商等领域的嘉宾阵容,将为广大参会者提供一场最具价值的技术交流盛会。




----------------------------------------

大会官网>>
  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP