%OCT
Return an octal string representation of a numeric value
WTSupported in traditional Synergy on Windows
|
WNSupported in Synergy .NET on Windows
|
USupported on UNIX
|
VSupported on OpenVMS
|
string = %OCT(value[, magnitude])
Return value
string
The octal string representation of value. (a)
Arguments
value
The value to convert to an octal character string. (n)
magnitude
(optional) A value that determines the number of characters in the returned string, as follows: (n)
1 = 3-character string for an 8-bit value
2 = 6-character string for a 16-bit value
4 = 11-character string for a 32-bit value
8 = 22-character string for a 64-bit value
Discussion
%OCT converts a decimal data value to a 32-bit longword value.
If magnitude is not present or if it contains a value other than 1, 2, 4, or 8, the resulting string is 11 characters long (if value can be represented in 32 bits) or 22 characters long (if value cannot be represented in 32 bits).
Examples
The following example builds and spawns a command string to check for the protection mode of a specific file. The protection modes are stored in a file named chkmod.txt.
function chk_mode a_file ,a .define MODCHN ,18 .define MODFIL ,"WRK:chkmod.txt" record string ,a80 slen ,d2 file ,a30 modes ,a9 value ,d9 i ,i1 proc file = a_file open(MODCHN, i, a_file) [err=nofile] ;Does file exist? close MODCHN xcall s_bld(string, slen, "ls -salt %A >%A", a_file, MODFIL) xcall spawn(string) ;Get full listing clear string file = MODFIL open(MODCHN, i, MODFIL) [err=nofile] reads(MODCHN, string, nofile) modes = string(5:9) ;Get protection modes (check position!) for i from 1 thru 9 value(i:1) = .not.(modes(i:1).eq.'-') freturn %oct(value, 1) nofile, writes(TTCHN, "Error: " + file + " not found") freturn ("-1") endfunction