/* BEGIN DOCUMENTATION Name: RANK Created: 6-Mar-84 W Epp Last Update: Title: RANK, PL/I standard function Index: Abstract: Return the binary ASCII code for the first character of a string Usage: DCL RANK ENTRY(CHAR) RETURNS(FIXED BIN(7)); I = RANK(S); Parameter: Normally a single character, though it may be any character string (only the first character in the string is used - declare it DCL RANK ENTRY(CHAR(*)) RETURNS(FIXED BIN(7)) in this case). Environment: AIS-PL/I See Also: Description: Example(s): IF '0'<=HEXCHAR & HEXCHAR<='9' THEN HEXVALUE = RANK(HEXCHAR) - RANK('0'); ELSE IF 'A'<=HEXCHAR & HEXCHAR<='F' THEN HEXVALUE = RANK(HEXCHAR) - RANK('A') + 10; ELSE PUT SKIP LIST('ILLEGAL HEX DIGIT: ',HEXCHAR); Uses: Internal: Update History: END DOCUMENTATION */ RANK: procedure(c) returns(fixed bin(7)); dcl c char, b fixed bin(7) based(p); p = addr(c); return(b); end;