Data update
This commit is contained in:
parent
4bb20c9b71
commit
cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
17
Task/Substring-Top-and-tail/COBOL/substring-top-and-tail.cob
Normal file
17
Task/Substring-Top-and-tail/COBOL/substring-top-and-tail.cob
Normal file
|
|
@ -0,0 +1,17 @@
|
|||
identification division.
|
||||
program-id. toptail.
|
||||
|
||||
data division.
|
||||
working-storage section.
|
||||
01 data-field.
|
||||
05 value "[this is a test]".
|
||||
|
||||
procedure division.
|
||||
sample-main.
|
||||
display data-field
|
||||
*> Using reference modification, which is (start-position:length)
|
||||
display data-field(2:)
|
||||
display data-field(1:length of data-field - 1)
|
||||
display data-field(2:length of data-field - 2)
|
||||
goback.
|
||||
end program toptail.
|
||||
Loading…
Add table
Add a link
Reference in a new issue