BPX1LOD (loadHFS) example
The program ictasma located at ict/bin
is loaded into storage and then branched to. For the callable
service, see loadhfs (BPX1LOD, BPX4LOD) — Load a program into storage by path name.
AMODE 64 callers use BPX4LOD (loadHFS) example.
MVC BUFLENA,=F'16'
MVC BUFFERA(16),=C'/ict/bin/ictasma'
MVC OPTIONS,=A(0)
MVC LIBPTHLN,=A(0)
SPACE ,
CALL BPX1LOD, Load program +
(BUFLENA, Input: Pathname length +
BUFFERA, Input: Pathname +
OPTIONS, Input: Options +
LIBPTHLN, Input: Library Path Length +
LIBPATH, Input: Library Path +
EPADDR, Return value: -1 or entrypt addr +
RETCODE, Return code +
RSNCODE), Reason code +
VL,MF=(E,PLIST) ----------------------------------
SPACE ,
L R15,EPADDR Load return value
C R15,=F'-1' Test for -1 return
BE PSEUDO Branch on error
SPACE ,
L R15,EPADDR
BALR R14,R15 Branch to loaded program