Re: Rename file field in RPGLE

You mean like this?

drop table rob/chamara1

Drop of CHAMARA1 in ROB complete.

drop table rob/chamara2

Drop of CHAMARA2 in ROB complete.

CREATE TABLE ROB/CHAMARA1 (SHAREDKEY CHAR (5 ) NOT NULL WITH

DEFAULT, OTHERFLD CHAR (5 ) NOT NULL WITH DEFAULT)
RCDFMT CHAMARAR
Table CHAMARA1 created in ROB.

CREATE TABLE ROB/CHAMARA2 (SHAREDKEY CHAR (5 ) NOT NULL WITH

DEFAULT, OTHERCOL CHAR (5 ) NOT NULL WITH DEFAULT)
RCDFMT CHAMARAR
Table CHAMARA2 created in ROB.

INSERT INTO ROB/CHAMARA1 VALUES('A', 'B')

1 rows inserted in CHAMARA1 in ROB.

INSERT INTO ROB/CHAMARA2 VALUES('X', 'Y')

1 rows inserted in CHAMARA2 in ROB.

FCHAMARA1 IF E DISK rename(chamarar:chamara1r)
// CHARMARA1 has: SHAREDKEY and OTHERFLD
FCHAMARA2 IF E DISK rename(chamarar:chamara2r)
// CHARMARA2 has: SHAREDKEY and OTHERCOL
ICHAMARA1R NS 01
I SHAREDKEY XSHAREDKEY
/free
*inlr=*on;
read chamara1;
dsply otherFld;
dsply xSharedkey;
read chamara2;
dsply otherCol;
dsply Sharedkey;
/end-free
Rob Berendt