第一次发布在这里，所以请光着。我正在与第三方软件提供商合作开发一个项目，他们有一个内置的EDI接口。他们安装了一些模板，用于解析.xml文件中的数据，并将所有数据转储到数据库中正确的表和列中。
这些模板大约在4年前安装，远在我的时间之前。当时参与该项目的任何人都继续前进，没有关于这是什么编程语言或一切如何协同工作的文档。它是一个非常糟糕的界面，没有办法调试，或者看到代码在做什么而不反复发送相同的虚拟数据，直到我能弄清楚它在做什么。
tl; dr：我有一些我正在处理的代码，没有关于它是什么语言的资源或文档，或者它从头到尾是如何工作的。有人可以帮我识别吗？如果我打电话给第三方寻求帮助，他们将向我公司收取225美元/小时的费用，只是为了查看代码。他们说要花4个小时看它。也许还需要几个小时来解决它。
代码示例：
if (N702<>"" or N711 <> "" or N715<>"" or N722<>"") {
CLEAR("edi_stop_note");
edi_stop_note$comment_type <- "OC";
N711_desc<-qual_lookup("40",N711);
edi_stop_note$comments <-concat("Trlr: ",N702," Desc: ",N711_desc," Len: ",N715," Type: ",N722);
ADDNOTE("edi_stop","edi_stop_note") ;
};
另一个例子：
LineCnt <- "-1";
Stop_No <- "0";
Stop_Seq <- "0";
CLEAR("edi_order");
CLEAR("edi_stop");
edi_order$shipper_stop_id <-edi_stop$id;
edi_order$version <- edi_version;
edi_order$gs_date_time <- date_time(gs04_date, gs05_time);
edi_order$gs06_group_cntlno <- gs06_incntlno;
edi_order$st02_trxset_cntlno <- st02_cntlno;
edi_order$partner_id <- gs02_partner;
edi_order$reply_created <- "N";
edi_order$isa13_intr_cntlno <- isa13_intr_cntlno;
edi_order$direction <- "I";
edi_order$alt_partner_id <- alt_partner_id;
TIME <- cur_time("4");
DATE <- cur_date("6") ;
B204 <- "";