!!INFORMAZ. COLLEGATE AD UN ENTE 

T BRI

non usare il test per WRI
Con il clear prepara la riga poi la riempio manualmente e poi WRI

es:
%%prettify 
{{{
     C*uso la BRI per scrivere le estensioni
     C                   EVAL      £BRIFU = 'CLEAR'
     C                   EVAL      £FUNP1 = 'CLI'
     C                   EXSR      £BRI
     C**COMPILO IL BRESCO
     C                   EVAL      £BRIFU = 'WRI'
     C                   EVAL      £FUNP1 = 'CLI'
     C                   EVAL      S§TRAG='CLI'
     C                   MOVEL     CLIKEY        S§CRAG
     C                   EVAL      S§TEST='CON'
     C                   EVAL      S§CEST='001'
     C                   EVAL      S§CODR='001'
     C                   EVAL      S§DESE=TITOLARE
     C                   EXSR      £BRI  
}}}
/%