aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Pointers-and-references/COBOL/pointers-and-references-1.cobol Normal file
View file

@ -0,0 +1,2 @@
01 ptr USAGE POINTER TO Some-Type.
01 prog-ptr USAGE PROGRAM-POINTER "some-program". *> TO is optional

3
Task/Pointers-and-references/COBOL/pointers-and-references-2.cobol Normal file
View file

@ -0,0 +1,3 @@
ALLOCATE heap-item RETURNING ptr
...
FREE ptr

1
Task/Pointers-and-references/COBOL/pointers-and-references-3.cobol Normal file
View file

@ -0,0 +1 @@
SET prog-ptr TO ENTRY "some-program"

2
Task/Pointers-and-references/COBOL/pointers-and-references-4.cobol Normal file
View file

@ -0,0 +1,2 @@
SET ptr1 UP BY 10
SET ptr2 DOWN BY LENGTH OF foo

2
Task/Pointers-and-references/COBOL/pointers-and-references-5.cobol Normal file
View file

@ -0,0 +1,2 @@
SET ptr1 TO ptr2 *> ptr1 points to where ptr2 points
SET ptr2 TO ADDRESS OF ptr3 *> ptr2 points to ptr3

2
Task/Pointers-and-references/COBOL/pointers-and-references-6.cobol Normal file
View file

@ -0,0 +1,2 @@
SET ADDRESS OF foo TO ptr
MOVE "bar" TO foo

1
Task/Pointers-and-references/COBOL/pointers-and-references-7.cobol Normal file
View file

@ -0,0 +1 @@
01 obj USAGE OBJECT-REFERENCE "some-object".

2
Task/Pointers-and-references/COBOL/pointers-and-references-8.cobol Normal file
View file

@ -0,0 +1,2 @@
INVOKE SomeClass "new" RETURNING obj-ref
SET another-obj-ref TO obj-ref