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

ו. הוראת הכתיבה WRITE

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

 להוראת WRITE המבנה הבא

.(שם-רשומה) WRITE

שם הרשומה מופיע ברמה 01, והוא מחולק, בדרך כלל, לשדות. הרשומה מתארת את תבנית FORMAT הפלט. בכל הוראת WRITE - אנו מורים למחשב לכתוב את הנתונים לפי התבנית שצויינה.

FD  FILE-1  LABEL RECORDS ARE OMITTED,

RECORD CONTAINS 25 CHARACTERS,

DATA RECORD IS REC-1.

01  REC-1.

02 NAME-OUT  PIC X(15).

02 AMT-OF-DEBIT-OUT  PIC 9(5).

02 AMT-OF-CREDIT-OUT  PIC 9(5).

כדי לכתוב מידע המאוחסן בחטיבת הנתונים יש לכתוב WRITE  REC-1 ולא WRITE FILE-1. כאשר אנו כותבים או יוצרים מידע, אנו משתמשים בשם המופיע ברמה 01, בעוד שכאשר אנו קוראים מקובץ, אנו משתמשים בשם המופיע ב-FD. הפקודה WRITE  REC-1 מעבירה נתונים אל יחידת הפלט, בהתאם לתבנית, שפורטה בתיאור הרשומה REC-1. אם קיימת יותר מתבנית אחת של רשומות בקובץ, יש לציין את זו, שבה אנו מעוניינים בהוראת WRITE. לדוגמא, עיין בקטע הבא:

FD  PRINT-FILE  LABEL RECORDS ARE OMITTED,

RECORD CONTAINS 133 CHARACTERS,

DATA RECORD ARE HDR, DETAIL-REC.

01  HDR.

01 DETAIL-REC.

לפי התבנית הרצויה לנו, יש לכתוב WRITE HDR                          או WRITE DETAIL-REC כעת אנו יכולים לקודד תכנית לדוגמא בשלמותה על פי הדוגמאות שהוצגו בעמודים הקודמים; כאשר אנו זוכרים, כי לאחר עיבוד רשומה שלמה ויצירת רשומת פלט, יש לקרוא רשומת קלט נוספת:

PROCEDURE DIVISION.

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.

MOVE  NAME-IN TO NAME-OUT.

MOVE AMT-OF-CREDIT-IN TO AMT-OF-CREDIT-OUT.

MOVE AMT-OF-DEBIT-IN TO AMT-OF-DEBIT-OUT.

WRITE REC-1

.READ  FILE-1 AT END MOVE 1 TO EOF

 

סיכום הפרטים המופיעים בחטיבת הביצוע

  1. שמות סעיפים PARAGRAPH  יופיעו במרווח A. 

  2. כל ההוראות יקודדו במרווח B, או בצורה חופשית כחלק מתוך סעיף, או בהוראה בודדתי אחת.

  3. ההוראות מתבצעות בסדר שבו נכתבו, אלא אם כן מעבירה הוראת PERFORM את הבקרה לסעיף אחר.

  4. ברב התכניות המבניות תופיע יחידה ראשית כלהלן:

    OPEN INPUT (file) OUTPUT (file).

    READ (file) AT END MOE 1 TO EOF.

    PERFORM (paragraph) UNTIL EOF=1.

    CLOSE (files).

    .STOP RUN

  5. הסעיף שצויין בהוראת PERFORM מתבצע שוב ושוב, עד אשר אין יותר רשומות קלט.

  6. ההוראה האחרונה בסעיף, שצויין ע"י הוראת PERFORM, הינה בדרך כלל הוראת READ:

    CALC-RTN.

    .READ (file) AT END MOVE 1 TO EOF

קיימת שיטה, בה ניתן להשתמש, לשם הכנסת שורות הערה בתכנית COBOL.

הערות COBOL

כוכבית (*) בטור 7 (טור ההמשך) של שורה - הופכת את כל אותה שורה לשורת הערה.

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

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

 

נושאים

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

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