Quellcode-Bibliothek

^© Kompilation durch diese Firma

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

Datei: BarrierInInfiniteLoop.java 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

¤ Dauer der Verarbeitung: 0.17 Sekunden (vorverarbeitet) ¤

Download des Quellennavigators
Download des sprechenden Kalenders
in der Quellcodebibliothek suchen

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.