Search results for query: *

Try this link... http:/www.simotime.com/cblcsv01.htm ... Saginaw helpdesk@simotime.com http://www.simotime.com

Try this URL... http://www.simotime.com/zap00301.htm ... Saginaw helpdesk@simotime.com http://www.simotime.com

Tony, you can find an example of a COBOL routine that does centering plus left or right justification of a text string within a field at the following URL http://www.simotime.com/cbljus01.htm The source code is downloadable and conforms to the ANSI/85 standard so it should run on the AS/400...

webrabbit, you are the first to point out the Y4K compliance issue. Rather than take anoher 2,000 years (give or take a few leap years) to fix the problem we have updated the date routine to be Y4K compliant. Thanks for pointing out this oversite on our part...

Here is an example of what we use. This runs on an IBM Mainframe and we have ported to run on a PC using Micro Focus COBOL. http://www.simotime.com/cbldat01.htm Saginaw helpdesk@simotime.com http://www.simotime.com

On second thought why not right-adjust the two digit number for the user as follows... DATA DIVISION. WORKING-STORAGE SECTION. 01 PIC-XX-02 PIC XX. 01 PIC-99-02 PIC 99. PROCEDURE DIVISION. perform until PIC-XX-02 ='99' accept...

Something like the following should do it and avoid the error of a non-numeric value in a numeric field (or SOC7 error on the mainframe). DATA DIVISION. WORKING-STORAGE SECTION. 01 PIC-XX-02 PIC XX. 01 PIC-99-02 PIC 99. PROCEDURE DIVISION...

Dan, we decided to ask the “Gray Fox” (our Boss’ father) if he had a solution that would deal with leading and trailing spaces for each of the fixed length fields in a record. We asked if he could create a comma-delimited file with variable length fields with the leading and trailing spaces...

Check the following URL... //http://www.simotime.com/cbltxn01.htm one of the formats is for dollar values. Saginaw helpdesk@simotime.com http://www.simotime.com

The following is what we use to size a mainframe application that will be ported to a Windows platform, The utility runs on Windows/2000 or XP. Therefore, the source code would need to reside on the PC or a server. It creates a lot more detail than the following summary information. If this is...

The default for Micro Focus COBOL is to expand the tabs to spaces when reading a LINE SEQUENTIAL file. However, this feature can be turned OFF by creating a configuration file for the file handler. The configuration file should contain the following two statements. [XFH-DEFAULT] EXPANDTAB=OFF...

Dallasdino, I will first answer the following question... Where have all the real hard core programmers gone? Are they all dead? We are fortunate to have access to the father of one of the individuals in our group. He has written quite a few COBOL, Assembler and many other programs during his...

jessicatx, If you have 3-5 BMS screens that you could send to me then I will convert them to HTML/JSP and build a small model for you as an example... this would give you a closer look at what is involved. For example, a screen that displays a customers name, address for inquiry and/or update...

The following should provide you with additional information and examples of what is possible when migrating a mainframe application to a windows or UNIX platform and building an HTML/JSP frontend. The following provides actual examples of COBOL programs downloaded and frontended with a...

We are in the process of testing an application with smaller files and were planning to do the final test with the larger production files in the very near future. We were watching this thread and decided to run some initial testing with larger files. At first, we ran into the 4-gig limit and...

The code is using Reference Modification capability of COBOL to access bytes within a field. 1) MOVE 1180-AMPS-BTCH-DTL-LINE-MSC(1:11) TO 1103-ORD-ID. The preceding statement is moving the 11 bytes starting in position 1 from 1180-AMPS-BTCH-DTL-LINE-MSC to 1103-ORD-ID. 2) IF...

You can start at the following URL http://www.transarc.ibm.com/Library/documentation/txseries/4.2/aix/en_US/html/atshak/atshak12.htm#FIGPC024F9 Also, for CICS I have used MURACH's CICS books for years. More information may be found at the following...

Your example should work provided the level 10's are snippets of code that are defined under a level 01. What platform (i.e. Mainframe or PC) are you running. If PC then what COBOL compiler are you running. I did have problems with the move of numeric fields on some early, older PC Compilers...

claudeb, Hopefully Tom has answered your question. Here is some additional information. If you get x'D4A50FFF' as the hex value for 999,999,999,999 then you have truncated the high-order byte. I suspect you may be running Windows/98 on a PC and are using the calculator function. If this is true...

The pic S9(12) would have a maximum value of 999,999,999,999. The binary or COMP value would be x'E8D4A50FFF' This requires five bytes of memory. Since the high-order bit is used as part of the numeric value the sign will require an additional byte, i.e. this requires six bytes. The pic S9(13)...