Neither COBOL nor IBM's COBOL *guarantee* a "S0C7" (or other abnormal termination) when you reference "incompatible data" - all they promise is "results are undefined".
Having said that, try your sample with both ZWB and NOZWB. See: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/igy3pg31/2.4.58 "JONES, CHARLIE" <[EMAIL PROTECTED]> wrote in message news:<[EMAIL PROTECTED]>... > We are on Z 1.4 and COBOL Rel 3.2.0 The Simple Compile and Go below > Allows me to add 1 to 'ABC' and get 124 with no S0C7. Is this normal? > Did this test with NUMPROC(NOPFD), NUMPROC(PFD), and NUMPROC(MIG). > All were successful. > > > //ZCRSCEJA JOB (DAZC1130,ZCRSCEJ),'COBOL4MVS IVP', > // CLASS=A,MSGCLASS=X,NOTIFY=ZCRSCEJ > //********************************************************************* > //RUNIVP EXEC IGYWCLG,PARM.COBOL=RENT,REGION=1400K, > // PARM.LKED='LIST,XREF,LET,MAP', > // GOPGM=USECDE > //COBOL.SYSIN DD * > PROCESS NUMPROC(MIG) > 000100 IDENTIFICATION DIVISION. > 000200 PROGRAM-ID. USECDE. > 003200 ENVIRONMENT DIVISION. > 005000 DATA DIVISION. > 008400 WORKING-STORAGE SECTION. > 77 COUNTERX PIC 999 VALUE 0. > 01 BAD-NUMBER PIC 999. > 01 BAD-SPACE REDEFINES BAD-NUMBER PIC XXX. > 011800 PROCEDURE DIVISION. > 013200 001-INITIALIZE. > * THIS STATEMENT WILL CAUSE AN LE-SOC7 > PERFORM 010-LOOPIT UNTIL COUNTERX EQUAL 100. > 034200 601-END-RTN. > DISPLAY 'TESTIT EXECUTED WITH NO S0C7 SUCCESSFULY'. > GOBACK. > 013200 010-LOOPIT. > MOVE 'ABC' TO BAD-SPACE. > ADD 1 TO BAD-NUMBER. > DISPLAY ' BAD-NUMBER: 'BAD-NUMBER > ADD 1 TO COUNTERX. > 999-END-RTN. > EXIT. > //LKED.SYSLIB DD > //GO.SYSOUT DD SYSOUT=* ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
