Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RD73P149

RD73P149.m

Go to the documentation of this file.
  1. RD73P149 ;RSD/OAKLAND - Test Routine for XT*7.3*149
  1. ;;7.3;TOOLKIT;**149**;Apr 25, 1995;Build 1
  1. ;This routine is only to test XINDEX for patch 149.
  1. ;It is in the RD namespace because XT routines allow vendor specific code
  1. Q
  1. ;This is Vendor Specific code
  1. ; Call web server and web service. API key is set in Context Root of the web service in HWSC.
  1. N SERV,PREQ,JSON
  1. S SERV="TEST"
  1. S PREQ=$$GETREST^XOBWLIB(SERV,"UAM AV SERVER")
  1. S JSON="TEST"
  1. D PREQ.EntityBody.Write(JSON) ; places the entire json string into EntityBody
  1. D PREQ.SetHeader("ContentType","application/json")
  1. ;reference variable DILOCKTM
  1. I DILOCKTM
  1. ;
  1. Q