当前位置:首页 > 问答

000150

我来帮TA回答

COBOL文件的写入

000010 IDENTIFICATION DIVISION.
000060 PROGRAM-ID. AKITA.
000070*
000080 ENVIRONMENT DIVISION.
000090 INPUT-OUTPUT SECTION.
000100 FILE-CONTROL.
000110 SELECT WINFILE1 ASSIGN TO FILE01-MSD
000120 ORGANIZATION IS SEQUENTIAL
000130 FILE STATUS WFSTS1.
000140 SELECT AVXFILE1 ASSIGN TO FILE02-FDU
000150 ORGANIZATION IS SEQUENTIAL
000160 FILE STATUS AFSTS1.
000170 I-O-CONTROL.
000180 APPLY EXCLUSIVE-MODE ON WINFILE1.
000190*
000200 DATA DIVISION.
000210 FILE SECTION.
000220 FD WINFILE1
000230 BLOCK CONTAINS 256 CHARACTERS
000240 LABEL RECORD IS STANDARD
000250 VALUE OF IDENTIFICATION IS "WINFILE01".
000260 01 WINREC.
000270 02 A1 PIC X(80).
000280 02 A2 PIC X(176).
000290 FD AVXFILE1
000300 BLOCK CONTAINS 240 CHARACTERS
000310 RECORD CONTAINS 80 CHARACTERS
000320 LABEL RECORD IS STANDARD
000330 VALUE OF IDENTIFICATION IS "SWPATCH".
000340 01 AVXREC PIC X(80).
000350*
000360 WORKING-STORAGE SECTION.
000370 01 WFSTS1 PIC X(02).
000380 01 AFSTS1 PIC X(02).
000390*
000400 01 EFLAG PIC X(03).
000410*
000420 PROCEDURE DIVISION.
000470 MPROG.
000480 OPEN OUTPUT WINFILE1
000490 INPUT AVXFILE1.
000500 MOVE "LOP" TO EFLAG.
000510 PERFORM UNTIL EFLAG = "END"
000520 READ AVXFILE1
000530 AT END
000540 MOVE "END" TO EFLAG
000550 NOT AT END
000560 MOVE AVXREC TO A1
000570 WRITE WINREC
000580 END-READ
000590 END-PERFORM.
000600 CLOSE WINFILE1
000610 AVXFILE1.
000620 STOP RUN.

000150股票2o15最高价?

2015年最高价时间为4月4日的54.34元。

谁知道澄海的历史啊?

远古时代,澄海大部分地方还处于大海之中,是一个“海气昏昏水拍天”的海湾,后来才逐渐冲积浮聚成陆。现澄海地域在夏、商、周时属百越之地,秦汉时属南海郡揭阳县地,晋时属东官郡海阳县。隋、唐时属潮州辖下的义安县(海阳县),宋元丰五年(1082年)澄地分属海阳、揭阳两县。明成化十三年(1477年)后,现澄地分属于潮州府辖下的海阳、揭阳和饶平3县。
明嘉靖四十二年(1563年),划海阳县的上外莆、中外莆、下外莆等三都,揭阳县的蓬州、鮀江、鳄浦等三都,饶平县的苏湾都,共7个都置澄海县。县名取“澄靖海氛”之意,隶属潮州府。治所设于下外莆都之辟望村(今澄海市区)。
清康熙三年(1664年),因施行靖边海禁政策,撤销澄海县建制,全县人民全部内迁。至康熙八年,恢复澄海县建制,仍属潮洲府管辖。
1949年10月24日澄海解放,成立澄海县人民政府。
1959年1月24日,经国务院批准,撤销澄海县建制,县地并入汕头市郊。同年11月3日,经国务院批准,又恢复澄海县建制。
1994年4月18日,经国务院批准,撤销澄海县,设立澄海市(县级),由汕头市代管。
2003年4月,经国务院批准,汕头行政区划调整,澄海撤市设区,成为汕头市辖区。
澄海区共分为8个镇和市区三个街道,辖180个居委会(村委会)。另有莱芫经济开发区管委会,系区人民政府派出机构。

大智慧短线精灵老是提示:我买的股票000150“有大卖盘”预示后市如何走向?

如果提示正确说明此股会下跌,从技术走势上看后市看涨

宜华健康医疗产业有限公司怎么样?

宜华健康医疗产业有限公司是2017-07-04在广东省注册成立的有限责任公司(自然人投资或控股的法人独资),注册地址位于深圳市福田区香蜜湖街道竹子林建安大厦28层28-A。

宜华健康医疗产业有限公司的统一社会信用代码/注册号是91440300MA5ELQKA3C,企业法人陈奕民,目前企业处于开业状态。

宜华健康医疗产业有限公司的经营范围是:医疗信息系统、网络信息技术的开发、技术转让、技术咨询、技术服务;健康医疗项目投资,医院投资,为医院提供后勤管理服务,健康养生管理咨询,企业管理咨询服务。(法律、行政法规、国务院决定禁止的项目除外,限制的项目须取得许可后方可经营)^。本省范围内,当前企业的注册资本属于一般。

通过百度企业信用查看宜华健康医疗产业有限公司更多信息和资讯。

宜华健康股票停牌原因分析

宜华健康(000150)4月14日晚间公告,公司拟筹划重大事项,由于相关事项尚存在不确定性,公司股票于2015年4月15日开市起停牌,待相关事项确定后,公司将尽快刊登相关公告并申请公司股票复牌。