Update files across Partitions with Remote SQL

Hi

I have coded a program to use Remote SQL to get a record and pass it back in
a DS so that I can use the data to update a corresponding record in another
partition. This is a bit cumbersome and I was wondering if someone has a
better way of doing this.

Regards
Frank Kolmann

This is some example code

H OPTIMIZE(*NONE) OPTION(*NODEBUGIO) ALWNULL(*USRCTL)
H DFTACTGRP(*NO ) ACTGRP(*CALLER)

D DATA E DS EXTNAME(CNSHPS00)

D FUNC S 1
D RTN S 1
D STMT S 128
D KEY S LIKE(F_MV_CODE)

D UPDREC PR 1A
D IFUNC 1A
D IKEY 8A
D IDATA LIKE(DATA)


D GETREC PR 1A
D IFUNC 1A
D IKEY 8A
D IDATA LIKE(DATA)

D CNSHPS00 PR
D IFUNC 1A
D IKEY LIKE(F_MV_CODE)
D IDATA LIKE(DATA)
D CNSHPS00 PI
D IFUNC 1A
D IKEY LIKE(F_MV_CODE)
D IDATA LIKE(DATA)


/FREE
*INLR = '1';


FUNC = IFUNC;
DATA = IDATA;
KEY = IKEY ;
SELECT;

WHEN FUNC = 'G';
RTN = GETREC(FUNC : KEY: DATA);
IDATA = DATA;
ENDSL;
/END-FREE
* ***********************************************************


/SPACE 3

P GETREC B

* GET DATA

D WDATA E DS EXTNAME(CNSHPS00)
D WKEY S 8A

D GSTS S 1A
D STMT S 128A




D GETREC PI 1A
D GFUNC 1A
D GKEY LIKE(F_MV_CODE)
D GDATA LIKE(DATA)

/free
GSTS = *BLANK;
WKEY = GKEY;

EXEC SQL CONNECT TO PART2;
EXEC SQL SET CONNECTION PART2;
EXEC SQL SET SCHEMA = MYLIB;



STMT = ' SELECT * FROM CNSHPS00 WHERE F_MV_CODE ' +
' = '''+ GKEY +''' FOR FETCH ONLY';

EXEC SQL PREPARE S FROM :STMT;
EXEC SQL DECLARE IC CURSOR FOR S;
EXEC SQL OPEN IC;
EXEC SQL FETCH FROM IC INTO :WDATA;
EXEC SQL CLOSE IC;

EXEC SQL DISCONNECT PART2;
EXEC SQL CONNECT TO PART1;

GDATA = WDATA;

RETURN GSTS;
/end-free

P E