#include "cg5100a.h"

/* toolbar */

TOOLBAR "" 0 20 0 2

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

BUTTON DLG_QUIT 10 2
BEGIN
	PROMPT -22 -1 ""
END

ENDPAGE

/* page1 */

PAGE "Impostazione parametri ditta" -1 -1 77 8

NUMBER FLD_ANLIIV 4
BEGIN
	PROMPT 2 1 "@bANNO LIQUIDAZIONE IVA   "
        HELP "Indicare l'anno dell'esercizio IVA corrente"
	FIELD AnLiIv
END

BOOLEAN CHK_ANCFCM
BEGIN
	PROMPT 4 4 "Anagrafica clienti / anagrafica fornitori"
        HELP "Indicare se gestire un'unica anagrafica clienti/fornitori"
	FLAGS "D"
	FIELD AnCfCm
END

BOOLEAN CHK_PCTCCM
BEGIN
	PROMPT 4 5 "Piano conti / tabella causali"
        HELP "Indicare se gestire un'unico archivio piano dei conti/causali"
	FLAGS "D"
	FIELD PcTcCm
END

GROUPBOX DLG_NULL 53 4
BEGIN
	PROMPT 2 3 "Archivi in comune"
END


RADIOBUTTON LST_RIFPAR 20
BEGIN
	PROMPT 55 3 "Riferimenti partite "
        HELP "Indicaer il criterio dei riferimenti delle partite"
	ITEM " |N. protocollo"
	ITEM "X|N. documento"
	HELP ""
	FIELD RifPar
END

GROUPBOX DLG_NULL 76 11
BEGIN
	PROMPT 2 7 ""
END

BOOLEAN CHK_GSLBCN
BEGIN
	PROMPT 4 8 "Gestione libro cronologico "
        HELP "Indicare se attivare il libro cronologico della gestione per i professionisti"
	FIELD GsLbCn
END

BOOLEAN CHK_STTFFR
BEGIN
	PROMPT 4 9 "Stampa totali fatture a fine registro "
        HELP "Indicare se attivare il computo dei totali fatture a fine registro"
	FIELD StTfFr
END

BOOLEAN CHK_STLGIU
BEGIN
	PROMPT 4 10 "Stampa libro giornale e libro IVA unico " 
        HELP "Indicare se utilizzare un unico registro per libro giornale e libro IVA"
	FIELD StLgiU
END

BOOLEAN CHK_GESSAL
BEGIN
	PROMPT 4 11 "Gestione saldaconto "
        HELP "Indicare se attivare la gestione del saldaconto clienti/fornitori"
	FIELD GesSal
END

BOOLEAN CHK_NRCLIDX
BEGIN
	PROMPT 4 12 "N. Rif. allineato a destra per clienti"
        HELP "Indicare se allineare a destra il num. di rif. delle partite nel saldaconto"
	FIELD NrCliDx
END

BOOLEAN CHK_NRFORDX
BEGIN
	PROMPT 4 13 "N. Rif. allineato a destra per fornitori"
        HELP "Indicare se allineare a destra il num. di rif. delle partite nel saldaconto"
	FIELD NrForDx
END

BOOLEAN CHK_GESVAL
BEGIN
	PROMPT 4 14 "Gestione Valuta"
        HELP "Indicare se gestire i movimenti prima nota in valuta"
	FIELD GesVal                                         
END

BOOLEAN CHK_GELIDI
BEGIN
	PROMPT 4 15 "Gestione liquidazione differita"
        HELP "Indicare se effettuare la liq. diff. ex DL 151 del 13-5-91 convertito da L. 202"
	FIELD GeLiDi
END

BOOLEAN CHK_GESVEN
BEGIN
	PROMPT 4 16 "Gestione vendite"
        HELP "Indicare se e' attivata anche la gestione delle vendite"
	FIELD GesVen
END

ENDPAGE


PAGE "Impostazione parametri ditta" -1 -1 77 8

GROUPBOX DLG_NULL 78 12
BEGIN 
	PROMPT 1 7 "Codici sottoconto per chiusura automatica dei conti"
END

STRING FLD_CODLIC 3
BEGIN
	PROMPT 1 2 "Codice libro incassi/pagamenti "
  HELP "Indicare il codice del libro degli incassi/pagamenti"
	USE %REG SELECT I0=4
  INPUT CODTAB[1,4] FLD_ANLIIV SELECT 
	INPUT  CODTAB[5,7] FLD_CODLIC
	DISPLAY "Anno" CODTAB[1,4]
	DISPLAY "Codice Registro" CODTAB[5,7]
	DISPLAY "Descrizione@50" S0
	OUTPUT FLD_CODLIC CODTAB[5,7]
	CHECKTYPE NORMAL
	FIELD CodLic
END

STRING FLD_CODLIN 1
BEGIN
        PROMPT 1 3 "Codice lingua                  "
        HELP "Indicare la lingua utilizzata"
	USE %LNG
	DISPLAY "Codice" CODTAB
	DISPLAY "Descrizione@50" S0
	OUTPUT FLD_CODLIN CODTAB
	INPUT  CODTAB FLD_CODLIN        
	CHECKTYPE NORMAL
	FIELD CodLin
END

STRING FLD_COCACH 3
BEGIN
	PROMPT 1 4 "Codice causale chiusura        "
        HELP "Codice della causale di chiusura che generera' il movimento"
	USE LF_CAUSALI SELECT MOVAP="C" 
	INPUT  CODCAUS FLD_COCACH       
	DISPLAY "Codice" CODCAUS
	DISPLAY "Descrizione@50" DESCR
	OUTPUT FLD_COCACH CODCAUS
	OUTPUT FLD_DCOCACH DESCR
	CHECKTYPE NORMAL
	ADD RUN cg0 -4
	FLAGS "U"
	FIELD CoCaCh
END

STRING FLD_DCOCACH 50 35
BEGIN
	PROMPT 40 4 ""
        HELP "Codice della causale di chiusura che generera' il movimento"
	USE LF_CAUSALI KEY 2 SELECT MOVAP="C" 
	INPUT  DESCR FLD_DCOCACH       
	DISPLAY "Descrizione@50" DESCR
	DISPLAY "Codice" CODCAUS
	COPY OUTPUT FLD_COCACH 
 	CHECKTYPE NORMAL
	ADD RUN cg0 -4
END

STRING FLD_COCAAP 3
BEGIN
	PROMPT 1 5 "Codice causale apertura        "
        HELP "Codice della causale di apertura che generera' il movimento"
	FLAGS "U"
	USE LF_CAUSALI SELECT MOVAP="A" 
	INPUT CODCAUS FLD_COCAAP        
	COPY DISPLAY FLD_COCACH
	OUTPUT FLD_COCAAP CODCAUS
	OUTPUT FLD_DCOCAAP DESCR
	ADD RUN cg0 -4
	CHECKTYPE NORMAL
	FIELD CoCaAp
END

STRING FLD_DCOCAAP 50 35
BEGIN
	PROMPT 40 5 ""
        HELP "Codice della causale di apertura che generera' il movimento"
	USE LF_CAUSALI KEY 2 SELECT MOVAP="A" 
	INPUT  DESCR FLD_DCOCAAP       
	COPY DISPLAY FLD_DCOCACH
	COPY OUTPUT FLD_COCAAP 
 	CHECKTYPE NORMAL
	ADD RUN cg0 -4
END

TEXT    DLG_NULL
BEGIN
	PROMPT 26 8 "Gruppo Conto Sottoconto"
END

TEXT    DLG_NULL 
BEGIN
	PROMPT 25 9 "________________________"
END

NUMBER  FLD_CSBICHG 3
BEGIN
	PROMPT 2 10 "Bilancio di chiusura    "
        HELP "Codice del conto di riepilogo del bilancio di chiusura"
	USE LF_PCON SELECT SOTTOCONTO!=""
	INPUT GRUPPO FLD_CSBICHG 
	INPUT CONTO FLD_CSBICHC
	INPUT SOTTOCONTO FLD_CSBICHS
	DISPLAY "Gruppo" GRUPPO
	DISPLAY "Conto" CONTO
	DISPLAY "Sottoconto" SOTTOCONTO
	DISPLAY "Descrizione@50" DESCR
	OUTPUT FLD_CSBICHG GRUPPO
	OUTPUT FLD_CSBICHC CONTO
	OUTPUT FLD_CSBICHS SOTTOCONTO
	OUTPUT FLD_DCSBICH DESCR
	FIELD CsBiChG
	ADD RUN cg0 -0
END

NUMBER  FLD_CSBICHC 3
BEGIN
	PROMPT 33 10 ""
        HELP "Codice del conto di riepilogo del bilancio di chiusura"
	COPY ALL FLD_CSBICHG
	FIELD CsBiChC
	ADD RUN cg0 -0
END

NUMBER FLD_CSBICHS 6
BEGIN
	PROMPT 40 10 ""
        HELP "Codice del conto di riepilogo del bilancio di chiusura"
	COPY USE FLD_CSBICHG
	COPY INPUT FLD_CSBICHG
	COPY DISPLAY FLD_CSBICHG
	OUTPUT FLD_CSBICHG GRUPPO
	OUTPUT FLD_CSBICHC CONTO
	OUTPUT FLD_CSBICHS SOTTOCONTO
	OUTPUT FLD_DCSBICH DESCR
	CHECKTYPE NORMAL
	FIELD CsBiChS
	ADD RUN cg0 -0
END

STRING FLD_DCSBICH 50 25
BEGIN
	PROMPT 50 10 ""
        HELP "Codice del conto di riepilogo del bilancio di chiusura"
	USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
	INPUT DESCR FLD_DCSBICH 
	DISPLAY "Descrizione@50" DESCR
	DISPLAY "Gruppo" GRUPPO
	DISPLAY "Conto" CONTO
	DISPLAY "Sottoconto" SOTTOCONTO
	COPY OUTPUT FLD_CSBICHG
	ADD RUN cg0 -0
END

STRING  FLD_CSPRPEG 3
BEGIN
	PROMPT 2 11 "Profitti e perdite      "
        HELP "Codice del conto di riepilogo del profitti e perdite"
	COPY USE FLD_CSBICHG
	COPY DISPLAY FLD_CSBICHG
	OUTPUT FLD_CSPRPEG GRUPPO
	OUTPUT FLD_CSPRPEC CONTO
	OUTPUT FLD_CSPRPES SOTTOCONTO
	OUTPUT FLD_DCSPRPE DESCR
	INPUT GRUPPO FLD_CSPRPEG 
	INPUT CONTO FLD_CSPRPEC
	INPUT SOTTOCONTO FLD_CSPRPES
	FIELD CsPrPeG
	ADD RUN cg0 -0
END

NUMBER  FLD_CSPRPEC 3
BEGIN
        PROMPT 33 11 ""
        HELP "Codice del conto di riepilogo del profitti e perdite"
	COPY ALL FLD_CSPRPEG
	FIELD CsPrPeC
	ADD RUN cg0 -0
END

NUMBER  FLD_CSPRPES 6
BEGIN
	PROMPT 40 11 ""
        HELP "Codice del conto di riepilogo del profitti e perdite"
	COPY USE FLD_CSPRPEG
	COPY INPUT FLD_CSPRPEG
	COPY DISPLAY FLD_CSPRPEG
	OUTPUT FLD_CSPRPEG GRUPPO
	OUTPUT FLD_CSPRPEC CONTO
	OUTPUT FLD_CSPRPES SOTTOCONTO
	OUTPUT FLD_DCSPRPE DESCR
	CHECKTYPE NORMAL
	FIELD CsPrPeS
	ADD RUN cg0 -0
END

STRING FLD_DCSPRPE 50 25
BEGIN
	PROMPT 50 11 ""
        HELP "Codice del conto di riepilogo del profitti e perdite"
	COPY USE FLD_DCSBICH
	INPUT DESCR FLD_DCSPRPE 
	COPY DISPLAY FLD_DCSBICH
	COPY OUTPUT FLD_CSPRPEG
	ADD RUN cg0 -0
END


NUMBER  FLD_CSBIAPG 3
BEGIN
	PROMPT 2 12 "Bilancio di apertura    "
        HELP "Codice del conto di riepilogo del bilancio di apertura"
	COPY USE FLD_CSBICHG
	COPY DISPLAY FLD_CSBICHG
	OUTPUT FLD_CSBIAPG GRUPPO
	OUTPUT FLD_CSBIAPC CONTO
	OUTPUT FLD_CSBIAPS SOTTOCONTO
	OUTPUT FLD_DCSBIAP DESCR
	INPUT GRUPPO FLD_CSBIAPG 
	INPUT CONTO FLD_CSBIAPC
	INPUT SOTTOCONTO FLD_CSBIAPS
	HELP ""
	FIELD CsBiApG
	ADD RUN cg0 -0
END

NUMBER  FLD_CSBIAPC 3
BEGIN
	PROMPT 33 12 ""
        HELP "Codice del conto di riepilogo del bilancio di apertura"
	COPY ALL FLD_CSBIAPG        
	FIELD CsBiApC
	ADD RUN cg0 -0
END

NUMBER  FLD_CSBIAPS 6
BEGIN
	PROMPT 40 12 ""
        HELP "Codice del conto di riepilogo del bilancio di apertura"
	COPY USE FLD_CSBIAPG        
	COPY INPUT FLD_CSBIAPG        
	COPY DISPLAY FLD_CSBIAPG        
	OUTPUT FLD_CSBIAPG GRUPPO
	OUTPUT FLD_CSBIAPC CONTO
	OUTPUT FLD_CSBIAPS SOTTOCONTO
	OUTPUT FLD_DCSBIAP DESCR
	CHECKTYPE NORMAL
	FIELD CsBiApS
	ADD RUN cg0 -0
END

STRING FLD_DCSBIAP 50 25
BEGIN
	PROMPT 50 12 ""
        HELP "Codice del conto di riepilogo del bilancio di apertura"
	COPY USE FLD_DCSBICH
	INPUT DESCR FLD_DCSBIAP 
	COPY DISPLAY FLD_DCSBICH
	COPY OUTPUT FLD_CSBIAPG
	ADD RUN cg0 -0
END


NUMBER  FLD_CSUECPG 3
BEGIN
	PROMPT 2 13 "Utile esercizio patrim. "
        HELP "Codice del conto patrimoniale dell'utile d'esercizio"
	COPY USE FLD_CSBICHG
	COPY DISPLAY FLD_CSBICHG
	OUTPUT FLD_CSUECPG GRUPPO
	OUTPUT FLD_CSUECPC CONTO
	OUTPUT FLD_CSUECPS SOTTOCONTO
	OUTPUT FLD_DCSUECP DESCR
	INPUT GRUPPO FLD_CSUECPG 
	INPUT CONTO FLD_CSUECPC
	INPUT SOTTOCONTO FLD_CSUECPS
	FIELD CsUeCpG
	ADD RUN cg0 -0
END
NUMBER  FLD_CSUECPC 3
BEGIN
	PROMPT 33 13 ""
        HELP "Codice del conto patrimoniale dell'utile d'esercizio"
	COPY ALL FLD_CSUECPG  
	FIELD CsUeCpC
	ADD RUN cg0 -0
END
NUMBER  FLD_CSUECPS 6
BEGIN
	PROMPT 40 13 ""
        HELP "Codice del conto patrimoniale dell'utile d'esercizio"
	COPY USE FLD_CSUECPG  
	COPY INPUT FLD_CSUECPG  
	COPY DISPLAY FLD_CSUECPG  
	OUTPUT FLD_CSUECPG GRUPPO
	OUTPUT FLD_CSUECPC CONTO
	OUTPUT FLD_CSUECPS SOTTOCONTO
	OUTPUT FLD_DCSUECP DESCR
	CHECKTYPE NORMAL
	FIELD CsUeCpS
	ADD RUN cg0 -0
END

STRING FLD_DCSUECP 50 25
BEGIN
	PROMPT 50 13 ""
        HELP "Codice del conto patrimoniale dell'utile d'esercizio"
	COPY USE FLD_DCSBICH
	INPUT DESCR FLD_DCSUECP 
	COPY DISPLAY FLD_DCSBICH
	COPY OUTPUT FLD_CSUECPG
	ADD RUN cg0 -0
END

NUMBER  FLD_CSPECPG 3
BEGIN
	PROMPT 2 14 "Perdita eserc. patrim.  "
        HELP "Codice del conto patrimoniale della perdita d'esercizio"
	COPY USE FLD_CSBICHG
	COPY DISPLAY FLD_CSBICHG
	OUTPUT FLD_CSPECPG GRUPPO
	OUTPUT FLD_CSPECPC CONTO
	OUTPUT FLD_CSPECPS SOTTOCONTO
	OUTPUT FLD_DCSPECP DESCR
	INPUT GRUPPO FLD_CSPECPG 
	INPUT CONTO FLD_CSPECPC
	INPUT SOTTOCONTO FLD_CSPECPS
	FIELD CsPeCpG
	ADD RUN cg0 -0
END

NUMBER  FLD_CSPECPC 3
BEGIN
	PROMPT 33 14 ""
        HELP "Codice del conto patrimoniale della perdita d'esercizio"
	COPY ALL FLD_CSPECPG
	FIELD CsPeCpC
	ADD RUN cg0 -0
END

NUMBER  FLD_CSPECPS 6
BEGIN
	PROMPT 40 14 ""
        HELP "Codice del conto patrimoniale della perdita d'esercizio"
	COPY USE FLD_CSPECPG
	COPY INPUT FLD_CSPECPG
	COPY DISPLAY FLD_CSPECPG
	OUTPUT FLD_CSPECPG GRUPPO
	OUTPUT FLD_CSPECPC CONTO
	OUTPUT FLD_CSPECPS SOTTOCONTO
	OUTPUT FLD_DCSPECP DESCR
	CHECKTYPE NORMAL
	FIELD CsPeCpS
	ADD RUN cg0 -0
END

STRING FLD_DCSPECP 50 25
BEGIN
	PROMPT 50 14 ""
        HELP "Codice del conto patrimoniale della perdita d'esercizio"
	COPY USE FLD_DCSBICH
	INPUT DESCR FLD_DCSPECP 
	COPY DISPLAY FLD_DCSBICH
	COPY OUTPUT FLD_CSPECPG
	ADD RUN cg0 -0
END

NUMBER  FLD_CSUECEG 3
BEGIN
	PROMPT 2 15 "Utile esercizio econ.   "
        HELP "Codice del conto economico dell'utile d'esercizio"
	COPY USE FLD_CSBICHG
	COPY DISPLAY FLD_CSBICHG
	OUTPUT FLD_CSUECEG GRUPPO
	OUTPUT FLD_CSUECEC CONTO
	OUTPUT FLD_CSUECES SOTTOCONTO
	OUTPUT FLD_DCSUECE DESCR
	INPUT GRUPPO FLD_CSUECEG 
	INPUT CONTO FLD_CSUECEC
	INPUT SOTTOCONTO FLD_CSUECES
	FIELD CsUeCeG
	ADD RUN cg0 -0
END
NUMBER  FLD_CSUECEC 3
BEGIN
	PROMPT 33 15 ""
        HELP "Codice del conto economico dell'utile d'esercizio"
	COPY ALL FLD_CSUECEG
	FIELD CsUeCeC
	ADD RUN cg0 -0
END
NUMBER  FLD_CSUECES 6
BEGIN
	PROMPT 40 15 ""
        HELP "Codice del conto economico dell'utile d'esercizio"
	COPY USE FLD_CSUECEG
	COPY INPUT FLD_CSUECEG
	COPY DISPLAY FLD_CSUECEG
	OUTPUT FLD_CSUECEG GRUPPO
	OUTPUT FLD_CSUECEC CONTO
	OUTPUT FLD_CSUECES SOTTOCONTO
	OUTPUT FLD_DCSUECE DESCR
	CHECKTYPE NORMAL
	FIELD CsUeCeS
	ADD RUN cg0 -0
END

STRING FLD_DCSUECE 50 25
BEGIN
	PROMPT 50 15 ""
        HELP "Codice del conto economico dell'utile d'esercizio"
	COPY USE FLD_DCSBICH
	INPUT DESCR FLD_DCSUECE 
	COPY DISPLAY FLD_DCSBICH
	COPY OUTPUT FLD_CSUECEG
	ADD RUN cg0 -0
END

NUMBER  FLD_CSPECEG 3
BEGIN
	PROMPT 2 16 "Perdita eserc. econ.    "
        HELP "Codice del conto economico della perdita d'esercizio"
	COPY USE FLD_CSBICHG
	COPY DISPLAY FLD_CSBICHG
	OUTPUT FLD_CSPECEG GRUPPO
	OUTPUT FLD_CSPECEC CONTO
	OUTPUT FLD_CSPECES SOTTOCONTO
	OUTPUT FLD_DCSPECE DESCR
	INPUT GRUPPO FLD_CSPECEG 
	INPUT CONTO FLD_CSPECEC
	INPUT SOTTOCONTO FLD_CSPECES
	FIELD CsPeCeG
	ADD RUN cg0 -0
END
NUMBER  FLD_CSPECEC 3
BEGIN
	PROMPT 33 16 ""
        HELP "Codice del conto economico della perdita d'esercizio"
	COPY ALL FLD_CSPECEG
	FIELD CsPeCeC
	ADD RUN cg0 -0
END
NUMBER  FLD_CSPECES 6
BEGIN
	PROMPT 40 16 ""
        HELP "Codice del conto economico della perdita d'esercizio"
	COPY USE FLD_CSPECEG
	COPY INPUT FLD_CSPECEG
	COPY DISPLAY FLD_CSPECEG
	OUTPUT FLD_CSPECEG GRUPPO
	OUTPUT FLD_CSPECEC CONTO
	OUTPUT FLD_CSPECES SOTTOCONTO
	OUTPUT FLD_DCSPECE DESCR
	CHECKTYPE NORMAL
	FIELD CsPeCeS
	ADD RUN cg0 -0
END
STRING FLD_DCSPECE 50 25
BEGIN
	PROMPT 50 16 ""
        HELP "Codice del conto economico della perdita d'esercizio"
	USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
	INPUT DESCR FLD_DCSPECE 
	COPY DISPLAY FLD_DCSBICH
	COPY OUTPUT FLD_CSPECEG
	ADD RUN cg0 -0
END


ENDPAGE


PAGE "Impostazione parametri ditta" -1 -1 77 8

GROUPBOX DLG_NULL 78 10
BEGIN
	PROMPT 1 1 "Ratei/Risconti"
END


RADIOBUTTON LST_RRFRAM 16
BEGIN
	PROMPT 3 2 ""
        HELP "Frequenza del calcolo dei ratei e risconti"
	ITEM "A|Freq. Annuale"
	ITEM "M|Freq. Mensile"
	FIELD RrFrAm
END

BOOLEAN CHK_RRMECO
BEGIN
	PROMPT 26 3 "Mese Commerciale"
        HELP "Indicare se viene utilizzato nel calcolo il mese commerciale"
	FIELD RrMeCo
END

STRING FLD_RRCCRA 3
BEGIN
	PROMPT 3 6 "Causale ratei    "
        HELP "Codice causale dei ratei per movimento di contabilita'"
	FLAGS "U"
	USE LF_CAUSALI
	INPUT  CODCAUS FLD_RRCCRA       
	COPY DISPLAY FLD_COCACH
	OUTPUT FLD_RRCCRA CODCAUS
        OUTPUT FLD_DRRCCRA DESCR
	CHECKTYPE NORMAL
	ADD RUN cg0 -4
	FIELD RrCcRa
END

STRING FLD_DRRCCRA 50 48
BEGIN
	PROMPT 26 6 ""
        HELP "Descrizione causale dei ratei per movimento di contabilita'"
	USE LF_CAUSALI KEY 2
	INPUT  DESCR FLD_DRRCCRA       
	COPY DISPLAY FLD_DCOCACH
	COPY OUTPUT FLD_RRCCRA 
 	CHECKTYPE NORMAL
	ADD RUN cg0 -4
END

STRING FLD_RRCCRI 3
BEGIN
	PROMPT 3 8 "Causale risconti "
        HELP "Codice causale dei risconti per movimento di contabilita'"
	FLAGS "U"
	COPY USE FLD_RRCCRA
	INPUT  CODCAUS FLD_RRCCRI       
	COPY DISPLAY FLD_COCACH
	OUTPUT FLD_RRCCRI CODCAUS
        OUTPUT FLD_DRRCCRI DESCR
	CHECKTYPE NORMAL
	ADD RUN cg0 -4
	FIELD RrCcRi
END 

STRING FLD_DRRCCRI 50 48
BEGIN
	PROMPT 26 8 ""
        HELP "Descrizione causale dei risconti per movimento di contabilita'"
	USE LF_CAUSALI KEY 2
	INPUT  DESCR FLD_DRRCCRI       
	COPY DISPLAY FLD_DCOCACH
	COPY OUTPUT FLD_RRCCRI 
 	CHECKTYPE NORMAL
	ADD RUN cg0 -4
END

ENDPAGE

ENDMASK
