Replacing values even in N command code.

Prabha · Active User Joined: 05 Dec 2005 Posts: 64

Hi,

I used N command code in GHU call, but still its repalcing.

Pls see my code(PL/1). Pls help.

S467AA20.CCODE='*DN';
S467AA20.SSAKEY = '12599TM076';
S467AA20.ROP = '= ';
S467AT01.SSAKEY = 'YQH6999999';
S467AT01.ROP = '= ';
S467AT01.CCODE='*DN';
DCL
1 S467ASUQ,
2 BEGIN CHAR(8) INIT('F467AS'),
2 CCODE CHAR(4) INIT('*DN ');

CALL XN151(' ',
GHU,
F467P_PTR,
ADDR(F467AA_SEG),
ADDR(S467AA20),
ADDR(S467ASUQ),
ADDR(S467AT01));

F467AS36 = 0.0;
F467AT04 = '2';

PUT SKIP LIST('VALUE 4 ',F467AT03);

CALL XN151(' ',
REPL,
F467P_PTR,
ADDR(F467AA_SEG));

Sandy Zimmer · Posted: Thu May 29, 2008 5:02 am Post subject:

What is your status code between your retrieval and your replace?

Prabha · Active User Joined: 05 Dec 2005 Posts: 64

Status code is spaces.