BPX1DEL (deleteHFS) example
The program ictasma located at ict/bin
is loaded into storage using BPX1LOD, branched to and then
deleted from storage using BPX1DEL. For the callable service,
see deletehfs (BPX1DEL, BPX4DEL) — Delete a program from storage.
AMODE 64 callers use BPX4DEL (deleteHFS) 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 entry pt addr +
RETCODE, Return code +
RSNCODE), Reason code +
VL,MF=(E,PLIST) ----------------------------------
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
SPACE ,
CALL BPX1DEL, Delete program +
(EPADDR, Input: Entry point address +
RETVAL, Return value: -1 or 0 +
RETCODE, Return code +
RSNCODE), Reason code +
VL,MF=(E,PLIST) ----------------------------------