Per ciascun campo standard presente in maschera che non sia disabilitato viene prodotta questa routine, che contiene alcune impostazioni necessarie per ottenere aiuto sul campo:
•Emissione Status bar
•Impostazione Help-context-id
•Impostazione "Notefld" (forse obsoleto)
Esempio della chiamata alla routine
Generalmente questa routine viene richiamata al di sotto della label di riferimento dell'accept di un campo.
*
**---------------------------------------------------------------*
** Numero informazione
**---------------------------------------------------------------*
a-tm-num.
perform x-aiuto-tm-num
perform x-attiva-f8-nuovo
accept e-tm-num on exception continue.
perform x-disattiva-f8-nuovo
if f-event
go to x-test-mouse
end-if
.
Esempio della routine
x-aiuto-tm-num.
move 000000005331 to ext-help-context-id
move 'EUROCOGE' to notefld-pac
move 'CRM013' to notefld-prg
move 'num' to notefld-fld
move s-tm-num to sb-msg
perform x-status-bar-msg
.