* Link all sets in model, (C) EMA 1997                     LM:01.01.1997
INTERNAL 
  INTEGER  ER,END,CURSET,SET0,SET1
  CHAR*38  MSG0 INIT '          Link all sets, (C) Ema 1997'
  CHAR*32  MSG1 INIT 'YES:Start // NO:End      '
  CHAR*20  SETID
PROC 
*  MSG MSG1//MSG0 YES,NO
*  IF(KODE EQ NO) EXIT
  LOAD GIRCUR 1,ER,ER,CURSET,ER,ER,ER,ER
  DO
    LOAD GISSET 1,SET0,SET1,END,ER
    BLOCKIF(SET1 NE CURSET) THEN
      LOAD GICLSE 1,SET1,ER
      LET SET0=0
    ELSE
      LET SET0=SET1
    ENDIF
  WHILE (END NE 1)
END