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

 
Parents
  • check this:

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


           NEW GLAB
           LLEADER FALSE
           lfcolour 108
           llcolour 108
           TXCOLOUR 108
           BTEXT '#catr(c2:4)'
           LFRAME OFF
           ON ID SCTN@
           handle(61,528)
              break
           endhandle
           AT@
           handle(61,528)
              break
           endhandle
       ENDDO
       REFRESH
    endfunction


    Error handler after picking and reposition text.
Reply
  • check this:

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


           NEW GLAB
           LLEADER FALSE
           lfcolour 108
           llcolour 108
           TXCOLOUR 108
           BTEXT '#catr(c2:4)'
           LFRAME OFF
           ON ID SCTN@
           handle(61,528)
              break
           endhandle
           AT@
           handle(61,528)
              break
           endhandle
       ENDDO
       REFRESH
    endfunction


    Error handler after picking and reposition text.
Children
No Data