*/
If rc /= 0 Then
Do
Call PrintErrorMessage
Exit
End
Else
Nop
End
Else
Nop
End
End
Else
Nop
Say "#-- END YKDEMO12."
Exit
/*
* PrintErrorMessage: This procedure prints all of the error messages
* in the Message structure when a CLI command failed.
*/
PrintErrorMessage: procedure expose DEMO_MSG.
Do x = 1 To DEMO_MSG.0
Say "Severity = " || DEMO_MSG.x.Severity
Say "Text = " || DEMO_MSG.x.Text
Say "Value = " || DEMO_MSG.x.Value
End
Return 0
Command details 305
Содержание P9000
Страница 302: ...YKDEMO12 302 CLI Commands ...