This example is one that I played with to learn it a while ago:
/* ------- REXX ------- *
* test code for lmcopy *
* -------------------- */
in = 'lbdyck.test.pds'
out = 'lbdyck.test.pdse'
Address ISPexec
"lminit dataid(indd1) dataset('"in"')"
"lminit dataid(outdd1) dataset('"out"')"
"lmcopy fromid("indd1") todataid("outdd1")" ,
"frommem(a*) replace"
say 'lmcopy rc:' rc
"lmcopy fromid("indd1") todataid("outdd1")" ,
"frommem(b*) replace"
say 'lmcopy rc:' rc
"lmfree dataid("indd1")"
"lmfree dataid("outdd1")"
Hope this helps
Lionel B. Dyck <><
Github: https://github.com/lbdyck
System Z Enthusiasts Discord: https://discord.gg/sze
“Worry more about your character than your reputation. Character is what you
are, reputation merely what others think you are.” - - - John Wooden
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
