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层用于定义条件名
{var%20f='http://v.t.sina.com.cn/share/share.php?appkey=1515056452',u=z||d.location,p=['&url=',e(u),'&title=',e(t||d.title),'&source=',e(r),'&sourceUrl=',e(l),'&content=',c||'gb2312','&pic=',e(p||'')].join('');function%20a(){if(!window.open([f,p].join(''),'mb',['toolbar=0,status=0,resizable=1,width=440,height=430,left=',(s.width-440)/2,',top=',(s.height-430)/2].join('')))u.href=[f,p].join('');};if(/Firefox/.test(navigator.userAgent))setTimeout(a,0);else%20a();})(screen,document,encodeURIComponent,'','','https://www.xiaopingtou.cn//data/attach/topic/topicKPo7gB.jpg', '推荐 leiming0122 的文章《COBOL层次的概念》','https://www.xiaopingtou.cn/article-60422.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}