تحليل وتحسين برنامج COBOL لقراءة وعرض معلومات شركات النقل

في البرنامج الخاص بك، يظهر أنك قمت بكتابة برنامج COBOL لقراءة ملف يحتوي على معلومات حول الشركات وعروض التنقل الخاصة بها. تواجه بعض التحديات في عرض البيانات بشكل صحيح. لفهم المشكلة التي تواجهك، يجب أن نقوم بتحليل الشيفرة والتحقق من الخطوات التي تم تنفيذها.

لنقم أولًا بتحليل البرنامج:

1. القسم البيئي:
   يتضمن هذا القسم تعريف الملفات والتحكم فيها. تم تعريف ملفين: MOVING-QUOTES-FILE و MOVING-QUOTES-RESULTS-FILE. يجب التأكد من أن الملف MOVING-QUOTES-FILE يحتوي على البيانات بالشكل الصحيح وأن MOVING-QUOTES-RESULTS-FILE يتم فتحه بشكل صحيح.

2. القسم البياني:
   يحتوي هذا القسم على تعريفات السجلات والمتغيرات العامة التي ستستخدم في البرنامج. يجب التحقق من أن الحقول معرفة بشكل صحيح وأن البيانات تقرأ بشكل صحيح من الملف.

3. القسم الإجرائي:
   يتكون هذا القسم من مجموعة من الإجراءات التي تقوم بفتح الملف، قراءة السجلات، وطباعة البيانات. يجب التحقق من صحة تنفيذ هذه الخطوات.

4. الإجراء 1000 – START-MOVING-QUOTES:
   يتم فتح الملف وقراءة السجل الأول. يجب التحقق من أن البيانات تقرأ بشكل صحيح.

5. الإجراء 2000 – READ-N-PRINT-MQ:
   يتم قراءة السجلات من الملف وطباعتها. يجب التحقق من أن الحقول تتم طباعتها بشكل صحيح.

6. الإجراء 2010 – FIND-HI-LO-AVG:
   يقوم بحساب أعلى وأقل قيمة والمتوسط. يجب التحقق من أن الحسابات تتم بشكل صحيح.

7. الإجراء 3000 – FINISH-UP:
   يقوم بإغلاق الملفات وطباعة القيم المحسوبة. يجب التحقق من أن كل شيء يتم بشكل صحيح.

بعد مراجعة هذه النقاط، يمكنك البدء في تنفيذ البرنامج ومراقبة الإخراج. إذا كنت ما زلت تواجه مشكلة، يمكنك تصحيح البرنامج وإعادة التحقق من الخطوات المختلفة.

في تحليل الشيفرة التي قدمتها، يمكن توضيح النقاط التالية:

1. تعريف الملفات:

   • تم تعريف ملف MOVING-QUOTES-FILE بنوع LINE SEQUENTIAL، ويبدو أن البيانات تقرأ بشكل صحيح في الإجراء 8000-READ-MOVING-QUOTES-FILE.
   • يجب التأكد من أن البيانات في الملف تتناسب مع تنسيق السجل الذي تم تعريفه في WS-MOVING-QUOTES-RECORD.

2. تنسيق البيانات:

   • في PRT-MQR-MOVING-QUOTE و WS-HI-BID و WS-LO-BID و WS-TOTAL-BID-SUM و WS-AVERAGE، يتم استخدام PIC $ZZ99.99 لتمثيل الأموال. يجب التحقق من أن القيم المقروءة من الملف تتوافق مع هذا التنسيق.

3. قراءة وطباعة السجلات:

   • في الإجراء 2000-READ-N-PRINT-MQ، يتم نقل قيم من WS-MOVING-QUOTES-RECORD إلى PRT-MOVING-QUOTES-FILE، ومن ثم طباعتها. يجب التحقق من أن هذه العمليات تتم بشكل صحيح وأن القيم تظهر بشكل صحيح في الناتج.
   • في الإجراء 2020-READ-N-PRINT-MQR، تتم نفس العمليات، ولكن يبدو أنه تم نسيان إضافة خطوة لطباعة المعلومات الخاصة بالشركات ذات التقييم الأعلى والأقل.

4. الإجراءات 2011-STORING-VAL-HI و 2013-STORING-VAL-LO:

   • يتم نقل قيمة MQR-MOVING-QUOTE إلى WS-HI-BID و WS-LO-BID على التوالي. يجب التحقق من أن القيم تنقل بشكل صحيح.

5. الإجراءات 2012-FIND-HI و 2014-FIND-LO:

   • يتم مقارنة قيم MQR-MOVING-QUOTE بقيم WS-HI-BID و WS-LO-BID. يجب التحقق من أن الشرط في IF يعمل بشكل صحيح وأن القيم تستبدل بشكل صحيح.

6. الإجراء 2015-GET-SUM:

   • يتم إضافة قيم MQR-MOVING-QUOTE إلى WS-TOTAL-BID-SUM. يجب التحقق من أن القيم تتم إضافتها بشكل صحيح.

7. الإجراءات 3010-PRT-HI و 3020-PRT-LO و 3030-PRT-AVG:

   • يتم نقل قيم من HI-COMPANY-INFO و LO-COMPANY-INFO و SAV-AVG إلى MOVING-QUOTES-RESULTS-RECORD للطباعة. يجب التحقق من أن هذه العمليات تتم بشكل صحيح.

بتحليل هذه النقاط ومراجعة تنفيذ البرنامج، يمكنك تحديد أي جزء قد يحتاج إلى تعديل أو تحسين.