كيفية قراءة ملف ملحق متغير في COBOL

المحتوى

• الاتجاهات

تمكّن COBOL (لغة العمل المشتركة في IBM) المستخدمين من معالجة أنواع مختلفة من البيانات في تطبيقات الأعمال والبرامج المالية. يدعم COBOL أنواع بيانات السجلات ذات الطول المتغير للاستخدام في ملفات قاعدة البيانات المخزنة على الأقراص الثابتة ؛ يحدد المستخدم الحد الأقصى والحد الأدنى لطول السجلات لوصف ملفات القرص ذات السجلات ذات الطول المتغير. تتيح لك قراءة ملفات بيانات الطول المتغيرة معالجة معلومات قاعدة البيانات دون تحديد الحجم الدقيق لسجل في برنامج COBOL.

الاتجاهات

يمكن لبرامج COBOL معالجة السجلات متغيرة الطول المخزنة في ملفات قاعدة البيانات (كوكب المشتري / Photos.com / غيتي إيماجز)

1. اكتب "تحرير" في وحدة التحكم في إدارة نظام z / OS360 واضغط على المفتاح "Enter" لتعديل برنامج COBOL.

2. أضف الكود التالي إلى بداية البرنامج:

   شعبة التعريف. برنامج-ID. COBVAR. قسم البيئة. قسم المدخلات والمخرجات. FILE-CONTROL. اختر IFILE تعيين إلى "IFILE".

   قسم التاريخ. قسم الملفات. FD IFILE سجل يختلف من 10 إلى 50 يعتمد على LEN. 01 IREC. 05 حشو الموافقة المسبقة عن علم يحدث 10 حتي 50 مرات اعتمادا على LEN.

   شعبة الإجراءات. P1. عرض "المثال 1 في حالة الاعتماد على REC" افتح INPUT IFILE PERFORM UNTIL LEN = -1 اقرأ IFILE AT END MOVE -1 إلى LEN غير AT EN DISPLAY IREC DISPLAY LEN END-READ END-PERFORM CLOSE

   عرض "مثال REC ثابت" فتح INPUT IFILE نقل الكل "X" إلى IREC قراءة IFILE في END MOVE -1 إلى LEN DISPLAY IREC DISPLAY SPACE

   
   

3. اكتب "حفظ" على وحدة التحكم واضغط على مفتاح "Enter" للسماح للبرنامج بمعالجة سجلات الطول المتغيرة.