Function get_status

src/engine/execvms.cpp:341–358

get_status() - returns status of the VMS command execution. - Map VMS status to its severity (lower 3-bits) - W-DCL-IVVERB is returned on unrecognized command -- map to general ERROR */

   - W-DCL-IVVERB is returned on unrecognized command -- map to general ERROR
*/
int get_status( int vms_status )
{
#define VMS_STATUS_DCL_IVVERB 0x00038090

    int status;

    switch (vms_status)
    {
    case VMS_STATUS_DCL_IVVERB:
        status = VMS_ERROR;
        break;

    default:
        status = vms_status & 0x07; /* $SEVERITY bits */
    }

    return status;
}


#define __NEW_STARLET 1