Cespiti in analitica
MESSAGE RESET,F1.103
MESSAGE RESET,F1.102
MESSAGE RESET,F1.101
MESSAGE RESET,F1.104
MESSAGE RESET,F1.105
MESSAGE RESET,F1.106
MESSAGE RESET,F1.107
#SYSTEM.RAGSOC
#SYSTEM.DATE
CODES
#CODCDC
MESSAGE ISAMREAD,CDC,CODCOSTO=#CODCDC,DESCRIZ
#SITUAZIONE
#CODCMS
MESSAGE ISAMREAD,COMMESSE,CODCMS=#CODCMS,DESCRIZ
#CODFASE
MESSAGE ISAMREAD,FASI,CODCMSFAS=#CODCMS!CODFASE=#CODFASE,DESCRIZ
IDCESPITE
#DESC
CODCDC
CODCMS
CODFASE
#VARIAZIONE
MESSAGE ADD,F1.103
#PERCAMM
#QAMM+#QAMMMV
MESSAGE ADD,F1.105
#CESSELIM+#QAMMMV
MESSAGE ADD,F1.106
USE SALCECMS KEY 2
FROM CODES=#CODES IDCESPITE=#IDCESPITE
TO CODES=#CODES IDCESPITE=#IDCESPITE