code:

---

IF InGroup("IT")
	ADDPRINTERCONNECTION ("\\corpps1\it_cube")
	ADDPRINTERCONNECTION ("\\corpps2\corppilot")
	ADDPRINTERCONNECTION ("\\clc1150p1\print")
	SetDefaultPrinter ("\\corpps1\it_cube")
	use k: /delete
	use k: "\\corpfs1\shared\IT" 
	use n: /delete
	use n: "\\corpweb2\IT_Apps" 
ENDIF

IF InGroup("LEGAL")
ENDIG


IF InGroup("SALES")
ENDIF

IF InGroup("SST")
	use t: /delete	
	use t: "\\corpweb2\SST"	
ENDIF
  

---

code:

---

 IF InGroup("IT")
       ADDPRINTERCONNECTION ("\\corpps1\it_cube")
       ADDPRINTERCONNECTION ("\\corpps2\corppilot")
       ADDPRINTERCONNECTION ("\\clc1150p1\print")
       SetDefaultPrinter ("\\corpps1\it_cube")
       USE k: /delete
       USE k: "\\corpfs1\shared\IT"
       USE n: /delete
       USE n: "\\corpweb2\IT_Apps"
 ENDIF

 IF InGroup("LEGAL")
       ENDIG


       IF InGroup("SALES")
       ENDIF

       IF InGroup("SST")
             USE t: /delete
             USE t: "\\corpweb2\SST"
       ENDIF

;($begin)
;
;                       mon 17-jun-2002 11:51:28       (kix 4.10 vs 3.04e)
;
;Informative KIXSTRIP:      input=22 output=22 skip=0
;
;Warning     KIXSTRIP:    1 error in block structure. missing statement(s).
;                           - do:until                 [0:0]
;                           - for|each:in|to:step|next [0|0:0|0:0|0]
;                           - function:endfunction     [0:0]
;                   -ERROR- - if:else:endif            [4:0:3]
;                           - select:case:endselect    [0:0:0]
;                           - while:loop               [0:0]
;Warning     KIXSTRIP: some lines contains errors or possible errors.
;Informative KIXSTRIP:    4 block_structures found.
;Informative KIXSTRIP:   no UDF's found.
;Informative KIXSTRIP:   no labels found.
;Summary     KIXSTRIP:      BREAK CALL DEBUG DISPLAY ENDFUNCTION EXECUTE EXIT FUNCTION GET GETS GOSUB GOTO OLExxx PLAY QUIT RETURN RUN SHELL SLEEP THEN USE
;Informative KIXSTRIP:    6 USE
;
;($end)
;($begin)
;
;
;($end)

---

code:

---

   Warnings about unknown keywords
.
   endig                            ?       13
   k:                               ?        6      7
   n:                               ?        8      9
   t:                               ?       20     21
.
.
.
   Summary - kixtart 4.10/3.04e
.
   boldsymbols                      0
   commands                         4
   functions                        3
   labels                           0
   macros                           0
   variables                        0
.
   env                              0
   udf                              0
   ?                                4
.
   gosub                            0
   goto                             0
.
                                   11
.
.
   Block Structure
.
   do:until                          [0:0]
   for|each:in|to:step|next          [0|0:0|0:0|0]
   function:endfunction              [0:0]
   if:else:endif             -ERROR- [4:0:3]
   select:case:endselect             [0:0:0]
   while:loop                        [0:0]
.
                                     4 blocks
.

---

Both tools show problems with block structures.
greetings.

btw: symbol on our homepage has been linked to related http://kixtart.org topic.

[ 17 June 2002, 12:03: Message edited by: MCA ]