Instead of MOVE 'ABC' try MOVE SPACES On Tue, 19 Sep 2006 12:48:28 -0500, JONES, CHARLIE <[EMAIL PROTECTED]> wrote:
>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