Class: XMLService::I_PGM

Inherits:
I_CALL show all
Defined in:
lib/xmlservice.rb

Overview

xmlservice call PGM or SRVPGM mypgm = XMLService::I_SRVPGM.new(“ZZLOTS”,“ZZMANY”,“ZZLIB”,‘error’=>‘on’)

paramters input/output (io=‘both’)

mypgm.input_parms do

bin "mybin", 4               # mypgm.input.mybin = 'DEADBEEF'         PARM0
char "mychar", 32            # mypgm.input.mychar = 'Hi there'        PARM1
varchar "myvchar", 64        # mypgm.input.myvchar = 'Hi variable'    PARM2
varchar4 "myvchar4", 1024    # mypgm.input.myvchar4 = 'Hi variable 4' PARM3
tiny "mytiny"                # mypgm.input.mytiny = 1                 PARM4
short "myshort"              # mypgm.input.myshort = 11               PARM5
long "mylong"                # mypgm.input.mylong = 1111              PARM6
longlong "myll"              # mypgm.input.myll = 11111111            PARM7
utiny "myutiny"              # mypgm.input.myutiny = 1                PARM8
ushort "myushort"            # mypgm.input.myushort = 11              PARM9
ulong "myulong"              # mypgm.input.myulong = 1111             PARM10
ulonglong "myull"            # mypgm.input.myull = 11111111           PARM11
real "myreal4", 2            # mypgm.input.myreal4 = 11.11            PARM12
float4 "myfloat4", 2         # mypgm.input.myfloat4 = 11.11           PARM13
double "mydouble8", 4        # mypgm.input.mydouble8 = 1111.1111      PARM14
float8 "myfloat8", 4         # mypgm.input.myfloat8 = 1111.1111       PARM15
dec "mypack", 12, 2          # mypgm.input.mypack = 11111.11          PARM16
zone "myzone", 8, 4          # mypgm.input.myzone = 11111.1111        PARM17
tiny_enddo "mytinye"         # mypgm.input.mytinye = 1                PARM18  (enddo='mytinye')
short_enddo "myshorte"       # mypgm.input.myshorte = 1               PARM19  (enddo='myshorte')
long_enddo "mylonge"         # mypgm.input.mylonge = 1                PARM20  (enddo='mylonge')
longlong_enddo "mylle"       # mypgm.input.mylle = 1                  PARM21  (enddo='mylle')
utiny_enddo "myutinye"       # mypgm.input.myutinye = 1               PARM22  (enddo='myutinye')
ushort_enddo "myushorte"     # mypgm.input.myushorte = 1              PARM23  (enddo='myutinye')
ulong_enddo "myulonge"       # mypgm.input.myulonge = 1               PARM24  (enddo='myushorte')
ulonglong_enddo "myulle"     # mypgm.input.myulle = 1                 PARM25  (enddo='myulle')
real_enddo "myreal4e", 2     # mypgm.input.myreale = 1                PARM26  (enddo='myreale')
float4_enddo "myfloat4e", 2  # mypgm.input.myfloat4e = 1              PARM27  (enddo='myfloat4e')
double_enddo "mydouble8e", 4 # mypgm.input.double8e = 1               PARM28  (enddo='mydouble8e')
float8_enddo "myfloat8e", 4  # mypgm.input.myfloat8e = 1              PARM29  (enddo='myfloat8e')
dec_enddo "mypacke", 12, 2   # mypgm.input.mypacke = 1                PARM30  (enddo='mypacke') <-------------
zone_enddo "myzonee", 8, 4   # mypgm.input.myzonee = 1                PARM31  (enddo='myzonee')              |
struct "myds1",42 do         # mypgm.input.myds1                      PARM32                                 |
  varchar "ds1varchar", 64   # mypgm.input.myds1[0].ds1varchar = 'hi'                                        |
  dec "ds1packe", 12, 2      # mypgm.input.myds1[1].ds1packe = 222.22                                        |
  struct "myds2",42 do       # mypgm.input.myds1[2].myds2                                                    |
    char "ds2char", 32       # mypgm.input.myds1[2].myds2[0].ds2char = 'hi hi'                               |
    zone "ds2zone", 8, 4     # mypgm.input.myds1[2].myds2[1].ds2zone = 33.3333                               |
    struct_dou "myds3",42,"mypacke" do  # mypgm.input.myds1[2].myds2[2].myds3           (dou='mypacke') <-----
      char "ds3char", 32                # mypgm.input.myds1[2].myds2[2].myds3[0].ds3char = 'hi hi hi'        |
      zone "ds3zone", 8, 4              # mypgm.input.myds1[2].myds2[2].myds3[1].ds3zone = 44.4444           |
    end                                                                                                      |
  end                                                                                                        |
end                                                                                                          |

end |

|

output only (return) |

|

mypgm.return_parms do |

struct "rtds1",42 do                    # mypgm.returndata.rtds1                                             |
  varchar "rt1vchar", 64                # mypgm.returndata.rtds1[0..42].rt1vchar                             |
  dec "rt1packed", 12, 2                # mypgm.returndata.rtds1[0..42].rt1packed                            |
  struct "rtds2",42 do                  # mypgm.returndata.rtds1[0..42].rtds2                                |
    char "rt2char", 32                  # mypgm.returndata.rtds1[0..42].rtds2[0..42].rt2char                 |
    zone "rt2zoned", 8, 4               # mypgm.returndata.rtds1[0..42].rtds2[0..42].rt2zoned                |
    struct_dou "rtds3",42,"mypacke" do  # mypgm.returndata.rtds1[0..42].rtds2[0..42].rtds3 (dou='mypacke') <--
      char "rt3char", 32                # mypgm.returndata.rtds1[0..42].rtds2[0..42].rtds3[0..mypacke].rt3char
      zone "rt3zoned", 8, 4             # mypgm.returndata.rtds1[0..42].rtds2[0..42].rtds3[0..mypacke].rt3zoned
    end
  end
end

end

output

puts mypgm.response.mybin puts mypgm.response.mychar puts mypgm.response.myvchar puts mypgm.response.myvchar4 puts mypgm.response.mytiny puts mypgm.response.myshort puts mypgm.response.mylong puts mypgm.response.myll puts mypgm.response.myutiny puts mypgm.response.myushort puts mypgm.response.myulong puts mypgm.response.myull puts mypgm.response.myreal4 puts mypgm.response.myfloat4 puts mypgm.response.mydouble8 puts mypgm.response.myfloat8 puts mypgm.response.mypack puts mypgm.response.myzone puts mypgm.response.mytinye puts mypgm.response.myshorte puts mypgm.response.mylonge puts mypgm.response.mylle puts mypgm.response.myutinye puts mypgm.response.myushorte puts mypgm.response.myulonge puts mypgm.response.myulle puts mypgm.response.myreale puts mypgm.response.myfloat4e puts mypgm.response.double8e puts mypgm.response.myfloat8e puts mypgm.response.mypacke puts mypgm.response.myzonee puts mypgm.response.myds1 puts mypgm.response.myds1.ds1varchar puts mypgm.response.myds1.ds1packe puts mypgm.response.myds1.myds2 puts mypgm.response.myds1.myds2.ds2char puts mypgm.response.myds1.myds2.ds2zone puts mypgm.response.myds1.myds2.myds3 puts mypgm.response.myds1.myds2.myds3.ds3char puts mypgm.response.myds1.myds2.myds3.ds3zone puts mypgm.returndata.rtds1 puts mypgm.returndata.rtds1.rt1vchar puts mypgm.returndata.rtds1.rt1packed puts mypgm.returndata.rtds1.rtds2 puts mypgm.returndata.rtds1.rtds2.rt2char puts mypgm.returndata.rtds1.rtds2.rt2zoned puts mypgm.returndata.rtds1.rtds2.rtds3 (dou=‘mypacke’) puts mypgm.returndata.rtds1.rtds2.rtds3.rt3char puts mypgm.returndata.rtds1.rtds2.rtds3.rt3zoned

Direct Known Subclasses

I_SRVPGM

Instance Attribute Summary

Attributes inherited from I_CALL

#input, #reponse, #return

Instance Method Summary collapse

Methods inherited from I_CALL

#call, #call_recursive, #dump, #dump_all, #dump_error, #dump_inspect, #dump_inspect_input, #dump_inspect_response, #dump_inspect_returndata, #execute, #format_inspect, #format_inspect_include, #format_inspect_recursive, #out_xml, #reserved_words, #response, #returndata, #xmlservice, #xmlservice_diag_parse, #xmlservice_error

Methods inherited from I_Meta

#add_user_accessor, #instance_variable_forward_get, #instance_variable_forward_set, #remove_user_accessor, #shortCut

Constructor Details

#initialize(name, lib = nil, options = nil, func = nil) ⇒ I_PGM

Returns a new instance of I_PGM.



1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
 
# File 'lib/xmlservice.rb', line 1765

def initialize(name,lib=nil,options=nil,func=nil)
  @xml_name = name
  @xml_lib = lib
  @xml_func = func
  @xml_parms = Array.new
  @xml_reti = nil
  @xml_doc = nil
  @xml_isParm = true
  super(options)
end

Instance Method Details

#<<(elem) ⇒ Object 



1812
1813
1814
1815
 
# File 'lib/xmlservice.rb', line 1812

def << (elem)
  self.inputParameter(nil,nil,elem)
  self
end

#[](idx) ⇒ Object 



2203
2204
2205
 
# File 'lib/xmlservice.rb', line 2203

def [](idx)
  self.value(idx)
end

#[]=(idx, elem) ⇒ Object 



1816
1817
1818
1819
 
# File 'lib/xmlservice.rb', line 1816

def []= (idx,elem)
  self.inputParameter(nil,nil,elem,idx)
  self
end

#assoc(idx) ⇒ Object 



2200
2201
2202
 
# File 'lib/xmlservice.rb', line 2200

def assoc(idx)
  self.value(idx)
end

#bin(var, size, data = "00") ⇒ Object 



1829
1830
1831
1832
1833
1834
1835
1836
1837
 
# File 'lib/xmlservice.rb', line 1829

def bin(var, size, data="00")
  el = I_b.new(var,size,data)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("xbin",el)
  end
  el
end

#char(var, size, data = " ") ⇒ Object 



1838
1839
1840
1841
1842
1843
1844
1845
1846
 
# File 'lib/xmlservice.rb', line 1838

def char(var, size, data=" ")
  el = I_a.new(var,size,data)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("xchr",el)
  end
  el
end

#dec(var, size, scale, data = 0) ⇒ Object 



1973
1974
1975
1976
1977
1978
1979
1980
1981
 
# File 'lib/xmlservice.rb', line 1973

def dec(var, size, scale, data=0)
  el = I_p.new(var,size,scale,data)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("xdec",el)
  end
  el
end

#dec_enddo(var, size, scale, data = 0) ⇒ Object 



2108
2109
2110
2111
2112
2113
2114
2115
2116
 
# File 'lib/xmlservice.rb', line 2108

def dec_enddo(var, size, scale, data=0)
  el = I_p.new(var,size,scale,data,var)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("doudec",el)
  end
  el
end

#double(var, scale, data = 0.0) ⇒ Object 



1955
1956
1957
1958
1959
1960
1961
1962
1963
 
# File 'lib/xmlservice.rb', line 1955

def double(var, scale, data=0.0)
  el = I_Float8.new(var,scale,data)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("xdouble",el)
  end
  el
end

#double_enddo(var, scale, data = 0.0) ⇒ Object 



2090
2091
2092
2093
2094
2095
2096
2097
2098
 
# File 'lib/xmlservice.rb', line 2090

def double_enddo(var, scale, data=0.0)
  el = I_Float8.new(var,scale,data,var)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("doudouble",el)
  end
  el
end

#float4(var, scale, data = 0.0) ⇒ Object 



1946
1947
1948
1949
1950
1951
1952
1953
1954
 
# File 'lib/xmlservice.rb', line 1946

def float4(var, scale, data=0.0)
  el = I_Float4.new(var,scale,data)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("xfloat4",el)
  end
  el
end

#float4_enddo(var, scale, data = 0.0) ⇒ Object 



2081
2082
2083
2084
2085
2086
2087
2088
2089
 
# File 'lib/xmlservice.rb', line 2081

def float4_enddo(var, scale, data=0.0)
  el = I_Float4.new(var,scale,data,var)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("doufloat4",el)
  end
  el
end

#float8(var, scale, data = 0.0) ⇒ Object 



1964
1965
1966
1967
1968
1969
1970
1971
1972
 
# File 'lib/xmlservice.rb', line 1964

def float8(var, scale, data=0.0)
  el = I_Float8.new(var,scale,data)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("xfloat8",el)
  end
  el
end

#float8_enddo(var, scale, data = 0.0) ⇒ Object 



2099
2100
2101
2102
2103
2104
2105
2106
2107
 
# File 'lib/xmlservice.rb', line 2099

def float8_enddo(var, scale, data=0.0)
  el = I_Float8.new(var,scale,data,var)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("doufloat8",el)
  end
  el
end

#func ⇒ Object 



1781
1782
1783
 
# File 'lib/xmlservice.rb', line 1781

def func
  @xml_func
end

#getIndexOutputParameter(idx) ⇒ Object 



2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170
2171
2172
2173
2174
2175
2176
2177
 
# File 'lib/xmlservice.rb', line 2159

def getIndexOutputParameter(idx)
  parm = nil
  i = 0
  @xml_doc.elements.each("/myscript/pgm/parm") do |element|
    if idx.instance_of? String
      if idx == element.attributes['var']
        parm = I_Parameter.new(element)
        break
      end
    else 
      if i == idx
        parm = I_Parameter.new(element)
        break
      end
    end
    i += 1
  end
  parm
end

#getInputParameter(idx) ⇒ Object 



1784
1785
1786
1787
1788
1789
1790
 
# File 'lib/xmlservice.rb', line 1784

def getInputParameter(idx)
  parm = nil
  if @xml_parms.include?(idx)
    parm = @xml_parms[idx]
  end
  parm
end

#input_parms(&block) ⇒ Object 



2126
2127
2128
2129
2130
 
# File 'lib/xmlservice.rb', line 2126

def input_parms(&block)
   @xml_isParm = true
   self.instance_eval(&block)
   self
end

#inputParameter(var, io, elem, idx = nil) ⇒ Object 



1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
 
# File 'lib/xmlservice.rb', line 1791

def inputParameter(var,io,elem,idx=nil)
  if @xml_parms == nil
    @xml_parms = Array.new
  end
  if var == nil
    if !idx
      var = "PARM" << @xml_parms.count.to_s
    else
      var = "PARM" << idx.to_s
    end
  end
  if io == nil
    io = "io"
  end
  if !idx
    idx = @xml_parms.count
  end
  @xml_parms[idx] = I_Parameter.new(var,io,elem)
  @input.add_user_accessor(var,@xml_parms[idx].value)
  self.shortCut(@input,@xml_parms[idx])
end

#lib ⇒ Object 



1778
1779
1780
 
# File 'lib/xmlservice.rb', line 1778

def lib
  @xml_lib
end

#long(var, data = 0) ⇒ Object 



1883
1884
1885
1886
1887
1888
1889
1890
1891
 
# File 'lib/xmlservice.rb', line 1883

def long(var, data=0)
  el = I_Int32.new(var,data)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("xlong",el)
  end
  el
end

#long_enddo(var, data = 0) ⇒ Object 



2018
2019
2020
2021
2022
2023
2024
2025
2026
 
# File 'lib/xmlservice.rb', line 2018

def long_enddo(var, data=0)
  el = I_Int32.new(var,data,var)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("doulong",el)
  end
  el
end

#longlong(var, data = 0) ⇒ Object 



1892
1893
1894
1895
1896
1897
1898
1899
1900
 
# File 'lib/xmlservice.rb', line 1892

def longlong(var, data=0)
  el = I_Int64.new(var,data)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("xll",el)
  end
  el
end

#longlong_enddo(var, data = 0) ⇒ Object 



2027
2028
2029
2030
2031
2032
2033
2034
2035
 
# File 'lib/xmlservice.rb', line 2027

def longlong_enddo(var, data=0)
  el = I_Int64.new(var,data,var)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("doull",el)
  end
  el
end

#name ⇒ Object 



1775
1776
1777
 
# File 'lib/xmlservice.rb', line 1775

def name
  @xml_name
end

#outputParameter(idx) ⇒ Object 



2194
2195
2196
 
# File 'lib/xmlservice.rb', line 2194

def outputParameter(idx)
  self.value(idx)
end

#parse_diag_attr ⇒ Object 



2243
2244
2245
 
# File 'lib/xmlservice.rb', line 2243

def parse_diag_attr()
  return self.xmlservice_diag_parse("/myscript/pgm")
end

#parse_output_attr ⇒ Object 



2137
2138
2139
2140
2141
2142
2143
2144
2145
2146
2147
2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
 
# File 'lib/xmlservice.rb', line 2137

def parse_output_attr()
  super()
  @xml_doc.elements.each("/myscript/pgm/success") do |element|
    @response.add_user_accessor("output", element.text)
    break
  end
  @xml_doc.elements.each("/myscript/pgm/error") do |element|
    @response.add_user_accessor("output", element.text)
    break
  end
  idx = 0
  loop do
    parm = self.getIndexOutputParameter(idx)
    if parm
      @response.add_user_accessor(parm.var, parm)
      self.shortCut(@response,parm)
    else
      break
    end
    idx += 1
  end
end

#parse_return_attr ⇒ Object 



2210
2211
2212
2213
2214
2215
2216
2217
 
# File 'lib/xmlservice.rb', line 2210

def parse_return_attr()
  super()
  ret = self.ret()
  if ret
    @returndata.add_user_accessor(ret.var, ret)
    self.shortCut(@returndata,ret)
  end
end

#real(var, scale, data = 0.0) ⇒ Object 



1937
1938
1939
1940
1941
1942
1943
1944
1945
 
# File 'lib/xmlservice.rb', line 1937

def real(var, scale, data=0.0)
  el = I_Float4.new(var,scale,data)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("xreal",el)
  end
  el
end

#real_enddo(var, scale, data = 0.0) ⇒ Object 



2072
2073
2074
2075
2076
2077
2078
2079
2080
 
# File 'lib/xmlservice.rb', line 2072

def real_enddo(var, scale, data=0.0)
  el = I_Float4.new(var,scale,data,var)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("doureal",el)
  end
  el
end

#ret ⇒ Object 



2218
2219
2220
2221
2222
2223
2224
2225
2226
 
# File 'lib/xmlservice.rb', line 2218

def ret()
  ret = nil
  if @xml_doc
    @xml_doc.elements.each("/myscript/pgm/return") do |element|
      ret = I_Return.new(element)
    end
  end
  ret
end

#return_parms(&block) ⇒ Object 



2131
2132
2133
2134
2135
2136
 
# File 'lib/xmlservice.rb', line 2131

def return_parms(&block)
   @xml_isParm = false
   self.instance_eval(&block)
   self
   @xml_isParm = true
end

#retValue ⇒ Object 



2227
2228
2229
2230
2231
2232
2233
2234
 
# File 'lib/xmlservice.rb', line 2227

def retValue()
  elem = nil
  ret = self.ret()
  if ret
    elem = ret.value
  end
  elem
end

#retVar ⇒ Object 



2235
2236
2237
2238
2239
2240
2241
2242
 
# File 'lib/xmlservice.rb', line 2235

def retVar()
  var = "*NONE"
  ret = self.ret()
  if ret
    var = ret.var
  end
  var
end

#setReturn(var, elem) ⇒ Object 



2206
2207
2208
2209
 
# File 'lib/xmlservice.rb', line 2206

def setReturn(var,elem)
  @xml_reti = I_Return.new(var,elem)
  @input.add_user_accessor(var,@xml_reti.value)
end

#short(var, data = 0) ⇒ Object 



1874
1875
1876
1877
1878
1879
1880
1881
1882
 
# File 'lib/xmlservice.rb', line 1874

def short(var, data=0)
  el = I_Int16.new(var,data)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("xshort",el)
  end
  el
end

#short_enddo(var, data = 0) ⇒ Object 



2009
2010
2011
2012
2013
2014
2015
2016
2017
 
# File 'lib/xmlservice.rb', line 2009

def short_enddo(var, data=0)
  el = I_Int16.new(var,data,var)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("doushort",el)
  end
  el
end

#struct(var, dim, &block) ⇒ Object 



1820
1821
1822
1823
1824
1825
1826
1827
1828
 
# File 'lib/xmlservice.rb', line 1820

def struct(var,dim,&block)
  ds = I_DS.new(var,dim).input_elems(&block)
  if @xml_isParm
    self.inputParameter(nil,nil,ds)
  else
    self.setReturn("xaggr",ds)
  end
  ds
end

#struct_dou(var, dim, dou, &block) ⇒ Object 



1991
1992
1993
1994
1995
1996
1997
1998
1999
 
# File 'lib/xmlservice.rb', line 1991

def struct_dou(var,dim,dou,&block)
  ds = I_DS.new(var,dim,dou).input_elems(&block)
  if @xml_isParm
    self.inputParameter(nil,nil,ds)
  else
    self.setReturn("douaggr",ds)
  end
  ds
end

#tiny(var, data = 0) ⇒ Object 



1865
1866
1867
1868
1869
1870
1871
1872
1873
 
# File 'lib/xmlservice.rb', line 1865

def tiny(var, data=0)
  el = I_Int8.new(var,data)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("xtiny",el)
  end
  el
end

#tiny_enddo(var, data = 0) ⇒ Object 



2000
2001
2002
2003
2004
2005
2006
2007
2008
 
# File 'lib/xmlservice.rb', line 2000

def tiny_enddo(var, data=0)
  el = I_Int8.new(var,data,var)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("doutiny",el)
  end
  el
end

#to_xml ⇒ Object 



2246
2247
2248
2249
2250
2251
2252
2253
2254
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
2275
2276
2277
 
# File 'lib/xmlservice.rb', line 2246

def to_xml
  xml = ""
  lib = ""
  if @xml_lib
    lib = " lib='#{@xml_lib}'"
  end
  func = ""
  if @xml_func
    func = " func='#{@xml_func}'"
  end
  error = " error='fast'"
  opm = ""
  if @xml_options
    if @xml_options.has_key?(:error)
      error = " error='#{@xml_options[:error]}'"
    end
    if @xml_options.has_key?(:opm)
      opm = " opm='#{@xml_options[:opm]}'"
    end
  end
  xml = "<pgm name='#{@xml_name}'#{func}#{lib}#{error}#{opm}>\n"
  if @xml_parms
    @xml_parms.each do |a|
      xml << a.to_xml
    end
  end
  if @xml_reti
    xml << @xml_reti.to_xml
  end
  xml << "</pgm>\n"
  xml
end

#ulong(var, data = 0) ⇒ Object 



1919
1920
1921
1922
1923
1924
1925
1926
1927
 
# File 'lib/xmlservice.rb', line 1919

def ulong(var, data=0)
  el = I_Uint32.new(var,data)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("xulong",el)
  end
  el
end

#ulong_enddo(var, data = 0) ⇒ Object 



2054
2055
2056
2057
2058
2059
2060
2061
2062
 
# File 'lib/xmlservice.rb', line 2054

def ulong_enddo(var, data=0)
  el = I_Uint32.new(var,data,var)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("douulong",el)
  end
  el
end

#ulonglong(var, data = 0) ⇒ Object 



1928
1929
1930
1931
1932
1933
1934
1935
1936
 
# File 'lib/xmlservice.rb', line 1928

def ulonglong(var, data=0)
  el = I_Uint64.new(var,data)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("xull",el)
  end
  el
end

#ulonglong_enddo(var, data = 0) ⇒ Object 



2063
2064
2065
2066
2067
2068
2069
2070
2071
 
# File 'lib/xmlservice.rb', line 2063

def ulonglong_enddo(var, data=0)
  el = I_Uint64.new(var,data,var)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("douull",el)
  end
  el
end

#ushort(var, data = 0) ⇒ Object 



1910
1911
1912
1913
1914
1915
1916
1917
1918
 
# File 'lib/xmlservice.rb', line 1910

def ushort(var, data=0)
  el = I_Uint16.new(var,data)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("xushort",el)
  end
  el
end

#ushort_enddo(var, data = 0) ⇒ Object 



2045
2046
2047
2048
2049
2050
2051
2052
2053
 
# File 'lib/xmlservice.rb', line 2045

def ushort_enddo(var, data=0)
  el = I_Uint16.new(var,data,var)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("douushort",el)
  end
  el
end

#utiny(var, data = 0) ⇒ Object 



1901
1902
1903
1904
1905
1906
1907
1908
1909
 
# File 'lib/xmlservice.rb', line 1901

def utiny(var, data=0)
  el = I_Uint8.new(var,data)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("xutiny",el)
  end
  el
end

#utiny_enddo(var, data = 0) ⇒ Object 



2036
2037
2038
2039
2040
2041
2042
2043
2044
 
# File 'lib/xmlservice.rb', line 2036

def utiny_enddo(var, data=0)
  el = I_Uint8.new(var,data,var)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("douutiny",el)
  end
  el
end

#value(idx) ⇒ Object 



2186
2187
2188
2189
2190
2191
2192
2193
 
# File 'lib/xmlservice.rb', line 2186

def value(idx)
  elem = nil
  parm = self.getIndexOutputParameter(idx)
  if parm
    elem = parm.value
  end
  elem
end

#var(idx) ⇒ Object 



2178
2179
2180
2181
2182
2183
2184
2185
 
# File 'lib/xmlservice.rb', line 2178

def var(idx)
  var = "*NONE"
  parm = self.getIndexOutputParameter(idx)
  if parm
    var = parm.var
  end
  var
end

#varchar(var, size, data = " ") ⇒ Object 



1847
1848
1849
1850
1851
1852
1853
1854
1855
 
# File 'lib/xmlservice.rb', line 1847

def varchar(var, size, data=" ")
  el = I_a_varying.new(var,size,data)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("xvchr",el)
  end
  el
end

#varchar4(var, size, data = " ") ⇒ Object 



1856
1857
1858
1859
1860
1861
1862
1863
1864
 
# File 'lib/xmlservice.rb', line 1856

def varchar4(var, size, data=" ")
  el = I_a_varying_4.new(var,size,data)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("xvchr4",el)
  end
  el
end

#zone(var, size, scale, data = 0) ⇒ Object 



1982
1983
1984
1985
1986
1987
1988
1989
1990
 
# File 'lib/xmlservice.rb', line 1982

def zone(var, size, scale, data=0)
  el = I_s.new(var,size,scale,data)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("xzone",el)
  end
  el
end

#zone_enddo(var, size, scale, data = 0) ⇒ Object 



2117
2118
2119
2120
2121
2122
2123
2124
2125
 
# File 'lib/xmlservice.rb', line 2117

def zone_enddo(var, size, scale, data=0)
  el = I_s.new(var,size,scale,data,var)
  if @xml_isParm
    self.inputParameter(nil,nil,el)
  else
    self.setReturn("douzone",el)
  end
  el
end