Inhoud
De programmeertaal COBOL (Common Business Oriented Language) wordt gebruikt voor gegevensverwerking, analyse en rapportage in zakelijke en financiële softwaretoepassingen. Het bevat een breed scala aan functies waarmee programmeurs tekstdocumenten kunnen opmaken die op het scherm kunnen worden weergegeven of kunnen worden afgedrukt. Uitlijningsclausules in COBOL-programma's stellen u in staat een tekstreeks uit te lijnen binnen een tekenveld met de juiste tekenruimte links of rechts. Het is noodzakelijk om de programmaclausule "REQUEST-LEFT" te definiëren, om de tekst links in COBOL uit te lijnen.
routebeschrijving
-
Typ 'Bewerken' in de z / OS360-mainframebeheerminal en druk op de 'Enter'-toets om uw COBOL-programma te bewerken.
-
Voeg de volgende code toe in het gedeelte "GEGEVENSVERDELING" van uw programma:
SECTIE WERK OPSLAG. 01 Z-PTR-1 foto 9 (3) waarde 0. 01 Z-PTR-2 foto 9 (3) waarde 0. 01 Z-MAX-1 foto 9 (3) waarde 0. 01 EERSTE BYTE foto 9 (3) waarde 0. 01 EIND-BYTE foto 9 (3) waarde 0. 01 LENGTE VAN DE SNELHEID pic 9 (3) waarde 0.
LINKAGE SECTIE. KOPIE PASSJUST.
PROCEDURE DIVISIE met JUST-PASS-AREA. INITIALIZE-FIELDS uitvoeren
Z-PTR-1> Z-PTR-1> Z-PTR-1> Z-PTR-1 ZUSTMENT-FIRST-BYTE voeg Z-PTR-1 toe aan ZERO en geef FINAL-BYTE end-if add to Z-PTR-1 end-perform
berekenen LENGTE-OF-STRING = EIND-BYTE - EERSTE BYTE + 1
GoBack.
-REQUEST vertrokken. voeg NUL toe aan Z-PTR-2 verplaats ZERO naar JUST-RESPOND exit naar Z-PTR-2 verplaats NUL naar JUST-RESPOND exit.
-
Type "Opslaan" in de terminal en druk op de "Enter" -toets om het tekstdocument in uw COBOL-programma naar links uit te lijnen.