Looking for a replacement for TSO COPY 1

[philipvd]

TSO COPY .. ... is not supported (read installed) at one of my sites.

IKJ56232I DATA SET SYS1.SCRIPT.DCFSAMP NOT ON VOLUME AS INDICATED IN THE CATALOG OR VOL PARAMETER
IKJ56802I HELP NOT AVAILABLE+
IKJ56802I COMMAND COPY NOT FOUND, FOR MORE HELP ENTER HELP
***

Command 'COPY ' abended with code 806000. Load module not
***
So I'm looking for another way to copy datasets using rexx without using execio (I know you can allocate / read and write them).
And please avoid using customization of jcl's so they can be submitted. I'm looking for a real online copy-function.

Greetings,

http://philipvd.says.it

 

[KiwiREXXDude]

Well you could try calling IEBCOPY or IEBGENER using REXX. For example;

"Alloc Fi(SYSUT1) Da('MY.INPUT.DATA.SET') Shr Reu"
"Alloc Fi(SYSUT2) Da('MY.OUTPUT.DATA.SET') Shr Reu"
"Alloc Fi(SYSPRINT) Sysout Reu"
"Alloc Fi(SYSIN) Dummy Reu"
"IEBGENER"
say 'Copy return code = 'rc
"Free Fi(SYSUT1 SYSUT2 SYSIN SYSPRINT)"

Just remember if you want to do an IEBCOPY then you will need to write your SYSIN statements, and you can also copy members of datasets using LMCOPY.

 

[walshi]

You could also try using the AMS REPRO command.

For example:

TSO REPRO IDS(mydsname1) ODS(mydsname2)

This does rather depend upon your site's system library concatenations.

Hope this helps (certainly saves programming).