MVSFORUMS.com

raj_m · Beginner Joined: 24 May 2005 Posts: 5 Topics: 2

Hi ALL,
I'm not an expert in cobol report writing. I have a specific requirement from the users which goes as below.

I have to print the following detail line of the report.
the length of the report line is 80 bytes.( first 10 bytes and last 5 bytes - always spaces)

" TODAY WE RECEIVED A DEPOSIT FROM YOU IN THE AMOUNT OF '
$$,$$$,$$$,$$$,$$9.99, WITH $$,$$$,$$$,$$$,$$9.99 IN CASH. PLEASE BE ASSURED '
THIS WAS DEPOSITED INTO YOUR ACCOUNT "

I am dynamically populating both the amount fields. Based on the amount field, the leading spaces before the $ sign should be truncated. I am able to do this using the string function.
But the task is how do I wrap all the text after the amont fields.

in effect what i need is
if the amt 1 is $99.99 and amt2 is $999.99 then my detail line should read

" TODAY WE RECEIVED A DEPOSIT FROM YOU IN THE AMOUNT OF '
$99.99, WITH $999.99 IN CASH. PLEASE BE ASSURED THIS WAS DEPOSITED INTO '
YOUR ACCOUNT "

if the amt1 is $1,000,000,000,000.00 and amt2 is $1,000,000,000,000.00 then my detail line should read

" TODAY WE RECEIVED A DEPOSIT FROM YOU IN THE AMOUNT OF '
$1,000,000,000,000.00, WITH $1,000,000,000,000.00 IN CASH. PLEASE BE ASSURED '
THIS WAS DEPOSITED INTO YOUR ACCOUNT "

Can anyone suggest me how to come up with a logic to accomplish this?

Thanks
Raj

acevedo · Posted: Wed May 25, 2005 9:25 am Post subject:

this could be one approach:

Count the leading spaces of the field wheare you have the amount edited:
inspect YOUREDITEDAMOUNT tallying WS-FROM for leading spaces

WS-TO = Length YOUREDITEDAMOUNT - WS-FROM

and then use the initial/end to wrap it using a string sentence:

string
' TODAY WE RECEIVED A DEPOSIT FROM YOU IN THE AMOUNT OF '
YOUREDITEDAMOUNT (WS-FROM:WS-TO)
' ,WITH '
----------SAME WITH AMOUNT2-------------
' IN CASH.PLEASE BE ASSURED THIS WAS DEPOSITED INTO '
' YOUR ACCOUNT'
delimited by size into YOURTEXT
end-string

I've written from scratch, take a look at the manuals.
HTH

kolusu · Posted: Wed May 25, 2005 9:30 am Post subject:

Raj,

when you use STRING statement , you will also get the length of the total string using the pointer parm.

ex:

Bithead · Posted: Wed May 25, 2005 9:37 am Post subject:

I usually build the line in a large working storage field then I set my pointer to the maximum length of the report field plus 1 (in your case 81). I then work back until I find a space (you may also want to check for the period). I then move the first part into line 1 and the rest into line 2.

It would me nice to see $1,000,000,000,000.00 deposited into my account!

kolusu · Posted: Wed May 25, 2005 9:45 am Post subject:

dtf · Posted: Wed May 25, 2005 11:18 am Post subject:

If I count this right, it is a trillion dollars. I wonder if that much "cash" even exist.
________
vaporizer shop

kolusu · Posted: Wed May 25, 2005 11:40 am Post subject:

Mervyn · Posted: Wed May 25, 2005 2:38 pm Post subject:

Absolutely right! And a billion pounds sounds FAR more than a trillion dollars!
_________________
The day you stop learning the dinosaur becomes extinct

Bithead · Posted: Wed May 25, 2005 2:43 pm Post subject:

I guess it depends if it falls on you!

Mervyn · Posted: Wed May 25, 2005 3:03 pm Post subject:

You see the big hat in my picture? You wouldn't believe just how quickly I can turn that the other way up!!!
_________________
The day you stop learning the dinosaur becomes extinct

Bithead · Posted: Wed May 25, 2005 3:11 pm Post subject:

If it was a million pounds (lbs), I am not sure it matters which way up your hat is.....

It does have a remarkable slimming effect tho!

raj_m · Beginner Joined: 24 May 2005 Posts: 5 Topics: 2

Thanks a

Million!!!!!! Very Happy

Guyz

I got the logic to accomplish this..

Raaj