12 / 2 页下一页

论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2006-07-24 11:24 |只看该作者 |倒序浏览

请教一下:
COBOL中的一个简单的语句的作用:
FILE SECTION.
FD ABC LABEL RECORD IS STANDARD.
01 A PIC X(80)

文库|博客

smileflyer

白手起家

论坛徽章:: 0

2楼 [报告]

发表于 2007-04-05 14:32 |只看该作者

不知道你有没有cobol的资料，如果没有我可以给你发几本。

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

pantierui

小富即安

论坛徽章:: 0

3楼 [报告]

发表于 2007-04-05 14:43 |只看该作者

我正在学COBOL，能给我发一份吗！
谢谢！
dlptr2008@yahoo.com.cn

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

kelvenlee

白手起家

论坛徽章:: 0

4楼 [报告]

发表于 2007-04-05 22:08 |只看该作者

FILE SECTION. ------文件句
FD ABC LABEL RECORD IS STANDARD. ---- 读磁盘上的文件一定要有这句的,不要问为什么
01 A PIC X(80) ----- 定义A变量为80个字符

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

kelvenlee

白手起家

论坛徽章:: 0

5楼 [报告]

发表于 2007-04-05 22:10 |只看该作者

原帖由 pantierui 于 2007-4-5 14:43 发表
我正在学COBOL，能给我发一份吗！
谢谢！
dlptr2008@yahoo.com.cn

轻舟老大有很多, 发短讯给他就是了

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

jxylh111018

白手起家

论坛徽章:: 0

6楼 [报告]

发表于 2007-04-06 08:23 |只看该作者

FILE SECTION.
FD ABC LABEL RECORD IS STANDARD.
01 A PIC X(80)
定义之前  应该有数据库的定义
FILE-CONTROL.
select  {PGM-FILE NAME}
         ASSIGN    TO DATABASE-{PF NAME  OR LF NAME}
      ORGANIZATION IS  INDEXED
      ACCESS MODE    IS  RANDOM
      RECORD KEY    IS  EXTERNALLY-DESCRIBED-KEY.



DATA                         DIVSION.
FILE                         SECTION.
FD  {PGM-FILE NAME}    LABEL RECORDS ARE STANDARD.
01  {PMG-RECORD NAME}
COPY DDSR-ALL-FORMAT    OF {PF  OR LF }