רישום
זה מבצע אותה פעולה כמו 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.
|