Re: can COPY ... REPLACING replace colhdg and text and alias verbiage when it gets field info from a referenced field?

I don’t think it can be done (but see comment below). You would have to specify each field fully. i.e. Replacing A by W, B by X, C by Y type of thing.

The replacing option is basically trying to match whole words - the == are delimiters - not wildcards. This is actually spelt out in typically verbose fashion in the manual:

"Pseudo-text-1 must contain, as a minimum, a text word. Since text words, by definition, are bounded by separators, pseudo-text cannot be used to select part of a word for replacement (for example, a
prefix in a data name): a complete text word must be used in order to find a match.”

I don’t have the time to research it, but the only way I know that partial substitution can be done is when working with an actual COPY source member. In that case you can use a data name such as (Replace)-Account. And then do:

Replacing ==(Replace)== with ==Whatever==.

But off the top of my head I can’t think of anything that is legal in a DDS name that could act as a text word separator.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Nov 17, 2016, at 12:53 PM, Stone, Joel <Joel.Stone@xxxxxxxxxx> wrote:

I cant get it to work. Is this possible???

Thanks in advance.


copy ddr-all-formats of ETLBOLHtst
REPLACING ==2204== BY ==2250==.




DDS ETLBOLHtst :


AHSCNBR R REFFLD(HDBOLID BLHDXML)



Orig DDS:

HDBOLID 30A COLHDG('A2204' 'BOL' 'ID')
TEXT('A2204 BOL ID')
ALIAS(A2204_BOL_ID)



Failed result:

DATA DIVISION.
FILE SECTION.
FD ETLBOLHtst.
01 ETLBOLHtstrec.
copy ddr-all-formats of ETLBOLHtst
REPLACING ==2204== BY ==2250==.
05 ETLBOLHTST-RECORD PIC X(48).
I-O FORMAT:ETBOLHR FROM FILE ETLBOLHTST OF LIBRARY TPGMLIB
05 ETBOLHR REDEFINES ETLBOLHTST-RECORD.
06 A2250-SEQNBR PIC S9(10).
A2250 SEQ#
06 A2204-BOL-ID PIC X(30). <------------------------------------------------------------------------------------------------------- 2204 should be replaced by 2250
A2204 BOL ID




--
This is the COBOL Programming on the IBM i (AS/400 and iSeries) (COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.