Pickwiki - User contributions [en]

URLEncode

2018-07-06T06:44:12Z

Stuboy: Simplified it

CallHTTPWithSSL

2018-06-22T16:26:23Z

Stuboy: removed annoying & from pre areas

Priceless example!

Managed to connect to https://www-927.ibm.com/software/data/u2/support/u2techconnect/
by also changing...
<pre>
X.DEPTH = 1 ;* Changed from 0 to 1 to allow signed by CA
X.SERVER.OR.CLIENT = 2 ;* CLIENT
X.RTN.CODE = set[[AuthenticationDepth]](X.CONTEXT, X.DEPTH, X.SERVER.OR.CLIENT)
</pre>

and using the 'Equifax Secure Certificate Authority' certificate instead of one generated by java keytool. I looked in the protocol log to discover that the equifax certificate was required:
<pre>
01/20/2004 18:14:51 SSL Certificate Verification:
depth: 0
subject: [[/C]]=CA[[/O]]=IBM[[/CN]]=www-927.ibm.com
issuer: [[/C]]=US[[/O]]=Equifax[[/OU]]=Equifax Secure Certificate Authority
</pre>

I'm on xp, so used
start > run mmc
file > add/remove snap in > certificates
certificates > trusted root cas > equifax
action > all tasks > export

to get an equifax.cer certificate file instead of wendy's wsmoak_tomcat.cer, but i imagine these are available on the web somewhere - would be a lot easier if IBM included all the standard root CA files somewhere.

--
Simon Lewington
ud@simonl.free-online.co.uk
-----

Fixed! IBM said to use
<pre>
X.USED.AS="2" ;* Used as an issuer certificate
X.FORMAT="2" ;* DER format
</pre>
in the code below. (Both of those used to be "1" when I started this.)

I re-read the manual, and I still don't know enough about SSL to have figured that out.

--
Wendy Smoak
wsmoak@asu.edu
----

Ian, yes, there's a reason. This is a simple test but eventually I need to POST over HTTPS to a third party. I can already do it over HTTP, but when I change to HTTPS, it breaks. So I switched to simple test code to see if I could find the problem.

--
Wendy

----
Wendy, is there are reason to do it from Basic? (other than for fun :-) cURL can download https

* http://hpux.cs.utah.edu/hppd/hpux/Networking/WWW/curl-7.9.8/
* http://curl.haxx.se/

you could do

<pre>
EXECUTE "!curl -k -o .[[/MYDIR/FNAME]] https://www.example.com"
OPEN 'MYDIR' TO MYDIR ELSE STOP 201,'MYDIR'
READ R FROM MYDIR, 'FNAME' ELSE STOP 'https get did not work'
</pre>
-----

Does anyone know where the documentation for createSecureRequest() is? It's not in the [[UniBasic]] Extensions manual...

Sample [[UniBasic]] code:
<pre>
* WENDY SMOAK

EQUATE CRLF TO CHAR(013):CHAR(010)

X.LOG.FILE = 'XWDS.HTTP.LOG'
X.LOG.ACTION = 'ON'
X.LOG.LEVEL = '10'
X.RTN.CODE = protocolLogging(X.LOG.FILE, X.LOG.ACTION, X.LOG.LEVEL)
CRT 'protocolLogging: ':X.RTN.CODE

X.RTN.CODE = createSecurityContext(X.CONTEXT, '')
CRT 'createSecurityContext: ':X.RTN.CODE

X.CERT.PATH="wsmoak_tomcat.cer"
;* changed next 2 lines from 1 to 2 per IBM
X.USED.AS="2" ;* Used as an issuer certificate
X.FORMAT="2" ;* DER format
X.ALGORITHM="1" ;* RSA key
X.RTN.CODE = addCertificate(X.CERT.PATH, X.USED.AS, X.FORMAT, X.ALGORITHM, X.CONTEXT)
CRT 'addCertificate: ':X.RTN.CODE

X.DEPTH = 0
X.SERVER.OR.CLIENT = 2 ;* CLIENT
X.RTN.CODE = setAuthenticationDepth(X.CONTEXT, X.DEPTH, X.SERVER.OR.CLIENT)
CRT 'setAuthenticationDepth: ':X.RTN.CODE

X.RTN.CODE = showSecurityContext(X.CONTEXT,X.CONFIG.INFO)
CRT 'showSecurityContext: ':X.RTN.CODE
SWAP @AM WITH CRLF IN X.CONFIG.INFO
CRT X.CONFIG.INFO

URL="https://your.server.here/index.html"
HTTP.METHOD="POST"
X.RTN.CODE = createSecureRequest(URL,HTTP.METHOD,X.HANDLE,X.CONTEXT)
CRT 'createSecureRequest: ':X.RTN.CODE

X.RTN.CODE = submitRequest(X.HANDLE,'','',X.RESPONSE.HEADERS,X.RESPONSE.DATA,X.HTTP.STATUS)
CRT 'submitRequest: ':X.RTN.CODE

CRT 'X.RESPONSE.HEADERS = ':X.RESPONSE.HEADERS
CRT 'X.RESPONSE.DATA = ':X.RESPONSE.DATA
CRT 'X.HTTP.STATUS = ':X.HTTP.STATUS

X.LOG.ACTION = 'OFF'
X.RTN.CODE = protocolLogging(X.LOG.FILE, X.LOG.ACTION, X.LOG.LEVEL)
CRT 'protocolLogging: ':X.RTN.CODE

</pre>

----

Certificate

The Certificate I'm using was generated and exported with 'keytool', which is a utility that is distributed with Sun's JDK, of which I'm using version 1.4.1_02.

http://java.sun.com/j2se/1.4.1/docs/tooldocs/solaris/keytool.html

The web server I'm using is Tomcat 4.1.24, and I followed these directions to enable SSL: http://jakarta.apache.org/tomcat/tomcat-4.1-doc/ssl-howto.html

The original .keystore file was generated with:
<pre>
> keytool -genkey -alias tomcat -keyalg RSA
</pre>

And then the .cer file was exported with:
<pre>
> keytool -export -alias tomcat -file wsmoak_tomcat.cer
</pre>

Row2Col II

2010-09-16T03:59:24Z

Stuboy: *

HomePage>>SourceCode>>BasicSource>>Row2Col_II

This utility can quickly transpose a dynamic array item's fields into values, and vice versa.

<pre>
For example:

0001: apple}banana}cantalope 0001: apple}111}red}0
0002: 111}222}333 becomes 0002: banana}222}green}1
0003: red}green}blue 0003: cantalope}333}blue}0
0004: 0}1}0

i.e. 4 fields with 3 values each becomes 3 fields with 4 values each.
</pre>

<pre>

function Row2Col(doc)
*// Stuart Boydell Sept 2010
*// swap x & y axis of an array
max = dcount(doc,@am)
newDoc = raise(doc<1>)
for i = 2 to max
newDoc = splice(newDoc,char(222),raise(doc))
next i
doc = convert(char(222),@vm,newDoc)
return(doc)
end
</pre>

Row2Col II

2010-09-16T03:56:09Z

Stuboy: *

function Row2Col(doc)
*// swap x & y axis
max = dcount(doc,@am)
newDoc = raise(doc<1>)
for i = 2 to max
newDoc = splice(newDoc,char(222),raise(doc))
next i
doc = convert(char(222),@vm,newDoc)
return(doc)
end

Beyond Compare

2010-06-03T01:03:31Z

Stuboy: *

= Beyond Compare UV Dictionary formatter =

http://farm5.static.flickr.com/4024/4663375640_cb1cf442ba.jpg

*Works with Beyond Compare - allows you to compare most UV dictionary items.
*Written in Javascript.
*Save this to c:\program files\Beyond Compare 3\helpers\<nowiki>UVDictCompare.js</nowiki>
*Setup a new <nowiki>Tools/File</nowiki> Format for UV Dictionaries.
:: Under the Conversion tab - conversion drop down select: External Program
:: Loading: cscript helpers\<nowiki>UVDictCompare.js</nowiki> %s %t %n

http://farm2.static.flickr.com/1269/4665084040_6bf2fd0799.jpg

<pre>
// BC-UVDict Compare
// This script formats a UV dictionary item for compare.
// It is then opened with Beyond Compare (File Formats, Conversion)

// Stuart Boydell 31-Oct-2009

// 1. The dictionary items to compare are stored in a type19 file in UV
// - I-types should have attribute 10 and up deleted to remove compiled binary 'stuff'.
// - Expects type 19 record to be in the following format:
// hostName:@vm:dictPath:@am:dictName:@am:dictId:@am:field(dict<1>,' ',1):@am:system(99):@am:system(19):@am:lower(dictRecord)
// 2. items opened using Beyond Compare - it 'senses' the file type
// 3. BC invokes this script passing in source & target tmp file specs
// 4. this script writes the modified version of the dict to the target file
// 5. BC then compares these files.
// 6. <<todo>> writeback

var of, oa, fs, ft, i, j, z, zz;
var _vm = String.fromCharCode(253)

of = new ActiveXObject('Scripting.FileSystemObject');
oa = WScript.Arguments;

// take the source & target arguments from BC
fs = of.OpenTextFile(oa(0),1,false);
ft = of.OpenTextFile(oa(1),2,false);

// Read the dict item then pull att 7
z = fs.ReadAll();
zz = z.split('\n')[6].split(_vm);
//ft.WriteLine('File Path:' + oa(2).substr(0,oa(2).indexOf('//',10)));
ft.WriteLine('File Path:' + z.split('\n')[0].split(_vm)[1]);
ft.WriteLine('Dict Id :' + z.split('\n')[2]);
ft.WriteLine('---');
ft.Write(zz.join('\r\n'));

fs.Close
ft.Close
</pre>

= Beyond Compare SB+ Paragraph formatter =
*Works with Beyond Compare - allows you to compare SB+ Paragraph Processes.
*Written in Javascript.
*Save this to c:\program files\Beyond Compare 3\helpers\<nowiki>SBParaCompare.js</nowiki>
*Setup a new <nowiki>Tools/File</nowiki> Format for SB Paragraphs.
:: Under the Conversion tab - conversion drop down select: External Program
:: Loading: cscript helpers\<nowiki>SBParaCompare.js</nowiki> %s %t %n

<pre>
// BC-SB Paragraph Compare
// This scripts uses the output from a type 19 process file
// it is then used with Beyond Compare (File Formats, Conversion)

// Stuart Boydell 21-Dec-2009

// 0. setup a new Tools/File Format for SB Paragraphs. Loading: cscript SBParaCompare.js %s %t %n
// 1. The paragraph items to compare are stored in a type19 file in U2
// 2. items are opened using Beyond Compare - it normally 'senses' the file type - but you can use the format drop down to force it.
// 3. BC invokes this script passing in source & target tmp file specs
// 4. this script writes the modified version of the process to the target file
// 5. BC then compares these files.

var of, oa, fs, ft, i, j, z, zz, re, lsep, ftyp;
var _vm = String.fromCharCode(253);
re = /\r\n/; // test for windows type newline

of = new ActiveXObject('Scripting.FileSystemObject');
oa = WScript.Arguments;

// take the source & target arguments from BC
fs = of.OpenTextFile(oa(0),1,false);
ft = of.OpenTextFile(oa(1),2,false);
fo = of.OpenTextFile(oa(2),1,false);

// Read the process item then pull att 6
z = fs.ReadAll();
if (re.test(z)){
lsep = "\r\n";
ftyp = "Win";
} else {
lsep = "\n";
ftyp = "Unix";
}
zz = z.split(lsep);
//ft.WriteLine('File Path:' + oa(2).substr(0,oa(2).indexOf('//',10)));
ft.WriteLine('Desc:' + zz[1]);
ft.WriteLine('Dict:' + zz[4]);
ft.WriteLine('LastUpd:' + zz[13]);
//ft.WriteLine('F-type:' + ftyp);
ft.WriteLine('---');
ft.Write(zz[5].split(_vm).join(lsep));

fs.Close
ft.Close

</pre>

= Beyond Compare SB+ Paragraph Write back Script =
*Works with Beyond Compare - allows you to write back edits.
*Written in Javascript.
*Save this to c:\program files\Beyond Compare 3\helpers\<nowiki>SBParaWriteback.js</nowiki>
:: Under the Conversion tab - disable editing <off>
:: Saving: cscript helpers\<nowiki>SBParaWriteback.js</nowiki> %s %t %n

<pre>
// BC-SB Paragraph Compare - Write back
// This writes back to a type 19 process file
// it is then used with Beyond Compare (File Formats, Conversion)

// Stuart Boydell 21-Dec-2009

var of, oa, fs, ft, i, j, z, zz, lsep, re;
var _vm = String.fromCharCode(253);
re = /\r\n/; // test for windows type newline

of = new ActiveXObject('Scripting.FileSystemObject');
oa = WScript.Arguments;

// take the source & target arguments from BC
fs = of.OpenTextFile(oa(0),1,false);
ft = of.OpenTextFile(oa(1),2,false);
fo = of.OpenTextFile(oa(2),1,false);

// Read the process item then pull att 6
z = fo.ReadAll();
if (re.test(z)){
lsep = "\r\n";
ftyp = "Win";
} else {
lsep = "\n";
ftyp = "Unix";
}
tt = z.split(lsep);
zz = fs.ReadAll().split(lsep);
tt[1] = zz[0].split(':')[1];
tt[2] = '';
tt[3] = '';
tt[4] = zz[1].split(':')[1];
tt[5] = zz.splice(4,zz.length).join(_vm);
ft.Write(tt.join(lsep));

fs.Close
ft.Close

</pre>

Beyond Compare

2009-12-25T13:10:44Z

Stuboy: *

= Beyond Compare SB+ Paragraph formatter =
*Works with Beyond Compare - allows you to compare SB+ Paragraph Processes.
*Written in Javascript.
*Save this to c:\program files\Beyond Compare 3\helpers\<nowiki>SBParaCompare.js</nowiki>
*Setup a new <nowiki>Tools/File</nowiki> Format for SB Paragraphs.
:: Under the Conversion tab - conversion drop down select: External Program
:: Loading: cscript helpers\<nowiki>SBParaCompare.js</nowiki> %s %t %n

<pre>
// BC-SB Paragraph Compare
// This scripts uses the output from a type 19 process file
// it is then used with Beyond Compare (File Formats, Conversion)

// Stuart Boydell 21-Dec-2009

// 0. setup a new Tools/File Format for SB Paragraphs. Loading: cscript SBParaCompare.js %s %t %n
// 1. The paragraph items to compare are stored in a type19 file in U2
// 2. items are opened using Beyond Compare - it normally 'senses' the file type - but you can use the format drop down to force it.
// 3. BC invokes this script passing in source & target tmp file specs
// 4. this script writes the modified version of the process to the target file
// 5. BC then compares these files.

var of, oa, fs, ft, i, j, z, zz, re, lsep, ftyp;
var _vm = String.fromCharCode(253);
re = /\r\n/; // test for windows type newline

of = new ActiveXObject('Scripting.FileSystemObject');
oa = WScript.Arguments;

// take the source & target arguments from BC
fs = of.OpenTextFile(oa(0),1,false);
ft = of.OpenTextFile(oa(1),2,false);
fo = of.OpenTextFile(oa(2),1,false);

// Read the process item then pull att 6
z = fs.ReadAll();
if (re.test(z)){
lsep = "\r\n";
ftyp = "Win";
} else {
lsep = "\n";
ftyp = "Unix";
}
zz = z.split(lsep);
//ft.WriteLine('File Path:' + oa(2).substr(0,oa(2).indexOf('//',10)));
ft.WriteLine('Desc:' + zz[1]);
ft.WriteLine('Dict:' + zz[4]);
ft.WriteLine('LastUpd:' + zz[13]);
//ft.WriteLine('F-type:' + ftyp);
ft.WriteLine('---');
ft.Write(zz[5].split(_vm).join(lsep));

fs.Close
ft.Close

</pre>

= Beyond Compare SB+ Paragraph Write back Script =
*Works with Beyond Compare - allows you to write back edits.
*Written in Javascript.
*Save this to c:\program files\Beyond Compare 3\helpers\<nowiki>SBParaWriteback.js</nowiki>
:: Under the Conversion tab - disable editing <off>
:: Saving: cscript helpers\<nowiki>SBParaWriteback.js</nowiki> %s %t %n

<pre>
// BC-SB Paragraph Compare - Write back
// This writes back to a type 19 process file
// it is then used with Beyond Compare (File Formats, Conversion)

// Stuart Boydell 21-Dec-2009

var of, oa, fs, ft, i, j, z, zz, lsep, re;
var _vm = String.fromCharCode(253);
re = /\r\n/; // test for windows type newline

of = new ActiveXObject('Scripting.FileSystemObject');
oa = WScript.Arguments;

// take the source & target arguments from BC
fs = of.OpenTextFile(oa(0),1,false);
ft = of.OpenTextFile(oa(1),2,false);
fo = of.OpenTextFile(oa(2),1,false);

// Read the process item then pull att 6
z = fo.ReadAll();
if (re.test(z)){
lsep = "\r\n";
ftyp = "Win";
} else {
lsep = "\n";
ftyp = "Unix";
}
tt = z.split(lsep);
zz = fs.ReadAll().split(lsep);
tt[1] = zz[0].split(':')[1];
tt[2] = '';
tt[3] = '';
tt[4] = zz[1].split(':')[1];
tt[5] = zz.splice(4,zz.length).join(_vm);
ft.Write(tt.join(lsep));

fs.Close
ft.Close

</pre>

CSV2ARRAY

2007-07-24T07:23:54Z

Stuboy: *

HomePage>>SourceCode>>BasicSource>><nowiki>CSV2ARRAY</nowiki>

This is a tool to convert a CSV file to a dynamic array.

''Background''
:The main goal of this tool is to provide a good conversion from ''CSV''. This is a Microsoft file format commonly used for ''flat file'' data exchange (until people start using XML universally). I have found many different bits and pieces around to convert CSV, most of which don't handle the possibilities of CSV or do the conversion badly.

:The program was designed for UV as a ''function'' requiring a ''csv document'' and input ''arguments'' and returns a result ''value'', and sets ''status()'' if conversion fails. It means it can be easily called from basic or an I-type subr() statement. See the comments in the code for examples and details of methods and the arguments required.

<PRE>
function CSV2ARRAY(doc,opts)
* function to convert a csv to an array
* 1.0 23-Jul-2007 stuart boydell - Original
*
* doc: csv document
* line breaks in cells get converted to subVal marks (@sm)
* nb. U2 autoconverts char(10) / char(13) to normalised (nix/win) crlf - so best to get your csv raw.
* opts: 'N' returns a normalised dynamic array // eg orthagonal to excel: columns to attributes, cells to values
*

equ E.PROG.NAME to 'CSV2ARRAY',
E.VERSION to '1.0',
E.COMMA to ',',
E.QUOTE to '"',
E.WINCRLF to char(10):char(13) ;*// CSV is usually produced by a win program - so parse win crlf

returnValue = oconv('','c') ;*// set RV to '' and status() function to false
occurs = 1

lmx = maximum(counts(doc,E.COMMA)) ;*// <<TODO>> incomplete use of these in normalisation
lmn = minimum(counts(doc,E.COMMA))

doc = change(doc,E.WINCRLF,@am) ;*// crlf to @am
doc = convert(E.COMMA:char(10),@vm:@sm,doc) ;*// commas to vm // char(10) to sm (manual cell breaks alt-enter)

loop while findstr E.QUOTE in doc,occurs setting a,v do
docLine = raise(doc<a>)
newDocLine = ''
max = dcount(docLine,@am)
for i = max to 1 step -1
cell = docLine
if cell[1] = E.QUOTE then
*// make sure commas are replaced // should be an even number of quotes per cell
loop while cell[1,1] # E.QUOTE and mod(count(cell,E.QUOTE),2) and i > 0 do
i -= 1
cell = docLine:E.COMMA:cell
repeat
if cell[1,1] = E.QUOTE and cell[1] = E.QUOTE then
cell = cell[2,len(cell)-2]
end
cell = change(cell,str(E.QUOTE,2),E.QUOTE)
end
if len(newDocLine) then
ins cell before newDocLine<1>
end else
*// deal with inserting '' into empty array.
if i = max-1 and cell = '' then newDocLine = @am else newDocLine = cell
end
next i
occurs += count(newDocLine,E.QUOTE)
doc<a> = lower(newDocLine)
repeat

if opts = 'N' then ;*// do mv normalisation
max = dcount(doc,@am)
newDoc = raise(doc<1>)
if count(newDoc,@am) < lmx then newDoc<lmx+1> = ''
for i = 2 to max
newDoc = splice(newDoc,char(222),raise(doc))
next i
doc = convert(char(222),@vm,newDoc)
end
opts = err
returnVal = doc
return(returnVal)
end
</PRE>

HomePage>>SourceCode>>BasicSource>><nowiki>CSV2ARRAY</nowiki>

DateUtility

2007-02-18T00:30:55Z

Stuboy: *

HomePage>>SourceCode>>BasicSource>><nowiki>DateUtility</nowiki>

This is a toolbox of date/time zone conversion utilities, not supplied by ICONV/OCONV.

All in one convenient place!

''Methods''
*<nowiki>GetDateFormat</nowiki> - return: true if International format (dd/mm/yy) is set.
*<nowiki>GetElapsedPeriod</nowiki> - return: elapsed years @am months @am days
*<nowiki>GetElapsedTime</nowiki> - return: difference in seconds
*<nowiki>GetElapsedTime.toString</nowiki> - return: oconv'd time (hh:mm:ss)
*<nowiki>GetEpochTime</nowiki> - return: epoch time - seconds from 1970-01-01 UTC
*<nowiki>GetISODateTime</nowiki> - return: ISO Date Time string yyyy-mm-ddThh:mm:ssZ
*<nowiki>GetISOWeekOfYear</nowiki> - return: ISO8601 week of year
*<nowiki>GetRFCDateTime</nowiki> - return: RFC1123 Date Time string: Sun, 06 Nov 1994 08:49:37 GMT
*<nowiki>GetNumberSuffix</nowiki> - return: numeric ordinal suffix ('st,nd,rd,th')
*<nowiki>GetTimeZoneString</nowiki> - return: users current TZ string
*<nowiki>ParseEpochTime</nowiki> - return: date:@am:time [local at the time zone]
*<nowiki>ParseEpochTime.toString</nowiki> - return: iso date time
*<nowiki>ParseISODateTime</nowiki> - return: epoch time - seconds from 1970-01-01 UTC
*<nowiki>ParseISODateTime.local</nowiki> - return: (user local) date:@am:time
*<nowiki>ParseRFCDateTime</nowiki> - return: Epoch time - seconds from 1970-01-01 UTC
*<nowiki>ParseRFCDateTime.local</nowiki> - return: (user local) date:@am:time
*<nowiki>SetDateFormat</nowiki> - Set the date format ''ON'' to International (dd/mm/yy)

''Background''
:The main goal of this project was to provide a tool to convert to and from ''ISO8601''. This is the date/time format used as standard in such things as XML documents. The nature of ISO8601, means that time zone must be taken into consideration. So, this turned into a bunch of ''methods'' which will also assist in Time Zone handling.

:Overkill? Well possibly for most applications. However, regard placing orders on foreign countries and setting local delivery dates & times or easily finding the ''east coast'' time of an XML document stamped with ''west coast'' time (amongst others uses). We found we had several places we needed these types of time & date conversion, so it grew.

:If you don't see something ''useful'', please feel free to comment and add to it.

:The program is designed as a ''function'' requiring a ''method'' and input ''arguments'' and returns a result ''value'', and sets ''status()'' if conversion fails. It means it can be easily called from basic or an I-type subr() statement. See the comments in the code for examples and details of methods and the arguments required for each method.

:Remember to tweak the E.DEFAULT.TZ equate constant, or read it in from a parameter file.

''Glossary''

*Epoch - meaning the Unix epoch - (milli)seconds from 1970-01-01T00:00Z.
*GMT - Greenwich Mean Time, unadjusted time at Greenwich, London UK.
*ISO - International Standards Organisation - they set, er, international standards.
*[http://www.mcs.vuw.ac.nz/technical/software/SGML/doc/iso8601/ISO8601.html ISO8601] - Set of standards for representing local dates and time relative to UTC.
*RFC - Request For Comment. The set of documents which make up the standards which the internet is built around.
*RFC1123 - preferred as an Internet standard date format (HTTP).
*TZ - Unix environment variable used to carry time zone info. On a Windows system this must be derived from the registry.
*UTC - Universal Coordinated Time - International standard for time measurement (something close to GMT).
*Z - Zulu, shorthand for the time at zero meridian or UTC.

''The Code''
<PRE>

function DATE.UTILITY(method,arguments)
* DTV: Various date & time methods not handled by OCONV, eg.ISO8601, RFC1123
*// Stuart Boydell 2003-02-24
*//
*// Change E.DEFAULT.TZ for target server time zone locale.
*//
*// see http://www.timeanddate.com for more information about times and time zones
*//
*// Catalog this globally.
*// Call as either function ! i-type subr() with method and arguments.
*// Methods and arguments are enumerated in the Mainline subroutine.
*// No method, default datetime() string is returned
*// No arguments, results for "now" are returned.
*// Use of Epoch time - seconds since 1970-01-01T00:00Z
*// Use of iso8601 date time formats (used extensively with xml, html & sql)
*// general format is: YYYY-MM-DDThh:mmTZD (eg 1997-07-16T19:20+10:00)
*//
*// Usage 1: program
*// PROGRAM SOME.PROGRAM
*// DEFFUN DATE.UTIL(method,arguments) CALLING '*DATE.UTILITY'
*// ...
*// MY.METHOD = 'GetISODateTime'
*// MY.ARGUMENTS = ORD.DATE:@AM:ORD.TIME
*// ISO.DATE.TIME = DATE.UTIL(MY.METHOD,MY.ARGUMENTS)
*//
*// Usage 2: I-type from a file with MY.DATE/TIME.FIELD attributes.
*// 0001 I
*// 0002 subr('*DATE.UTILITY','GetISODateTime',MY.DATE.FIELD:@AM:MY.TIME.FIELD)
*// ...
*//
*// see Methods below for further information.

*--------------------------------------------
DefineEquates:
*--------------------------------------------

equ E.THIS.PROG to 'DATE.UTILITY',
E.VERSION to '1.0'

*// set this to your local server time as a default/fallback position
equ E.DEFAULT.TZ to 'EET-10EETDT-11,M10.5.0,M3.5.0'

*// various time constants
equ E.SECS.PER.MIN to 60,
E.SECS.PER.HOUR to 3600,
E.SECS.PER.DAY to 86400,
E.SECS.PER.YEAR to 31556926, ;*// tropical year seconds (approx 365.25 days)
E.EPOCH.SECS to system(99),;*// seconds from 1970-01-01T00:00Z
E.EPOCH.OFFSET to 732 ;*// iconv('01-Jan-1970','d')

*// numeric ordinal suffix ; eg 1st 2nd 3rd 4th ...
equ E.NUM.SUFFIX to 'st':@am:'nd':@am:'rd':@am:'th'

*// codes, characters, conversions and such
equ E.ISODATE.CONV to 'D-YMD[4,2,2]',
E.ISOTIME.CONV to 'MT',
E.RFCDATE.CONV to 'D WBDMBYL[", "]',
E.RFCTIME.CONV to 'MTS',
E.TZ.ENVSTR to 'TZ', ;*// time zone environment string lead-in
E.ISOTIME.SEP to 'T',
E.ISOZONE.SEP to 'Z',
E.PLUS to '+',
E.MINUS to '-',
E.POINT to '.',
E.TMP.ID to @tty:'tz.vbs'

*// timeZoneArray
*// 1=tz desc, 2=tz offset, 3=dls desc, 4=dls offset
*// 5=start month, 6=week, 7=day, 8=time
*// 9=stop month, 10=week, 11=day, 12=time
equ E.GTZO.DESC to timeZoneArray<1>,
E.GTZO.OFFSET to timeZoneArray<2>,
E.GTZO.DLS.DESC to timeZoneArray<3>,
E.GTZO.DLS.OFFSET to timeZoneArray<4>,
E.GTZO.START.MONTH to timeZoneArray<5>,
E.GTZO.START.WEEK to timeZoneArray<6>,
E.GTZO.START.DAY to timeZoneArray<7>,
E.GTZO.START.TIME to timeZoneArray<8>,
E.GTZO.STOP.MONTH to timeZoneArray<9>,
E.GTZO.STOP.WEEK to timeZoneArray<10>,
E.GTZO.STOP.DAY to timeZoneArray<11>,
E.GTZO.STOP.TIME to timeZoneArray<12>

*--------------------------------------------
Mainline:
*--------------------------------------------

returnValue = oconv('','c') ;*// set RV to '' and status() function to false

*// handle passed method parameter
begin case

case method = 'GetDateFormat'
*// args: null
*// return: true/false
gosub GetDateFormat:

case method = 'GetElapsedPeriod'
*// args: start date @am stop date
*// return: elapsed years am months am days
gosub GetElapsedPeriod:

case method = 'GetElapsedTime'
*// args: [start date @vm] start time @am [stop date @vm] stop time
*// return: difference in seconds
gosub GetElapsedTime:

case method = 'GetElapsedTime.toString'
*// args: [start date @vm] start time @am [stop date @vm] stop time
*// return: oconv'd time (hh:mm:ss)
gosub GetElapsedTime:
returnValue = oconv(returnValue,E.ISOTIME.CONV)
if status() then returnValue = ''

case method = 'GetEpochTime'
*// args: [date][@am time][@am timeZoneString]
*// return: epoch time - seconds from epoch
gosub GetEpochTime:

case method = 'GetISODateTime' ! method = 'getISODateTime.toString'
*// args: [date],[time],[timezone]
*// return ISO Date Time string yyyy-mm-ddThh:mm:ssZ
gosub GetISODateTime:

case method = 'GetISOWeekOfYear'
*// args: [date]
*// return ISO8601 week of year
gosub GetISOWeekOfYear:

case method = 'GetRFCDateTime'
*// args: [date],[time]
*// return rfc1123 Date Time string: Sun, 06 Nov 1994 08:49:37 GMT
gosub GetRFCDateTime:

case method = 'GetNumberSuffix'
*// args: number
*// return: numeric ordinal suffix ('st,nd,rd,th')
gosub GetNumberSuffix:

case method = 'GetTimeZoneString'
*// args: null
*// return users current TZ string
gosub GetTimeZoneString:

case method = 'GetTimeZoneStringFromArray'
*// args: TimeZoneArray (eg timeZoneArray)
*// return users current TZ string
gosub GetTimeZoneStringFromArray:

case method = 'ParseEpochTime'
*// args: [UTCSeconds][@am timeZoneString]
*// return: date:@am:time [local at the time zone]
gosub ParseEpochTime:

case method = 'ParseEpochTime.toString'
*// args: a value being seconds from epoch
*// return: iso date time
gosub ParseEpochTime:
arguments = returnValue
gosub GetISODateTime:

case method = 'ParseISODateTime'
*// args: ISO formatted date string eg 1997-07-16T19:20+10:00
*// return epoch time - seconds from 1/1/70 UTC
gosub ParseISODateTime:

case method = 'ParseISODateTime.local'
*// args: ISO formatted date string eg 1997-07-16T19:20+10:00
*// return (user local) date:@am:time
gosub ParseISODateTime:
if validTime then
arguments = returnValue
gosub ParseEpochTime:
end

case method = 'ParseRFCDateTime'
*// args: rfc1123 Date Time string: Sun, 06 Nov 1994 08:49:37 GMT
*// return Epoch time - seconds from epoch
gosub ParseRFCDateTime:

case method = 'ParseRFCDateTime.local'
*// args: rfc1123 Date Time string: Sun, 06 Nov 1994 08:49:37 GMT
*// return (user local) date:@am:time
gosub ParseRFCDateTime:
arguments = returnValue
gosub ParseEpochTime:

case method = 'ParseTimeZoneString'
*// args: [time zone string]
*// return Time Zone Object
gosub ParseTimeZoneString:

case method = 'SetDateEuropean'
*// deprecated - used in legacy calls - use setDateFormat
*// args: null
*// return: null
arguments = 'ON'
gosub SetDateFormat:

case method = 'SetDateFormat'
*// args: set [ON/OFF][D new date format]
*// return: null
gosub SetDateFormat:

case @true
*// default case, return time date string
*// return: timedate eg "15:39:12 22 APR 2003"
returnValue = timedate()

end case

return(returnValue)
stop

*--------------------------------------------
GetDateFormat: *// International = true, US = false
*--------------------------------------------

getDateFormatCmd = 'DATE.FORMAT INFORM'
execute getDateFormatCmd capturing cap returning returnValue

return(@null)

*--------------------------------------------
GetElapsedPeriod:
*--------------------------------------------

periodStart = arguments<1>
periodEnd = arguments<2>
if (periodEnd >= periodStart) then
totalYears = oconv(periodEnd,'dy') - oconv(periodStart,'dy')
totalMonths = oconv(periodEnd,'dm') - oconv(periodStart,'dm')
totalDays = oconv(periodEnd,'dd') - oconv(periodStart,'dd')
if (totalDays < 0) then
totalDays += oconv(iconv('1 ':oconv(periodEnd,'d mby'),'d') -1,'dd')
totalMonths -= 1
end
if (totalMonths < 0) then
totalMonths += 12
totalYears -= 1
end
returnValue = totalYears : @am : totalMonths : @am : totalDays
end

return(@null)

*--------------------------------------------
GetElapsedTime: *// find elapsed time from 2 second counts
*--------------------------------------------

startTime = arguments<1>
stopTime = arguments<2>

begin case
case dcount(startTime,@vm) = 2 & dcount(stopTime,@vm) = 2 ;*// dates & times provided
arguments = raise(startTime<1>)
gosub GetEpochTime: ;*// get start as secs from epoch
startTime = returnValue
arguments = raise(stopTime<1>)
gosub GetEpochTime: ;*// get stop as secs from epoch
returnValue -= startTime

case not(num(startTime) & num(stopTime)) ;*// bad data

case (startTime - stopTime) > E.SECS.PER.DAY
case stopTime < startTime
*// calculate up to same time over a midnight boundry
*// ie start=23:00, end=03:00 : total => (27:00 - 23:00) => 05:00
returnValue = stopTime + E.SECS.PER.DAY - startTime

case @true
returnValue = (stopTime - startTime)
end case

return(@null)

*--------------------------------------------
GetEpochTime: *// return seconds from 1/1/70 UTC
*--------------------------------------------

internalDate = arguments<1>
internalTime = arguments<2>
timeZoneString = arguments<3>

if internalDate = '' then internalDate = date()
if internalTime = '' then internalTime = time()
if timeZoneString = '' then
*// get default
gosub GetTimeZoneString:
timeZoneString = returnValue
end
arguments = timeZoneString
gosub ParseTimeZoneString:

arguments = internalDate
gosub GetTimeZoneOffset:

returnValue += (internalDate - E.EPOCH.OFFSET) * E.SECS.PER.DAY
returnValue += internalTime

return(@null)

*--------------------------------------------
GetISODateTime: *// return date in ISO format yyyy-mm-ddThh:mm:ssZhh:mm
*--------------------------------------------

internalDate = arguments<1>
internalTime = arguments<2>
if unassigned(timeZoneString) then timeZoneString = arguments<3>

if internalDate = '' then internalDate = date()
if internalTime = '' then internalTime = time()
if timeZoneString = '' then
*// get default
gosub GetTimeZoneString:
timeZoneString = returnValue
end

isoDate = oconv(internalDate,E.ISODATE.CONV)
if not(status()) then
isoTime = oconv(internalTime,E.RFCTIME.CONV)
if not(status()) then
if len(timeZoneString) then
arguments = timeZoneString
gosub ParseTimeZoneString:
end
arguments = internalDate
gosub GetTimeZoneOffset:
arguments = returnValue
gosub GetISOZone:
if not(status()) then
returnValue = isoDate : E.ISOTIME.SEP : isoTime : returnValue
end
end
end

return(@null)

*--------------------------------------------
GetISOWeekOfYear:
*--------------------------------------------

internalDate = arguments<1>
if internalDate = '' then internalDate = date()
dayOfWeek = oconv(internalDate, 'dw')
if status() then ;*// test for bad conversion
weekNumber = '-1'
end else
thisThursday = internalDate - dayOfWeek + 4 ;* calculate date for that Thursday
dayOfYear = oconv(thisThursday,'dj')
weekNumber = int((dayOfYear + 6) / 7) ;*// ta WOL
end
returnValue = weekNumber

return(@null)

*--------------------------------------------
GetISOZone: *// return ISO time zone offset
*--------------------------------------------

localOffsetSecs = arguments
isoZone = oconv(abs(localOffsetSecs),E.ISOTIME.CONV)

begin case
case status() ;*// invalid oconv 15-Apr-2003 return default offset for melbourne
returnValue = '+10:00'
case abs(localOffsetSecs) >= E.SECS.PER.DAY ;*// invalid offset value 15-Apr-2003 return default offset for melbourne
returnValue = '+10:00'
case localOffsetSecs < 0
returnValue = E.PLUS:isoZone
case localOffsetSecs > 0
returnValue = E.MINUS:isoZone
case localOffsetSecs = 0
returnValue = E.ISOZONE.SEP:isoZone
case @true
returnValue = '+10:00'
end case

return(@null)

*--------------------------------------------
GetRFCDateTime: *// return Date Time string: Sun, 06 Nov 1994 08:49:37 GMT
*--------------------------------------------

gosub GetEpochTime:

*// get time and date at GMT
internalDate = int(returnValue/E.SECS.PER.DAY) + E.EPOCH.OFFSET - (returnValue < 0)
internalTime = mod(returnValue,E.SECS.PER.DAY) + (E.SECS.PER.DAY * (returnValue < 0))

rfcDate = oconv(internalDate,E.RFCDATE.CONV)
if not(status()) then
rfcTime = oconv(internalTime,E.RFCTIME.CONV)
if not(status()) then
returnValue = rfcDate : ' ': rfcTime : ' GMT'
end
end

return(@null)

*--------------------------------------------
GetNumberSuffix: *// get numerical ordinal suffix
*--------------------------------------------

number = arguments<1>
if len(number) then
lastChar = number[1] ;*// right(number,1)
lastTeen = number[2] ;*// right(number,2)

begin case
case lastTeen >= 11 & lastTeen <= 20
returnValue = number:(E.NUM.SUFFIX)<4>
case lastChar > 0 & lastChar <= 3
returnValue = number:(E.NUM.SUFFIX)<lastChar>
case @true
returnValue = number:(E.NUM.SUFFIX)<4>
end case

end

return(@null)

*--------------------------------------------
GetTimeZoneOffset: *// get time zone offset
*--------------------------------------------

*// Args in: internal date
*// timeZoneArray required for accurate offset.

if unassigned(timeZoneArray) then timeZoneArray = ''
checkDLSFlag = num(arguments<1>) ;*// date passed in
checkDLSFlag = checkDLSFlag * (E.GTZO.OFFSET # E.GTZO.DLS.OFFSET)
checkDLSFlag = checkDLSFlag * len(E.GTZO.START.MONTH)
checkDLSFlag = checkDLSFlag * len(E.GTZO.START.WEEK)
checkDLSFlag = checkDLSFlag * len(E.GTZO.START.DAY)
checkDLSFlag = checkDLSFlag * len(E.GTZO.STOP.MONTH)
checkDLSFlag = checkDLSFlag * len(E.GTZO.STOP.WEEK)
checkDLSFlag = checkDLSFlag * len(E.GTZO.STOP.DAY)

if checkDLSFlag then

*// find the dls start date for this year
tzInternalDate = arguments<1>
tzYear = oconv(tzInternalDate,'d4y')
tzStartMonth = E.GTZO.START.MONTH
tzStartWeek = E.GTZO.START.WEEK
tzStartDay = E.GTZO.START.DAY

tzStartDate = iconv(tzStartMonth:'/':tzYear,'dmy') ;*// finds the first
tzStartOffset = tzStartDay - mod(tzStartDate,7)
if tzStartOffset < 1 then tzStartOffset += 7
tzStartDate += tzStartOffset
tzStartDate += tzStartWeek * 7
loop until oconv(tzStartDate,'dm') = tzStartMonth do tzStartDate -= 7 repeat

*// find the dls stop date for this year
tzStopMonth = E.GTZO.STOP.MONTH
tzStopWeek = E.GTZO.STOP.WEEK
tzStopDay = E.GTZO.STOP.DAY

tzStopDate = iconv(tzStopMonth:'/':tzYear,'dmy') ;*// finds the first
tzStopOffset = tzStopDay - mod(tzStopDate,7)
if tzStopOffset < 1 then tzStopOffset += 7
tzStopDate += tzStopOffset
tzStopDate += tzStopWeek * 7
loop until oconv(tzStopDate,'dm') = tzStopMonth do tzStopDate -= 7 repeat

*// return the appropriate time offset for the date.
begin case
case tzStartDate < tzStopDate & tzInternalDate > tzStartDate & tzInternalDate < tzStopDate ;*// northern hemisphere dls
timeZoneOffset = E.GTZO.DLS.OFFSET
case tzStartDate > tzStopDate & (tzInternalDate < tzStopDate ! tzInternalDate > tzStartDate) ;*// southern hemisphere dls
timeZoneOffset = E.GTZO.DLS.OFFSET
case @true
timeZoneOffset = E.GTZO.OFFSET
end case
returnValue = timeZoneOffset
end else
if abs(E.GTZO.OFFSET) > 0 then
timeZoneOffset = E.GTZO.OFFSET
returnValue = timeZoneOffset
end else
returnValue = 0 ;*// return as UTC
end
end

return(@null)

*--------------------------------------------
GetTimeZoneString: *// return current unix TZ setting - unix
*--------------------------------------------

if system(91) then ;*// WIN NT needs registry reader
*// http://msdn.microsoft.com/library/en-us/wmisdk/wmi/win32_timezone.asp
*// return unix tz string like: EET-10EETDT-11,M10.5.0/2,M3.5.0/2
open '&SAVEDLISTS&' to f.temp then
script = 'Set wbemObjectSet = GetObject("winmgmts:").InstancesOf("Win32_TimeZone")'
script<-1> = 'For Each wbemObject In wbemObjectSet : With wbemObject'
script<-1> = 'StdOffset = 0 - .Bias + .StandardBias'
script<-1> = 'SS = mid("+-",1-(StdOffset <0),1)'
script<-1> = 'DltOffset = 0 - .Bias + .DaylightBias'
script<-1> = 'DS = mid("+-",1-(DltOffset <0),1)'
script<-1> = 'WScript.stdOut.writeline _'
script<-1> = '"STD" & SS & formatdatetime(timeserial(0,StdOffset,0),4) & _'
script<-1> = '"DLT" & DS & formatdatetime(timeserial(0,DltOffset,0),4) & _'
script<-1> = '",M" & .DaylightMonth & "." & .DaylightDay & _'
script<-1> = '"." & .DaylightDayOfWeek & "/" & .DaylightHour & _'
script<-1> = '",M" & .StandardMonth & "." & .StandardDay & _'
script<-1> = '"." & .StandardDayOfWeek & "/" & .StandardHour'
script<-1> = 'End With : Next : Set wbemObjectSet = Nothing'
write script on f.temp,E.TMP.ID then
execute 'dos /c cscript //B //T:1 ^&SAVEDLISTS^&/':E.TMP.ID capturing cap
returnValue = cap<1>
end else
returnValue = E.DEFAULT.TZ
end
delete f.temp,E.TMP.ID
end else
returnValue = E.DEFAULT.TZ
end
end else
execute 'ENVIRONMENT' capturing envStrings
envVars = fields(envStrings,'=',1)
locate E.TZ.ENVSTR in envVars setting tzPos then
returnValue = field(envStrings<tzPos>,'=',2)
end else
returnValue = E.DEFAULT.TZ
end
end

return(@null)

*--------------------------------------------
GetTimeZoneStringFromArray: *// return current unix TZ setting - unix
*--------------------------------------------

timeZoneArray = arguments

if E.GTZO.DESC then
returnValue = E.GTZO.DESC
if E.GTZO.OFFSET then
z = int(E.GTZO.OFFSET/E.SECS.PER.HOUR)
if z > 0 then returnValue := E.PLUS
returnValue := z
if mod(E.GTZO.OFFSET,E.SECS.PER.HOUR) then returnValue := (':':mod(abs(E.GTZO.OFFSET),E.SECS.PER.HOUR)/E.SECS.PER.MIN)
end else
returnValue := '0'
end

if E.GTZO.DLS.DESC then
returnValue := E.GTZO.DLS.DESC
if E.GTZO.DLS.OFFSET then
z = int(E.GTZO.DLS.OFFSET/E.SECS.PER.HOUR)
if z > 0 then returnValue := E.PLUS
returnValue:= z
if mod(E.GTZO.DLS.OFFSET,E.SECS.PER.HOUR) then returnValue := ':':mod(abs(E.GTZO.DLS.OFFSET),E.SECS.PER.HOUR)/E.SECS.PER.MIN
end else
returnValue := '0'
end

returnValue := ',M':E.GTZO.START.MONTH
returnValue := '.':E.GTZO.START.WEEK
returnValue := '.':E.GTZO.START.DAY:'/2'
returnValue := ',M':E.GTZO.STOP.MONTH
returnValue := '.':E.GTZO.STOP.WEEK
returnValue := '.':E.GTZO.STOP.DAY:'/2'
end

end

return(@null)

*--------------------------------------------
ParseEpochTime: *// return local UV seconds from 1970-01-01T00:00Z
*--------------------------------------------

if num(arguments<1>) then
timeToParse = arguments<1>
timeZoneString = arguments<2>

*// convert to local time
if timeToParse = '' then timeToParse = E.EPOCH.SECS
if timeZoneString = '' then
*// get default
gosub GetTimeZoneString:
timeZoneString = returnValue
end
arguments = timeZoneString
gosub ParseTimeZoneString:

arguments = int(timeToParse/E.SECS.PER.DAY) + E.EPOCH.OFFSET - (timeToParse < 0) ;*// internal date - is DLS applicable?
gosub GetTimeZoneOffset:
timeToParse -= returnValue

*// get time and date at UTC
internalDate = int(timeToParse/E.SECS.PER.DAY) + E.EPOCH.OFFSET - (timeToParse < 0)
internalTime = mod(timeToParse,E.SECS.PER.DAY) + (E.SECS.PER.DAY * (timeToParse < 0))

returnValue = internalDate:@am:internalTime

end

return(@null)

*--------------------------------------------
ParseISODateTime: *// return Epoch
*--------------------------------------------

* sample of possible formats for ISO date/time
* ISO 8601:2000, The full iso8601 date/time spec as at 2000 may be downloaded here:
* http://www.iso.ch/iso/en/CatalogueDetailPage.CatalogueDetail?CSNUMBER=26780
* Year:
* YYYY (eg 1997)
* Year and month:
* YYYY-MM (eg 1997-07)
* Complete date:
* YYYY-MM-DD (eg 1997-07-16)
* Complete date plus hours and minutes:
* YYYY-MM-DDThh:mmTZD (eg 1997-07-16T19:20+01:00)
* Complete date plus hours, minutes and seconds:
* YYYY-MM-DDThh:mm:ssTZD (eg 1997-07-16T19:20:30+01:00)
* Complete date plus hours, minutes, seconds and a decimal fraction of a second
* YYYY-MM-DDThh:mm:ss.sTZD (eg 1997-07-16T19:20:30.45+01:00)

isoString = upcase(arguments<1>)

if len(isoString) then

isoDateString = field(isoString,E.ISOTIME.SEP,1)
isoTimeZoneString = field(isoString,E.ISOTIME.SEP,2)
internalTime = 0
timeOffset = 0
validTime = @true

internalDate = iconv(isoDateString,E.ISODATE.CONV)
begin case
case status() ;*// date not parsed
validTime = @false
case index(isoTimeZoneString,E.PLUS,1)
internalTime = iconv(field(isoTimeZoneString,E.PLUS,1),E.ISOTIME.CONV)
if status() then validTime = @false
timeOffset = -1 * iconv(field(isoTimeZoneString,E.PLUS,2),E.ISOTIME.CONV)
if status() then validTime = @false
case index(isoTimeZoneString,E.MINUS,1)
internalTime = iconv(field(isoTimeZoneString,E.MINUS,1),E.ISOTIME.CONV)
if status() then validTime = @false
timeOffset = iconv(field(isoTimeZoneString,E.MINUS,2),E.ISOTIME.CONV)
if status() then validTime = @false
case index(isoTimeZoneString,E.ISOZONE.SEP,1)
internalTime = iconv(field(isoTimeZoneString,E.ISOZONE.SEP,1),E.ISOTIME.CONV)
if status() then validTime = @false
case len(isoTimeZoneString)
internalTime = iconv(field(isoTimeZoneString,E.ISOZONE.SEP,1),E.ISOTIME.CONV)
if status() then validTime = @false
end case

if validTime then
internalDate = (internalDate - E.EPOCH.OFFSET) * E.SECS.PER.DAY
internalTime = internalTime + timeOffset
returnValue = internalDate + internalTime
end
end else
validTime = @false
end

return(@null)

*--------------------------------------------
ParseRFCDateTime: *// return Epoch
*--------------------------------------------
* RFC date time string: Sun, 06 Nov 1994 08:49:37 GMT

timeToParse = arguments<1>
if timeToParse then
datePart = iconv(field(timeToParse,' ',2,3),'D')
if not(status()) then
timePart = iconv(field(timeToParse,' ',5),'MT')
if not(status()) then
returnValue = datePart * E.SECS.PER.DAY + timePart
end
end
end

return(@null)

*--------------------------------------------
ParseTimeZoneString: *// parse unix TZ env string
*--------------------------------------------

tzString = arguments<1>
returnValue = ''
timeZoneArray = ''
*// 1=tz desc, 2=tz offset, 3=dls desc, 4=dls offset
*// 5=start month, 6=week, 7=day, 8=time
*// 9=stop month, 10=week, 11=day, 12=time

if len(tzString) then
*// get standard and dls offsets (and descriptors)
tzPart = field(tzString,',',1)
maxCharacter = len(tzPart)
for charPos = 1 to maxCharacter
character = tzPart[charPos,1]
lastDOChar = timeZoneArray[1]

begin case
case character = ':'
timeZoneArray := character
case not(alpha(character) ! num(character))
timeZoneArray<-1> = character
case alpha(lastDOChar) & num(character)
timeZoneArray<-1> = character
case num(lastDOChar) & alpha(character)
timeZoneArray<-1> = character
case @true
timeZoneArray := character
end case

next charPos

if len(E.GTZO.OFFSET) then
*// convert offset to seconds
utcOffset = ''
utcOffsetTime = E.GTZO.OFFSET
if utcOffsetTime[1,1] = E.PLUS ! utcOffsetTime[1,1] = E.MINUS then
*// first char is +/-
utcOffset = utcOffsetTime[1,1]
utcOffsetTime = utcOffsetTime[2,99]
end
utcOffsetSecs = field(utcOffsetTime,':',1) * E.SECS.PER.HOUR
utcOffsetSecs += field(utcOffsetTime,':',2) * E.SECS.PER.MIN
utcOffsetSecs += field(utcOffsetTime,':',3)
E.GTZO.OFFSET = utcOffset:utcOffsetSecs
end

if len(E.GTZO.DLS.OFFSET) then
*// convert offset to seconds
utcOffset = ''
utcOffsetTime = E.GTZO.DLS.OFFSET
if utcOffsetTime[1,1] = E.PLUS ! utcOffsetTime[1,1] = E.MINUS then
*// first char is +/-
utcOffset = utcOffsetTime[1,1]
utcOffsetTime = utcOffsetTime[2,99]
end
utcOffsetSecs = field(utcOffsetTime,':',1) * E.SECS.PER.HOUR
utcOffsetSecs += field(utcOffsetTime,':',2) * E.SECS.PER.MIN
utcOffsetSecs += field(utcOffsetTime,':',3)
E.GTZO.DLS.OFFSET = utcOffset:utcOffsetSecs
end else
if utcOffsetSecs then ;*// use standard time as default - hour
*!! E.GTZO.DLS.OFFSET = utcOffset:(utcOffsetSecs - E.SECS.PER.HOUR)
end
end

if dcount(timeZoneArray,@am) > 4 then
ndo = ''
for i=1 to 4; ndo = timeZoneArray; next i
timeZoneArray = ndo
end

*// get summer time start params
tzPart = field(tzString,',',2)
if len(tzPart) then
E.GTZO.START.MONTH = ''
maxCharacter = len(field(tzPart,'/',1)) ;*// assume 2am start/stop
for charPos = 1 to maxCharacter
character = tzPart[charPos,1]

begin case
case character = 'M'
case character = 'J' ;*!!! julian date - shouldn't happen
case character = '.'
timeZoneArray := @am
case @true
timeZoneArray := character
end case

next charPos
E.GTZO.START.TIME = 7200 ;*// assume 2am

if dcount(timeZoneArray,@am) > 8 then
ndo = ''
for i=1 to 8; ndo = timeZoneArray; next i
timeZoneArray = ndo
end
end else
*// standard default - northern hemisphere
*!! E.GTZO.START.MONTH = 4
*!! E.GTZO.START.WEEK = 1
*!! E.GTZO.START.DAY = 0
*!! E.GTZO.START.TIME = '02:00'
end

*// get summer time stop params
tzPart = field(tzString,',',3)
if len(tzPart) then
E.GTZO.STOP.MONTH = ''
maxCharacter = len(field(tzPart,'/',1)) ;*// assume 2am start/stop
for charPos = 1 to maxCharacter
character = tzPart[charPos,1]

begin case
case character = 'M'
case character = 'J' ;*!!! julian date - shouldn't happen
case character = '.'
timeZoneArray := @am
case @true
timeZoneArray := character
end case

next charPos
E.GTZO.STOP.TIME = 7200 ;*// assume 2am

if dcount(timeZoneArray,@am) > 12 then
ndo = ''
for i=1 to 12; ndo = timeZoneArray; next i
timeZoneArray = ndo
end
end else
*// standard default - northern hemisphere
*!! E.GTZO.STOP.MONTH = 10
*!! E.GTZO.STOP.WEEK = 5
*!! E.GTZO.STOP.DAY = 0
*!! E.GTZO.STOP.TIME = '02:00'
end

returnValue = timeZoneArray

end

return(@null)

*--------------------------------------------
SetDateFormat: *// 'ON' = International, 'OFF' = US
*--------------------------------------------

switch = upcase(trim(arguments<1,1>))

begin case
case switch = 'OFF'
setDateFormatCmd = 'DATE.FORMAT OFF'

case switch[1,1] = 'D' ;*// change default date output format
setDateFormatCmd = 'DATE.FORMAT ':arguments<1,1>

case @true
setDateFormatCmd = 'DATE.FORMAT ON'

end case

execute setDateFormatCmd capturing cap
gosub GetDateFormat: ;*// return current date format

return(@null)

*--------------------------------------------
ThatsAllFolks: end
*--------------------------------------------

</PRE>

*Also, see [[Ray Wurlod]]'s article, [[Date Conversion Demystified]]

HomePage>>SourceCode>>BasicSource>><nowiki>DateUtility</nowiki>

URLEncode

2006-06-30T02:55:13Z

Stuboy: *

HomePage>>SourceCode>>BasicSource>><nowiki>URLEncode</nowiki>

This is a function to correctly URLEncode a string. 
URL encoding of a character consists of a "%" symbol, followed by the two-digit hexadecimal representation (case-insensitive) of the ISO-Latin code point for the character. 
Some of the encoding decisions can get tricky in the 32-47 range and you will have to decide how you might encode sections of strings to override encrypting some potentially valid unencoded URI delimiters.

References: 
See http://www.gbiv.com/protocols/uri/rfc/rfc3986.html#characters 
See http://www.permadi.com/tutorial/urlEncoding

<PRE>
function URLEncode(inString)

*// perform standard URL encoding for UV ascii. ISO-8859-1 (ISO-Latin) character set.
*// stuart boydell 17-Dec-2004

*// basic example:
*// deffun URLEncode(string) ;* calling *URLEncode ;*[use 'calling globID' if you globally catalogue the program]
*// encodedString = URLEncode(unencodedString)

*// Only alphanumerics [0-9a-zA-Z], the special characters $-_.+!*'(),
*// and reserved characters used for their reserved purposes may be
*// used unencoded within a URL.

*// This process encodes unsafe characters to their URL safe
*// equivalent. eg. char(2) -> "%02"

*// First encodes char(37) "%" to %25 then loops through other ASCII.CODES ranges.

*// ranges of ascii codes of all characters to be encoded
*// 0-31 ASCII Control Characters Unsafe
*// 32-47 Reserved Characters ' '!?#$%&'()*+,-./ Unsafe
*// 48-57 ASCII Characters and Numbers 0-9 Safe
*// 58-64 Reserved Characters :;<=>?@ Unsafe
*// 65-90 ASCII Characters A-Z Safe
*// 91-96 Reserved Characters [\]^_` Unsafe
*// 97-122 ASCII Characters a-z Safe
*// 123-126 Reserved Characters {|}~ Unsafe
*// 127 Control Characters ' ' Unsafe
*// 128-255 Non-ASCII Characters ' ' Unsafe

*// 'Special' encoding characters
equ E.PERCENT to '%',
E.SPACE to ' ',
E.PLUS to '+'

*// 'Normal' encoding start/end characters (decimal ascii)
equ E.ASCII.START to (00:@am:38:@am:47:@am:58:@am:91:@am:96:@am:123),
E.ASCII.END to (36:@am:44:@am:47:@am:64:@am:94:@am:96:@am:255),
E.MAXRANGE to 7

*// convert 'special' encoding characters "%+[sp]"
outString = change(inString,E.PERCENT,E.PERCENT:'25')

*// space may be converted to '+' under some schemes...
*//outString = change(outString,E.PLUS,E.PERCENT:'2B')
*//outString = change(outString,E.SPACE,E.PLUS)

*// now convert 'normal' character ranges
for i = 1 to E.MAXRANGE
for j = E.ASCII.START to E.ASCII.END
jchar = char(j) ;*// get char from decimal val
*// index() character before change() - faster
if index(outString,jchar,1) then
outString = change(outString,jchar,E.PERCENT:dtx(j,2))
end
next j
next i

return(outString)
the:end

</PRE>

HomePage>>SourceCode>>BasicSource>><nowiki>URLEncode</nowiki>

URLEncode

2006-06-30T01:13:32Z

Stuboy: *

HomePage>>SourceCode>>BasicSource>><nowiki>URLEncode</nowiki>

This is a function to correctly URLEncode a string. 
URL encoding of a character consists of a "%" symbol, followed by the two-digit hexadecimal representation (case-insensitive) of the ISO-Latin code point for the character. 
See http://www.permadi.com/tutorial/urlEncoding/ for more info.

<PRE>
function URLEncode(inString)

*// perform standard URL encoding for UV ascii. ISO-8859-1 (ISO-Latin) character set.
*// stuart boydell 17-Dec-2004

*// basic example:
*// deffun URLEncode(string) ;* calling *URLEncode ;*- use this if you globally catalogue the program
*// encodedString = URLEncode(unencodedString)

*// Only alphanumerics [0-9a-zA-Z], the special characters $-_.+!*'(),
*// and reserved characters used for their reserved purposes may be
*// used unencoded within a URL.

*// This process encodes unsafe characters to their URL safe
*// equivalent. eg. char(2) -> "%02"

*// First encodes char(37) "%" to %25 then loops through other ASCII.CODES ranges.

*// ranges of ascii codes of all characters to be encoded
*// 0-31 ASCII Control Characters These characters are not printable Unsafe
*// 32-47 Reserved Characters ' '!?#$%&'()*+,-./ Unsafe
*// 48-57 ASCII Characters and Numbers 0-9 Safe
*// 58-64 Reserved Characters :;<=>?@ Unsafe
*// 65-90 ASCII Characters A-Z Safe
*// 91-96 Reserved Characters [\]^_` Unsafe
*// 97-122 ASCII Characters a-z Safe
*// 123-126 Reserved Characters {|}~ Unsafe
*// 127 Control Characters ' ' Unsafe
*// 128-255 Non-ASCII Characters ' ' Unsafe

*// 'Special' encoding characters
equ E.PERCENT to '%',
E.SPACE to ' ',
E.PLUS to '+'

*// 'Normal' encoding start/end characters (decimal ascii)
equ E.ASCII.START to (00:@am:34:@am:38:@am:47:@am:58:@am:91:@am:96:@am:123),
E.ASCII.END to (31:@am:36:@am:38:@am:47:@am:64:@am:94:@am:96:@am:255),
E.MAXRANGE to 8

*// convert 'special' encoding characters "%+[sp]"
string = change(inString,E.PERCENT,E.PERCENT:'25')
string = change(string,E.PLUS,E.PERCENT:'2B')
string = change(string,E.SPACE,E.PLUS)

*// now convert 'normal' character ranges
for i = 1 to E.MAXRANGE
for j = E.ASCII.START to E.ASCII.END
jchar = char(j) ;*// get char from decimal val
*// index() character before change() - faster
if index(string,jchar,1) then
string = change(string,jchar,E.PERCENT:dtx(j,2))
end
next j
next i

return(string)
the:end

</PRE>

HomePage>>SourceCode>>BasicSource>><nowiki>URLEncode</nowiki>

AccessFromDotNet

2006-01-03T12:03:05Z

Stuboy: *

'''Information on connecting to U2 from .NET'''

There's a whitepaper on IBM's site about U2 and .NET:
ftp://ftp.software.ibm.com/software/data/u2/pubs/whitepapers/ibmu2-microsoftnet.pdf

You can use jbimp.exe (usually in Program Files\Microsoft Visual Studio .NET 2003\SDK\v1.1\Bin) to convert java bytecode into a .net assembly.

Link to Raining Data's .NET data provider:
http://www.rainingdata.com/products/connect/dotnet/index.html

----
2006-01-03
:I would recommend looking at using [http://support.microsoft.com/default.aspx?scid=kb;en-us;308672 Microsoft Enterprise Services] to manage connection pooling and expose a useful interface to non-U2 developers. We have used Enterprise Services and XML in/out of U2 with excellent results.

:Something like [http://www-306.ibm.com/software/data/u2/redback/ RedBack RBOs] also provide a neat interface into U2, Graphical mapping provides an opportunity to present that old, hacked application to Windows developers with a nice clean object-oriented skin.

:Also recommend looking at [http://msdn.microsoft.com/practices MSDN Patterns and Practices] for some very good guides on how to do this stuff.

SBProcessSearch

2006-01-03T11:20:01Z

Stuboy: *

HomePage>>SourceCode>>BasicSource>><nowiki>SBProcessSearch</nowiki>

<pre>
program SBProcessSearch
* A very simple string search utility for an SB+ process file.
* stuart boydell - january 2006
* eg
* >RUN UTILS SBProcessSearch XXPROCESS SBOPEN
* will search for the expression SBOPEN and print
* out a list of occurences in the file.

searchFile = field(@sentence,' ',4)
searchTerm = field(@sentence,' ',5)
if searchTerm = '' then stop
open searchFile to f else stop
data searchTerm,''
execute 'SEARCH ':searchFile capturing cap
loop while readnext id do
readv p from f,id,6 then
x = 1
loop while findstr searchTerm in p,x setting a,v do
crt id"l#30" : x"r#3 ": v"r#3 ": p<a,v>
x += 1
repeat
end
repeat
clearselect
end
</pre>

HomePage>>SourceCode>>BasicSource>><nowiki>SBProcessSearch</nowiki>

URLEncode

2005-04-22T00:39:01Z

Stuboy: *

HomePage>>SourceCode>>BasicSource>>URLEncode

This is a function to correctly URLEncode a string. 
I wrote this when I was posting data into a SQL database using XML datagrams (very useful). The posted data had to be URL encoded and this was what I came up with. 
Because the data I was dealing with was only printable ascii < char(128) I have encoded only this range + uv delimiters for speed.

<PRE>
function URLEncode(string)

*// perform standard URL encoding for UV ascii.
*// sboydell 17-Dec-2004

*// deffun URLEncode(string) [calling *URLEncode]
*// encodedString = URLEncode(unencodedString)

*// Only alphanumerics [0-9a-zA-Z], the special characters $-_.+!*'(),
*// and reserved characters used for their reserved purposes may be
*// used unencoded within a URL.

*// ranges of ascii codes of all characters to be encoded
*// 0-31 ASCII Control Characters These characters are not printable Unsafe
*// 32-47 Reserved Characters ' '!?#$%&'()*+,-./ Unsafe
*// 48-57 ASCII Characters and Numbers 0-9 Safe
*// 58-64 Reserved Characters :;<=>?@ Unsafe
*// 65-90 ASCII Characters A-Z Safe
*// 91-96 Reserved Characters [\]^_` Unsafe
*// 97-122 ASCII Characters a-z Safe
*// 123-126 Reserved Characters {|}~ Unsafe
*// 127 Control Characters ' ' Unsafe
*// 128-255 Non-ASCII Characters ' ' Unsafe

equ E.COMMA to ',',
E.PERCENT to '%',
E.MAXRANGE to 9,
E.ASCII.CODES to '37,37,32,36,38,44,47,47,58,64,91,94,96,96,123,128,250,255'

*// define pairs of ranges to encode
dim ENCODE.RANGE(E.MAXRANGE,2)
matparse ENCODE.RANGE from E.ASCII.CODES, E.COMMA

for i = 1 to E.MAXRANGE
for j = ENCODE.RANGE(i,1) to ENCODE.RANGE(i,2)
string = change(string,char(j),E.PERCENT:dtx(j,2))
next j
next i

return(string)

the:end

</PRE>

ChoiceBox

2004-10-05T03:47:09Z

Stuboy: Fix to CHOICE.BOX.B UV for correct HELP display

When using HELP at TCL with a telnet client more than 80 columns wide you will need to fix the CHOICE.BOX.B program. 
The program uses a fixed value of 39 as the mid point of the screen and when this is not the case causes all sorts of screen strife. 
The following changes (in bold) work for vt220 emulation. 

:0030 SUBROUTINE CHOICE.BOX.B(start.line, max.lines, width, textstr.orig, 
:0031 Button.Array, selvalue,helpstring) 
:0032 
:0033 $INCLUDE UNIVERSE.INCLUDE MTF.INCL.H 
:0034 EQU KEYNUM TO 7 
:0035 DIM string.array(KEYNUM) 
:0036 DIM string.codes(KEYNUM) 
:0037 Default.list=0 
:0038 
:0039 textstr=textstr.orig 
:0040 
:0041 Help.number=0 
:0042 midPoint = int(system(2)/2) - 1 ;* find mid point 
:0043 IF width < 25 THEN width = 25 
:0044 start.col = midPoint - int(width/2) ;* use mid point instead of "39" 
:0045 text.start = start.col 
:0046 IF LENDP(textstr) < width THEN text.start = (midPoint-int(LENDP(textstr)/2)) -1 ;* use mid point instead of "39" 
:0047 
:0048 IF Button.Array="" THEN 
:etc ...
 
Re-compile APP.PROGS CHOICE.BOX.B 
CATALOG APP.PROGS *CHOICE.BOX.B FORCE

CommandReader

2004-04-06T02:50:00Z

Stuboy: *

Nasty bit of code but it works.

<pre>

/**
* A simple test program to execute a U2 command and parse the output.
*/

import asjava.uniobjects.*;
import asjava.uniclientlibs.*;
import java.io.*;

public class CommandReader extends BufferedReader {

public CommandReader(StringReader st) {
super(st);
}

public static UniSession doLogin(String cmd[]) {

UniSession uSession;
UniJava uJava = new UniJava();

try {
uSession = uJava.openSession();
uSession.connect(cmd[0],cmd[1],cmd[2],cmd[3]);
System.out.print("Connected:" + uSession.isActive()
+ " to:" + uSession.getHostName() + "/" + uSession.getAccountPath()
+ " cmd:" + cmd[4]);
if (cmd.length > 5) System.out.println(" parsing:" + cmd[5]);
else System.out.println("");
} catch (UniSessionException e) {
System.out.println("Error: " + e);
uSession = null;
}
return uSession;
}

public static boolean doLogout(UniSession uSession) {

try {
// lets disconnect from the database.
if (uSession.isActive()) uSession.disconnect();
}
catch (UniSessionException e) {
System.out.println("Error: " + e);
}
return !uSession.isActive();
}

public static String doUniCommand(UniSession uSession, String cmd) {
try {
UniCommand uCmd = uSession.command();
uCmd.setCommand(cmd);
uCmd.exec();
return uCmd.response();
} catch (Exception e) {
return "Cmd Error: " + e;
}
}

public static void main(String args[]) {
if (args.length < 5) {
System.out.println("Usage: java -classpath <classpath> CommandReader <host> <user> <pass> <account> <cmd> <filter>]");
System.out.println("<classpath> - must contain the commons-httpclient.jar and commons-logging.jar");
System.out.println("<host> - uniVerse host");
System.out.println("<user> - the user id to log in with");
System.out.println("<password> - the password");
System.out.println("<account> - uniVerse account");
System.out.println("<cmd> - command to process");
System.out.println("<filter> - filter string");
System.out.println("\neg. java CommandReader ironclad fkruger fubar2 UV \"SORT UV.ACCOUNT\" /usr/lpp");
System.out.println();
System.exit(1);
} else {
String strLine; int n = 0;
UniSession uSession = doLogin(args);
if (args.length > 5) {
try {
CommandReader cr = new CommandReader(new StringReader(doUniCommand(uSession, args[4])));
cr.mark(1);
while (cr.read() > 0) {
cr.reset();
n++;
strLine = cr.readLine();
if (strLine.indexOf(args[5]) > 0) {
System.out.println(strLine);
}
cr.mark(1);
}
cr.close();
} catch (Exception e) {
System.out.println("ex " + e);
}
} else {
System.out.println(doUniCommand(uSession,args[4]));
}
System.out.println("Disconnected:" + doLogout(uSession) + " parsed:" + n + " lines");
}
}
}

</pre>

Stuboy

2004-04-06T02:44:10Z

Stuboy: *

Stu Boydell

Melbourne

MV since 1989

No War

EditPlus

2004-01-28T07:35:49Z

Stuboy: Updates to syntax file for UV 10.1

<pre>
#TITLE=UV10
; EditPlus Syntax File v10.1b written by Stuart Boydell uvstx@sbcs.com.au.
; This file is provided as a syntax file for UniVerse 10.
; 12-Sep-2003 update v10.1b api verbs & syntax
;
; Tools/Prefernces/Settings & Syntax:
; Set this as the "File types" Default syntax for items without extensions
; Create new File type for UV syntax.
; Setup the function pattern to allow use of Search/Funtion List (ctrl-F11)
; to go to program labels.
;
; File Extensions: bas;par
; Function (subr) pattern: ^ *[0-9A-Za-z\.-_]+\:

#DELIMITER=(){}[]-+*%/="'~!&|\<>?:;,
#QUOTATION1='
#QUOTATION2="
#CONTINUE_QUOTE=y
; ensures unclosed quotes are obvious
#LINECOMMENT=*
#LINECOMMENT2=!
; also possible line comments are REM and "$*"
#COMMENTON=
#COMMENTOFF=
#COMMENTON2=
#COMMENTOFF2=
#ESCAPE=
#CASE=n
#PREFIX1=
#PREFIX2=
#PREFIX3=
; prefix "@" defines uv @variables
#PREFIX4=@
#PREFIX5=
#SUFFIX1=
#SUFFIX2=
#SUFFIX3=
#SUFFIX4=
; suffix ":" defines uv subroutines
#SUFFIX5=:

#KEYWORD=UV BASIC Reserved Words

; minor keywords
before
by
calling
capturing
commit
do
else
end
error
from
in
isolation
level
lit
literally
out
passlist
repeat
returning
rtnlist
setting
start
status
step
then
to
until
using
while

; major keywords

!async
!errno
!fcmp
!get.partnum
!get.pathname
!get.pu
!get.user.counts
!inline.prompts
!ints
!make.pathname
!matches
!message
!report.error
!set.ptr
!set.pu
!timdat
!user.type
!voc.pathname
$chain
$copyright
$define
$eject
$else
$endif
$ifdef
$ifndef
$include
$indef
$insert
$map
$options
$page
$undefine
^#include
; abort - see struct
abs
abss
acos
adds
alpha
ands
ascii
asin
; assign - see structure section
assigned
atan
authorization
auxmap
begin
bitand
bitnot
bitor
bitreset
bitset
bittest
bitxor
break
bscan
byte
bytelen
bytetype
byteval
call
case
cat
cats
century.pivot
chain
change
char
chars
checksum
clear
cleardata
clearfile
clearprompts
clearselect
close
closeseq
col1
col2
com
commit
common
compare
constants
continue
convert
cos
cosh
count
counts
create
crt
data
date
dcount
debug
declare
gci
deffun
del
delete
deletelist
deleteu
descrinfo
digest
dim
dimension
display
div
divs
downcase
dquote
dtx
ebcdic
echo
encode
encrypt
end
enter
eof(arg.)
equ
equate
ereplace
errmsg
exchange
execute
exit
exp
extract
fadd
fdiv
ffix
fflt
field
fields
fieldstore
fileinfo
filelock
fileunlock
find
findstr
fix
flush
fmt
fmtdp
fmts
fmtsdp
fmul
fold
folddp
footing
for
formlist
fsub
function
ges
get
get(arg.)
getlist
getlocale
getrem
getx
; go - here there be dragons
; goto - here there be dragons
gosub
group
groupstore
gts
heading
headinge
headingn
hush
icheck
iconv
iconvs
if
ifs
ilprompt
include
index
indexs
indices
inmat
input
inputclear
inputdisp
inputdp
inputerr
inputif
inputnull
inputtrap
ins
insert
int
isnull
isnulls
itype
keyedit
keyexit
keyin
keytrap
left
len
lendp
lens
lensdp
les
let
ln
locate
lock
locked
loop
lower
lts
mat
matbuild
match
matches
matchfield
matparse
matread
matreadl
matreadu
matwrite
matwriteu
maximum
minimum
mod
mods
muls
nap
neg
negs
nes
next
nobuf
not
nots
null
num
nums
oconv
oconvs
off
on
open
opencheck
opendev
openpath
openseq
ors
page
perform
precision
print
printer
printerr
procread
procwrite
; program - see structure section
prompt
pwr
quote
raise
randomize
read
readblk
readl
readlist
readnext
readseq
readt
readu
readv
readvl
readvu
real
recordlock
recordlocked
recordlockl
recordlocku
release
rem
rem
remove
repeat
replace
; return - see structure section
reuse
revremove
rewind
right
rnd
rollback
rpc.call
rpc.connect
rpc.disconnect
sadd
scmp
sdiv
seek
seek(arg.)
select
selecte
selectindex
selectinfo
selectn
selectv
send
sentence
seq
seqs
set
setrem
sin
sinh
sleep
smul
soundex
space
spaces
splice
sqrt
squote
sselect
sselectn
sselectv
ssub
status
; stop - see structure section
str
strs
subr
; subroutine - see structure section
subs
substrings
sum
summation
system
tabstop
tan
tanh
terminfo
time
timedate
timeout
tparm
tprint
trans
transaction
trim
trimb
trimbs
trimf
trimfs
trims
ttyctl
ttyget
ttyset
unassigned
unichar
unichars
uniseq
uniseqs
unlock
upcase
uprint
weof
weofseq
write
writeblk
writelist
writeseq
writeseqf
writet
writeu
writev
writevu
xlate
xtd

#KEYWORD=UV Operators
(
)
,
:
[
]
/
*
**
^^
and
&
+
or
!
-
eq
=
gt
>
lt
<
ge
le
ne
^#

#KEYWORD=BCI, Sockets & XML
;# BCI functions
ClearDiagnostics
GetDiagnostics
SetDiagnostics
SQLAllocConnect
SQLAllocEnv
SQLAllocStmt
SQLBindCol
SQLBindCol
SQLBindParameter
SQLCancel
SQLColAttributes
SQLColumns
SQLConnect
SQLDescribeCol
SQLDisconnect
SQLError
SQLExecDirect
SQLExecute
SQLFetch
SQLFreeConnect
SQLFreeEnv
SQLFreeStmt
SQLGetInfo
SQLGetTypeInfo
SQLNumParams
SQLNumResultCols
SQLParamOptions
SQLPrepare
SQLRowCount
SQLSetConnectOption
SQLSetParam
SQLSpecialColumns
SQLStatistics
SQLTables
SQLTransact

;# Sockets/Internet functions
AcceptConnection
AddAuthenticationRule
AddCertificate
AddRequestParameter
AnalyzeCertificate
CloseSocket
CreateCertification
CreateCertRequest
CreateRequest
CreateSecureRequest
CreateSecurityContext
GenerateKey
GetCipherSuite
GetHTTPDefault
GetSocketErrorMessage
GetSocketInformation
GetSocketOptions
InitSecureServerSocket
InitServerSocket
LoadSecurityContext
OpenSecureSocket
OpenSocket
ProtocolLogging
ReadSocket
SaveSecurityContext
SetAuthenticationDepth
SetCipherSuite
SetClientauthentication
SetHTTPDefault
SetLocale
SetPrivateKey
SetRandomSeed
SetRequestHeader
SetSocketOptions
ShowSecurityContext
Signature
SubmitRequest
WriteSocket

;# XML functions
closeXMLData
openXMLData
prepareXML
readXMLData
releaseXML
xmlError
;# v10.1
xmlGetError
xmlExecute

;# DOM functions v10.1
XDOMOpen
XDOMCreateNode
XDOMWrite
XDOMClose
XDOMValidate
XDOMLocate
XDOMLocateNode
XDOMCreateNode
XDOMEvaluate
XDOMRemove
XDOMAppend
XDOMInsert
XDOMReplace
XDOMAddChild
XDOMClone
XDOMTransform
XDOMGetNodeValue
XDOMGetNodeName
XDOMGetNodeType
XDOMGetAttribute
XDOMGetOwnerDocument
XDOMGetUserData
XDOMSetNodeValue
XDOMSetUserData

;# AMI Session v10.1
amInitialize
amReceiveMsg
amReceiveRequest
amSendMsg
amSendRequest
amSendResponse
amTerminate

;# SOAP API 10.1
SOAPSetDefault
SOAPGetDefault
SOAPCreateRequest
SOAPSetParameters
SOAPSetRequestHeader
SOAPSetRequestBody
SOAPSetRequestContent
SOAPRequestWrite
SOAPSubmitRequest
SOAPGetResponseHeader
SOAPGetFault
protocolLogging

#KEYWORD=@ Variables & Options

;# flavour options
default
in2
information
pick
piopen
reality

;# individual options
case
comp.precision
count.ovlp
end.warn
exec.eq.perf
extra.delim
for.incr.bef
format.oconv
fselect
header.brk
header.date
header.eject
in2.substr
info.abort
info.convert
info.enter
info.include
info.locate
info.marks
info.mod
input.else
inputat
int.precision
locate.r83
no.case
no.reselect
no.return.warn
ongo.range
pclose.all
perf.eq.exec
piopen.execute
piopen.include
piopen.matread
piopen.selidx
radians
raw.output
read.retain
real.substr
rnext.expl
seq.255
static.dim
stop.msg
supp.data.echo
time.millisecond
ult.format
use.errmsg
var.select
vec.math
wide.if

#KEYWORD=Structure syntax
^;
\
abort
aborte
abortm
assign
go
goto
program
return
stop
stope
stopm
sub
subroutine
</pre>

EditPlus

2003-06-30T04:56:00Z

Stuboy: *

<pre>
#TITLE=UV10
; EditPlus Syntax File v1.3 written by Stuart Boydell stuart@sbcs.com.au.
; This file is provided as a syntax file for Universe 10
; Tools Preferences/Settings & Syntax:
; Set this as default syntax file and also as UV file type with
; File Extensions: bas;par
; Function (subr) pattern: ^ *[0-9A-Za-z\.-_]+\:($| )

#DELIMITER=(){}[]-+*%/="'~!&|\<>?:;,
#QUOTATION1='
#QUOTATION2="
#CONTINUE_QUOTE=y
; ensures unclosed quotes are obvious
#LINECOMMENT=*
#LINECOMMENT2=!
; also possible line comments are REM and "$*"
#COMMENTON=
#COMMENTOFF=
#COMMENTON2=
#COMMENTOFF2=
#ESCAPE=
#CASE=n
#PREFIX1=
#PREFIX2=
#PREFIX3=
#PREFIX4=@
; prefix "@" defines uv @variables
#PREFIX5=
#SUFFIX1=
#SUFFIX2=
#SUFFIX3=
#SUFFIX4=
#SUFFIX5=:
; suffix ":" defines uv subroutines

#KEYWORD=UV BASIC Reserved Words

; minor keywords
by
calling
capturing
commit
do
else
end
error
from
in
isolation
level
lit
literally
out
passlist
repeat
returning
rtnlist
setting
start
status
then
to
until
using
while

; major keywords

!async
!errno
!fcmp
!get.partnum
!get.pathname
!get.pu
!get.user.counts
!inline.prompts
!ints
!make.pathname
!matches
!message
!report.error
!set.ptr
!set.pu
!timdat
!user.type
!voc.pathname
$chain
$copyright
$define
$eject
$else
$endif
$ifdef
$ifndef
$include
$indef
$insert
$map
$options
$page
$undefine
^#include
; abort - see struct
abs
abss
acos
adds
alpha
ands
ascii
asin
; assign - see structure section
assigned
atan
authorization
auxmap
begin
bitand
bitnot
bitor
bitreset
bitset
bittest
bitxor
break
bscan
byte
bytelen
bytetype
byteval
; call - see struct
case
cat
cats
century.pivot
chain
change
char
chars
checksum
clear
cleardata
clearfile
clearprompts
clearselect
close
closeseq
col1
col2
com
commit
common
compare
constants
continue
convert
cos
cosh
count
counts
create
crt
data
date
dcount
debug
deffun
del
delete
deletelist
deleteu
descrinfo
digest
dim
dimension
display
div
divs
downcase
dquote
dtx
ebcdic
echo
encrypt
end
enter
eof(arg.)
equ
equate
ereplace
errmsg
exchange
execute
exit
exp
extract
fadd
fdiv
ffix
fflt
field
fields
fieldstore
fileinfo
filelock
fileunlock
find
findstr
fix
flush
fmt
fmtdp
fmts
fmtsdp
fmul
fold
folddp
footing
for
formlist
fsub
function
ges
get
get(arg.)
getlist
getlocale
getrem
getx
; go - here there be dragons
; goto - here there be dragons
; gosub - see structure section
group
groupstore
gts
heading
headinge
headingn
hush
icheck
iconv
iconvs
if
ifs
ilprompt
include
index
indexs
indices
inmat
input
inputclear
inputdisp
inputdp
inputerr
inputif
inputnull
inputtrap
ins
insert
int
isnull
isnulls
itype
keyedit
keyexit
keyin
keytrap
left
len
lendp
lens
lensdp
les
let
ln
locate
lock
locked
loop
lower
lts
mat
matbuild
match
matches
matchfield
matparse
matread
matreadl
matreadu
matwrite
matwriteu
maximum
minimum
mod
mods
muls
nap
neg
negs
nes
next
nobuf
not
nots
null
num
nums
oconv
oconvs
off
on
open
opencheck
opendev
openpath
openseq
ors
page
perform
precision
print
printer
printerr
procread
procwrite
; program - see structure section
prompt
pwr
quote
raise
randomize
read
readblk
readl
readlist
readnext
readseq
readt
readu
readv
readvl
readvu
real
recordlock
recordlocked
recordlockl
recordlocku
release
rem
rem
remove
repeat
replace
; return - see structure section
reuse
revremove
rewind
right
rnd
rollback
rpc.call
rpc.connect
rpc.disconnect
sadd
scmp
sdiv
seek
seek(arg.)
select
selecte
selectindex
selectinfo
selectn
selectv
send
sentence
seq
seqs
set
setrem
sin
sinh
sleep
smul
soundex
space
spaces
splice
sqrt
squote
sselect
sselectn
sselectv
ssub
status
; stop - see structure section
str
strs
subr
; subroutine - see structure section
subs
substrings
sum
summation
system
tabstop
tan
tanh
terminfo
time
timedate
timeout
tparm
tprint
trans
transaction
trim
trimb
trimbs
trimf
trimfs
trims
ttyctl
ttyget
ttyset
unassigned
unichar
unichars
uniseq
uniseqs
unlock
upcase
uprint
weof
weofseq
write
writeblk
writelist
writeseq
writeseqf
writet
writeu
writev
writevu
xlate
xtd

#KEYWORD=UV Operators
(
)
,
:
[
]
/
*
**
^^
and
&
+
or
!
-
eq
=
gt
>
lt
<
ge
le
ne
^#

#KEYWORD=BCI, Sockets & XML
;# BCI functions
ClearDiagnostics
GetDiagnostics
SetDiagnostics
SQLAllocConnect
SQLAllocEnv
SQLAllocStmt
SQLBindCol
SQLBindCol
SQLBindParameter
SQLCancel
SQLColAttributes
SQLColumns
SQLConnect
SQLDescribeCol
SQLDisconnect
SQLError
SQLExecDirect
SQLExecute
SQLFetch
SQLFreeConnect
SQLFreeEnv
SQLFreeStmt
SQLGetInfo
SQLGetTypeInfo
SQLNumParams
SQLNumResultCols
SQLParamOptions
SQLPrepare
SQLRowCount
SQLSetConnectOption
SQLSetParam
SQLSpecialColumns
SQLStatistics
SQLTables
SQLTransact

;# Sockets/Internet functions
AcceptConnection
AddAuthenticationRule
AddCertificate
AddRequestParameter
AnalyzeCertificate
CloseSocket
CreateCertification
CreateCertRequest
CreateRequest
CreateSecureRequest
CreateSecurityContext
GenerateKey
GetCipherSuite
GetHTTPDefault
GetSocketErrorMessage
GetSocketInformation
GetSocketOptions
InitSecureServerSocket
InitServerSocket
LoadSecurityContext
OpenSecureSocket
OpenSocket
ProtocolLogging
ReadSocket
SaveSecurityContext
SetAuthenticationDepth
SetCipherSuite
SetClientauthentication
SetHTTPDefault
SetLocale
SetPrivateKey
SetRandomSeed
SetRequestHeader
SetSocketOptions
ShowSecurityContext
Signature
SubmitRequest
WriteSocket

;# XML functions
CloseXMLData
OpenXMLData
PrepareXML
ReadXMLData
ReleaseXML

#KEYWORD=@ Variables & Options

;# flavour options
default
in2
information
pick
piopen
reality

;# individual options
case
comp.precision
count.ovlp
end.warn
exec.eq.perf
extra.delim
for.incr.bef
format.oconv
fselect
header.brk
header.date
header.eject
in2.substr
info.abort
info.convert
info.enter
info.include
info.locate
info.marks
info.mod
input.else
inputat
int.precision
locate.r83
no.case
no.reselect
no.return.warn
ongo.range
pclose.all
perf.eq.exec
piopen.execute
piopen.include
piopen.matread
piopen.selidx
radians
raw.output
read.retain
real.substr
rnext.expl
seq.255
static.dim
stop.msg
supp.data.echo
time.millisecond
ult.format
use.errmsg
var.select
vec.math
wide.if

#KEYWORD=Structure syntax
^;
\
abort
aborte
abortm
call
gosub
program
return
stop
stope
stopm
subroutine
assign
</pre>

ExternalSource

2003-06-30T04:46:35Z

Stuboy: *

HomePage>>SourceCode>><nowiki>ExternalSource</nowiki>

* [[C Programs]] , "C" code for use in multivalue databases.
* [[Visual Basic]] , VB for use with multivalue databases.
* JavaSource , Java and JSP source code that interacts with a MV database
* PerlSource, Perl scripts that may be interesting or useful to MV programmers
* [[SyntaxFiles]] , Syntax files for editing utilities.