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 [email protected] with the message: INFO IBM-MAIN
