[FreeVMS] rtl$print

[Guido]

Hi,

Please tell me there is also a simple one liner to print a message in stead of 
this abomination (of which I even doubt that it does what is intended):

            L4_Word_t arg$print1;
            const char * arg$print2;

            rtl$strcpy(&message, IPC_F_FAILED "IPC failed (error %ld: %s)");
            L4_Word_t arg$print1 = L4_ErrorCode();
            const char * arg$print2 = L4_ErrorCode_String(L4_ErrorCode());
            void* arg$print[] = {&arg$print1, &arg$print2};
            rtl$print(&message, arg$print);

Regards,
Guido