Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

COBOL/CICS Code Generator

by johncoswell (Acolyte)
on Apr 28, 2000 at 02:31 UTC ( #9490=CUFP: print w/replies, xml ) Need Help??

This isn't too "cool", but it helped to save my sanity during my last semester of mainframe programming (blech) and it was my first "online application" written in Perl. COBOL and CICS (a character-based user interface to COBOL) use a lot of wordy syntax to represent report files and character displays. I wanted a way to input a formatted text file that looked like the report output or screen interface into a Perl script that would return the bloated COBOL WORKING-STORAGE section or CICS BMS macro statements, ready to cut and paste into my programs. So I wrote it. 8^) It's not 100% accurate with the code, but it's better than handcoding it all. It even returns a "time saved" value that estimates how much time you saved not having to write all of the wordy code.

If you want to see the programs in action, check them out at:

Replies are listed 'Best First'.
RE: COBOL/CICS Code Generator
by cciulla (Friar) on Apr 28, 2000 at 15:43 UTC
    This is VERY cool. I only wish I had it when I was doing COBOL and Assembly.
      It sounds very cool. Post the code!

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: CUFP [id://9490]
Approved by root
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (1)
As of 2017-12-11 04:35 GMT
Find Nodes?
    Voting Booth?
    What programming language do you hate the most?

    Results (286 votes). Check out past polls.