פרק 11 רישומים נוספים בחטיבת הנתונים ושגרות לבדיקת תקינות.

ב. המשפט: JUSTIFIED RIGHT - מיושר לימין

נניה, שאנו מגדירים שדה בקטע האחסון לעבודה באופן הבא:

01  WORK-AREAS.

02  CODE-1  PIC  X(8)  VALUE  ‘ABC’.

רישום זה מבצע אותה פעולה כמו MOVE ‘ABC’  TO  CODE-1, בו CODE-1 חסר פסוק VALUE. מאחר שאורכו של הנתון-המפורש הוא 3 תווים והשדה מוגדר כבעל 8 תווים, 'ABC' ייושר לשמאל השדה. עליך לזכור שכאשר השדות או הנתונים המפורשים הנשלחים הם קטנים מן השדות המקבלים בפעולות-הצבה (MOVE) אלפאנומריות, הנתון ייושר לשמאל השדה המקבל והמקומות בעלי הערך הנמוך (מימין) ממולאים ברווחים. על כן, תוכנו של המשתנה CODE-1, לדוגמה, יהיה ABC~~~~~  (מרווח אחד = ~). לצורך שימושים מסויימים, בעיקר בהצבה של אותיות עבריות, רצוי, לפעמים שהנתון בשדה יהיה מיושר לימין. כלומר, היינו רוצים לקבל ב~~~~~ABC :CODE-1. 

המשפט JUSTIFIED RIGHT, בו נשתמש בחטיבת-הנתונים, ייתן את התוצאה הדרושה. ניתן להגדיר את CODE-1 כך:

02  CODE-1  PIC  X(8)  VALUE  ‘ABC’  JUSTIFIED  RIGHT.

קודם | תחילת הדף | הבא

שאלות להערכה עצמית >>

 

נושאים

פרק 3 - חטיבת הזיהוי                               (IDENTIFICATION DIVISION)
פרק 6 - חטיבת הביצוע                               (PROCEDURE DIVISION)
פרק 14 - הוראת DISPLAY ו-ACCEPT

.איתן 2002. כל הזכויות שמורות למערכת המידע איתן ©