diff --git a/sc/sc2100a.uml b/sc/sc2100a.uml
index 859fbacf2..ae3bb0790 100755
--- a/sc/sc2100a.uml
+++ b/sc/sc2100a.uml
@@ -47,16 +47,16 @@ STRING F_LINPROF 1
 BEGIN
   PROMPT 19 3 ""
   FLAGS "U"
-/*  
-  USE %LNG
-  INPUT CODTAB F_LINPROF
-  DISPLAY "Codice" CODTAB
-  DISPLAY "Descrizione@50" S0
-  OUTPUT F_LINPROF CODTAB
-  CHECKTYPE NORMAL
-  WARNING "Codice lingua errato"
-*/  
-  COPY ALL F_CODPROF
+  USE LF_FORM
+  INPUT TIPOPROF BASE_EC_PROFILE
+  INPUT CODPROF[1,4] F_CODPROF
+  INPUT CODPROF[5,5] F_LINPROF
+  DISPLAY "Codice" CODPROF[1,4]
+  DISPLAY "Lingua" CODPROF[5,5]
+  DISPLAY "Descrizione@50" DESC
+  OUTPUT F_CODPROF CODPROF[1,4]
+  OUTPUT F_LINPROF CODPROF[5,5]
+  OUTPUT F_DESPROF DESC
   CHECKTYPE NORMAL
   WARNING "Codice profilo o lingua errato"
 END
diff --git a/sc/sc2400a.uml b/sc/sc2400a.uml
index 714d273af..cd4324c02 100755
--- a/sc/sc2400a.uml
+++ b/sc/sc2400a.uml
@@ -46,13 +46,19 @@ END
 STRING F_LINPROF 1
 BEGIN
   PROMPT 19 3 ""
-  USE %LNG
-  INPUT CODTAB F_LINPROF
-  DISPLAY "Codice" CODTAB
-  DISPLAY "Descrizione@50" S0
-  OUTPUT F_LINPROF CODTAB
+  FLAGS "U"
+  USE LF_FORM
+  INPUT TIPOPROF BASE_EC_PROFILE
+  INPUT CODPROF[1,4] F_CODPROF
+  INPUT CODPROF[5,5] F_LINPROF
+  DISPLAY "Codice" CODPROF[1,4]
+  DISPLAY "Lingua" CODPROF[5,5]
+  DISPLAY "Descrizione@50" DESC
+  OUTPUT F_CODPROF CODPROF[1,4]
+  OUTPUT F_LINPROF CODPROF[5,5]
+  OUTPUT F_DESPROF DESC
   CHECKTYPE NORMAL
-  WARNING "Codice lingua errato"
+  WARNING "Codice profilo o lingua errato"
 END
 
 STRING F_DESPROF 50 40