Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Recent content by saginaw

  1. saginaw

    Create a CSV Record

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

    EBCDIC to ASCII conversion

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

    Centre a string in AS400 Colbol

    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...
  4. saginaw

    Acucobol ACCEPT and leading zeros

    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...
  5. saginaw

    Acucobol ACCEPT and leading zeros

    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
  6. saginaw

    Acucobol ACCEPT and leading zeros

    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...
  7. saginaw

    Acucobol ACCEPT and leading zeros

    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...
  8. saginaw

    Trim leading and trailing spaces : how can I do ?

    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...
  9. saginaw

    Converting numbers to words

    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
  10. saginaw

    counting lines of code

    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...
  11. saginaw

    Tab delimited question

    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...
  12. saginaw

    MarcLodge or other. Have source to read any file?

    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...
  13. saginaw

    How to move a legacy system to client/server?

    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...
  14. saginaw

    How to move a legacy system to client/server?

    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...
  15. saginaw

    ** File size never larger than 4GB **

    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...

Part and Inventory Search

Back
Top