Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

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:

Comment on COBOL/CICS Code Generator
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?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: CUFP [id://9490]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (7)
As of 2014-10-01 15:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    What is your favourite meta-syntactic variable name?














    Results (29 votes), past polls