campo-sirio/co/costcmp.uml

#include "costcmp.h"

TOOLBAR "" 0 0 0 2
#include <printbar.h>
ENDPAGE

PAGE "Stampa Compagnie" 0 2 0 0

NUMBER F_INIZIO1 4
BEGIN
  PROMPT 3 1 "Da Codice compagnia "
  FIELD CODTAB
  KEY 1
  USE %CMP
  FLAGS "Z"
  INPUT CODTAB F_INIZIO1
  DISPLAY "Cod. compagnia" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_INIZIO1 CODTAB
  OUTPUT F_INIZIO2 S0
  CHECKTYPE REQUIRED
END

STRING F_INIZIO2 50
BEGIN
  PROMPT 9 1 "Descrizione      "
  FLAGS "D"
END

NUMBER F_FINE1 4
BEGIN
  PROMPT 3 2 "A Codice compagnia "
  FIELD CODTAB
  KEY 1
  USE %CMP
  FLAGS "Z"
  INPUT CODTAB F_FINE1
  DISPLAY "Cod. compagnia" CODTAB
  DISPLAY "Descrizione@50" S1
  OUTPUT F_INIZIO1 CODTAB
  OUTPUT F_FINE2 S1
  CHECKTYPE REQUIRED
END

STRING F_FINE2 50
BEGIN
  PROMPT 9 2 "Descrizione      "
  FLAGS "D"
END

ENDPAGE

ENDMASK