Lizards Lounge

  
 
Whataya want?

COBOLIO Perl Module

I have to deal with COBOL programs from time to time, usually to manipulate data files, bringing them into a data base and/or updating information in a data file for an existing COBOL application. To make this process a little easier, I developed a Perl module for parsing the Data Division definition from the COBOL source code and parse the data on a workstation, which would then allow me to manipulate the data file from Perl or a spreadsheet.

The COBGUI.pl file is a TK-based GUI front-end to the module, that will allow you to specify the data file, COBOL source file, etc. and quickly convert the data to a CSV file. You can then read the file into a spreadsheet or database pretty easily.

The main module is COBOLIO.pm. Check the document below and the comments at the top of the source code for usage - it's fairly straight-forward if you are used to working with Perl.

You will need to right-click the files and select "download" to grab them. The perl files are stored as text files. Change the file names from ".txt" to ".pl" after saving them. For some reason the server will try to execute files if I name them .pl (understandable) or .pl.txt (really odd).

I've added a zipped file of everything for easy downloads.

Thanks to contributors:

  • Steve Tolkin
And Testers:
  • Jeff Wilgus

COBOLIO.pm version 0.2.1-pre - Testing a bug fix

COBOLIO.pm version 0.2 - The Perl module
convert.pm - Tolkin's add-on for stripping leading 0's
COBGUI.txt - The TK GUI converter
COBGUI Documentation - Quick guide to using the GUI
getafile.txt - The GUI will look for this file to do downloads.

All files zipped
 

 

 

THERE IS NO WARRANTY FOR ANY PROGRAM AVAILABLE ON THIS SITE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. THE PROGRAM IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION.