Data update
This commit is contained in:
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,15 +0,0 @@
|
|||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. Concat.
|
||||
|
||||
DATA DIVISION.
|
||||
WORKING-STORAGE SECTION.
|
||||
01 Str PIC X(7) VALUE "Hello, ".
|
||||
01 Str2 PIC X(15).
|
||||
|
||||
PROCEDURE DIVISION.
|
||||
DISPLAY "Str : " Str
|
||||
STRING Str " World!" DELIMITED BY SIZE INTO Str2
|
||||
DISPLAY "Str2 : " Str2
|
||||
|
||||
GOBACK
|
||||
.
|
||||
|
|
@ -1,8 +0,0 @@
|
|||
...
|
||||
PROCEDURE DIVISION.
|
||||
DISPLAY "Str : " Str
|
||||
MOVE FUNCTION CONCATENATE(Str, " World!") TO Str2
|
||||
DISPLAY "Str2 : " Str2
|
||||
|
||||
GOBACK
|
||||
.
|
||||
|
|
@ -1,11 +0,0 @@
|
|||
* *> Using a '&'.
|
||||
01 Long-Str-Val PIC X(200) VALUE "Lorem ipsum dolor sit "
|
||||
& "amet, consectetuer adipiscing elit, sed diam nonummy "
|
||||
& "nibh euismod tincidunt ut laoreet dolore magna aliquam "
|
||||
& "erat volutpat.".
|
||||
|
||||
* *> Using a '-' in column 7. Note the first two literals have no
|
||||
* *> closing quotes.
|
||||
01 Another-Long-Str PIC X(200) VALUE " Ut wisi enim ad minim
|
||||
- "veniam, quis nostrud exerci tation ullamcorper suscipit
|
||||
- "lobortis nisl ut aliquip ex ea commodo consequat".
|
||||
Loading…
Add table
Add a link
Reference in a new issue