Topic
  • No replies
graham40
graham40
2 Posts

Pinned topic Pgms in RDz work, some fail in z/OS

‏2012-01-26T00:06:09Z |
Hello,

Just uploaded 50 working RDz COBOL pgms to Dallas VIC z/OS R13 Ent Cobol 4.2. But in executing the first 10 on z/OS, two give protection exception errors, am guessing more to come in the next 40.

All were compiled/linked with the same JCL, same options, same linklib.

The errors are all on MOVE A TO B type statements, not loop constructs, called pgms, or anything remotely adventuresome. The details below were obtained from SDSF;O lists.

Have researched this but found nothing reflecting what's happening .. any help appreciated, thanks,
Graham Hobbs


Pgm STEPK10 error


.. the error ..

STARTING STEPK10
CEE3204S The system detected a protection exception (System Completion Code=0C4).
From compile unit STEPK10 at entry point STEPK10 at statement 2731 at compile unit offset +00002EDC at entry
offset +00002EDC at address 193038E4.

.. the code ..

000823 *--------------------------
000824 FD QFATFILE
PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 STEPK10 Date 01/25/2012 Time 12:24:11 Page 19
LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
000825 RECORDING MODE IS F.
000826 COPY T8FDUQF1 REPLACING ==:TAG:== BY ==QFAT==.
000827C *``T8FDUQF1
000828C 01 QFAT-AREA. BLF=00004+000 0CL200
000829 COPY T8FDUQFF REPLACING ==:TAG:== BY ==QFAT==.
000830C *``T8FDUQFF
000831C *

000832C * COMMON TO UQF AND QFAT AREAS
000833C *

000834C 05 QFAT-A PIC X(200). BLF=00004+000,0000000 200C

003371 002720 BEGIN.
003372 002721 PERFORM BEGIN-INIT-STORAGE 2730
003373 002722 PERFORM BEGIN-OPEN-FILES 2759
003374 002723 PERFORM CARR-READ 2772
003375 002724 PERFORM BEGIN-LOAD-QFTM-TABLE 2843
003376 002725 PERFORM PRNT-HEADING-SETUP 3196
003377 002726 PERFORM PRNT-HEADING-MAIN 3255
003378 002727 PERFORM PRNT-HEADING-SUB 3264
003379 002728 PERFORM BEGIN-MESSAGE 2797
003380 002729 .
003381 002730 BEGIN-INIT-STORAGE.
003382 002731 MOVE SPACES TO QFAT-A IMP 834
003383 002732 COPY T19INIT1.
003384 002733C *``T19INIT1
003385 002734C ACCEPT WS-DATE FROM DATE 1961

.. and it happened again same pgm, different place.


Pgm STEPP01 error


.. the error ..

STARTING STEPP01
CEE3204S The system detected a protection exception (System Completion Code=0C4).
From compile unit STEPP01 at entry point STEPP01 at statement 1972 at compile unit offset +000045BE at entry
offset +000045BE at address 193047C6.

.. the code ..

000830 FD F4LWFILE
000831 RECORDING MODE IS F.
000832 01 F4LW-AREA. BLF=00004+000 0CL80
000833 05 F4LW-A PIC X(080). BLF=00004+000,0000000 80C

001969 *--------------------------
001970 BEGIN-LOAD-4LW-FILE.
001971 *--------------------------
001972 MOVE SPACES TO F4LW-AREA IMP 832
001973 * MOVE SPACES TO F4LW-A
001974 * INITIALIZE F4LW-A
001975 MOVE 'N' TO F4LW-FLAG-EOF 1665
Updated on 2012-01-26T01:34:11Z at 2012-01-26T01:34:11Z by graham40
  • graham40
    graham40
    2 Posts

    Re: Pgms in RDz work, some fail in z/OS

    ‏2012-01-26T01:34:11Z  
    From me to me,

    Well .. all that prep work for this question .. it was simply the file wasn't open so messing with FD area storage seems to be a no no.

    The RDz 7.1 IBM COBOL for Windows 7.6.1 CLG (compile/link/go) didn't trap this but z/OS CLG sure did.