Address of a variable: Difference between revisions
Content deleted Content added
Deadmarshal (talk | contribs) m →{{header|Oberon-2}}: Added syntax highlighting |
imported>Acediast →{{header|COBOL}}: syntax highlighting doesn't support freeform 🗿 |
||
| Line 526: | Line 526: | ||
===Get Address=== |
===Get Address=== |
||
<syntaxhighlight lang="cobol"> |
<syntaxhighlight lang="cobol"> DATA DIVISION. |
||
WORKING-STORAGE SECTION. |
|||
working-storage section. |
|||
01 ptr |
01 ptr USAGE POINTER. |
||
01 var |
01 var PIC X(64). |
||
PROCEDURE DIVISION. |
|||
procedure division. |
|||
SET ptr TO ADDRESS OF var.</syntaxhighlight> |
|||
===Set Address=== |
===Set Address=== |
||
| Line 538: | Line 538: | ||
<syntaxhighlight lang="cobol"> |
<syntaxhighlight lang="cobol"> |
||
OCOBOL*> Rosetta Code set address example |
OCOBOL*> Rosetta Code set address example |
||
*> tectonics: cobc -x setaddr.cob && ./setaddr |
*> tectonics: cobc -x setaddr.cob && ./setaddr |
||
IDENTIFICATION DIVISION. |
|||
PROGRAM-ID. setaddr. |
|||
DATA DIVISION. |
|||
| ⚫ | |||
WORKING-STORAGE SECTION. |
|||
01 var pic x(8) based. |
|||
| ⚫ | |||
procedure division. |
|||
01 var PIC X(8) BASED. |
|||
PROCEDURE DIVISION. |
|||
SET ADDRESS OF var TO ADDRESS OF prealloc |
|||
end program setaddr.</syntaxhighlight> |
|||
DISPLAY var END-DISPLAY |
|||
*> 'somedata' |
|||
GOBACK. |
|||
END PROGRAM setaddr. |
|||
</syntaxhighlight> |
|||
=={{header|Commodore BASIC}}== |
=={{header|Commodore BASIC}}== |
||