פרק 2 ארגון נתונים

 ב. סוגי נתונים

קבועים מספריים

קבוע מספרי הוא קבוע המוגדר בחטיבת הביצוע                               (PROCEDURE DIVISION) ומשמש לביצוע פעולות אריתמטיות.

 חוקים לכתיבת קבועים מספריים

  1. ניתן לרשום עד 18 ספרות.

  2. ניתן לרשום סימן חיובי (+) או שלילי (-) משמאל למספר.

  3. ניתן לרשום נקודה עשרונית בתוך הקבוע. אסור לנקודה עשרונית זו להיות התו האחרון בקבוע.

 

שים לב, שהסימן חיובי או שלילי אינו חייב להופיע כחלק מן הקבוע, אך יכול להופיע. אם הסימן כלול בקבוע, עליו להופיע משמאל למספר. כלומר המספריס 16+ או 12- הינם קבועיס מספריים חוקיים,אך +16 או -12 אינם חוקיים. אם אין סימן משמאלו של המספר, המספר ייחשב חיובי.

מאחר שנקודה עשרונית אינה יכולה להופיע כתו אחרון, הקבוע המספרי 18.2 הינו קבוע מספרי חוקי, בעוד .16 אינו כזה. עם זאת, 16.0  הינו קבוע מספרי חוקי.

המספרים הבאים הינם קבועים מספריים חוקיים, שיכולים להופיע בחטיבת הביצוע של תכנית COBOL :

 קבועים מספריים חוקיים

15.8+

381.58 -

 42

05.

97. -

נניח שברצוננו להוסיף 10.3 לשדה פלט, הנקרא TOTAL , והמוגדר בקטע FD (תיאור הקובץ) בחטיבת הנתונים. ההוראה הבאה הינה חוקית:

TOTAL = 5

...

.ADD  10.3  TO  TOTAL

' = DISPLAY  'TOTAL

DISPLAY  TOTAL

ניתן להשתמש בקבוע המספרי 10.3 לפעולות חשבוניות.

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

הקבוע וסוג השגיאה

הקבוע

סוג השגיאה

1,000

 אין לשים פסיקים.

15.

 נקודה עשרונית אינה חוקית בתו  האחרון.

 $100.00

סימני $ אינם חוקיים.

38J

אין להכניס אותיות בקבוע מספרי.

-17.45 

הסימן חייב להופיע מצידו השמאלי  של המספר

קבוע מספרי, אם כן, הוא קבוע, שניתן להשתמש בו בחטיבת הביצוע של תכבית COBOL. קבועים מספריים הם בעלי ערך מספרי קבוע, שמשתמשים בו לפעולות חשבוניות. יש להשתמש בחוקים שצויינו לעיל, כאשר מגדירים קבוע מספרי.

קבועים שאינם מספריים

קבוע שאינו מספרי הינו קבוע, שמשתמשים בו לחטיבת הביצוע לכל מטרה, מלבד ביצוע פעולות אריתמטיות. יש להשתמש בחוקים הבאים, כאשר מגדירים קבוע שאינו מספרי.

 חוקים לכתיבת קבועים לא מספריים

  1. הקבוע חייב להיות 'סגור' בין שני סימני ציטוט.

  2. כמות התווים בקבוע לא תעלה על 120 תווים, כולל מרווחים.

  3. ניתן .ולבנמש בכל סימן במערכת הסימנים של COBOL פרט לסימן הציטוט .

 

 להלן מספר קבועים לא מספריים חוקיים

'ABC 123'

'1,000 '

 'INPUT'

'$ 100.00'

'MESSAGE'

הדפסת קבוע מהקבועים שלמעלה תגרום הדפסת כל התווים שבין סימני הציטוט. כלומר יודפסו ABC 123 , CODE,1,000  וכו'. שים לב, שקבוע שאינו מספרי יכול להכיל כל ספרה, '123' הוא קבוע לא מספרי חוקי. יש להבחין בינו לבין הקבוע המספרי 123, המשמש לפעולות אריתמטיות.

 אם ,כרצוננו להציב את ההודעה INVALID RECORD בשדה פלט בשם MESSAGE-FIELD, לפני שאנו כותבים את רשומת הפלט, נכתוב את ההוראה הבאה ב-COBOL:

 .MOVE  ZEROS  TO  TOTAL

' = DISPLAY  'TOTAL

DISPLAY  TOTAL

משמעותה של הוראה זו היא, שהשדה TOTAL ימולא כולו באפסים. לקבוע המיוחד ZERO יש ערך של 'הכל אפסים' (או 'מלא באפסים'). המילים ZEROES, ZEROS, ZERO הינם קבועים מיוחדים שקולים, שיש להם אותו ערך. ניתן להחליפם וה בזה בתכנית  COBOL.

 PACES הינו קבוע מיוח'ר אחר, שמשמעותו 'הכל רווחים' או 'מלא ברווחים'.  לדוגמה ההוראה:

.MOVE  SPACES  TO CODE-OUT

' = DISPLAY  'CODE-OUT

DISPLAY  CODE-OUT

תגרום, שהשדה CODE-OUT ימולא ברווחים. המלה SPACES  הינה מלה שמורה ב- COBOL, שיש לה ערך של 'מלא ברווחים'. ניתן להחליפה בקבוע המיוחד השקול SPACE  .

 ZERO ו-SPACES הם הקבועים המיוחדים הנפוצים ביותר. עם זאת, קיימים קבועים מיוחדים נוספים, שנדון בהם מאוחר יותר. אם כן, ניתן להגדיר שלושה סוגי נתונים בחטיבת הביצוע: קבוע מספרי, קבוע שאינו מספרי, וקבוע מיוחד. ניתן להגדירם ישירות בכל מקום שהוא בחטיבת הביצוע. משתנים, המופיעים בהוראות בהטיבת הביצוע, חייבים להיות מוגדרים מראש בחטיבת הנתונים. השימוש בקבועים ייעשה, ברור יותר, כאשר נדון בהוראות שונות בחטיבת הביצוע. בנקודה זו, על הקורא לדעת להבחין בין קבועים לבין שמות שדות. המבנה המפורט של משפטי ADD ו-MOVE, בהם מופיעים קבועים כאלה, יובא בפירוט רב יותר בהמשך.

חוקים לכתיבת קבועים מספריים

1. משתנים

הגדרה:

 נתונים, המשתנים במשך התכנית.

קבצים

רשומות

שדות

 

 מוגדרים על ידי שמות-נתונים.

2. קבועים

 הגדרה:

נתונים, הדרושים לצרכי העיבוד והנשארים קבועים במהלך התכנית, ואשר אינם תלוייםבנתוני קלט.

קבוע מספרי

קבוע, המשמש לפעולות חשבוניות (אריתמטיות) בחטיבת הביצוע.

קבוע שאינו מספרי

קבוע, המשמש לכל הפעולות, פרט לפעולות חשבוניות בחטיבת הביצוע.

קבוע מיוחד

מלה שמורה ב- COBOL, שיש לה משמעות מיוחדת עבור המהדיר: ZEROS ; ZEROES ; ZERO וכן SPACES ;SPACE. 

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

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

 

נושאים

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

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