我问了一个关于转换 COMP 字段的问题，我没有得到任何答案。
我希望堆栈溢出可以帮助我解决这个问题。
我成功地将 COMP-3 转换为十进制。我需要您的帮助，使用任何高级编程语言，但最好使用 Java 或 c#.net，将解压缩的十进制数转换回 COMP-3。
这似乎是一个愚蠢的问题，但是我一直在寻找这个问题很长时间，但没有发现任何帮助。我想下载给定论文中引用的所有论文。Google学术搜索中有这样的功能吗？甚至只是列出所有引用的论文链接的页面？
在我的Web应用程序中,我删除这些字符:
(<,>,:,",/,\,|,？,*)
从我的文件下载网址,以防止路径遍历.
有没有办法绕过这个？
它安全吗？
在IBM Mainframe的COBOL中，可以递归地调用段落吗？
200-PARAGRAPH SECTION.
IF WS-COUNTER < 10
ADD 1 TO WS-COUNTER
PERFORM 200-PARAGRAPH
ELSE
DISPLAY 'I'M DONE'
END-IF.
200-EXIT.
EXIT.
我的问题与文件状态 23 有关，根据MicroFocus 的说法，这意味着在我尝试READ从 .DAT 文件时：
“表示没有找到记录。”
或者
“指示重复键条件。已尝试存储将在索引或相关文件中创建重复键的记录或不允许重复的重复备用记录键。”
我已经消除了后者是我的问题的事实，因为在这种情况下我允许重复。
我难住的原因是我正在使用 aSTART导航到我的 .DAT 文件中的记录，当我READ在START定位我的文件指针之后执行 a 时，我得到文件状态 23。
这是我的代码：
900-GET-INST-ID.
OPEN INPUT INST-MST.
MOVE FALL-IN-INST TO INST-NAME-REC.
START INST-MST
KEY EQUAL TO INST-NAME-REC
INVALID KEY
DISPLAY "RECORD NOT FOUND"
NOT INVALID KEY
READ INST-MST
MOVE INST-ID-REC TO WS-INST-ID
END-START.
CLOSE INST-MST.
因此，当我运行此代码时，我START成功运行并进入NOT INVALID KEY块，然后执行下一行并且我的读取为空。如果我的备用键 ( INST-NAME-REC) 实际上是在 .DAT 中找到的，怎么会这样？
我已经确保我的 FD 图片子句在 ISAM Build 程序和这个程序（阅读程序）中完全匹配。
我现在正在学习COBOL并且非常喜欢88类型的变量,我想知道是否有其他语言(大多数已知语言,如C,Objective-C),甚至使用库.
我唯一能想到的就是使用
#define booleanResult (variableName==95)
但它不是可以设置boolenResult到true并variableName承担95为值.
我是魔法记录的新手,但已经在stackoverflow上看到了一些问题,但无法找到我的问题的答案.
我必须使用这种类型的结构找到带有谓词的项:
NSArray *result = [MOSomeItems MR_findAllWithPredicate:predicate];
在主线程结果返回一些值,但UI是冻结.
使用此构造时,结果返回nil值:
dispatch_async(dispatch_get_global_queue( DISPATCH_QUEUE_PRIORITY_BACKGROUND, 0), ^{
NSArray *result = [MOSomeItems MR_findAllWithPredicate:predicate];
});
在后台获取数据的最佳做法是什么？
PROCEDURE DIVISION
MAINPARA
DISPLAY "HELLO MAIN".
GO TO PARA1.
DISPLAY " SECOND DISPLAY".
STOP RUN.
PARA1.
DISPLAY " I AM IN PARA1".
PARA2.
DISPLAY "I AM IN PARA2"
....
PARA200
我对流程了解不多.但是,我很困惑.当控制跳转到时GO TO PARA1,它将执行PARA1.
现在我的问题是:
PARA2并返回MAINPARA吗？PARA2程序结束时执行？我不是一个COBOL程序员,我需要从一个迁移工具/程序,AMXW COBOL理解的代码.目标系统是IBM AS/400.
我正在尝试分析由已离职的开发人员编写的现有Oracle查询.我不熟悉Oracle,我对DECODE在Microfocus COBOLapp中使用此函数感到有点困惑(其中:BV-POS_YEAR一个变量设置为一年):
SELECT ...., DECODE(DELV_YEAR, NULL, :BV-POS_YEAR, DELV_YEAR), ....
我试图了解它与以下内容有何不同:
SELECT ...., NVL(DELV_YEAR, :BV-POS_YEAR), ....
我误解了关于DECODE或NVL功能的一些事情吗？开发人员知道NVL函数,因为它在同一个select语句的其他地方使用.
有没有办法做到这一点？我希望执行仅在执行退出语句时退出。如果不是，我希望它继续循环。