ok this is the complete list of reserver word that can uses thas feature
IF variable = variable 2
do stuff
ELSE
do other stuff
END-IF
same for
EVALUATE variable
when 10
do stuff
when 1000
do stuff
END-EVALUATE
ADD variable to variable2 end-add
call "program" using variable returning variable2 END-CALL
COMPUTE variable = 2 + 2 END-COMPUTE
DELETE file
ON INVALID KEY
what to do
NOT ON INVALID KEY
what to do
END-DELETE
DIVIDE variable into variable2 GIVING variable3 END-DIVIDE
INVOKE "ssssss" using variable returning variable2 END-INVOKE
MULTIPLY variable by variable2 end-multiply
READ file
at end
what to do
not at end
what to do
END-READ
SEARCH variable
at end
do stuff
when variable(indice-index) = "hi!!"
do stuff
END-search
WRITE file from variable
END-WRITE
REWRITE file from variable
END-REWRITE
start file key not less variable
END-START
STRING "HI" delimited by sice
"I AM GABRIEL" delimited by sice
END-STRING
ACCEPT variable from promt
END-ACCEPT
SUBTRACT variable from variable2 END-SUBTRACT
UNSTRING variable delimited by "-"
into variable2
into variable3
end-UNSTRING
EXEC CICS
do STUFF
END-EXEC
EXEC SQL
SELECT column1
INTO variable1
from table
where a= 3
END-EXEC
perform is like FOR or WHILE
PERFORM varying i from 1 by 1
until i > 100
do stuff
END-PERFORM
PERFORM
until variable = "end"
do stuff
END-PERFORM
THIS IS ALL
I use this link to find all sintax example
RESERVER WORD
https://www.ibm.com/docs/zh-tw/iis/9.1?topic=words-cobol-reserved
SINTAXIS RESERVER WORDS
https://www.ibm.com/docs/en/cobol-zos/4.2?topic=statements-accept-statement
if you need something more tell me!! :-D
--
<https://forum.pspad.com/read.php?6,76984,77011>
PSPad freeware editor https://www.pspad.com
