(61,528) User exit from interaction submode - How can I improve the script ?

 
Parents
  • Hi,

    This is a code I use to tag SCTN spec:

    It works fine but give it give me a 61,528 error when I escape... How should I handle that ?

    Thanks for your answers.

    define function !!SECTIONSPEC()
    DO
    prompt off
    prompt load escape |Identify SCTN |

    NEW GLAB
    LLEADER FALSE
    lfcolour108
    llcolour108
    TXCOLOUR 108
    BTEXT '#catr(c2:4)'
    LFRAME OFF
    ON ID SCTN@
    AT@

    Handle (61,528)
    prompt on
    prompt dismiss
    break
    endhandle

    ENDDO
    REFRESH
    EndFunction
Reply
  • Hi,

    This is a code I use to tag SCTN spec:

    It works fine but give it give me a 61,528 error when I escape... How should I handle that ?

    Thanks for your answers.

    define function !!SECTIONSPEC()
    DO
    prompt off
    prompt load escape |Identify SCTN |

    NEW GLAB
    LLEADER FALSE
    lfcolour108
    llcolour108
    TXCOLOUR 108
    BTEXT '#catr(c2:4)'
    LFRAME OFF
    ON ID SCTN@
    AT@

    Handle (61,528)
    prompt on
    prompt dismiss
    break
    endhandle

    ENDDO
    REFRESH
    EndFunction
Children
No Data