Looking for sample code

Hi,

we are looking for a mid-size COBOL application with extensive
documentation inside. Could someone provide us with such sample code?

Thanks,
Inbal

Sure!  How much are willing to pay for this application?  Remember, source
licenses are usually a little more expensive than OCO licenses.

-Paul

(Isn't it nice when people post job postings like this on the group? <grin> )

"Inbal" <ronen.inbal@gmail.com> wrote in message
news:1165758164.202565.45800@n67g2000cwd.googlegroups.com...
> Hi,
>
> we are looking for a mid-size COBOL application with extensive
> documentation inside. Could someone provide us with such sample code?
>
> Thanks,
> Inbal
>

Inbal wrote:
> Hi,
>
> we are looking for a mid-size COBOL application with extensive
> documentation inside. Could someone provide us with such sample code?

Here's a sample with lots of documentation.  I'd be surprised if you get
what you're looking for by asking like that, though - if you tell us
more about what you're looking for, we may be able to help you.  Are you
prototyping, looking for free training, curious about what COBOL can do,
or something else?

--8<--

identification division.
program-id.  coboltest.

data division.
working-storage section.

*>   This is the source for our friendly greeting
01  sSource value "HELLO WORLD".
12  sSourceChar  occurs 11 times
indexed by iSourceIdx
pic x.

*>   This is where we'll build our salutation
01  sDisplayHello value spaces.
12  sDispChar    occurs 11 times
indexed by iDispIdx
pic x.

*>   This is how many MOVE statements it took for us to do it
77  iMoveCounter          pic 9(02) value zero.

procedure division.

sayHello.
*>   Move characters from the source to the build area
perform varying iSourceIdx from 1 by 1
until iSourceIdx > 11
*>       Sync the output index with the input
set iDispIdx to iSourceIdx
*>       Move the character
move sSourceChar (iSourceIdx) to sDispChar (iDispIdx)
*>       Increment the move counter
add 1 to iMoveCounter
*>  Here ends the loop
end-perform

*>  Display a salutation to this terrestrial ball....
display sDisplayHello

*>  Let the user know how much work this was
display "(and it only took " iMoveCounter " moves!)"

*>  Make a blank line come out on the screen
display " "

*>  Now let's have some fun with it....
display function reverse (sDisplayHello) " | " sDisplayHello
display "It's like looking in a mirror!"

*>  Apologize for wasting the user's time
display " "
display "Sorry for wasting your time..."
display "  have a swell day!"

*>  Enough of this nonsense
stop run

Inbal wrote:
> Hi,
>
> we are looking for a mid-size COBOL application with extensive
> documentation inside. Could someone provide us with such sample code?
>

Virtually any text book on COBOL is chock-a-block full of examples.

LOL!  I'm filing the serial numbers off that one and putting in my notebook
to use on the next appropriate occasion!!  :) :)
Very very !!

-Paul

"LX-i" <lxi0007@netscape.net> wrote in message
 news:9f7a8$457c810a$454920f8$32723@KNOLO
GY.NET...
> Inbal wrote: 
>
> Here's a sample with lots of documentation.  I'd be surprised if you get
> what you're looking for by asking like that, though - if you tell us more
> about what you're looking for, we may be able to help you.  Are you
> prototyping, looking for free training, curious about what COBOL can do,
> or something else?
>
> --8<--
>
>        identification division.
>          program-id.  coboltest.
>
>        data division.
>          working-storage section.
>
>       *>   This is the source for our friendly greeting
>        01  sSource value "HELLO WORLD".
>            12  sSourceChar  occurs 11 times
>                               indexed by iSourceIdx
>                                  pic x.
>
>       *>   This is where we'll build our salutation
>        01  sDisplayHello value spaces.
>            12  sDispChar    occurs 11 times
>                               indexed by iDispIdx
>                                  pic x.
>
>       *>   This is how many MOVE statements it took for us to do it
>        77  iMoveCounter          pic 9(02) value zero.
>
>        procedure division.
>
>        sayHello.
>       *>   Move characters from the source to the build area
>            perform varying iSourceIdx from 1 by 1
>              until iSourceIdx > 11
>       *>       Sync the output index with the input
>                set iDispIdx to iSourceIdx
>       *>       Move the character
>                move sSourceChar (iSourceIdx) to sDispChar (iDispIdx)
>       *>       Increment the move counter
>                add 1 to iMoveCounter
>       *>  Here ends the loop
>           end-perform
>
>       *>  Display a salutation to this terrestrial ball....
>           display sDisplayHello
>
>       *>  Let the user know how much work this was
>           display "(and it only took " iMoveCounter " moves!)"
>
>       *>  Make a blank line come out on the screen
>           display " "
>
>       *>  Now let's have some fun with it....
>           display function reverse (sDisplayHello) " | " sDisplayHello
>           display "It's like looking in a mirror!"
>
>       *>  Apologize for wasting the user's time
>           display " "
>           display "Sorry for wasting your time..."
>           display "  have a swell day!"
>
>       *>  Enough of this nonsense
>           stop run
>           .
>
> -->8--
>
> And the output...
>
> HELLO WORLD
> (and it only took 11 moves!)
>
> DLROW OLLEH | HELLO WORLD
> It's like looking in a mirror!
>
> Sorry for wasting your time...
>   have a swell day!
>
> --
>  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~
> ~   /   \  /         ~        Live from Montgomery, AL!       ~
> ~  /     \/       o  ~                                        ~
> ~ /      /\   -   |  ~          daniel@thebelowdomain         ~
> ~ _____ /  \      |  ~      http://www.djs-consulting.com     ~
> ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
> ~ GEEKCODE 3.12 GCS/IT d s-:+ a C++ L++ E--- W++ N++ o? K- w$ ~
> ~ !O M-- V PS+ PE++ Y? !PGP t+ 5? X+ R* tv b+ DI++ D+ G- e    ~
> ~ h---- r+++ z++++                                            ~
>  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~
>
> "Who is more irrational?  A man who believes in a God he doesn't see, or a
> man who's offended by a God he doesn't believe in?" - Brad Stine

P. Raulerson wrote:
> LOL!  I'm filing the serial numbers off that one and putting in my noteboo
k
> to use on the next appropriate occasion!!  :) :)

Glad you enjoyed it.  It's open-source, so feel free to redistribute and
modify at your amusemen...er, convenience.

--
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~
~   /   \  /         ~        Live from Montgomery, AL!       ~
~  /     \/       o  ~                                        ~
~ /      /\   -   |  ~          daniel@thebelowdomain         ~
~ _____ /  \      |  ~      http://www.djs-consulting.com     ~
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
~ GEEKCODE 3.12 GCS/IT d s-:+ a C++ L++ E--- W++ N++ o? K- w$ ~
~ !O M-- V PS+ PE++ Y? !PGP t+ 5? X+ R* tv b+ DI++ D+ G- e    ~
~ h---- r+++ z++++                                            ~
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~

"Who is more irrational?  A man who believes in a God he doesn't see, or
a man who's offended by a God he doesn't believe in?" - Brad Stine

"LX-i" <lxi0007@netscape.net> wrote in message
 news:9f7a8$457c810a$454920f8$32723@KNOLO
GY.NET...
> Inbal wrote: 
>
> Here's a sample with lots of documentation.  I'd be surprised if you get
> what you're looking for by asking like that, though - if you tell us more
> about what you're looking for, we may be able to help you.  Are you
> prototyping, looking for free training, curious about what COBOL can do,
> or something else?

Perhaps they have a COBOL source code analysis tool and they want to
test it on a "real world" project. I'm in a similar situation, except that
my company already has a contract with some insurance company, and so I've
got access to their proprietary (i.e. I can't share it with anyone else)
COBOL code to play with.

- Oliver

Oliver Wong wrote:
> "LX-i" <lxi0007@netscape.net> wrote in message
>  news:9f7a8$457c810a$454920f8$32723@KNOLO
GY.NET... 
>
>     Perhaps they have a COBOL source code analysis tool and they want to
> test it on a "real world" project. I'm in a similar situation, except that
> my company already has a contract with some insurance company, and so I've
> got access to their proprietary (i.e. I can't share it with anyone else)
> COBOL code to play with.

That makes sense - but, without sharing their needs, folks here won't
know if they can help them or not, and whether it will be free or not...  :)

I wonder what an analysis tool would do with my little program.  Can
computers laugh?

--
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~
~   /   \  /         ~        Live from Montgomery, AL!       ~
~  /     \/       o  ~                                        ~
~ /      /\   -   |  ~          daniel@thebelowdomain         ~
~ _____ /  \      |  ~      http://www.djs-consulting.com     ~
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
~ GEEKCODE 3.12 GCS/IT d s-:+ a C++ L++ E--- W++ N++ o? K- w$ ~
~ !O M-- V PS+ PE++ Y? !PGP t+ 5? X+ R* tv b+ DI++ D+ G- e    ~
~ h---- r+++ z++++                                            ~
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~

"Who is more irrational?  A man who believes in a God he doesn't see, or
a man who's offended by a God he doesn't believe in?" - Brad Stine

Hi,

yes we indeed need it to test an anlysis tool that we developed. And
therefore we need a real application.

Thanks,
Inbal

On Dec 10, 3:42 pm, "Inbal" <ronen.in...@gmail.com> wrote:
> Hi,
>
> we are looking for a mid-size COBOL application with extensive
> documentation inside. Could someone provide us with such sample code?
>
> Thanks,
> Inbal

"Inbal" <ronen.inbal@gmail.com> wrote in message
news:1165915041.581714.71730@79g2000cws.googlegroups.com...
> Hi,
>
> yes we indeed need it to test an anlysis tool that we developed. And
> therefore we need a real application.
>
> Thanks,
> Inbal
>
> On Dec 10, 3:42 pm, "Inbal" <ronen.in...@gmail.com> wrote: 
>
Sorry, but I have to ask this...

Why didn't you obtain a reasonably sized sample of how people document COBOL
BEFORE designing a tool to "anlysis" this...?

Couldn't it have some bearing on the design of the tool?

I dunno... maybe it's me...

Pete.