MOVE ALL
operand1
TO
operand2
[UNTIL operand3]
|
Dieses Dokument behandelt folgende Themen:
Verwandte Statements: ADD
| COMPRESS
|
COMPUTE
|
DIVIDE
|
EXAMINE
|
MOVE
|
MULTIPLY
|
RESET
|
SEPARATE
|
SUBTRACT
Gehört zur Funktionsgruppe: Arithmetische Funktionen und Datenzuweisungen
Das Statement MOVE ALL
dient dazu, den Wert von
operand1 so oft nach
operand2 zu übertragen, bis
operand2 voll ist.
Bei Verwendung der UNTIL
-Option kann in
operand3 angegeben werden, wieviele Stellen in
operand2 gefüllt werden sollen.
Operanden-Definitionstabelle:
Operand | Mögliche Struktur | Mögliche Formate | Referenzierung erlaubt | Dynam. Definition | ||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
operand1 | C | S | A | U | N | B | ja | nein | ||||||||||||
operand2 | S | A | A | U | B | ja | ja | |||||||||||||
operand3 | C | S | N | P | I | ja | nein |
Syntax-Element-Beschreibung:
operand1 |
Ausgangsoperand:
Dieser Operand enthält den zu übertragenden Wert. Bei einem numerischen Operanden werden alle Stellen einschließlich vorangestellter Nullen übertragen. |
---|---|
TO operand2 |
Zieloperand:
In diesen Operanden wird der Wert übertragen. Der vorherige Inhalt
des Operanden wird vor der |
UNTIL operand3 |
UNTIL-Option:
Mit der Übersteigt die Länge von operand3 die
Länge von operand2, wird die Die Option |
** Example 'MOAEX1': MOVE ALL ************************************************************************ DEFINE DATA LOCAL 1 EMPLOY-VIEW VIEW OF EMPLOYEES 2 PERSONNEL-ID 2 FIRST-NAME 2 NAME 2 CITY 1 VEH-VIEW VIEW OF VEHICLES 2 PERSONNEL-ID 2 MAKE END-DEFINE * LIMIT 4 RD. READ EMPLOY-VIEW BY NAME SUSPEND IDENTICAL SUPPRESS /* FD. FIND VEH-VIEW WITH PERSONNEL-ID = PERSONNEL-ID (RD.) IF NO RECORDS FOUND MOVE ALL '*' TO FIRST-NAME (RD.) MOVE ALL '*' TO CITY (RD.) MOVE ALL '*' TO MAKE (FD.) END-NOREC /* DISPLAY NOTITLE (ES=OFF IS=ON ZP=ON AL=15) NAME (RD.) FIRST-NAME (RD.) CITY (RD.) MAKE (FD.) (IS=OFF) /* END-FIND END-READ END
Ausgabe des Programms MOAEX1
:
NAME FIRST-NAME CITY MAKE --------------- --------------- --------------- --------------- ABELLAN *************** *************** *************** ACHIESON ROBERT DERBY FORD ADAM *************** *************** *************** ADKINSON JEFF BROOKLYN GENERAL MOTORS