Hi Ingo,
below is log file content that shows read trigger called due to clear, please suggest!
"Status:0, DBError:0" (_detail); DTLF; 2; [0]; $traceprint = 1023
"Status:0, DBError:0" (_detail); DTLF; 3; [0]; setocc "ENTY1", $curocc(ENTY1.CSPRD) + 1
"Status:0, DBError:0" (_read); READ; 1; [0]; if ($curocc(ENTY2.CSPRD) > $NUMBER_EMPTY$ + $NUMBER_EXTRA$)
"Status:0, DBError:0" (_read); READ; 2; [0]; if ($curocc(ENTY2.CSPRD) = $NUMBER_EMPTY$ + $NUMBER_EXTRA$ + 1)
"Status:0, DBError:0" (_read); READ; 3; [0]; $LAST_PARENT$ = 0
"Status:0, DBError:0" (_read); READ; 4; [0]; endif
"Status:0, DBError:0" (_read); READ; 5; [0]; read u_where(((_ID.ENTY1 = _ID.ENTY2) & (_PARENT.PRD
"Status:0, DBError:0" (_read); READ; 6; [0]; if ($status = 0)
"Status:0, DBError:0" (_read); READ; 7; [0]; $LAST_PARENT$ = _CHILD.ENTY1
"Status:0, DBError:0" (_read); READ; 8; [0]; endif
"Status:0, DBError:0" (_read); READ; 9; [0]; endif
"Status:0, DBError:0" (_read); READ; 10; [0]; done<end of="" module="">
"Status:2, DBError:0" (_detail); DTLF; 4; [0]; if ($status < 0)
"Status:2, DBError:0" (_detail); DTLF; 6; [0]; endif
"Status:2, DBError:0" (_detail); DTLF; 7; [0]; $LAST_PARENT$ = _CHILD.ENTY1
"Status:2, DBError:0" (_detail); DTLF; 8; [0]; call LOAD_LOWERS()
"Status:0, DBError:0" (_detail); LOAD_LOWERS; 1; [0]; if ($curocc(ENTY2.CSPRD) < $hits(ENTY2.CSPRD) + $NUMBER_EMPTY$ + $NUMBER_E
"Status:0, DBError:0" (_detail); LOAD_LOWERS; 2; [0]; $1 = $curocc(ENTY2.CSPRD) + 1
"Status:0, DBError:0" (_detail); LOAD_LOWERS; 3; [0]; repeat
"Status:0, DBError:0" (_detail); LOAD_LOWERS; 4; [0]; setocc "ENTY2", $1
"Status:6, DBError:0" (_detail); LOAD_LOWERS; 5; [0]; clear/e "ENTY1"
"Status:0, DBError:0" (_read); READ; 1; [0]; if ($curocc(ENTY2.CSPRD) > $NUMBER_EMPTY$ + $NUMBER_EXTRA$)
"Status:0, DBError:0" (_read); READ; 2; [0]; if ($curocc(ENTY2.CSPRD) = $NUMBER_EMPTY$ + $NUMBER_EXTRA$ + 1)
"Status:0, DBError:0" (_read); READ; 4; [0]; endif
"Status:0, DBError:0" (_read); READ; 5; [0]; read u_where(((_ID.ENTY1 = _ID.ENTY2) & (_PARENT.PRD
"Status:0, DBError:0" (_read); READ; 6; [0]; if ($status = 0)
"Status:0, DBError:0" (_read); READ; 7; [0]; $LAST_PARENT$ = _CHILD.ENTY1
"Status:0, DBError:0" (_read); READ; 8; [0]; endif
"Status:0, DBError:0" (_read); READ; 9; [0]; endif
"Status:0, DBError:0" (_read); READ; 10; [0]; done<end of="" module="">
"Status:0, DBError:0" (_detail); LOAD_LOWERS; 6; [0]; retrieve/e "ENTY1"
"Status:0, DBError:0" (_read); READ; 1; [0]; if ($curocc(ENTY2.CSPRD) > $NUMBER_EMPTY$ + $NUMBER_EXTRA$)
"Status:0, DBError:0" (_read); READ; 2; [0]; if ($curocc(ENTY2.CSPRD) = $NUMBER_EMPTY$ + $NUMBER_EXTRA$ + 1)
"Status:0, DBError:0" (_read); READ; 4; [0]; endif
"Status:0, DBError:0" (_read); READ; 5; [0]; read u_where(((_ID.ENTY1 = _ID.ENTY2) & (_PARENT.PRD
"Status:-2, DBError:0" (_read); READ; 6; [-2]; if ($status = 0)
"Status:-2, DBError:0" (_read); READ; 8; [-2]; endif
"Status:-2, DBError:0" (_read); READ; 9; [-2]; endif
"Status:-2, DBError:0" (_read); READ; 10; [-2]; done<end of="" module="">
"Status:-2, DBError:0" (_detail); LOAD_LOWERS; 7; [-2]; $1 = $1 + 1
"Status:-2, DBError:0" (_detail); LOAD_LOWERS; 8; [-2]; until ($1 > $hits(ENTY2.CSPRD) + $NUMBER_EMPTY$ + $NUMBER_EXTRA$)
"Status:-2, DBError:0" (_detail); LOAD_LOWERS; 3; [-2]; repeat
"Status:-2, DBError:0" (_detail); LOAD_LOWERS; 4; [-2]; setocc "ENTY2", $1
"Status:7, DBError:0" (_detail); LOAD_LOWERS; 5; [0]; clear/e "ENTY1"
"Status:0, DBError:0" (_read); READ; 1; [0]; if ($curocc(ENTY2.CSPRD) > $NUMBER_EMPTY$ + $NUMBER_EXTRA$)
"Status:0, DBError:0" (_read); READ; 2; [0]; if ($curocc(ENTY2.CSPRD) = $NUMBER_EMPTY$ + $NUMBER_EXTRA$ + 1)
"Status:0, DBError:0" (_read); READ; 4; [0]; endif
"Status:0, DBError:0" (_read); READ; 5; [0]; read u_where(((_ID.ENTY1 = _ID.ENTY2) & (_PARENT.PRD
"Status:0, DBError:0" (_read); READ; 6; [0]; if ($status = 0)
"Status:0, DBError:0" (_read); READ; 7; [0]; $LAST_PARENT$ = _CHILD.ENTY1
"Status:0, DBError:0" (_read); READ; 8; [0]; endif
"Status:0, DBError:0" (_read); READ; 9; [0]; endif
"Status:0, DBError:0" (_read); READ; 10; [0]; done<end of="" module="">
"Status:0, DBError:0" (_detail); LOAD_LOWERS; 6; [0]; retrieve/e "ENTY1"
"Status:0, DBError:0" (_read); READ; 1; [0]; if ($curocc(ENTY2.CSPRD) > $NUMBER_EMPTY$ + $NUMBER_EXTRA$)
"Status:0, DBError:0" (_read); READ; 2; [0]; if ($curocc(ENTY2.CSPRD) = $NUMBER_EMPTY$ + $NUMBER_EXTRA$ + 1)
"Status:0, DBError:0" (_read); READ; 4; [0]; endif
"Status:0, DBError:0" (_read); READ; 5; [0]; read u_where(((_ID.ENTY1 = _ID.ENTY2) & (_PARENT.PRD
"Status:-2, DBError:0" (_read); READ; 6; [-2]; if ($status = 0)
"Status:-2, DBError:0" (_read); READ; 8; [-2]; endif
"Status:-2, DBError:0" (_read); READ; 9; [-2]; endif
"Status:-2, DBError:0" (_read); READ; 10; [-2]; done<end of="" module="">
"Status:-2, DBError:0" (_detail); LOAD_LOWERS; 7; [-2]; $1 = $1 + 1
"Status:-2, DBError:0" (_detail); LOAD_LOWERS; 8; [-2]; until ($1 > $hits(ENTY2.CSPRD) + $NUMBER_EMPTY$ + $NUMBER_EXTRA$)
"Status:-2, DBError:0" (_detail); LOAD_LOWERS; 3; [-2]; repeat
"Status:-2, DBError:0" (_detail); LOAD_LOWERS; 4; [-2]; setocc "ENTY2", $1
"Status:8, DBError:0" (_detail); LOAD_LOWERS; 5; [0]; clear/e "ENTY1"
"Status:0, DBError:0" (_read); READ; 1; [0]; if ($curocc(ENTY2.CSPRD) > $NUMBER_EMPTY$ + $NUMBER_EXTRA$)
"Status:0, DBError:0" (_read); READ; 2; [0]; if ($curocc(ENTY2.CSPRD) = $NUMBER_EMPTY$ + $NUMBER_EXTRA$ + 1)
"Status:0, DBError:0" (_read); READ; 4; [0]; endif
"Status:0, DBError:0" (_read); READ; 5; [0]; read u_where(((_ID.ENTY1 = _ID.ENTY2) & (_PARENT.PRD
"Status:0, DBError:0" (_read); READ; 6; [0]; if ($status = 0)
"Status:0, DBError:0" (_read); READ; 7; [0]; $LAST_PARENT$ = _CHILD.ENTY1
"Status:0, DBError:0" (_read); READ; 8; [0]; endif
"Status:0, DBError:0" (_read); READ; 9; [0]; endif
"Status:0, DBError:0" (_read); READ; 10; [0]; done<end of="" module="">
"Status:0, DBError:0" (_detail); LOAD_LOWERS; 6; [0]; retrieve/e "ENTY1"
"Status:0, DBError:0" (_read); READ; 1; [0]; if ($curocc(ENTY2.CSPRD) > $NUMBER_EMPTY$ + $NUMBER_EXTRA$)
"Status:0, DBError:0" (_read); READ; 2; [0]; if ($curocc(ENTY2.CSPRD) = $NUMBER_EMPTY$ + $NUMBER_EXTRA$ + 1)
"Status:0, DBError:0" (_read); READ; 4; [0]; endif
"Status:0, DBError:0" (_read); READ; 5; [0]; read u_where(((_ID.ENTY1 = _ID.ENTY2) & (_PARENT.PRD
"Status:-2, DBError:0" (_read); READ; 6; [-2]; if ($status = 0)
"Status:-2, DBError:0" (_read); READ; 8; [-2]; endif
"Status:-2, DBError:0" (_read); READ; 9; [-2]; endif
"Status:-2, DBError:0" (_read); READ; 10; [-2]; done<end of="" module="">
"Status:-2, DBError:0" (_detail); LOAD_LOWERS; 7; [-2]; $1 = $1 + 1
"Status:-2, DBError:0" (_detail); LOAD_LOWERS; 8; [-2]; until ($1 > $hits(ENTY2.CSPRD) + $NUMBER_EMPTY$ + $NUMBER_EXTRA$)
"Status:-2, DBError:0" (_detail); LOAD_LOWERS; 3; [-2]; repeat
"Status:-2, DBError:0" (_detail); LOAD_LOWERS; 4; [-2]; setocc "ENTY2", $1
"Status:9, DBError:0" (_detail); LOAD_LOWERS; 5; [0]; clear/e "ENTY1"
"Status:0, DBError:0" (_read); READ; 1; [0]; if ($curocc(ENTY2.CSPRD) > $NUMBER_EMPTY$ + $NUMBER_EXTRA$)
"Status:0, DBError:0" (_read); READ; 2; [0]; if ($curocc(ENTY2.CSPRD) = $NUMBER_EMPTY$ + $NUMBER_EXTRA$ + 1)
"Status:0, DBError:0" (_read); READ; 4; [0]; endif
"Status:0, DBError:0" (_read); READ; 5; [0]; read u_where(((_ID.ENTY1 = _ID.ENTY2) & (_PARENT.PRD
"Status:0, DBError:0" (_read); READ; 6; [0]; if ($status = 0)
"Status:0, DBError:0" (_read); READ; 7; [0]; $LAST_PARENT$ = _CHILD.ENTY1
"Status:0, DBError:0" (_read); READ; 8; [0]; endif
"Status:0, DBError:0" (_read); READ; 9; [0]; endif
"Status:0, DBError:0" (_read); READ; 10; [0]; done<end of="" module="">
"Status:0, DBError:0" (_detail); LOAD_LOWERS; 6; [0]; retrieve/e "ENTY1"
"Status:0, DBError:0" (_read); READ; 1; [0]; if ($curocc(ENTY2.CSPRD) > $NUMBER_EMPTY$ + $NUMBER_EXTRA$)
"Status:0, DBError:0" (_read); READ; 2; [0]; if ($curocc(ENTY2.CSPRD) = $NUMBER_EMPTY$ + $NUMBER_EXTRA$ + 1)
"Status:0, DBError:0" (_read); READ; 4; [0]; endif
"Status:0, DBError:0" (_read); READ; 5; [0]; read u_where(((_ID.ENTY1 = _ID.ENTY2) & (_PARENT.PRD
"Status:-2, DBError:0" (_read); READ; 6; [-2]; if ($status = 0)
"Status:-2, DBError:0" (_read); READ; 8; [-2]; endif
"Status:-2, DBError:0" (_read); READ; 9; [-2]; endif
"Status:-2, DBError:0" (_read); READ; 10; [-2]; done<end of="" module="">
"Status:-2, DBError:0" (_detail); LOAD_LOWERS; 7; [-2]; $1 = $1 + 1
"Status:-2, DBError:0" (_detail); LOAD_LOWERS; 8; [-2]; until ($1 > $hits(ENTY2.CSPRD) + $NUMBER_EMPTY$ + $NUMBER_EXTRA$)
"Status:-2, DBError:0" (_detail); LOAD_LOWERS; 9; [-2]; endif
"Status:-2, DBError:0" (_detail); LOAD_LOWERS; 10; [-2]; done<end of="" module="">
"Status:-2, DBError:0" (_detail); DTLF; 9; [0]; setocc "ENTY2", $OCC_LAST$
"Status:5, DBError:0" (_detail); DTLF; 10; [0]; call LOAD_ENTY3()
"Status:0, DBError:0" (_detail); LOAD_ENTY3; 1; [0]; if ($curocc(ENTY2.CSPRD) = $OCC_LAST$)
"Status:0, DBError:0" (_detail); LOAD_ENTY3; 2; [0]; fieldsyntax "start_number", " "
"Status:0, DBError:0" (_detail); LOAD_ENTY3; 3; [0]; fieldvideo "start_number", "DEF"
"Status:0, DBError:0" (_detail); LOAD_ENTY3; 4; [0]; START_NUMBER.DUMMY = 0
"Status:0, DBError:0" (_detail); LOAD_ENTY3; 5; [0]; $READ_KEY$ = "mste1"
"Status:0, DBError:0" (_detail); LOAD_ENTY3; 6; [0]; $PARENT_NUMBER$ = _CHILD.ENTY1
"Status:0, DBError:0" (_detail); LOAD_ENTY3; 7; [0]; clear/e "ENTY3"
"Status:0, DBError:0" (_detail); LOAD_ENTY3; 8; [0]; retrieve/e "ENTY3"
"Status:0, DBError:0" (_read); READ; 1; [0]; if (START_NUMBER.DUMMY > 0 & START_NAME.DUMMY = '')
"Status:0, DBError:0" (_read); READ; 3; [0]; else
"Status:0, DBError:0" (_read); READ; 4; [0]; if (START_NAME.DUMMY != '')
"Status:0, DBError:0" (_read); READ; 6; [0]; else
"Status:0, DBError:0" (_read); READ; 7; [0]; read u_where((_PARENT.ENTY3 = $PARENT_NUMBER$)) order by "_fu
"Status:0, DBError:0" (_read); READ; 8; [0]; endif
"Status:0, DBError:0" (_read); READ; 9; [0]; endif
"Status:0, DBError:0" (_read); READ; 10; [0]; done<end of="" module="">
"Status:0, DBError:0" (_detail); LOAD_ENTY3; 9; [0]; if ($hits(ENTY3.CSPRD) = 0)
"Status:0, DBError:0" (_detail); LOAD_ENTY3; 11; [0]; endif
"Status:0, DBError:0" (_detail); LOAD_ENTY3; 12; [0]; if (_CHILD.ENTY3 > 1)
"Status:0, DBError:0" (_detail); LOAD_ENTY3; 13; [0]; $prompt = _FULL.ENTY3
"Status:0, DBError:0" (_detail); LOAD_ENTY3; 16; [0]; endif
"Status:0, DBError:0" (_detail); LOAD_ENTY3; 17; [0]; endif
"Status:0, DBError:0" (_detail); LOAD_ENTY3; 18; [0]; done<end of="" module="">
"Status:0, DBError:0" (_detail); DTLF; 11; [0]; $proc_tracing = 0
]] ></end></end></end></end></end></end></end></end></end></end></end></end>
thanks