cobol

COBOL: How to differentiate between end of file and junk value when both have return code 10?

由 给你一囗甜甜゛ 提交于 2019-12-24 08:28:28
问题 I am working on Fujitsu COBOL and there is a situation where I have to read the file and if there is a junk value then I want to abend the job. When there is a junk value the return code is 10 but the catch is that when there is EOF (end of file) even then the return code is 10. Please help me out on how can I differentiate between these two events based on the return code? 回答1: On very early PCs (MS-DOS 1.0), a Ctrl+Z (X"1A") was used as end-of-file for text files. Your compiler is likely

Executable program requested but PROCEDURE/ENTRY has USING clause

由 杀马特。学长 韩版系。学妹 提交于 2019-12-24 02:39:16
问题 Does anyone one know what is causing this compilation error? I'm trying to compile a legacy COBOL program using OpenCOBOL. This is the error that I'm getting : Error: Executable program requested but PROCEDURE/ENTRY has USING clause This is how my procedure division looks: procedure division using array-area, m, err, sum1. And this is the linkage section from my working station: working-storage section. 77 i picture s99 usage is computational. 77 prev picture s9(8) usage is computational. 77

How can z/OS call a web service? [closed]

由 末鹿安然 提交于 2019-12-24 02:02:37
问题 Closed . This question needs to be more focused. It is not currently accepting answers. Want to improve this question? Update the question so it focuses on one problem only by editing this post. Closed 9 months ago . I have a COBOL program that needs to get data from a web service. Without using CICS what are my best options? I thought that a C program could read the web service and save it to a file, then the COBOL could read that file. Can COBOL call a web service? The data is about 300mb

IT技术人才服务与管理

由 99封情书 提交于 2019-12-23 20:36:31
【推荐】2019 Java 开发者跳槽指南.pdf(吐血整理) >>> 相当数量的企业（尤以金融、保险类企业为主）由于信息安全、自主掌控和人员管理等方面的考虑，常常选取采用自主开发和人力 外包 相结合的策略来完成IT项目的实施。信必优 （http://www.symbio.com.cn） 针对市场上这一不断增长的需求，通过实践积累摸索出了一套成熟的解决方案，能为客户快速、有效地提供大量各类经过严格筛选、高质量的IT技术人才。 成熟的人才招聘资源库和专业招聘团队 成熟的人才招聘资源库和专业招聘团队 可提供的人才包括： • 通用技术人才（Java，.Net，Oracle等） • 大型主机、专用系统技术人才（Cobol，AS400，RPG,Smart等） • 商业智能技术人才（BI，Data Warehouse，Informatica等） • 冷门及领先技术型人才（C++，VB，Filenet,FLEX等） • 项目经理及系统架构师 • 金融 及 旅游行业 需求分析师 • 行业顾问及工程监理 成熟的外派人员关怀与管理体系，确保人员的质量、稳定性与低流失率 领先的各项开发技术与软技能培训体系，确保人员素质的提高与客户的满意度 业界领先的客户回访与合作制度 关键词 ：IT人才外包、人才外派、软件开发、软件外包、信必优 来源： oschina 链接： https://my.oschina

COBOL Data Validation for capital letter?

由 喜你入骨 提交于 2019-12-23 13:32:34
问题 I'm in my second quarter of college and taking "Advanced COBOL" we just received an assignment that requires us to code in some validation procedures for different data. I have everything done except on small validation procedure. There is a field called "PART-NUMBER" that is 8 bytes long. The first 5 columns must be a number. The 6th column must be a capital letter and the last 2 columns must be in the range of 01-68 or 78-99. The only problem I have is figuring out how to validate that the

Cobol String Delimited By Trailing SPACES

由 穿精又带淫゛_ 提交于 2019-12-23 12:45:54
问题 WORKING-STORAGE. FIRST-STRING PIC X(15) VALUE SPACES. SECOND-STRING PIC X(15) VALUE SPACES. OUTPUT-STRING PIC X(31) VALUE SPACES. If FIRST-NAME = 'JON SNOW, ' and LAST-NAME = 'KNOWS NOTHING. ' , how can I get: I want to Get : OUTPUT-STRING = 'JON SNOW, KNOWS NOTHING. ' When I try : String FIRST-STRING DELIMITED BY SPACES ' ' DELIMITED BY SIZE SECOND-STRING DELIMITED BY SIZE INTO OUTPUT-STRING I Get 'JON KNOWS NOTHING. ' And When I try : String FIRST-STRING DELIMITED BY SIZE SECOND-STRING

migrate COBOL code

由 六月ゝ 毕业季﹏ 提交于 2019-12-23 10:28:46
问题 I have a task to convert COBOL code to .NET. Are there any converters available? I am trying to understand COBOL code in high level. I have a trouble understanding the COBOL code. Is there any flowchart generators? I appreciate any help. Thank you.. 回答1: Migrating software systems from one language or operating environment to another is always a challenge. Here are a few things to consider: Legacy code tends to be poorly structured as a result of a long history of quick fixes and problem work

COBOL COMPUTE calculation

由 会有一股神秘感。 提交于 2019-12-22 18:49:14
问题 I am executing a standalone Enterprise COBOL program with the below calculation. I am having a COMPUTE with multiple operations and another with the full calculation split up. But the results are different(the last 4 digits) in both cases. I have manually calculated these using a calculator and the result matches the one with the split up COMPUTE statements. I have tried the calculations by using the entire answer at intermediate results and use only 15 digits of the final answer and also

concatenating unknown-length strings in COBOL

由 血红的双手。 提交于 2019-12-22 08:38:57
问题 How do I concatenate together two strings, of unknown length, in COBOL? So for example: WORKING-STORAGE. FIRST-NAME PIC X(15) VALUE SPACES. LAST-NAME PIC X(15) VALUE SPACES. FULL-NAME PIC X(31) VALUE SPACES. If FIRST-NAME = 'JOHN ' and LAST-NAME = 'DOE ' , how can I get: FULL-NAME = 'JOHN DOE ' as opposed to: FULL-NAME = 'JOHN DOE ' 回答1: I believe the following will give you what you desire. STRING FIRST-NAME DELIMITED BY " ", " ", LAST-NAME DELIMITED BY SIZE INTO FULL-NAME. 回答2: At first

What's the bright side of Cobol? [closed]

由 社会主义新天地 提交于 2019-12-19 06:02:09
问题 As it currently stands, this question is not a good fit for our Q&A format. We expect answers to be supported by facts, references, or expertise, but this question will likely solicit debate, arguments, polling, or extended discussion. If you feel that this question can be improved and possibly reopened, visit the help center for guidance. Closed 7 years ago . I love spending my time investigating cool features of languages, even if I won't have a chance to use them anytime soon, but keep
订阅 cobol