HP Pascal/iX Programmer's Guide (31502-90023)

A-: 7
MPE/iX Extensions
MPE/iX extensions are available only to programs that are run on the
MPE/iX operating system or contain the compiler option OS 'MPE/XL'. They
are:
* Predefined function ccode
* Predefined function fnum
* Predefined function get_alignment
* Predefined function statement_number
* Predefined procedure setconvert
* Predefined procedure strconvert
* Pascal/V packing algorithm
ccode Function
The predefined function ccode returns an integer in the range 0..2, which
represents the condition code set by the most recently executed intrinsic
or external SPL routine.
The correspondence between possible return values and condition codes is:
Value Condition Code
0 CCG
1 CCL
2 CCE
For the meanings of the condition codes, refer to the MPE/iX Intrinsics
Reference Manual .
The value that ccode returns is valid between the time that the intrinsic
or external SPL routine returns and any subsequent calls that can change
the value of ccode , which are:
* Another intrinsic or external SPL routine.
* Any predefined routine.
* An HP Pascal error condition.
NOTE The scope rules for ccode are different in MPE/iX and MPE V.
Example
PROGRAM prog (output);
PROCEDURE intrin; INTRINSIC;
PROCEDURE extspl; EXTERNAL SPL;
PROCEDURE p;
BEGIN
writeln(ccode); {Garbage -- no intrinsic or external SPL
intrin;
writeln(ccode); {Returns condition code that intrin set}
extspl;
writeln(ccode); {Returns condition code that extspl set}
END;
BEGIN
p;
END.
Fnum Function
The predefined function fnum returns the MPE/iX file number of the