免费注册 查看新帖 |

Chinaunix

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

新手求助!!! [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2009-06-08 10:54 |只看该作者 |倒序浏览
PF001
**************
A          R CSREC  
A            CS09          13A  
A          K CS09      
**************
PF002
**************
A          R ERREC     
A            ERJAN         13A  
**************
RPG程序
**************
H            Y                     1
FFILE01  IP  F    2000            DISK
FPF001   IF  E           K        DISK
FPF002   O   E                    DISK
IFILE01  AA  09
I                                       28  40 JAN
C           JAN       IFNE *BLANK
C           JAN       CHAINCSREC                99
C           *IN99     IFEQ '1'
C                     MOVELJAN       ERJAN
C                     WRITEERREC
C                     END
C                     END
**************
1:代码如上,编译能过,但是不能进行单调,哪位高手能给解释一下这些代码?
2:“FILE01”在程序中起到什么作用?具体是如何操作的?

论坛徽章:
0
2 [报告]
发表于 2009-06-09 08:55 |只看该作者
哪位高手能帮忙解决一下阿?

论坛徽章:
0
3 [报告]
发表于 2009-06-09 13:31 |只看该作者
用STRISDB

论坛徽章:
0
4 [报告]
发表于 2009-06-09 14:11 |只看该作者
Error message CPF4101 appeared during OPEN (C S D F).
出这个错误信息,

论坛徽章:
0
5 [报告]
发表于 2009-06-11 14:39 |只看该作者
FFILE01  IP  F    2000            DISK
FILE01  是内部文件怎么应用阿?从来没用过,哪位对这个熟悉的能不能给讲解一下阿?

论坛徽章:
0
6 [报告]
发表于 2009-06-12 09:28 |只看该作者

FFILE01 IP F 2000 DISK

P代表是主文件,F代表的是程序描述文件。
FFILE01  IP  F    2000            DISK
应该在I 行进行对FILE01的字段描述。

论坛徽章:
0
7 [报告]
发表于 2009-06-12 10:43 |只看该作者
IFILE01  AA  09
I                                       28  40 JAN
在I行有这些,但是不知道在程序里这个内部文件是怎么应用的。

论坛徽章:
0
8 [报告]
发表于 2009-06-12 10:44 |只看该作者
用STRISDB 单调的时候进不到程序里

论坛徽章:
0
9 [报告]
发表于 2009-06-15 13:34 |只看该作者
有没有对程序描述文件比较熟悉的人阿?

论坛徽章:
0
10 [报告]
发表于 2009-06-15 13:49 |只看该作者
原帖由 chen405 于 2009-6-12 10:44 发表
用STRISDB 单调的时候进不到程序里



STRISDB UPDPROD(*YES)

对于你程序里面定义P主文件。

那么你的程序代码一般就会用到  L级别控制指示器。

不理解的可以看看书。
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP