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...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.