三吏三别原文:COBOL -SAMPLE - TABLE -FIX LENGTH & SEARCH
来源:百度文库 编辑:中财网 时间:2024/04/28 10:44:37
WORKING-STORAGE SECTION.
01 WS-VARS.
05 WS-ARRAY PIC X(10) OCCURS 3 TIMES INDEXED BY WS-INDEX.
PROCEDURE DIVISION.
00000-MAIN.
MOVE 'AAAAAAAAAA' TO WS-ARRAY(1)
MOVE 'BBBBBBBBBB' TO WS-ARRAY(2)
MOVE 'CCCCCCCCCC' TO WS-ARRAY(3)
PERFORM VARYING WS-INDEX FROM 1 BY 1 UNTIL WS-INDEX > 3
DISPLAY WS-ARRAY(WS-INDEX)
END-PERFORM
SET WS-INDEX TO 1
SEARCH WS-ARRAY VARYING WS-INDEX
AT END DISPLAY 'END OF ARRAY'
WHEN WS-ARRAY(WS-INDEX) = 'AAAAAAAAAA'
DISPLAY 'RECORD FOUND'
END-SEARCH
STOP RUN.
01 WS-VARS.
05 WS-ARRAY PIC X(10) OCCURS 3 TIMES INDEXED BY WS-INDEX.
PROCEDURE DIVISION.
00000-MAIN.
MOVE 'AAAAAAAAAA' TO WS-ARRAY(1)
MOVE 'BBBBBBBBBB' TO WS-ARRAY(2)
MOVE 'CCCCCCCCCC' TO WS-ARRAY(3)
PERFORM VARYING WS-INDEX FROM 1 BY 1 UNTIL WS-INDEX > 3
DISPLAY WS-ARRAY(WS-INDEX)
END-PERFORM
SET WS-INDEX TO 1
SEARCH WS-ARRAY VARYING WS-INDEX
AT END DISPLAY 'END OF ARRAY'
WHEN WS-ARRAY(WS-INDEX) = 'AAAAAAAAAA'
DISPLAY 'RECORD FOUND'
END-SEARCH
STOP RUN.
cobol教程
cobol编译器
翻译:sAMPLE
negotiation sample
sample是什么意思
cobol 1~100 합
COBOL将来有用吗
求一份COBOL文档......
COBOL教程 下载地址
COBOL高手请进!!!!
求助COBOL编译器
cobol中小数显示
求COBOL谭浩强版教材
cobol调用子程序
什么叫Sample Text
结束程序sample
Create Sample Failed
definition of sample
pre-production sample
sample playlists是什么意思
free sample翻译
翻译sample only
Sample lnstall是什么软件
Sample Compliance什么意思?