|  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Computer Programspråk >> Content

    Hur justera texten åt vänster i COBOL

    Programspråket COBOL ( Common Business Oriented Language ) används för databearbetning , analys och rapportering av finansiella och affärsmässiga program . Den innehåller en mängd funktioner som hjälper programmerare dokument formaterar text för skärmen eller skriva ut presentationer . De motiverar klausuler i COBOL program kan du motivera en textsträng inom en karaktär fält med lämplig inledande eller avslutande blanksteg . Du måste definiera "Request - VÄNSTER " programmet klausul för att justera texten åt vänster i COBOL . Instruktioner
    1

    Type " Redigera " på z/OS360 stordatorsystem management console och tryck på " Enter " -tangenten för att redigera din COBOL -program .
    2

    Lägg till följande kod till " DATA DIVISION " i ditt program : . .

    WORKING - STORAGE aVSNITT

    01 Z - PTR - 1 pic 9 ( 3 ) värdet 0

    01 Z - PTR - 2 pic 9 ( 3 ) värdet 0 .

    01 Z - MAX - 1 pic 9 ( 3 ) värdet 0 .

    01 Z - MAX - 2 pic 9 ( 3 ) värdet 0 .

    01 FIRST-BYTE pic 9 ( 3 ) värdet 0 .

    01 FINAL-BYTE pic 9 ( 3 ) värdet 0 .

    01 LENGTH-OF- STRING pic 9 ( 3 ) värdet 0 .

    LINKAGE AVSNITT .

    COPY PASSJUST .

    GÅNG DIVISION använder JUST - PASS - området.

    utföra INITIALIZE -Fields

    utför tills Z - PTR - 1 > Z - MAX - 1

    om JUST - KÄLLA ( Z - PTR - 1 : 1 ) inte = SPACE

    om FÖRSTA bYTE = 0

    lägga Z - PTR - 1 till NOLL ge första - bYTE

    slutet om

    lägga Z - PTR - 1 till NOLL ge FINAL - bYTE

    slutet om

    tillsätt 1 till Z - PTR - 1

    end - utföra

    beräkna längd på STRING = FINAL - bYTE - FÖRSTA bYTE + 1

    GoBack .

    BEGÄRAN - VÄNSTER .

    tillsätt 1 till NOLL ge Z - PTR - 2 flytta

    JUST - KÄLLA ( FÖRSTA bYTE : längd på STRING ) katalog

    till JUST - TARGET ( Z - PTR - 2 : längd på STRING ) katalog

    flytta ZERO att JUST - RESPOND
    < p > exit .
    3

    Type " Spara " på konsolen och tryck på " Enter " -knappen för att justera text dokument till vänster i din COBOL -program .


    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur man använder metadata för HTML -kod
    ·Inaktivera en Trusted Handler
    ·Hur kan vi minska MPI
    ·Skillnader mellan UML och de andra språken
    ·Ominstallation SBS 2003
    ·SetWarnings i Access 2007
    ·Hur vill hänvisa till en fil från HTML
    ·Hur man sätter in en offert på en sträng i ColdFusio…
    ·Nackdelar med att pressa en webbplats
    ·Lägga till en ny nod i en SQL Cluster
    Utvalda artiklarna
    ·Vektor Indexering i MATLAB
    ·Mobil Arkitekt-certifiering
    ·Hur man fixar en JVM avslutas. Avsluta koden = 13 Fel i…
    ·Hur hämta data från en Grid till annan
    ·Hur du tvingar Konstruktor för generisk användning en…
    ·Hur skapar jag en Macro Word-dokument i VB 6.0
    ·Ta bort en post i VB6
    ·Hur avgränsar nummer i udda & Även i Java
    ·Hur får man en URL i en Servlet
    ·Definition JDK
    Copyright © Dator Kunskap http://www.dator.xyz