Data update
This commit is contained in:
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,30 +0,0 @@
|
|||
identification division.
|
||||
program-id. tokenize.
|
||||
|
||||
environment division.
|
||||
configuration section.
|
||||
repository.
|
||||
function all intrinsic.
|
||||
|
||||
data division.
|
||||
working-storage section.
|
||||
01 period constant as ".".
|
||||
01 cmma constant as ",".
|
||||
|
||||
01 start-with.
|
||||
05 value "Hello,How,Are,You,Today".
|
||||
|
||||
01 items.
|
||||
05 item pic x(6) occurs 5 times.
|
||||
|
||||
procedure division.
|
||||
tokenize-main.
|
||||
unstring start-with delimited by cmma
|
||||
into item(1) item(2) item(3) item(4) item(5)
|
||||
|
||||
display trim(item(1)) period trim(item(2)) period
|
||||
trim(item(3)) period trim(item(4)) period
|
||||
trim(item(5))
|
||||
|
||||
goback.
|
||||
end program tokenize.
|
||||
Loading…
Add table
Add a link
Reference in a new issue