Adressera data från submoduler

I detta forum kan frågor och tips ställas och ges.
Skriv svar [phpBB Debug] PHP Warning: in file [ROOT]/vendor/twig/twig/lib/Twig/Extension/Core.php on line 1275: count(): Parameter must be an array or an object that implements Countable
trumman
Newbie
Inlägg:3
Blev medlem:mån 12 jan 2004, 13:25
[phpBB Debug] PHP Warning: in file [ROOT]/vendor/twig/twig/lib/Twig/Extension/Core.php on line 1275: count(): Parameter must be an array or an object that implements Countable

Inlägg av trumman » ons 14 jan 2004, 12:39

Numera kan man i en modul få tillgång till en annan moduls data.

Antag att en submodul innehåller alla godkända bilmodeller.
Jag kan i min huvudmodul adressera dessa med hjälp av submodulens
SET ADDRESS-instruktion.

Huvudmodulen
LINKAGE SECTION.
01 L-BILMODELLER.
05 ......
PROCEDURE DIVISION.
CALL 'SUBMODUL' USING L-BILMODELLER
*-- nu kan man arbeta med L-BILMODELLER som tex kan vara en tabell med OCCURS

I submodulen

WORKING-STORAGE SECTION.
01 K-BILMODELLER.
05 FILLER PIC X(10) VALUE 'SUBARU'.
05 FILLER PIC X(10) VALUE 'VOLVO'.
05 .....

LINKAGE SECTION.
01 L-BILMODELLER.
05 ......

PROCEDURE DIVISION USING L-BILMODELLER.
SET ADDRESS OF L-BILMODELLER TO ADDRESS OF K-BILMODELLER
GOBACK.

Användarvisningsbild
Manor
Administrator
Inlägg:102
Blev medlem:lör 10 jan 2004, 15:14
Ort:Åkersberga
Kontakt:

Inlägg av Manor » ons 14 jan 2004, 16:01

Tack Trumman för ett kalastips :) .

Vilken Cobolversion (kompilator) krävs för att detta ska fungera (har du koll på det):unsure: ?

mvh Mats N

Monitor
Newbie
Inlägg:9
Blev medlem:tis 13 jan 2004, 16:26
[phpBB Debug] PHP Warning: in file [ROOT]/vendor/twig/twig/lib/Twig/Extension/Core.php on line 1275: count(): Parameter must be an array or an object that implements Countable

Inlägg av Monitor » mån 26 jan 2004, 14:57

QUOTE (Manor @ 2004-01-14 - 16:01:06)Tack Trumman för ett kalastips  :) .

Vilken Cobolversion (kompilator) krävs för att detta ska fungera (har du koll på det):unsure: ?

mvh Mats N
[/quote]

Pekare (Usage is Pointer) och Set | Address m.m (pekaradressering) kom med Cobol -85 standarden.

Användarvisningsbild
Manor
Administrator
Inlägg:102
Blev medlem:lör 10 jan 2004, 15:14
Ort:Åkersberga
Kontakt:

Inlägg av Manor » mån 26 jan 2004, 15:57

Hej "Monitor" !

Tackar för svaret. Detta lär väl innebära att de flesta företag/installationer kan dra nytta av tipset. Det finns väl inga kvar som endast kör VS/Cobol, då denna version inte längre är supportad av IBM.

mvh Mats N

Skriv svar
[phpBB Debug] PHP Warning: in file [ROOT]/vendor/twig/twig/lib/Twig/Extension/Core.php on line 1275: count(): Parameter must be an array or an object that implements Countable
[phpBB Debug] PHP Warning: in file [ROOT]/vendor/twig/twig/lib/Twig/Extension/Core.php on line 1275: count(): Parameter must be an array or an object that implements Countable