- 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 and 12:
12.2.7.2 ITEMS ....................
- Page 13 and 14:
Foreword Purpose This standard prov
- 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: call Raise 40.29, Option InValue =
- 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