有懂COBOL跟PLSQL的大佬吗？求助！

Question

有段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也不是很明白 希望能指点下

Answer 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