Quelle  bug0c4.cob   Sprache: Cobol

      * 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***********