2IT_WEIID”表傳上來(lái)的值在自建表中查找，如果找到則將值傳入“IT_WEIGITEM”表返給用戶(hù)，并寫(xiě)日志表“IT_WEILOG”O(jiān)FLAG’S’。反之IT_WEILOGOFLAG’E’。“IT_WEILOGOFLAGS”。出錯(cuò)。OFLAG”E”，并且在日志表中標(biāo)明錯(cuò)誤行素域型X3稱(chēng)重X5包裝B1類(lèi)型8TIMS6類(lèi)型8是是TIMS63汽車(chē)衡與T1YNFUNCTION*"*"Local*" VALUE(IMODE)TYPE*" VALUE(OFLAG)TYPE*" IT_WEIGITEMSTRUCTUREZSDSWEIGITEM IT_WEIIDSTRUCTUREZSDSWEIID ITLOGSTRUCTUREZSDSWEILOG*" SYSTEM*&RFCZ*& *&complete 12-*&describe:remoteRFCCALLforweigh*&version modifiy*& 2007-12-4 init定義變variableDATA:it_zsdtweighLIKEzsdtweighOCCURS0WITHHEADERLINE,initializevariableREFRESHitzsdtweigh[].CLEARv_errflag.IFimode='R'."checkinternaltableisIFit_weiid[]ISINITIAL.oflag='E'.EXIT.ENDIF.LOOPATitcheckdbSELECTINTOTABLEitzsdtweighFROMzsdtweighWHEREweiid=it_weiid-weiidcheckfailandwriteerrorinfoIFsy-subrc<>0CLEARitlogitlog-weiid=itweiid-weiid.it_log-mestp='E'.MESSAGEID'ZDEV'TYPE'E'NUMBER'006'INTOit_log-minfoAPPENDit_logverrflag='X'.CONTINUE.successandwritedbdatatooutputtableLOOPATit_zsdtweighMOVE-CORRESPONDINGit_zsdtweighTOit_weigitem.APPENDit_weigitem.CLEARit_weigitemwritesuccessloginfoCLEARitlogitlog-weiid=itweiid-weiid.it_log-mestp='S'.MESSAGEID'ZDEV'TYPE'S'NUMBER'007'INTOit_log-minfoAPPENDit_logELSEIFimode='U'."checkit_weigitemisnullIFitweigitem[]ISINITIAL.oflag='E'.EXIT.ENDIF.writeinputdatatodbtableandupdatelogLOOPATitweigitemMOVE-CORRESPONDINGit_weigitemTOit_zsdtweigh.APPENDit_zsdtweigh.CLEARit_zsdtweighCLEARit_logitlog-weiid=itweigitem-weiid.itlog-mestp='S'.MESSAGEID'ZDEV'TYPE'S'NUMBER'007'INTOit_log-minfoAPPENDit_logmodifydbMODIFYzsdtweighFROMTABLEit_zs