בהתבצע
ההוראה .MOVETAXATOTAXB,
יוצב 123 ב-TAXB,
שהוא הערך המאוחסן ב-TAXA.
ההצבה תתבצע, רק אם ל-TAXA
ול-TAXB
יש PICTURE
זהה, במקרה זה 999.
התוכן
המקורי של TAXB,
שהוא 456, אובד תוך ביצוע ההצבה. בכלל, כאשר
מציבים את ערכו של שד השולח בשדה המקבל,
מושמד הערך, אשר היה בשדה המקבל.
בהתבצע
פקודת ההצבה MOVEFIELDATO FIELDB.יכיל FILEDB
האותיות ABCD,
וגם ב-FIELDA יישארו אותיות אלה.
פרק 7 -
הוראת MOVE.
א. הסבר בסיסי.
המבבה
הבסיסי להוראת MOVE
הוא:
שדה
מקבל
שדה שולח
פועל
FIELDB
TO
FIELDA
MOVE
המלה
MOVE
בהוראת שפת קובול שלעיל נקראת הפועל (verb).
כל הוראה, המופיעה בחטיבת הביצוע, כמו כל
משפט באנגלית, חייבת להכיל פועל. המשתנה FIELDA
נקרא השדה השולח. תוכנו של שדה זה יועתק
לשדה אחר (FIELDB)
כתוצאה מביצוע הוראת MOVE.
המשתנה FIELDB
נקרא השדה המקבל. תוכנו של FIELDB יוחלף, כתוצאה מביצוע הוראת MOVE,
בתוכנו של שדה אחר (FILEDA).
לפיכך, תוצאת הביצוע של הוראת MOVEהינה ברורה: המידע, או התוכן,
המאוחסן בשדה השולח,FIELDA
יועתק בשדה המקבל FIELDB.
שים לב, כי הוראת MOVE,
כמו הוראות ביצוע אחרות, מופיעה רק בחטיבת
הביצוע. לעומת זאת, FIELDA,
FIELDB,
הינם שמות-המשתנים, ויש להגדירם בחטיבת
הנתונים. זכור לך בוודאי, כי שמות המשתנים
בחטיבת הנתונים מוגדרים על ידי משפטי PICTURE,
המציינים את סוג הנתון בשדה (מספרי, אלפביתי
או אלפאנומרי) ואת גודלו. כדי שתתבצע הוראת MOVE,
שתעביר את תוכנו המדוייק של משתנה אחד
למשתנה אחר - חייבים שני המשתנים להיות
מוגדרים על ידי משפטי PICTURE
זהים.
דוגמא
1
TAXA
PIC 9(3) (שדה מספרי בעל שלוש ספרות)
תוכן
השדה: 123
TAXB
PIC 9(3)
תוכן
השדה:456
MOVETAXATOTAXB
'
= DISPLAY 'TAXA
DISPLAY
TAXA
'
= DISPLAY 'TAXB
DISPLAY
TAXB
שים
לב גם, כי הנתונים אינם עוברים מן השדה
השולח אל המקבל, אלא נמסרים אליו, או
מועתקים אליו. כלומר, התוכן של השדה השולה TAXA
במקרה לעיל מוכפל, ומועתק על השדה המקבל TAXB.
בתום ביצוע ההוראה, יכילו שני השדות תוכן
זהה. תוכנו של TAXA
אינו נמחק, אפוא, במשך התהליך. תוכן זה נשאר
ללא שינוי, והוא נמסר, או מועתק, אל השדה
המקבל.
דוגמא
2
FIELDAPIC X(4)
(שדה אלפאנומרי, בן 4 תווים)
תוכן
השדה: ABCD
FIELDBPIC X(4)(שדה
אלפאנומרי, בן 4 תווים)
תוכן
השדה:
EFGH
MOVEFIELDATO FIELDB
'
= DISPLAY 'FIELDA
DISPLAY
FIELDA
'
= DISPLAY 'FIELDB
DISPLAY
FIELDB
מאחר ששני
השדות מוגדרים באמצעות אותו משפט PICTURE,
יהיה תכנם זהה בסוף הביצוע.