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
