Terminal Multi-Line Option

The Command extension enables the execution of Multi-Line Commands from Terminal prompt.

Installation & Execution

Import %ZML.xml to Namespace %SYS

Optionally you may add this line to your %ZLANGC00.mac for a simplified use:

ZML do ^%zml quit  ; add multi line command in terminal

and
USER>zml

otherwise, just call it from the terminal command prompt

  USER>do ^%zml

Usage

at the prompt USER:zml:1>
- enter commands as usual
- trigger execution by an empty line
- stop multi-line option with a single '.' (dot) at first position

Example

USER>zml
Entering multi line mode. Run with empty line. Stop with single "."
USER:zml:1> for i=1:1:20 {
USER:zml:2> write i
USER:zml:3> write ": "
USER:zml:4> if $x>70 write !
USER:zml:5> }
USER:zml:6> 1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:
18: 19: 20:
USER:zml:1> .
USER>

with error trapping

USER>d ^%zml
Entering multi line mode. Run with empty line. Stop with single "."
USER:zml:1> for x=5:-1 {
USER:zml:2>     write ":",x
USER:zml:3>     write ?15,1/x,!  }
USER:zml:4>
:5             .2
:4             .25
:3             .3333333333333333333
:2             .5
:1             1
:0             ^
<DIVIDE>+3

routine calls

USER:zml:1> for i=1,2 {
USER:zml:2>    d ^%SS
USER:zml:3>    write !!,"###########"
USER:zml:4>    hang 2
USER:zml:5> }
USER:zml:6>
<..... last screen onöy .....>
             InterSystems IRIS System Status:  1:57 pm 29 Jun 2020
 Process  Device      Namespace      Routine         CPU,Glob  Pr User/Location
   14744                             CONTROL           0,0     8
   14816                             WRTDMN          359,1155  9
   10380                             GARCOL            0,0     8
   14292                             JRNDMN         4600,0     8
   13876                             EXPDMN            0,0     8
    4908  //./nul     %SYS           %SYS.TaskSuper
                                                  116965,8493  8  TASKMGR
   10072  //./nul     %SYS           MONITOR       19301,63    8
   12872  //./nul     %SYS           CLNDMN          692,65    8
    8308  //./nul     %SYS           RECEIVE       15801,839   8
    5512  //./nul     %SYS           ECPWork           0,0     8  ECPWORK
    2692  |TCP|51773  %SYS           %SYS.SERVER       0,0     8
   14884  //./nul     %SYS           LMFMON        21985,629   8
    2808  |TCP|CEMPER9:51773
                      USER           %SYS.BINDSRV2146884,2282268  _SYSTEM
    2516  //./nul     %SYS           SYS.VSSWriter     0,0     8  VSS Writer
   14416  //./nul     %SYS           %SYS.Monitor.Control
                                                 2047945,76423 8
   14940  |TCP|localhost:51773
                      %SYS           %SYS.cspServer3
                                                  138785,16984 8  UnknownUser
 
Press Q or q to quit, any other character to continue. q
 
 
###########
USER:zml:1>

GitHub