Quellcode-Bibliothek

^© Kompilation durch diese Firma

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

Datei: bug0c4.cob Sprache: Cobol

Original von: verschiedene^©

      * syedfh 4/12/2007 09:58:21
       1 WS-STORAGE-LENGTH PIC S9(008) COMP SYNC.
       01 WS-STORAGE-POINTER USAGE IS POINTER.
       01 WS-STORAGE-POINTER-NUM REDEFINES
       WS-STORAGE-POINTER PIC S9(008) COMP.

       01 CDT-Micr-Control-Doc-Data.
       05 Micr-Control-Doc-Data
       Occurs 100 Times.
       10 Filler1 Pic X(01).
       10 CPA-Delver-Id Pic X(03).
       10 CPA-Region-Id Pic X(02).

       0300-OBTAIN-STORAGE.

       ****MOVE ZEROES TO WS-STORAGE-POINTER-NUM.
       MOVE LENGTH OF CDT-Micr-Control-Doc-Data TO
       WS-STORAGE-LENGTH.
       CALL 'SYMSTGOB' USING WS-STORAGE-LENGTH,
       WS-STORAGE-POINTER.
       SET ADDRESS OF CDT-Micr-Control-Doc-Data TO
       WS-STORAGE-POINTER.

       ****This is where the pgm is crashing***********
       MOVE '20' TO CPA-REGION-ID (1).
       ****This is where the pgm is crashing***********

¤ Dauer der Verarbeitung: 0.15 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.