Copy Replacing error IGYDS1089-S

Pons · Posted: Thu Jul 07, 2011 8:04 pm

Hi,

I am trying to use the COPY REPLACING in my program. But, it is throwing some error. I guess this is because of the compiler which I am using.. Could anyone pls confirm and guide me what the compiler version needs to be used to support Relacing.

000108 01 WS-PONRCREF-LINKAGE.
000109 COPY PONRCREF REPLACING ==

:== BY ==WS==.

It gave the error as

01 WS-PONRCREF-LINKAGE.
05

:-PONEFC-ENTRY.

==000109==> IGYDS1089-S "05" WAS INVALID. SCANNING WAS RESUMED AT THE NEXT AREA "A" ITEM, LEVEL-NUMBER, OR THE START OF THE NEXT CLAUSE.

Why the

: is not replaced with WS. Please guide me.

Cobol Version: IBM ENTERPRISE COBOL FOR Z/OS 3.4.1
Compiler Version: I am not sure, how to find the compiler version.

Thanks
Pons

Robert Sample · Posted: Thu Jul 07, 2011 8:21 pm

COPY REPLACING has been around for many, many years so if you're using Enterprise COBOL, COPY REPLACING is part of it.

Be aware that COPY REPLACING does not do text replacement like a word processor. It does token replacement: variable names, things surrounded by a colon (or other special character), but not part of a variable name.

Pons · Posted: Thu Jul 07, 2011 8:29 pm

Yes Rob,

I used it for Token Replacement. I just trying to replace the

: to WS. Thanks.

Robert Sample · Posted: Thu Jul 07, 2011 8:39 pm

If you used it for token replacement, what was the starting character for the token? The starting and ending characters for the token MUST be the same -- colon, for example. Your original post is NOT using token replacement but string replacement, which does not work with COPY REPLACING.

Robert Sample · Posted: Thu Jul 07, 2011 8:41 pm

And by the way,

Pons · Posted: Thu Jul 07, 2011 8:52 pm

The token is showing as a symbol after my post.
My Token is : and without spaces P and : and I am trying to replace it as WS..

01 WS-PONRCREF-LINKAGE.
COPY PONRCREF REPLACING ==(without space):(without space)P(without space):(without space)== BY ==WS==.

Robert Sample · Posted: Thu Jul 07, 2011 9:10 pm

Copybook:

dbzTHEdinosauer · Posted: Thu Jul 07, 2011 9:14 pm

use code tags and the bbcode will not replace the :char with an icon.

and had you used the preview button
(sorta like desk checking and referring to manuals)
you would have seen the icon replacement.

Pons · Posted: Thu Jul 07, 2011 9:25 pm

Cpy CHRRCREF:

Robert Sample · Posted: Thu Jul 07, 2011 10:37 pm

Your copybook works for me:

Pons · Posted: Thu Jul 07, 2011 11:26 pm

Below are enebled in my compiler

NOADATA
NOADV
APOST
ARITH(COMPAT)
AWO
BUFSIZE(4096)
NOCICS
CODEPAGE(1140)
NOCOMPILE(S)
NOCURRENCY
DATA(31)
NODATEPROC
DBCS
NODECK
NODIAGTRUNC
NODLL
NODUMP
NODYNAM
NOEXIT
NOEXPORTALL
FASTSRT
FLAG(I,I)
NOFLAGSTD
INTDATE(ANSI)
LANGUAGE(UE)
LIB
LINECOUNT(60)
NOLIST
MAP
NOMDECK
NONAME
NSYMBOL(NATIONAL)
NONUMBER
NUMPROC(MIG)
OBJECT
OFFSET
NOOPTIMIZE
OUTDD(SYSOUT)
PGMNAME(COMPAT)
RENT
RMODE(AUTO)
NOSEQUENCE
SIZE(MAX)
SOURCE
SPACE(1)
NOSQL
SQLCCSID
NOSSRANGE
NOTERM
NOTEST
NOTHREAD
TRUNC(BIN)
NOVBREF
NOWORD
XREF(SHORT)
YEARWINDOW(1900)
ZWB

Robert Sample · Posted: Thu Jul 07, 2011 11:47 pm

Are you running one of IBM's standard compile procedures (such as IGYWCL)? If not, you may need to contact your site support group and work with them since there is something unusual going on.

Bill Woodger · Posted: Fri Jul 08, 2011 4:50 am

Pons,

Can you post the whole program please, the compile listing (from the start of the source to the end of the procedure, and any remaining diagnostics at the end) would be best?

Check for any diagnostic messages at the start of the output listing. Check for any diagnostic messages before the WORKING-STORAGE SECTION.

Pons · Posted: Fri Jul 08, 2011 7:09 am

Thanks for all your help. You know I fixed this issue. I dont know how is it working. I just coded some thing differently by seeing some of the post in one of the site.

Bill Woodger · Posted: Fri Jul 08, 2011 2:23 pm

If that is all you changed, I'd suggest you raise a fault with the compiler.

How Robert's code works and yours doesn't is a mystery. If you can produce the source here, perhaps it can be tossed through a comiler (same and different) to try to recreate the error.

Anuj Dhawan · Posted: Fri Jul 08, 2011 6:07 pm

I agree with Bill. There is something which is not yet told, look at these previous topics, talks about the similar issues, but they don't get resolved the way you say:

www.ibmmainframes.com/viewtopic.php?t=41418&highlight=replacing
www.ibmmainframes.com/viewtopic.php?t=33725&highlight=replacing

Pons · Posted: Fri Jul 08, 2011 6:56 pm

Due to some security reason. I can;t post my source here. Even I am working on it to find, why the actual statement is not working and how the modified statement is working...

Will update you once I find the answer. Thanks...

Bill Woodger · Posted: Fri Jul 08, 2011 7:30 pm

Pons,

Can you briefly outline what the program does? Does it use DB2, CICS, (or go through some other pre-processor) VSAM files, QSAM, that sort of stuff.

Pons · Posted: Sat Jul 09, 2011 2:57 am

No Bill, It is just a batch cobol program which is called by the main program by passing some linkage sections. (No DB2 & No VSAM ...)

Even I deleted all my stuff and having only upto working storage section to check the COPY Replacing fuction, But even it didn;t work for me. Gave the same error.

Bill Woodger · Posted: Sat Jul 09, 2011 12:28 pm

Pons,

Can you try to compile the program Robert produced earlier?

Also, can you put in an 01-level with a PIC before the COPY, anything will do

enrico-sorichetti · Posted: Sat Jul 09, 2011 12:52 pm

Robert Sample · Posted: Sat Jul 09, 2011 6:42 pm

Personally, I think we need to lock the topic. The code posted by the o/p that is claimed not to work has been proven to compile cleanly. Hence the problem is something specific to the site and there's no reason for us to worry about it any further.

enrico-sorichetti · Posted: Sat Jul 09, 2011 7:56 pm