铜陵市十五中吧:COBOL-SAMPLE-GROUP TABLE
来源:百度文库 编辑:中财网 时间:2024/05/04 16:57:06
01 WS-VARS.
03 WS-ARRAY OCCURS 3 TIMES INDEXED BY WS-INDEX.
05 WS-EMP-NO PIC 9(5).
05 WS-EMP-NAME PIC X(20).
PROCEDURE DIVISION.
00000-MAIN.
MOVE 11111 TO WS-EMP-NO(1)
MOVE 22222 TO WS-EMP-NO(2)
MOVE 33333 TO WS-EMP-NO(3)
MOVE 'NAME1' TO WS-EMP-NAME(1)
MOVE 'NAME2' TO WS-EMP-NAME(2)
MOVE 'NAME3' TO WS-EMP-NAME(3)
PERFORM VARYING WS-INDEX FROM 1 BY 1 UNTIL
WS-INDEX > 3
DISPLAY WS-EMP-NO(WS-INDEX)
DISPLAY WS-EMP-NAME(WS-INDEX)
END-PERFORM
SET WS-INDEX TO 1
SEARCH WS-ARRAY VARYING WS-INDEX
AT END DISPLAY 'END OF ARRAY'
WHEN WS-EMP-NO(WS-INDEX) = 11111
DISPLAY 'RECORD FOUND'
END-SEARCH
STOP RUN.
03 WS-ARRAY OCCURS 3 TIMES INDEXED BY WS-INDEX.
05 WS-EMP-NO PIC 9(5).
05 WS-EMP-NAME PIC X(20).
PROCEDURE DIVISION.
00000-MAIN.
MOVE 11111 TO WS-EMP-NO(1)
MOVE 22222 TO WS-EMP-NO(2)
MOVE 33333 TO WS-EMP-NO(3)
MOVE 'NAME1' TO WS-EMP-NAME(1)
MOVE 'NAME2' TO WS-EMP-NAME(2)
MOVE 'NAME3' TO WS-EMP-NAME(3)
PERFORM VARYING WS-INDEX FROM 1 BY 1 UNTIL
WS-INDEX > 3
DISPLAY WS-EMP-NO(WS-INDEX)
DISPLAY WS-EMP-NAME(WS-INDEX)
END-PERFORM
SET WS-INDEX TO 1
SEARCH WS-ARRAY VARYING WS-INDEX
AT END DISPLAY 'END OF ARRAY'
WHEN WS-EMP-NO(WS-INDEX) = 11111
DISPLAY 'RECORD FOUND'
END-SEARCH
STOP RUN.
cobol教程
cobol编译器
Shall I with this what the group isn't what they do?什么意思
翻译:sAMPLE
negotiation sample
sample是什么意思
cobol 1~100 합
COBOL将来有用吗
求一份COBOL文档......
COBOL教程 下载地址
COBOL高手请进!!!!
求助COBOL编译器
cobol中小数显示
求COBOL谭浩强版教材
cobol调用子程序
group是什么意思?
group policy
group policy
翻译group
Safilo Group
group是什么意思?
group是什么?
什么叫Sample Text
结束程序sample