/* REXX    CKSEQ
*/ trace ?r
address ISREDIT
"MACRO"
"CURSOR = .zl"
"(lastline,x) = CURSOR"
lastseq = '00'x
badlist = ""
do zx = 1 to lastline
   "(data) = LINE" zx                  /* acquire text               */
   parse var data seq 9 .              /* get sequence field         */
   if lastseq < seq then nop; else do
/*    say "SEQ" seq "is not higher than its predecessor." */
      badlist = badlist seq
      end
   lastseq = seq
end                                    /* zx                         */
if badlist <> "" then,
   "LINE_AFTER 0 = NOTELINE '"Strip(badlist)"'"
else,
   "LINE_AFTER 0 = NOTELINE 'Sequence OK'"
exit                                   /*@ CKSEQ                     */