Bagaimana untuk menyelaraskan teks kiri dalam COBOL

Pengarang: Marcus Baldwin
Tarikh Penciptaan: 21 Jun 2021
Tarikh Kemas Kini: 17 November 2024
Anonim
Cara Membuat Titik Dua dengan Rapi di Word || Tips dan Trik Word
Video.: Cara Membuat Titik Dua dengan Rapi di Word || Tips dan Trik Word

Kandungan

Bahasa pengaturcaraan COBOL (Bahasa Berorientasikan Perniagaan Umum) digunakan untuk pemprosesan, analisis, dan pelaporan data dalam aplikasi perisian perniagaan dan kewangan. Ia termasuk pelbagai fungsi yang membantu dokumen pemformat format teks untuk dipaparkan pada skrin atau dicetak. Klausa penjajaran dalam program COBOL membolehkan anda menyelaraskan rentetan teks dalam medan karakter dengan ruang aksara yang sesuai ke kiri atau kanan. Ia perlu untuk mentakrifkan klausa program "SENARAI KIRI" untuk menyelaraskan teks ke kiri COBOL.


Arahan

Bahasa COBOL mempunyai fungsi pemformatan untuk menyelaraskan teks dalam dokumen (Jupiterimages / Photos.com / Getty Images)

    Arahan

  1. Taip "Edit" di terminal pengurusan kerangka utama z / OS360 dan tekan kekunci "Enter" untuk mengedit program COBOL anda.

  2. Tambah kod berikut dalam bahagian "BAHAGIAN DATA" program anda:

    SEKSYEN-PENYIMPANAN KERJA. 01 Z-PTR-1 pic 9 (3) nilai 0. 01 Z-PTR-2 pic 9 (3) nilai 0. 01 Z-MAX-1 pic 9 (3) nilai 0. 01 FIRST-BYTE pic 9 (3) nilai 0. 01 FINAL-BYTE pic 9 (3) nilai 0. 01 LENGTH-OF-STRING pic 9 (3) nilai 0.

    SEKSYEN LINKEN. KOPERASI COPY.

    BAHAGIAN PROSEDUR menggunakan JUST-PASS-AREA. laksanakan INITIALIZE-FIELDS

    Z-PTR-1> Z-PTR-1> Z-PTR-1> Z-PTR-1 ZUSTMENT-FIRST-BYTE tambahkan Z-PTR-1 ke ZERO yang memberikan akhir FINAL-jika tambahkan kepada Z-PTR-1 performa akhir


    mengira LENGTH-OF-STRING = FINAL-BYTE - FIRST-BYTE + 1

    GOBACK.

    KEPUTUSAN-KIRI. tambahkan ZERO ke Z-PTR-2 berpindah ZERO ke keluar JUST-RESPOND ke Z-PTR-2 bergerak ZERO ke keluar JUST-RESPOND.

  3. Ketikkan "Simpan" di terminal dan tekan kekunci "Enter" untuk menyelaraskan dokumen teks dalam program COBOL anda ke kiri.