77 fl-validazione-contestuale pic x(01) value 'S'.
77 fl-validazione-post-accept pic x(01) value 'N'.
Queste due variabili consentono di controllare in che modo effettuare i controlli
FL-VALIDAZIONE-CONTESTUALE
Viene impostato ad "S" automaticamente all'avvio del programma.
Se rimane "S", alla terminazione di una accept viene eseguita la routine X-CONTROLLA-TM-nome-campo, ed emesso un errore quando necessario.
Si può impostare questo valore a "N" per eliminare ogni controllo durante l'editazione di una griglia. Come effetto collaterale, ogni "automatismo" inserito all'interno delle routine "X-CONTROLLA-TM-nome-campo" verrà disattivato.
Di conseguenza tutti i controlli e le elaborazioni si potranno effettuare ad esempio al termine dell'editazione, quando si richiede l'aggiornamento.
FL-VALIDAZIONE-POST-ACCEPT
Viene impostato ad "S" automaticamente durante l'esecuzione della routine Z-nomegriglia-FINISH-ENTRY.
In questo modo è possibile condizionare quello che viene fatto all'interno delle routine X-CONTROLLA-TM-nome-campo a seconda se siamo al termine dell'accept di una cella (FL-VALIDAZIONE-POST-ACCEPT = "S") oppure durante i controlli finali.
NB: questa variabile assume piu' importanza in caso di gestione griglia evoluta: qui, la routine di aggiornamento X-CONTROLLA-TM-nomecampo-AUTO effettua un aggiornamento automatico del file di transito controllato dalle procedure; ora viene effettuato solo nel caso di validazione post-accept; ad esempio, COGE29:
x-controlla-tm-r-car-tab-cod-auto.
move 'S' to x-f3-ok-parziale
perform x-controlla-tm-r-car-tab-cod
if x-f3-ok-parziale = 'S' and
fl-validazione-post-accept = 'S'
perform z-aggiorna-t-gor-r-car-tab-cod
end-if
move x-f3-ok-parziale to tm-r-gcv-car-tab-cod (i)
.