products/Sources/formale Sprachen/COBOL/verschiedene-Autoren/Judson-McClendon/money/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

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

Datei: namew.cob   Sprache: Unknown

      ******************************************************************
      *                                                                *
      *                 N A M E   W O R K   A R E A                    *
      *                                                                *
      ******************************************************************
      *
       01  NAME-WORK-AREA.
           03  NAW-NAME-WORK           PIC  X(34).
      *
           03  NAW-NAME-SPLIT.
               05  NAW-SPLIT-LAST      PIC  X(34).
               05  NAW-SPLIT-FIRST     PIC  X(34).
               05  NAW-SPLIT-PRE       PIC  X(34).
               05  NAW-SPLIT-POST      PIC  X(34).
      *
           03  NAW-NAME-CHARS.
               05  NAW-NAME-CHAR       OCCURS 34 TIMES
                                       INDEXED BY NAW-NCX 
                                           PIC  X(01).
      *
           03  NAW-TALLY               PIC  9(02)  COMP.
           03  NAW-COMMA-COUNT         PIC  9(02)  COMP.
           03  NAW-NAME-ERROR-FLAG     PIC  9(01)  COMP.

[ Dauer der Verarbeitung: 0.0 Sekunden  (vorverarbeitet)  ]