* No-Show background SUR, (C) EMA 1997,1998,               LM:29.08.1998
INTERNAL 
  INTEGER  ER,I,STACK,N,FAC,SUR
PROC 
  MSGCNTL 'Transf.Sup.Surface to No-Show.    (C) Ema 1998, V2'
  LOAD GUMSEL 1,4,'*FAC',2,1,1,1,STACK,ER 
  IF(ER NE 0)EXIT
  LET I = 0
  DO
    LOAD GUSPOP STACK,FAC,I,ER
    LOAD GIRBAS 1,FAC,SUR,N,ER
    LOAD GICSHO 1,SUR,0,ER
  WHILE (I EQ 0)
  MSGCNTL 'Sur.has been transfered to NS.'
END