Suporte Técnico / Departamento de Operações
Rio de Janeiro, 23 de dezembro de 1996
Documento 34
Prosseguir com o DIAG em caso de falta de espaço no winchester

Caso a rotina de diagnóstico DIAG seja interrompida por falta de espaço no winchester, executar d FIM^DIAGCONF.

No caso deste label não existir na rotina DIAGCONF, criá-la com a seguinte sequência de instruções:

FIM ;Forca FIM de arquivo "diag.sm" interrompido

O 700 D ^%DEFAULT(700)

O 700:(MODE=2+8+32768:FILE="diag.sm")

U 700 W "**FIM**","" U 0

D C^%DEFAULT(700)

W !,"Feito.",:B,!