- Page 1 and 2: Programming Language Extended Rexx
- Page 3 and 4: Foreword ..........................
- Page 5 and 6: 5.14.2 API_Value ..................
- Page 7 and 8: 9.5.9 EXIT ........................
- Page 9 and 10: 10.4.3 BITOR ......................
- Page 11: 12.2.7.2 ITEMS ....................
- Page 15 and 16: 3.1.14 default output stream: An ou
- Page 17 and 18: 17 - Symbol length shall be support
- Page 19 and 20: API_Start(How, Source, Environment,
- Page 21 and 22: If this function is unable to suppl
- Page 23 and 24: Set #Outcome to be a reference to a
- Page 25 and 26: Text of Config_ExternalMethod waiti
- Page 27 and 28: - when the configuration is unable
- Page 29 and 30: Option is 'N' or 'C'. Semantics: If
- Page 31 and 32: Write String as a line to the desti
- Page 33 and 34: How does this fit with variables as
- Page 35 and 36: Returns both the name and the value
- Page 37 and 38: - EXPONENT_SIGN occurs when the cha
- Page 39 and 40: x3j18:=program Eos | Msg35.1 progra
- Page 41 and 42: arg := 'ARG' [template list] call :
- Page 43 and 44: method name:=(taken constant | Msg1
- Page 45 and 46: If a message_term contains a '[' it
- Page 47 and 48: variable pool referenced by #Upper
- Page 49 and 50: See nnn for the value of the third
- Page 51 and 52: If the and_expression is a comparis
- Page 53 and 54: * Adjust the exponent so that decim
- Page 55 and 56: Align1 = 0 Align2 = Exponent1 - Exp
- Page 57 and 58: zero can happen. */ /* x||y is the
- Page 59 and 60: If there is such a matching label,
- Page 61 and 62: The argument Streams is the value o
- Page 63 and 64:
This notation is used in the descri
- Page 65 and 66:
'matching THEN clause; found ""' #E
- Page 67 and 68:
#ErrorText.33 = 'Invalid expression
- Page 69 and 70:
'routine "" was called as a functio
- Page 71 and 72:
For each routine in order of appear
- Page 73 and 74:
call #Raise 'HALT', substr(#Respons
- Page 75 and 76:
call AddressSetup /* Note what is s
- Page 77 and 78:
9.5.5 Command to the configuration
- Page 79 and 80:
#Loop = #Loop+1 #Iterate.#Loop = #C
- Page 81 and 82:
The opportunity is provided for a f
- Page 83 and 84:
if \datatype(Value,'W') then call #
- Page 85 and 86:
end /* while */ if Template.Tok \==
- Page 87 and 88:
The PROCEDURE instruction is used w
- Page 89 and 90:
If \#Contains(select_body, 'OTHERWI
- Page 91 and 92:
Error number 3 is available to repo
- Page 93 and 94:
10 Built-in functions 10.1 Notation
- Page 95 and 96:
end when Type == 'HEX' then /* Hexa
- Page 97 and 98:
when InOption == 'C' then do parse
- Page 99 and 100:
Leap: procedure /* Return 1 if the
- Page 101 and 102:
call CheckArgs 'rANY rANY' Output =
- Page 103 and 104:
*DATATYPE tests for exponent out of
- Page 105 and 106:
* No return to here */ 10.1.15 OVER
- Page 107 and 108:
* Here if argument was not a charac
- Page 109 and 110:
if Start = 0 then return 0 /* Start
- Page 111 and 112:
end end /* ShowExp now indicates wh
- Page 113 and 114:
select when Number < 0 then Output
- Page 115 and 116:
Value=#Bif_Arg.1 #Interactive.#Leve
- Page 117 and 118:
* 2s-complement for negatives. */ i
- Page 119 and 120:
Mode = #Outcome r = '' do until Cou
- Page 121 and 122:
#StreamState.Stream = '' if \#Bif_A
- Page 123 and 124:
Value = #Bif_Arg.2 if #Bif_ArgExist
- Page 125 and 126:
Maximum = #Bif_Arg.1 if Maximum>100
- Page 127 and 128:
Subject = #Bif_Arg.1 if #Bif_ArgExi
- Page 129 and 130:
call Raise 40.29, Option InValue =
- Page 131 and 132:
11 Built-in classes 11.1 Notation T
- Page 133 and 134:
Causes the receiver class to inheri
- Page 135 and 136:
::method D2C ::method X2B ::method
- Page 137 and 138:
12 Provided classes (Informative) 1
- Page 139 and 140:
12.2.2.1 INIT ::method init expose
- Page 141 and 142:
* Returns a supplier object for the
- Page 143 and 144:
12.2.4 Class queue ::class 'Queue'
- Page 145 and 146:
eturn CommonUnion(self,EnBag(arg(1)
- Page 147 and 148:
cs=self~supplier do while cs~availa
- Page 149 and 150:
if j=0 then return .nil /* Run the
- Page 151 and 152:
if arg(2,'E') then t=arg(2)[1] self
- Page 153 and 154:
END jstart = 1 output = 1 END /* pr
- Page 155 and 156:
eturn self ::method exposed private
- Page 157 and 158:
[r~dimension(1)+1]=a[j+1] end j ret
- Page 159 and 160:
a=self~exposed /* Returns the index
- Page 161 and 162:
end j return r ::class 'Table' subc
- Page 163 and 164:
if arg(1)==a[j+1] then n=n+1 end j
- Page 165 and 166:
if arg(1)==a[j+1] then r[r~dimensio
- Page 167 and 168:
do j=4 by 3 to 1+3*a[1]/*ItemsCount
- Page 169 and 170:
if arg(2,'E') then t=arg(2)[1] self
- Page 171 and 172:
end return TmpColl End commented aw
- Page 173 and 174:
::method makearray /* rCHARLINE */
- Page 175 and 176:
Annex A (informative) Rationale Thi
- Page 177 and 178:
A model is needed for whether chang
- Page 179 and 180:
Function Interface, System Exit Int
- Page 181 and 182:
non-strings, which can behave in a
- Page 183 and 184:
#Tracing. is the trace setting lett
- Page 185 and 186:
Annex C (informative) Bibliography