MVC BUFLENA,=F'16'
MVC BUFFERA(16),=C'/ict/bin/ictasma'
MVC OPTIONS,=A(0)
MVC LIBPTHLN,=A(0)
SPACE ,
CALL BPX4LOD, Load program +
(BUFLENA, Input: Pathname length +
BUFFERA, Input: Pathname +
OPTIONS, Input: Options +
LIBPTHLN, Input: Library Path Length +
LIBPATH, Input: Library Path +
ENTRYPT, Output:Entry Point +
RETVAL, Return value: -1 or 0 +
RETCODE, Return code +
RSNCODE), Reason code +
MF=(E,PLIST) ----------------------------------
SPACE ,
L R15,RETVAL
C R15,=F'-1' Test for -1 return
BE PSEUDO Branch on error
SPACE ,
LG R15,ENTRYPT
BALR R14,R15 Branch to loaded program