كيفية محاذاة النص الأيسر في COBOL

المحتوى

• الاتجاهات
• الاتجاهات

تُستخدم لغة البرمجة COBOL (لغة العمل المشتركة) لمعالجة البيانات وتحليلها والإبلاغ عنها في تطبيقات الأعمال والبرامج المالية. ويشمل مجموعة واسعة من الوظائف التي تساعد المبرمجين تنسيق المستندات النصية ليتم عرضها على الشاشة أو طباعتها. تسمح لك جمل المحاذاة في برامج COBOL بمحاذاة سلسلة نصية داخل حقل حرف مع مساحة الأحرف المناسبة إلى اليسار أو اليمين. من الضروري تحديد جملة البرنامج "REQUEST-LEFT" ، لمحاذاة النص إلى اليسار في COBOL.

الاتجاهات

تحتوي لغة COBOL على وظائف تنسيق لمحاذاة النصوص في المستندات (كوكب المشتري / Photos.com / غيتي إيماجز)

الاتجاهات

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

2. أضف الكود التالي في قسم "DATA DIVISION" من البرنامج:

   قسم تخزين العمل. 01 Z-PTR-1 صورة 9 (3) قيمة 0. 01 Z-PTR-2 صورة 9 (3) قيمة 0. 01 Z-MAX-1 صورة 9 (3) القيمة 0. 01 FIRST-BYTE pic 9 (3) القيمة 0. 01 FINAL-BYTE pic 9 (3) القيمة 0. 01 LENGTH-OF-STRING pic 9 (3) value 0.

   قسم الربط. نسخة PASSJUST.

   قسم الإجراءات باستخدام JUST-PASS-AREA. أداء مجالات التهيئة

   Z-PTR-1> Z-PTR-1> Z-PTR-1> Z-PTR-1 ZUSTMENT-FIRST-BYTE إضافة Z-PTR-1 إلى ZERO مع إعطاء نهاية FINAL-BYTE إذا أضفت إلى Z-PTR-1 نهاية الأداء

   حساب طول سلسلة = FINAL-BYTE - أول BYTE + 1

   
   

   انطلقخلف.

   يسار الطلب. أضف ZERO إلى Z-PTR-2 انقل ZERO إلى JUST-RESPOND. الخروج إلى Z-PTR-2. انقل ZERO إلى JUST-RESPOND.

3. اكتب "حفظ" في الجهاز واضغط على مفتاح "Enter" لمحاذاة المستند النصي في برنامج COBOL الخاص بك إلى اليسار.