.פריטים ברמה 77

פרק 8 קטעי האחסון לעבודה.

ג. שימוש בפריטים ברמה-77 בשטח העבודה.

פירוט-רמה 77 בקטע שטחי העבודה ישמש להגדרת שדה עצמאי. הוא יכול להכיל משפט-VALUE, ויש לקודדו במרווח A. כך, ניתן להשתמש בשתי שיטות קידוד בתכנית-COBOL:

שיטה 1- עדיפה

WORKING-STORAGE SECTION.

01 WORK-AREAS.

02 EOF PIC 9 VALUE 0.

02 TOTAL PIC 999 VALUE 0.

02 CTR PIC 99 VALUE 0.

שיטה 2

WORKING-STORAGE SECTION.

77 EOF PIC 9 VALUE 0.

77 TOTAL PIC 999 VALUE 0.

77 CTR PIC 99 VALUE 0.

יצויין, שפריטי-רמה-77 אינם ניתנים לחלוקת משנה.

ההדגמה שלעיל מראה, כי ניתן לא להשתמש כלל ברמה-77 בתכנית. על ידי הגדרת פריט מקובץ ברמה 01, שאנו קראנו לו WORK-AREAS, ניתן להגדיר את כל הפריטים העצמאיים כחלק של פריט מקובץ זה.

לצורכי תיעוד וניפוי-שגיאות, עדיף להשתמש בפריט מרמה-01 (שייקרא בדרך כלל WORK-AREAS), שבתוכו יוגדרו השדות העצמאיים, ולא להשתמש בפריטים ברמה-77. שים לב גם, כי הקטע הבא ייתן אותן תוצאות כמו זה שלעיל:

שיטה 3

WORKING-STORAGE SECTION.

01 WORK-AREAS VALUE ZERO.

02 EOF PIC 9.

02 TOTAL PIC 999.

02 CTR PIC 99.

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

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

נושאים

הקדמה