[inherit('sys$library:starlet.pen', 'rtl.pen')]
PROGRAM lib$getjpi(input, output);

TYPE
    $word = [word] -32768..32767;

VAR
    CompletionStatus: unsigned;
    UserName: varying[12] OF char;

BEGIN { lib$getjpi }
CompletionStatus:= lib$getjpi(jpi$_username, , , , UserName);
IF NOT odd(CompletionStatus) THEN
    lib$signal(CompletionStatus);
writeln(UserName, '.')
END { program lib$getjpi }.