COBOL中，倒着循环应该怎么才写？
答案:2 悬赏:60 手机版
解决时间 2021-11-25 05:20
- 提问者网友：低吟詩仙的傷
- 2021-11-24 10:35
COBOL中，倒着循环应该怎么才写？
最佳答案
- 五星知识达人网友：等灯
- 2021-11-24 12:01
简单点，大致就这意思
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换成你截取内容的长度。
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换成你截取内容的长度。
全部回答
- 1楼网友：千夜
- 2021-11-24 12:34
没事研究这玩意干嘛
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯