Robert Cemper

User bio

my video https://youtu.be/zx6WoApljBI
my business story https://community.intersystems.com/post/45-years-intersystems-1978-2023

main languages: German, English, Italian, French, Spanish, Latin, ..
private: married since 1969, 3 successful children

Member since Jul 21, 2017

Posts:

show all 242

Article Robert Cemper · Apr 25 1m read

Reviews on Open Exchange - #66

Contestant

Article Robert Cemper · Apr 16 3m read

Why GLOBALS ?

Article Robert Cemper · Feb 27 1m read

Reviews on Open Exchange - #65

Replies:

show all 3338

Robert Cemper · May 11 go to post

With your #define, you create a sequence of lines. NOT a method !!
So the final quit is wrong.
But this works:

#define ArrayToString(%array,%out,%del) ##continue 
 set %out="" for { ##continue 
 set key=$order(%array("")) quit:key="" ##continue 
 set %out=%out_%del_key ##continue 
 } 
a 
 $$$ArrayToString(pQArray,tQStr,"##") 
 zw

// the generated int code:

a 
 set tQStr="" for { 
 set key=$order(pQArray("")) quit:key="" 
 set tQStr=tQStr_"##"_key 
 } 
zw

Robert Cemper · May 9 go to post

set Names="A,B,Y,Z"
set A=$L(Names,",")
for I=1:1:A set G="^"_$LI($LFS(Names),I) set @G="" write $zr,!

Robert Cemper · Apr 30 go to post

not correct. SINGLE line ELSE is part of Objectscript since ever
You just need a double space after the ELSE

USER>p 
ck       read "?",x,! 
         if x?.N write "numeric",! 
         else  write "other",! 
         goto ck 
USER>d ck 
?5 
numeric 
?a 
other

Open Exchange applications:

Light-weight-EXCEL-download

fast-JSON-formatting-Cache

IRIS internal WebSocket Client

Native-API-for-ObjectScript

fast-JSON-formatting-IRIS

Simple-remote-server-control

WSockClientMicroSV