xmlservice 1.3.0

data/test/test_60000_toolkit_driver/test_60110_DriverCallSrvPgmZZARRAY.rb

@@ -0,0 +1,149 @@
+# File: test_60110_DriverCallSrvPgmZZARRAY.rb
+require "../test_authorization/auth"
+require "../test_data/rowcol"
+
+#     D ARRAYMAX        c                   const(999)
+#     D dcRec_t         ds                  qualified based(Template)
+#     D  dcMyName                     10A
+#     D  dcMyJob                    4096A
+#     D  dcMyRank                     10i 0
+#     D  dcMyPay                      12p 2
+#      *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+#      * zzarray: check return array aggregate 
+#      *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+#     P zzarray         B                   export
+#     D zzarray         PI                  likeds(dcRec_t) dim(ARRAYMAX)
+#     D  myName                       10A
+#     D  myMax                        10i 0
+#     D  myCount                      10i 0
+class Test_60110_DriverCallSrvPgmZZARRAY < RowColUnitTest
+  # -------------------------------
+  # test functions (start with prefix test_)
+  # rake test -- Unit run alpha sort order
+  # run #1) test_0000_connect
+  # run #2) test_nnnn_xxx
+  # :
+  # run #n) test_9999_close
+  # -------------------------------
+
+  def test_0050_zzarray
+    count = 5
+    zzwho = 'Ranger'
+    zzarray = XMLService::I_SRVPGM.new("ZZSRV","ZZARRAY",$toolkit_test_lib,{'error'=>'on'})
+    zzarray << XMLService::I_Char.new('myName',10,'FlinRock')
+    zzarray << XMLService::I_Int32.new('myMax',20)
+    zzarray << XMLService::I_Int32.new('myCount',0,'mycount')
+    zzarray.setReturn("aggregate", 
+            XMLService::I_DS.new("dcRec_t",999,'mycount',
+            [ 
+              XMLService::I_Char.new('dcMyName',10,'na'),
+              XMLService::I_Char.new('dcMyJob',4096,'na'),
+              XMLService::I_Int32.new('dcMyRank',0),
+              XMLService::I_PackedDecimal.new('dcMyPay',12,2,0.0)
+            ]))
+
+
+    # set input variables for call
+    zzarray.input.PARM0.myName = 'Skippy'
+    zzarray.input.PARM1.myMax  = 9
+    zzarray.input.PARM2.myCount= 0
+    puts "\n+++++++++ input normal ++++++++++++++++"
+    puts zzarray.to_xml
+    # verify
+    self.match_value(__method__,__LINE__,'myName'     ,'Skippy'    ,zzarray.input.PARM0.myName)
+    self.match_value(__method__,__LINE__,'myMax'      ,9           ,zzarray.input.PARM1.myMax)
+    self.match_value(__method__,__LINE__,'myCount'    ,0           ,zzarray.input.PARM2.myCount)
+
+
+    # set input variables for call
+    zzarray.input.myName = zzwho
+    zzarray.input.myMax  = count
+    zzarray.input.myCount= 0
+    puts "\n+++++++++ input fewer ++++++++++++++++"
+    puts zzarray.to_xml
+    # verify
+    self.match_value(__method__,__LINE__,'myName'     ,zzwho    ,zzarray.input.PARM0.myName)
+    self.match_value(__method__,__LINE__,'myMax'      ,count    ,zzarray.input.PARM1.myMax)
+    self.match_value(__method__,__LINE__,'myCount'    ,0        ,zzarray.input.PARM2.myCount)
+
+    # call IBM i
+    zzarray.call
+
+    # puts zzarray.inspect
+    puts "\n+++++++++ dump_inspect ++++++++++++++++"
+    puts zzarray.dump_inspect
+
+	  # xmlservice error occurred?
+    rc = zzarray.xmlservice_error
+    if rc
+      puts zzcall.dump_error
+      self.match_value(__method__,__LINE__,'error' ,false,rc)
+    end
+
+    # output xml
+    puts "\n+++++++++ output xml ++++++++++++++++"
+    puts zzarray.out_xml
+
+
+    # output
+    puts "\n+++++++++ output ++++++++++++++++"
+    puts "#{zzarray.name}.#{zzarray.func}:\n"
+    puts " myName....#{zzarray.response.myName}\n"
+    puts " myMax.....#{zzarray.response.myMax}\n"
+    puts " myCount...#{zzarray.response.myCount}\n"
+    i = 0
+    zzarray.returndata.dcRec_t.each do |dcRec_t|
+      i += 1
+      puts "dcRec_t[#{i}]"
+      puts "  Name...#{dcRec_t.dcMyName}"
+      puts "  Job....#{dcRec_t.dcMyJob}"
+      puts "  Rank...#{dcRec_t.dcMyRank}"
+      puts "  Pay....#{dcRec_t.dcMyPay}"
+    end
+    # verify
+    self.match_value(__method__,__LINE__,'myName'     ,zzwho    ,zzarray.response.myName)
+    self.match_value(__method__,__LINE__,'myMax'      ,count    ,zzarray.response.myMax)
+    self.match_value(__method__,__LINE__,'myCount'    ,count    ,zzarray.response.myCount)
+    for i in 0..zzarray.returndata.dcRec_t.count-1
+      dcMyName = zzarray.response.myName.to_s + (i+1).to_s
+      dcMyJob = "Test " + (100 + i + 1).to_s
+      dcMyRank = 10 + i + 1
+      dcMyPay = 13.42 * (i+1)
+      self.match_value(__method__,__LINE__,'dcMyName' ,dcMyName ,zzarray.returndata.dcRec_t[i].dcMyName)
+      self.match_value(__method__,__LINE__,'dcMyJob'  ,dcMyJob  ,zzarray.returndata.dcRec_t[i].dcMyJob)
+      self.match_value(__method__,__LINE__,'dcMyRank' ,dcMyRank ,zzarray.returndata.dcRec_t[i].dcMyRank)
+      self.match_value(__method__,__LINE__,'dcMyPay'  ,dcMyPay  ,zzarray.returndata.dcRec_t[i].dcMyPay)
+    end
+
+    # output
+    puts "\n+++++++++ output long ++++++++++++++++"
+    puts "#{zzarray.name}.#{zzarray.func}:\n"
+    puts " myName....#{zzarray.response.PARM0.myName}\n"
+    puts " myMax.....#{zzarray.response.PARM1.myMax}\n"
+    puts " myCount...#{zzarray.response.PARM2.myCount}\n"
+    i = 0
+    zzarray.returndata.aggregate.dcRec_t.each do |dcRec_t|
+      i += 1
+      puts "dcRec_t[#{i}]"
+      puts "  Name...#{dcRec_t.dcMyName}"
+      puts "  Job....#{dcRec_t.dcMyJob}"
+      puts "  Rank...#{dcRec_t.dcMyRank}"
+      puts "  Pay....#{dcRec_t.dcMyPay}"
+    end
+    # verify
+    self.match_value(__method__,__LINE__,'myName'     ,zzwho    ,zzarray.response.PARM0.myName)
+    self.match_value(__method__,__LINE__,'myMax'      ,count    ,zzarray.response.PARM1.myMax)
+    self.match_value(__method__,__LINE__,'myCount'    ,count    ,zzarray.response.PARM2.myCount)
+    for i in 0..zzarray.returndata.aggregate.dcRec_t.count-1
+      dcMyName = zzarray.response.PARM0.myName.to_s + (i+1).to_s
+      dcMyJob = "Test " + (100 + i + 1).to_s
+      dcMyRank = 10 + i + 1
+      dcMyPay = 13.42 * (i+1)
+      self.match_value(__method__,__LINE__,'dcMyName' ,dcMyName ,zzarray.returndata.aggregate.dcRec_t[i].dcMyName)
+      self.match_value(__method__,__LINE__,'dcMyJob'  ,dcMyJob  ,zzarray.returndata.aggregate.dcRec_t[i].dcMyJob)
+      self.match_value(__method__,__LINE__,'dcMyRank' ,dcMyRank ,zzarray.returndata.aggregate.dcRec_t[i].dcMyRank)
+      self.match_value(__method__,__LINE__,'dcMyPay'  ,dcMyPay  ,zzarray.returndata.aggregate.dcRec_t[i].dcMyPay)
+    end
+  end
+
+end

data/test/test_60000_toolkit_driver/test_60310_DriverCMD.rb

@@ -0,0 +1,77 @@
+# File: test_60310_DriverCMD.rb
+require "../test_authorization/auth"
+require "../test_data/rowcol"
+
+class Test_60310_DriverCMD < RowColUnitTest
+  # -------------------------------
+  # test functions (start with prefix test_)
+  # rake test -- Unit run alpha sort order
+  # run #1) test_0000_connect
+  # run #2) test_nnnn_xxx
+  # :
+  # run #n) test_9999_close
+  # -------------------------------
+  def test_0020_cmd_CHGLIBL
+    # ***************************************
+    # * CMD - CHGLIBL
+    # ***************************************
+    cmd = XMLService::I_CMD.new("CHGLIBL LIBL(QTEMP #{$toolkit_test_lib})")
+    # call IBM i
+    cmd.xmlservice
+    # inspect
+    puts cmd.dump_inspect
+	  # xmlservice error occurred?
+    rc = cmd.xmlservice_error
+	  if rc
+      puts cmd.dump_error()
+      self.match_value(__method__,__LINE__,'error' ,false,rc)
+    end
+    # output
+    # puts cmd.out_xml
+    output = cmd.response.output
+    puts output
+    # verify
+    must = "success"
+    ok = output.include? must
+    self.match_value(__method__,__LINE__,"E N D",must,output)
+  end
+
+  def test_0020_cmd_RTVJOBA
+    # ***************************************
+    # * CMD - RTVJOBA
+    # ***************************************
+    cmd = XMLService::I_CMD.new("RTVJOBA USRLIBL(?) SYSLIBL(?) CCSID(?N) OUTQ(?)")
+    for i in 0..5
+      # call IBM i
+      cmd.xmlservice
+      # inspect
+      puts "\n+++++++++ dump_inspect ++++++++++++++++"
+      puts cmd.dump_inspect
+	    # xmlservice error occurred?
+      rc = cmd.xmlservice_error
+	    if rc
+	      puts cmd.dump_error()
+        self.match_value(__method__,__LINE__,'error' ,false,rc)
+      end
+      # output
+      puts "\n+++++++++ response output ++++++++++++++++"
+      output = cmd.response.output
+      puts output
+      puts "\n+++++++++ returndata output ++++++++++++++++"
+      puts "USRLIBL... #{cmd.returndata.USRLIBL}"
+      puts "SYSLIBL... #{cmd.returndata.SYSLIBL}"
+      puts "CCSID..... #{cmd.returndata.CCSID}"
+      puts "OUTQ...... #{cmd.returndata.OUTQ}"
+      # verify
+      must = "success"
+      ok = output.include? must
+      self.match_value(__method__,__LINE__,"E N D",must,output)
+    end
+  end
+
+
+  # -------------------------------
+  # non-test functions (no prefix test_)
+  # -------------------------------
+
+end

data/test/test_60000_toolkit_driver/test_60510_DriverDataQueue.rb

@@ -0,0 +1,126 @@
+# File: test_60510_DriverDataQueue.rb
+require "../test_authorization/auth"
+require "../test_data/rowcol"
+
+class Test_60510_DriverDataQueue < RowColUnitTest
+
+  # -------------------------------
+  # test functions (start with prefix test_)
+  # rake test -- Unit run alpha sort order
+  # run #1) test_0000_connect
+  # run #2) test_nnnn_xxx
+  # :
+  # run #n) test_9999_close
+  # -------------------------------
+
+  def test_0020_data_queue
+    # ***************************************
+    # * CMD - Recreate Data Queue (DLTDTAQ, CRTDTAQ)
+    # ***************************************
+    dltdatq = XMLService::I_CMD.new("DLTDTAQ DTAQ(#{$toolkit_test_lib}/MYDATAQ)")
+    # call IBM i
+    dltdatq.xmlservice
+	  # xmlservice error occurred?
+    rc = dltdatq.xmlservice_error
+	  if rc
+      puts dltdatq.dump_all()
+      # self.match_value(__method__,__LINE__,'error' ,false,rc)
+    end
+
+    # inspect
+    puts "\n+++++++++ dump_inspect ++++++++++++++++"
+    puts dltdatq.dump_inspect
+
+    # output
+    puts "\n+++++++++ response output ++++++++++++++++"
+    puts dltdatq.response.output
+
+    crtdatq = XMLService::I_CMD.new("CRTDTAQ DTAQ(#{$toolkit_test_lib}/MYDATAQ) MAXLEN(100) AUT(*EXCLUDE)")
+    # call IBM i
+    crtdatq.xmlservice
+	  # xmlservice error occurred?
+    rc = crtdatq.xmlservice_error
+    if rc
+      puts crtdatq.dump_all()
+      # self.match_value(__method__,__LINE__,'error' ,false,rc)
+    end
+
+    # inspect
+    puts "\n+++++++++ dump_inspect ++++++++++++++++"
+    puts crtdatq.dump_inspect
+
+    # output
+    puts "\n+++++++++ response output ++++++++++++++++"
+    puts crtdatq.response.output
+
+    # ***************************************
+    # * PGM - Send Data Queue (QSNDDTAQ) API
+    # ***************************************
+    # * 1 Data queue name     Input Char(10)
+    # * 2 Library name        Input Char(10)
+    # * 3 Length of data      Input Packed(5,0)
+    # * 4 Data Input Char(*)  Input
+    messageSnd = 'System i data queues forever'
+    qsnddtaq = XMLService::I_PGM.new("QSNDDTAQ")
+    qsnddtaq << XMLService::I_a.new('queueName',10,'MYDATAQ')
+    qsnddtaq << XMLService::I_a.new('libName',10,$toolkit_test_lib)
+    qsnddtaq << XMLService::I_p.new('lenData',5,0,50.0)
+    qsnddtaq << XMLService::I_a.new('dataInput',100,messageSnd)
+    # call IBM i
+    qsnddtaq.xmlservice
+    # xmlservice error occurred?
+    rc = qsnddtaq.xmlservice_error
+    if rc
+      puts qsnddtaq.dump_all()
+      self.match_value(__method__,__LINE__,'error' ,false,rc)
+    end
+    # inspect
+    puts "\n+++++++++ dump_inspect ++++++++++++++++"
+    puts qsnddtaq.dump_inspect
+
+    # output
+    puts "\n+++++++++ response output ++++++++++++++++"
+    puts qsnddtaq.response.output
+    puts "Send......#{qsnddtaq.name}: #{qsnddtaq.response.dataInput}"
+
+    # ***************************************
+    # * PGM - Receive Data Queue (QRCVDTAQ) API
+    # ***************************************
+    # * 1 Data queue name  Input Char(10)
+    # * 2 Library name     Input Char(10)
+    # * 3 Length of data   Input Packed(5,0)
+    # * 4 Data Char(*)     Output
+    # * 5 Wait time        Input Packed(5,0)
+    qrcvdtaq = XMLService::I_PGM.new("QRCVDTAQ")
+    qrcvdtaq << XMLService::I_a.new('queueName',10,'MYDATAQ')
+    qrcvdtaq << XMLService::I_a.new('libName',10,$toolkit_test_lib)
+    qrcvdtaq << XMLService::I_p.new('lenData',5,0,50.0)
+    qrcvdtaq << XMLService::I_a.new('dataOutput',100,'replace stuff here')
+    qrcvdtaq << XMLService::I_p.new('waitTime',5,0,0.0)
+    # call IBM i
+    qrcvdtaq.xmlservice
+    # xmlservice error occurred?
+    rc = qrcvdtaq.xmlservice_error
+    if rc
+      puts qrcvdtaq.dump_all()
+      self.match_value(__method__,__LINE__,'error' ,false,rc)
+    end
+
+    # inspect
+    puts "\n+++++++++ dump_inspect ++++++++++++++++"
+    puts qrcvdtaq.dump_inspect
+
+    # output
+    puts "\n+++++++++ response output ++++++++++++++++"
+    puts qrcvdtaq.response.output
+    puts "Receive...#{qrcvdtaq.name}: #{qrcvdtaq.response.dataOutput}"
+    # verify
+    self.match_value(__method__,__LINE__,'dataOutput' ,messageSnd ,qrcvdtaq.response.dataOutput)
+
+  end
+
+  # -------------------------------
+  # non-test functions (no prefix test_)
+  # -------------------------------
+
+end

data/test/test_60000_toolkit_driver/test_60610_DriverCallSrvPgmZZBINARY.rb

@@ -0,0 +1,59 @@
+# File: test_60610_DriverCallSrvPgmZZBINARY.rb
+require "../test_authorization/auth"
+require "../test_data/rowcol"
+
+class Test_60610_DriverCallSrvPgmZZBINARY < RowColUnitTest
+  # -------------------------------
+  # test functions (start with prefix test_)
+  # rake test -- Unit run alpha sort order
+  # run #1) test_0000_connect
+  # run #2) test_nnnn_xxx
+  # :
+  # run #n) test_9999_close
+  # -------------------------------
+
+  #      *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+  #      * zzbinary: check return binary 
+  #      *+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+  #     P zzbinary        B                   export
+  #     D zzbinary        PI            20A
+  #     D  myBinary                     20A
+  def test_0020_pgm_zzbinary
+
+    mypack = XMLService::I_p.new('mypack',12,2,99.9)
+
+    mybin = 0xA1A2A3A4A5A6A7A8A9AAA1A2A3A4A5A6A7A8A9AA
+    zzbinary = XMLService::I_SRVPGM.new("ZZSRV","ZZBINARY",$toolkit_test_lib)
+    zzbinary.inputParameter("parm","io",XMLService::I_Binary.new('myIn',20,mybin))
+    zzbinary.setReturn("binary", XMLService::I_Binary.new('myOut',20,0x00))
+    # call IBM i
+    zzbinary.xmlservice
+    # xmlservice error occurred?
+    rc = zzbinary.xmlservice_error
+    if rc
+      puts zzbinary.dump_all()
+      self.match_value(__method__,__LINE__,'error' ,false,rc)
+    end
+
+    # inspect
+    puts "\n+++++++++ dump_inspect ++++++++++++++++"
+    puts zzbinary.dump_inspect
+
+    # output
+    puts "\n+++++++++ response output ++++++++++++++++"
+    puts "#{zzbinary.name}.#{zzbinary.func}:"
+    puts "Input....#{zzbinary.response.myIn}"
+
+    # return data
+    puts "\n+++++++++ returndata output ++++++++++++++++"
+    puts "Return...#{zzbinary.returndata.myOut}"
+
+    # verify
+    self.match_value(__method__,__LINE__,'myOut',mybin.to_s(16).upcase,zzbinary.returndata.myOut.to_s)
+  end
+
+  # -------------------------------
+  # non-test functions (no prefix test_)
+  # -------------------------------
+
+end

data/test/test_60000_toolkit_driver/test_60710_DriverSH.rb

@@ -0,0 +1,73 @@
+# File: test_60710_DriverSH.rb
+require "../test_authorization/auth"
+require "../test_data/rowcol"
+
+class Test_60710_DriverSH < RowColUnitTest
+  # -------------------------------
+  # test functions (start with prefix test_)
+  # rake test -- Unit run alpha sort order
+  # run #1) test_0000_connect
+  # run #2) test_nnnn_xxx
+  # :
+  # run #n) test_9999_close
+  # -------------------------------
+
+  def test_0020_sh_system_wrksysval
+    # ***************************************
+    # * PASE shell utility system - WRKSYSVAL
+    # ***************************************
+    wrksysval = XMLService::I_SH.new("system -i 'WRKSYSVAL OUTPUT(*PRINT)'")
+    # call IBM i
+    wrksysval.xmlservice
+
+    # inspect
+    puts "\n+++++++++ dump_inspect ++++++++++++++++"
+    puts wrksysval.dump_inspect
+
+    # output
+    puts "\n+++++++++ response output ++++++++++++++++"
+    # puts wrksysval.response.output.class.name
+    output = wrksysval.response.output
+    puts output
+
+    # verify
+    must = "E N D  O F  L I S T I N G"
+    ok = output.include? must
+    self.match_value(__method__,__LINE__,"E N D",must,output)
+  end
+
+
+  def test_0030_sh_system_dsplibl
+    # ***************************************
+    # * PASE shell utility system - dsplibl
+    # ***************************************
+    dsplibl = XMLService::I_SH.new("system -i 'dsplibl OUTPUT(*PRINT)'", {'rows'=>'on'})
+    for i in 0..5
+      # call IBM i
+      dsplibl.xmlservice
+
+      # inspect
+      puts "\n+++++++++ dump_inspect ++++++++++++++++"
+      puts dsplibl.dump_inspect
+
+      # output
+      # puts dsplibl.out_xml
+      # puts dsplibl.response.output.class.name
+      puts "\n+++++++++ response output ++++++++++++++++"
+      output = dsplibl.response.output
+      for i in 0..output.count-1
+        puts "line #{i}: #{output[i]}"
+      end
+
+      # verify
+      must = "E N D  O F  L I S T I N G"
+      ok = output.include? must
+      self.match_value(__method__,__LINE__,"E N D",must,output)
+    end
+  end
+
+  # -------------------------------
+  # non-test functions (no prefix test_)
+  # -------------------------------
+
+end