פרק 6 - חטיבת הביצוע (PROCEDURE DIVISION)

ד. הוראת STOP RUN ו CLOSE

 

נמשיך ונשתמש בדוגמא, אשר הופיעה בפרק הקודם.

השגרה CALC-RTN תתבצע, עד שיתקיים השוויון EOF = 1 , כלומר, עד שאין יותר רשומות קלט. בנקודה זו יחזור הביצוע להוראה, שאחרי הוראת PERFORM, ביחידה הראשית. מאחר ועיבדנו את כל הרשומות, אנו רוצים כעת לבצע את פעולות סיום-התכנית (END OF JOB). פעולות אלה כוללות בדרך כלל שחרור של הקבצים בהם טיפלנו, והפסקת העיבוד. 

קיימות שתי הוראות, המהוות חלק הכרחי בכל שגרת סיום-תכנית. עלינו לסגור (CLOSE) את כל הקבצים, כדי לציין, שאין הם דדושים לנו יותר לעיבוד; ועלינו להורות למחשב להפסיק את מהלך התכנית (STOP).

הוראת  CLOSE

לכל קובץ, שאנו משתמשים בו בתכנית, עלינו לגשת באמצעות הוראת OPEN, לפני שנוכל לכתוב עליו או לקרוא ממנו. הוראת CLOSE דרושה בסיום הביצוע, לאחר שעובדו כל הרשומות, וזאת כדי לשחרר את  הקבצים. אנו כותבים:

(שם(ות) הקובץ(ים))CLOSE   

לכל הקבצים, שנפתחו במהלך התכנית, יש לבצע הוראת סגירה בתום העיבוד. בדומה ל-OPEN, תבצע גם הוראת CLOSE מספר פעולות נוספות. כאשר יוצרים, לדוגמה, רשומות על סרט מגנטי, תיצור הוראת CLOSE רשומת סיום קובץ, ותגלגל חזרה (REWIND) את הסרט למצבו המקורי. שים לב, כי הוראת CLOSE, שלא כמו הוראת OPEN. אינה מציינת אילו קבצים הם קובצי קלט ואילו קובצי פלט. לדוגמה, כדי לגשת לקבצים, אנו אומרים:

.OPEN INPUT FILE-1, OUTPUT FILE-2

אולם, כדי לשחרר אותם, אומרים:

.CLOSE FIEL-1, FILE-2

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

CLOSE FILE-1, FILE-2, FILE-3.

 ו

CLOSE FILE-1.

CLOSE FILE-2.

.CLOSE FILE-3

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

הוראת  STOP RUN

הוראת STOP RUN מורה למחשב לסיים את עבודתו.

OPEN INPUT FILE-1, OUTPUT FILE-2.

READ FILE-1 AT END MOVE 1 TO EOF.

PERFORM CALC-RTN UNTIL EOF=1.

CLOSE FILE-1,FILE-2.

.STOP RUN

ההוראות ב-CALC-RTN יכללו:

     

  1. הוראות העיבוד לרשומה.

  2. הוראת READ לקריאת הרשומה הבאה.

  3. תנאי AT END, המורה למחשב להציב 1 ב-EOF.

 

 דוגמא

CALC-RTN.

…

.READ FILE-1 AT END MOVE 1 TO EOF

אנו מניחים, כי ב-CALC-RTN ברצוננו לעבד נתונים בדרך כלשהי, וליצור רשומות-פלט.. עתה, כאשר אנו יודעים לפתוח (OPEN) קובץ ולקרוא (READ) ממנו, נצטרך לאחסן נתונים בשטח הפלט; כך שכאשר נכתוב פקודת - WRITE ייכתב מידע כל שהוא בקובץ הפלט.

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

 

נושאים

הקדמה

פרק 1 - מבוא לתכנות COBOL.
פרק 2 - ארגון נתונים
פרק 3 - חטיבת הזיהוי                               (IDENTIFICATION DIVISION)
פרק 4 - חטיבת הסביב                               (ENVIRONMENTAL DIVISION)
פרק 5 - חטיבת הנתונים                               (DATA DIVISION)
פרק 6 - חטיבת הביצוע                               (PROCEDURE DIVISION)
פרק 7 - הוראת MOVE
פרק 8 - קטעי האחסון לעבודה
פרק 9 - הוראות אריתמטיות
פרק 10- הוראות תנאי
פרק 11 - רישומים נוספים בחתיבת           הנתונים
פרק 12 - עריכת פלט מודפס
פרק 13 - הוראות מיוחדות לעריכת הדפסה
פרק 14 - הוראת DISPLAY ו-ACCEPT

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