有懂COBOL跟PLSQL的大佬吗?求助!

有段COBOL代码需要转换成PLSQL,但是我对这两块的代码都不是特别熟悉,来论坛请教一下!

WK_12X_O OCCURS 12
PIC X (01)
WK_12_O OCCURS 12
PIC 9(12)

MOVE A TO WK_12X_O
MOVE ZERO TO WK_12
MOVE 12 TO J.

PERFORM VARYING I FROM 12 BY -1 UNTIL I<1
IF WK_12X_O(I) IS NUMERIC
MOVE WK_12X_O(I) TO WK_12_O(J)
COMPUTE J = J-1
ENDIF

IF WK_12X_O(1) = "-"
COMPUTE A =WK_12*-1
ENDIF
主要是后面一段代码逻辑不是特别明白 加上对PLSQL也不是很明白 希望能指点下

sql

1个回答

IF WK_12X_O(I) IS NUMERIC 数组的第一个WK_12X_O是数值型的时候 赋值
MOVE WK_12X_O(I) TO WK_12_O(J)

IF WK_12X_O(1) = "-" 数组的第一个WK_12X_O是负号的时候 计算
COMPUTE A =WK_12*-1 计算 WK_12 * -1

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问
相关内容推荐