cobol | 易学教程

How do you edit a Binary Mainframe file in the RecordEditor using a Cobol Copybook (pt1)

阅读更多关于 How do you edit a Binary Mainframe file in the RecordEditor using a Cobol Copybook (pt1)

问题 How do you edit a Single-Record-type Binary Mainframe file in the RecordEditor using Cobol Copybook on a Windows or Linux PC. Note: This is an attempt to split a very broad question into a series of simpler Question and Answers. 回答1: To Edit a File in the RecordEditor with a Cobol Copybook you must first load the copybook and then edit the file Loading the Cobol Copybook into the RecordEditor Select Record Layouts >>> Load Cobol Copybook menu options On the Cobol Load Screen enter the Cobol

Reading cobol datastructures from Java

阅读更多关于 Reading cobol datastructures from Java

问题 Is there a way to read cobol data in a Java program? More concretely I'm confronted with the following case: I have a file with fixed length records of data. The data definition is done as Cobol copybooks. What I think of is a library which taking into account the copybooks would be able to read those records. Ideally it should be possible to generate basic java classes and structures based on the copybook information. In a later step the datarecords would be parsed and the data filled into

Convert Mainframe Binary to Ascii Using any Open Source Code or Tool

阅读更多关于 Convert Mainframe Binary to Ascii Using any Open Source Code or Tool

问题 How can I convert a mainframe binary file (EBCDIC) having cobol copybook as record layout information to ASCII file by keeping in mind regarding the packed and zoned decimal format using any Java API or Open source tool? 回答1: Reading in Java If you want to Read Mainframe Cobol Files in java, have a look at JRecord - You will have to specify the charset (font). For US EBCDIC use CP037. Legstar - Have variety of Mainframe - Cobol Tools CB2java - Has not been updated in a while (not supported

计算机基础（转自本人的csdn）

阅读更多关于计算机基础（转自本人的csdn）

【推荐】2019 Java 开发者跳槽指南.pdf(吐血整理) >>> 1、计算机的硬件基本上由哪五大部分组成？答：运算器、控制器、存储器、输入设备、输出设备。 2、运算器都可对数据进行哪两种运算？答：算术运算和逻辑运算。 3、CAD、CAM、CAT、CAI都代表什么？答：1、计算机辅助设计（CAD） 2、计算机辅助制造（CAM） 3、计算机辅助测试（CAT） 4、计算机辅助教学（CAI） 4、数据处理是指对数据的（收集）、（存储）、（加工）、（分析）、（传送）的全过程。 5、程序性语言分为（机器语言）、（汇编语言）、（高级语言）三类。 6、能举出哪些是高级语言、哪些是低级语言？低级语言：汇编语言高级语言：basic . cobol . c. foxbase等 7、操作系统可分为（批处理操作系统）、（分时操作系统）、（实时操作系统）三种操作系统。 8、解释型程序和编译型程序有什么不同？哪种程序产生目标程序？编译程序产生目标程序 9、DBMS是什么的？答：DBMS 是数据库管理系统。 10、计算机系统由（硬件）系统、（软件）系统两部份组成。 11、软件系统分为（系统）软件、（应用）软件两部分。 12、操作系统的特征：（并发）、（资源共享）、（虚拟）、（异步）。 13、没有任何软件支持的计算机称为（裸机）。 14、操作系统的五大功能（作业管理）、（文件管理）、（设备管理）

COBOL adding an array

阅读更多关于 COBOL adding an array

问题 I want my program to output the inputted array then display the total amount I input. The total value is wrong and the value changes in the array in my program. I think my problem is the adding part. How should I fix it? IDENTIFICATION DIVISION. PROGRAM-ID. FOREXCHANGE. DATA DIVISION. WORKING-STORAGE SECTION. 01 CURR-VAL. 02 USD PIC 999V99 VALUE 46.59. 02 AUS PIC 999V99 VALUE 32.87. 02 CND PIC 999V99 VALUE 36.37. 02 EUR PIC 999V99 VALUE 52.32. 02 YEN PIC 999V99 VALUE 0.40. 02 NZD PIC 999V99

Generating Record Layouts for EBCDIC Data Files.

阅读更多关于 Generating Record Layouts for EBCDIC Data Files.

问题 We are attempting to write a tool in Perl which is expected to parse a fixed length EBCDIC data file and generate the record layout by looking at the hex value of each byte in the record. It is assumed that each data file, which is written by a Cobol program whose source code we do not have, can have multiple record layouts. The aim of this tool is to perform data migration (EBCDIC to ASCII) by generating layout which would then be fed to a converter. The problem is that there are hundreds of

How to read two records and compare them with a primary key in sequential file system?

阅读更多关于 How to read two records and compare them with a primary key in sequential file system?

问题 This is the record format for my input file: ID NAME Purchaseamount month 1 xxx 10000 feb 1 xxx 10000 mar 1 xxx 10000 apr 2 yyy 100 jan 2 yyy 2054 mar How can I add the purchase amount for every person? I will give you the pseudo-code of my work. Read inputfile, move to working storage variables, end read, perform until eof, read input file, if inputid = ws-input id, add purchase amount, else write to output file 回答1: Bruce provides a good solution, but there is often more than one way to do

How can I convert an alphanumeric and use it for calculation?

阅读更多关于 How can I convert an alphanumeric and use it for calculation?

问题 I will read a sequential file which include some string such as "79.85", "1000", "212.34". I want to convert the alphanumeric into number in this format 00000.00 ? I will need to add up these numbers and move it to a field in the format 0000000.00 . I tried: 01 WS_AMOUNT_TXT PIC X(8). 01 WS_AMOUNT PIC 9(5).9(2). MOVE WS_AMOUNT_TXT(1:8) TO WS_AMOUNT(1:8). What I got is unexpected, the string is just as same. It is left align and no leading zero display. How can I made it right align and have

Does the whole linkage section return?

阅读更多关于 Does the whole linkage section return?

问题 In program a EXEC CICS LINK PROGRAM(PGMB) COMMAREA(COMMA) LENGTH(LENGTH OF COMMA) RESP(CICS-RESP) END-EXEC In program b EXEC CICS RETURN END-EXEC Does program b only return the commarea that program a passed? Or does it return the whole LINKAGE SECTION? 回答1: Program B returns neither the entire LINKAGE SECTION nor the commarea (COMMA in your example). It returns nothing. Why does it return nothing? Because nothing gets passed to it. Or, rather, what gets passed to it is simply the address(es)

COBOL to SQL Server

阅读更多关于 COBOL to SQL Server

问题 Can anyone point me at a way to talk to SQL Server from Fujitsu COBOL? Event talking to COM / ActiveX would be a start. Many Thanks Neil 回答1: A few years back I used a product called Transoft U/SQL which allowed SQL Server to connect to MicroFocus COBOL data on Solaris UNIX machines, as if it where a linked server. Not sure if this fits your scenario, but maybe worth a look. Kev 回答2: Here is some information that could get you started in another direction. That is using ODBC to connect to SQL