Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Thinking Intellekt

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/sources/formale sprachen/Cobol/verschiedene-Autoren/Cobug/

Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: tally.cob Sprache: Cobol

Original von: verschiedene^©

      identification division.
      program-id. tall.
      * am 9.4.9 aus cobollang
      * 184.html in cobug
      WORKING-STORAGE SECTION.
      *...
       01 inputNumber pic x(20).
       01 outputNumber.
        12 outNum pic x(18).
        12 filler pic xx value space.

       01 usefulNumbers usage comp.
        12 MyTally pic s9(4).
        12 numLength pic s9(4).
        12 outOffset pic s9(4).
      *...
      PROCEDURE DIVISION.
      *...
       move zero to myTally numLength outputNumber
       inspect function REVERSE (inputNumber)
      *> count TRAILING SPACES ONLY
       TALLYING myTally FOR
       LEADING SPACES
       compute numLength = 20 - myTally
       if numLength > 4
        compute outOffset = 22 - numLength
        move inputNumber (4:numLength - 3) to outNum (outOffset:)
       else
      *> input was all spaces or an invalid number
      *> do whatever you need to here...
       end-if