Sorry for the late reply.
The problem was that it wanted to use a RACF function that wasn't
available in RAKF (the MVS user developed equivalent).
So I reassembled the code and found where the problem was and zapped it.
It will be available in the next Hercules TK5 update, I believe.
I do think we used to avoid IEHMOVE with MFT and MVT because it was a
quite slow. However, it seems to fly under Hercules and MVS 3.8, and
has advantages that it will allocate the output data set, and
automatically adjust the size allocation depending on the DASD device it
is going to. There is quite a lot of code devoted to it. Probably not
much use for it these days, I suspect....
However, IEHMOVE automatically allocates the output Data Set or PDS and
that does make life much easier.
Also, I have been developing some procedures that use standard programs
so you can delete or copy members, or data sets.
This way, newcomers don't have to learn which utilities do what. They
just have to know COPYxxx copies, or MOVE xxx etc.
For example:
// EXEC MOVEMEM,DSN='MY.CNTL',TO='OTHER.CNTL',MEM=MYMEMBER
or // EXEC DELMEM,DSN='MY.CNTL',MEM=MYMEMBER
or // EXEC ALLOCPDS, DSN='MyNew.PDS',Vol=WORK01,PRIM=10,SEC=3,MEMS=10
or // EXEC ALLOCKS,DSN='VSAM.DS',VOL=WORK01,PRIM=20
They use my old utility PARMCNTL to create the control cards for the
utility programs. If they are useful, the ZOS JCL facilities can be
used, of course.
Clem
Michael Stein wrote:
On Wed, May 29, 2024 at 10:22:43PM +1000, Clement Clarke wrote:
That is my recollection, too. MVS is when SVC99 appeared.
Recently, I was looking at the source code for IEHMOVE to allow IEHMOVE to
run under Hercules, and it uses DAIR.
Is that under some MVS system under Hercules? Why won't it just work?
Also IEHMOVE used the allocate svc directly in MVS 3.8. An example:
TITLE 'IEHMVSSX-BUILD DCB AND GO TO DADSM'
* 05838532
* TURN ON HIGH ORDER BIT OF REGISTER 0 TO INFORM DADSM @G32DSFS 05838632
* ALLOCATE THAT ENTRY WAS FROM A UTILITY PROGRAM @G32DSFS 05838732
* 05838832
LA ACCE,2048 MAKE SIGN NEGATIVE @G32DSFS
05838932
SLL ACCE,20 SHIFT TO HI ORDER BYTE @G32DSFS
05839032
OR R0,ACCE SET BIT IN REG 0 @G32DSFS
05839132
ALLO2B EQU * NO RACF ACTION @G32DSFS 05839232
SVC 32 ALLOCATION SVC @G32DSFS
05839332
LA RETURN,4
05839532
SR LINK,RETURN
05840000
BZ DUPNAME
PS: There are zaps/mods to IEHMOVE on the cbttape from UCLA which allow
running IEHMOVE non-authorized with some restrictions. And with
VIO work files.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
