campo-sirio/ibm36/ibm36101.uml

PAGE "Corrispondenza Lingue" -1 -1 68 8

TEXT DLG_NULL
BEGIN
  PROMPT 1 1 "Scegliere il codice lingua di EuroCAMPO per la"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 2 "corrispondenza in importazione descrizioni in lingua"
END

NUMBER 100 1
BEGIN
  PROMPT 1 4 "Cod. lingua           "
  FLAGS "D"
END

STRING 101 1
BEGIN
  PROMPT 1 5 "Cod. Lingua EuroCAMPO "
  USE %LNG
  INPUT  CODTAB 101
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 101 CODTAB
  CHECKTYPE REQUIRED
  WARNING "Codice lingua errato"
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -11 -1 ""
END

ENDPAGE

ENDMASK