我写了一个匹配两个记录的程序。如果它匹配,那么我需要有一个消息“匹配”但这里的问题是我不知道如何匹配。让我分享一下我的节目
DEFINE VARIABLE cPos AS INTEGER NO-UNDO.
DEFINE TEMP-TABLE tt_data NO-UNDO
FIELD cPosition AS CHARACTER FORMAT "X(60)"
FIELD cEndCode AS CHARACTER
FIELD cShotCode AS CHARACTER.
CREATE tt_data.
ASSIGN
tt_data.cPosition ="S$$$^^^^^^^^^^$$$^^^MC^^^^^^^^^^^^R^^^^^^^^^^^^^^^^^^^^^^^^^"
tt_data.cEndCode = 10
tt_data.cShotCode = "S".
CASE tt_data.cEndCode:
WHEN 10 THEN DO:
cPos = 1.
END.
WHEN 20 THEN DO:
cPos = 2.
END.
.
.
.
WHEN 600 THEN DO:
cPos = 60
END.
END CASE.
FIND FIRST tt_date WHERE tt_data.cShotCode = SUBSTRING(tt_data.cPosition,cPos,1) NO-LOCK NO-ERROR.
DISPLAY tt_data.cShotCode. /* Displayed Value is S */
如果你看到tt_datacEndCode值是10,这意味着它指向tt_data.cPosition的ENTRY 1(即S)。
当20表示对于ENTRY 2时,我想要达到600(即tt_datacEndCode = 60)。
这里的问题是我不能将WHEN声明高达600.那么请你帮忙解决这个问题吗?
对于您显示的示例,您可以删除CASE语句,只需将其替换为:
cPos = integer( tt_data.cEndCode / 10 ).
(假设如图所示,cEndCode始终是10的倍数,所需的cPos是该值的1/10。)
从而:
DEFINE VARIABLE cPos AS INTEGER NO-UNDO.
DEFINE TEMP-TABLE tt_data NO-UNDO
FIELD cPosition AS CHARACTER FORMAT "X(60)"
FIELD cEndCode AS CHARACTER
FIELD cShotCode AS CHARACTER.
CREATE tt_data.
ASSIGN
tt_data.cPosition ="S$$$^^^^^^^^^^$$$^^^MC^^^^^^^^^^^^R^^^^^^^^^^^^^^^^^^^^^^^^^"
tt_data.cEndCode = 10
tt_data.cShotCode = "S".
cPos = integer( tt_data.cEndCode / 10 ).
FIND FIRST tt_date WHERE tt_data.cShotCode = SUBSTRING(tt_data.cPosition,cPos,1) NO-LOCK NO-ERROR.
DISPLAY tt_data.cShotCode. /* Displayed Value is S */