STACKDUMP' Intrinsic

Syntax

   STACKDUMP' (filename, idnumber, flags, selec);

Parameters

filename

Byte array (required)

The first byte of this array contains the file number of a previously opened file. The file is used as the output file. The file must have a record length between 32 and 256 CM words, and write access must be allowed for the file.

idnumber

16-bit integer (required)

If the intrinsic fails due to a file system error, the file system specific error number of the failure is returned here. Any value passed into the intrinsic through this parameter is ignored.

flags

16-bit unsigned integer (optional)

This parameter is provided for compatibility with MPE V. If it is present in the intrinsic call, it is ignored and has no effect.

selec

32-bit integer array by reference (optional)

This parameter is provided for compatibility with MPE V. If it is present in the intrinsic call, it is ignored and has no effect.

Discussion

Condition Codes

CCE

Request granted.

CCG

Request denied. One of two possible problems causes this condition code. First, an invalid address for the location of the filename parameter was detected. Second, the file record size was not between 32 and 256 CM words.

CCL

Request denied. User does not have access to the file number passed in the filename parameter.

Example

  PROCEDURE dump_stack_to_fnum(fnum : shortint);

  TYPE  bit8 = 0..255;

        kludge_record = RECORD
          CASE integer OF
             0 : (byte_1 : bit8;
                  byte_2 : bit8);

             1 : (pac     : packed array[1..2] OF char);
          END;

  VAR   kludge_var : kludge_record;

  procedure STACKDUMP_PRIME $alias 'stackdump'''$; intrinsic;

  BEGIN
    kludge_var.byte_1 := fnum; { This assumes that the value of FNUM }
                               { is no bigger than 8 bits.  This is  }
                               { a valid assumption.                 }

  { Call STACKDUMP' to produce the stack trace.                      }
    stackdump_prime(kludge_var.pac);
  END;