Sisu
COBOLi (Common Business Oriented Language) programmeerimiskeelt kasutatakse andmete töötlemiseks, analüüsimiseks ja aruandluseks äri- ja finantsprogrammide rakendustes. See sisaldab mitmesuguseid funktsioone, mis aitavad programmeerijatel tekstidokumente ekraanil kuvada või trükkida. COBOLi programmide joondamisklauslid võimaldavad teksti stringi joondada märkide väljale, millel on sobiv tähemärk vasakule või paremale. On vaja määratleda "REQUEST-LEFT" programmi klausel, et viia tekst COBOLis vasakule.
Juhised
-
Tippige z / OS360 suurarvuti haldusterminali "Edit" ja vajutage "Enter" klahvi, et muuta oma COBOL programmi.
-
Lisage oma programmi "DATA DIVISION" jaotisse järgmine kood:
TÖÖTLEMISE JAGU. 01 Z-PTR-1 pilt 9 (3) väärtus 0. 01 Z-PTR-2 pilt 9 (3) väärtus 0. 01 Z-MAX-1 pilt 9 (3) väärtus 0. 01 FIRST-BYTE pilt 9 (3) väärtus 0. 01 FINAL-BYTE pilt 9 (3) väärtus 0. 01 LENGTH-OF-STRING pilt 9 (3) väärtus 0.
LINKAGE OSA. COPY PASSJUST.
MENETLUSE LIIKUMINE JUST-PASS-AREA abil. täitma initsiatiivi
Z-PTR-1> Z-PTR-1> Z-PTR-1> Z-PTR-1 ZUSTMENT-FIRST-BYTE lisage Z-PTR-1 ZERO-le, andes FINAL-BYTE lõpp-Z-PTR-1 lõpptulemusele
arvutada LENGTH-OF-STRING = FINAL-BYTE - FIRST-BYTE + 1
GOBACK.
TAOTLUS-VASAK. lisage ZERO to Z-PTR-2 liikuge ZERO-le JUST-RESPOND-i väljumisele Z-PTR-2-le, liigutage ZERO JUST-RESPOND-i väljumiseks.
-
Tippige terminali "Salvesta" ja vajutage klahvi "Enter", et joondada COBOLi programmi tekstid vasakule.