COBOL中，倒着循环应该怎么才写？

COBOL中，倒着循环应该怎么才写？

简单点，大致就这意思
move 0 to flag
perform varying i from 1 by 1 until( i=50 or flag=1)
compute startA = 50 - i
if dataA(startA:1)=......(你的条件) then
move 1 to flag
end-if
end-perform追问太感谢了。。
继续追问。。
比方说我循环到了26位了，满足了条件，现在要把前26位的字符取出来，应该怎么来写呢？追答那就是对数据dataA 进行截取 比如从第1位开始截取26位，就是dataA(1:26) 这里的1,26可以用变量代替
不知道你懂了没追问懂了，刚刚没看见，太感谢了。。高手啊追答客气，天下cobol一家亲，那就采纳了吧！追问有个地方你说错了，要是应该51—I，你看对吗追答你说的对，那个我说错了
dataA = 1234567890 从第1位开始截取1位 dataA(1:1)=1 那么最后一位0 应该是dataA(10:1)
那计算的就是 51 - i
你说的对！追问我现在想把这个截取的内容，付给一个70位变量的后面，应该怎么写？追答strA pic X(70)
strI pic X(10)
你的意思是在把strI放到strA的后10位里吗
move srtI to strA(61:10)
同理，61换成在70长变量的起始位置，10换成你截取内容的长度。

没事研究这玩意干嘛