COBOL层次的概念

01  WORK-STORAGE.

           05  WS-SYS-DATE             PIC 9(6).

           05  FILLER                  REDEFINES WS-SYS-DATE.

10  WS-SYS-YY           PIC 9(2).

10  WS-SYS-MM           PIC 9(2).

               10  WS-SYS-DD           PIC 9(2).

           05  WS-SYS-TIME             PIC X(6).

           05  FILLER                  REDEFINES WS-SYS-TIME.

               10  WS-SYS-HH           PIC 9(2).

               10  WS-SYS-MN           PIC 9(2).

 

结构:记录à组合项à初等项

层次规定如下:从01开始,到49, 外层的层号小,里层的层号大。

66层用于重命名

77层一般用于定义无层次的变量

88层用于定义条件名

 

你可能感兴趣的