i need help to modify my cobol program can someone help soon please 
Author Message
 i need help to modify my cobol program can someone help soon please

I have written a cobol program, but it needs changes by looking at the
question, i don't know how to add those changes in it, can someone
please help me make these changes in the program, by looking at the
question, and email me soon i need this by thursday or so.
here is the question:
Given two related dates,(eg: start and end of the World War !!) find
the number od days, the number of months and the number of
years/months/days between the two dates.

*If it is interactive, submit your disk with the correct .int file on
it.
If you are using files, include a copy of both the input and output
files

here is my program:
       IDENTIFICATION DIVISION.
       PROGRAM-ID.  Y2K.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  DATE-DATA.
           02  DATE-INTEGER        PIC 9(6).
           02  DATE-INPUT.
               03  DATE-Y          PIC 9(4).
               03  DATE-M          PIC 99.
               03  DATE-D          PIC 99.
           02  DATE-RDF REDEFINES DATE-INPUT PIC 9(8).
           02  LAST-DATE-SW        PIC X.
               88  LAST-DATE       VALUE 'n' 'N'.
           02  DATE-E              PIC 9(8).
           02  DATE-EX.
               03  YY              PIC 9(4).
               03  MM              PIC 99.
               03  DD              PIC 99.
           02  DATE-EDIT.
               03  MM              PIC Z9/.
               03  DD              PIC Z9/.
               03  YY              PIC 9999.
           02  NUM-DAYS            PIC S999.

       PROCEDURE DIVISION.
       CONVERT-DATE.
           MOVE 'Y' TO LAST-DATE-SW
           PERFORM GET-DATE
               PERFORM UNTIL LAST-DATE
                   COMPUTE DATE-INTEGER =
                       FUNCTION INTEGER-OF-DATE(DATE-RDF)
                   END-COMPUTE
                   DISPLAY DATE-INTEGER
                   DISPLAY 'HOW MANY DAYS TO MATURITY ?'
                       WITH NO ADVANCING
                   ACCEPT NUM-DAYS
                   ADD NUM-DAYS TO DATE-INTEGER
                   END-ADD
                   DISPLAY DATE-INTEGER
                   COMPUTE DATE-E = FUNCTION
                       DATE-OF-INTEGER(DATE-INTEGER)
                   DISPLAY DATE-E
                   MOVE DATE-E TO DATE-EX
                   MOVE CORRESPONDING DATE-EX TO DATE-EDIT
                   DISPLAY DATE-EDIT
                   DISPLAY 'CONTINUE ?  (Y/N)' WITH NO ADVANCING
                   ACCEPT LAST-DATE-SW
                   IF NOT LAST-DATE PERFORM GET-DATE
                   END-IF
               END-PERFORM
            STOP RUN
            .

       GET-DATE.
           DISPLAY 'ENTER YEAR IN YYYY FORMAT  '
               WITH NO ADVANCING
           ACCEPT DATE-Y
           DISPLAY 'ENTER MONTH IN MM FORMAT   '
               WITH NO ADVANCING
           ACCEPT DATE-M
           DISPLAY 'ENTER DAY IN DD FORMAT     '
               WITH NO ADVANCING
           ACCEPT DATE-D
           .


thanks

Sent via Deja.com http://www.*-*-*.com/
Before you buy.



Fri, 28 Mar 2003 03:00:00 GMT  
 i need help to modify my cobol program can someone help soon please
Quote:

>I have written a cobol program, but it needs changes by looking at the
>question, i don't know how to add those changes in it, can someone
>please help me make these changes in the program, by looking at the
>question, and email me soon i need this by thursday or so.
>here is the question:
>Given two related dates,(eg: start and end of the World War !!) find
>the number od days, the number of months and the number of
>years/months/days between the two dates.

>*If it is interactive, submit your disk with the correct .int file on
>it.
>If you are using files, include a copy of both the input and output
>files

>here is my program:
>       IDENTIFICATION DIVISION.
>       PROGRAM-ID.  Y2K.

>       DATA DIVISION.
>       WORKING-STORAGE SECTION.
>       01  DATE-DATA.
>           02  DATE-INTEGER        PIC 9(6).
>           02  DATE-INPUT.
>               03  DATE-Y          PIC 9(4).
>               03  DATE-M          PIC 99.
>               03  DATE-D          PIC 99.
>           02  DATE-RDF REDEFINES DATE-INPUT PIC 9(8).
>           02  LAST-DATE-SW        PIC X.
>               88  LAST-DATE       VALUE 'n' 'N'.
>           02  DATE-E              PIC 9(8).
>           02  DATE-EX.
>               03  YY              PIC 9(4).
>               03  MM              PIC 99.
>               03  DD              PIC 99.
>           02  DATE-EDIT.
>               03  MM              PIC Z9/.
>               03  DD              PIC Z9/.
>               03  YY              PIC 9999.
>           02  NUM-DAYS            PIC S999.

>       PROCEDURE DIVISION.
>       CONVERT-DATE.
>           MOVE 'Y' TO LAST-DATE-SW
>           PERFORM GET-DATE
>               PERFORM UNTIL LAST-DATE
>                   COMPUTE DATE-INTEGER =
>                       FUNCTION INTEGER-OF-DATE(DATE-RDF)
>                   END-COMPUTE
>                   DISPLAY DATE-INTEGER
>                   DISPLAY 'HOW MANY DAYS TO MATURITY ?'
>                       WITH NO ADVANCING
>                   ACCEPT NUM-DAYS
>                   ADD NUM-DAYS TO DATE-INTEGER
>                   END-ADD
>                   DISPLAY DATE-INTEGER
>                   COMPUTE DATE-E = FUNCTION
>                       DATE-OF-INTEGER(DATE-INTEGER)
>                   DISPLAY DATE-E
>                   MOVE DATE-E TO DATE-EX
>                   MOVE CORRESPONDING DATE-EX TO DATE-EDIT
>                   DISPLAY DATE-EDIT
>                   DISPLAY 'CONTINUE ?  (Y/N)' WITH NO ADVANCING
>                   ACCEPT LAST-DATE-SW
>                   IF NOT LAST-DATE PERFORM GET-DATE
>                   END-IF
>               END-PERFORM
>            STOP RUN
>            .

>       GET-DATE.
>           DISPLAY 'ENTER YEAR IN YYYY FORMAT  '
>               WITH NO ADVANCING
>           ACCEPT DATE-Y
>           DISPLAY 'ENTER MONTH IN MM FORMAT   '
>               WITH NO ADVANCING
>           ACCEPT DATE-M
>           DISPLAY 'ENTER DAY IN DD FORMAT     '
>               WITH NO ADVANCING
>           ACCEPT DATE-D
>           .


>thanks

>Sent via Deja.com http://www.deja.com/
>Before you buy.



Fri, 28 Mar 2003 03:00:00 GMT  
 i need help to modify my cobol program can someone help soon please
So you have gotten someone else's work and now need to change it do you?
Why don't you try doing it yourself?  You have until Thursday or so.  BTW,
I'll
give you a hint.  When you ask someone else to do it the next time, change
your wording slightly so that we all can't tell it is the same stupid lout
that
posted in the other Ng's.  You might also try not lying by saying you wrote
the sample, as it is transparently obvious to anyone that if you had written
the below code, you would have no problems at all with changing it. None
of us need lazy {*filter*}s claiming to be Cobol programmer's working for
us or alongside us.  We have enough work to do of our own without being
set up to do someone else's.

There is a major difference between "helping", which every one of us here
is willing to do, and getting suckered into doing someone else's job. Either
do some work yourself, or go collect a welfare cheque.

Quote:

>I have written a cobol program, but it needs changes by looking at the
>question, i don't know how to add those changes in it, can someone
>please help me make these changes in the program, by looking at the
>question, and email me soon i need this by thursday or so.
>here is the question:
>Given two related dates,(eg: start and end of the World War !!) find
>the number od days, the number of months and the number of
>years/months/days between the two dates.

>*If it is interactive, submit your disk with the correct .int file on
>it.
>If you are using files, include a copy of both the input and output
>files

>here is my program:
>       IDENTIFICATION DIVISION.
>       PROGRAM-ID.  Y2K.

>       DATA DIVISION.
>       WORKING-STORAGE SECTION.
>       01  DATE-DATA.
>           02  DATE-INTEGER        PIC 9(6).
>           02  DATE-INPUT.
>               03  DATE-Y          PIC 9(4).
>               03  DATE-M          PIC 99.
>               03  DATE-D          PIC 99.
>           02  DATE-RDF REDEFINES DATE-INPUT PIC 9(8).
>           02  LAST-DATE-SW        PIC X.
>               88  LAST-DATE       VALUE 'n' 'N'.
>           02  DATE-E              PIC 9(8).
>           02  DATE-EX.
>               03  YY              PIC 9(4).
>               03  MM              PIC 99.
>               03  DD              PIC 99.
>           02  DATE-EDIT.
>               03  MM              PIC Z9/.
>               03  DD              PIC Z9/.
>               03  YY              PIC 9999.
>           02  NUM-DAYS            PIC S999.

>       PROCEDURE DIVISION.
>       CONVERT-DATE.
>           MOVE 'Y' TO LAST-DATE-SW
>           PERFORM GET-DATE
>               PERFORM UNTIL LAST-DATE
>                   COMPUTE DATE-INTEGER =
>                       FUNCTION INTEGER-OF-DATE(DATE-RDF)
>                   END-COMPUTE
>                   DISPLAY DATE-INTEGER
>                   DISPLAY 'HOW MANY DAYS TO MATURITY ?'
>                       WITH NO ADVANCING
>                   ACCEPT NUM-DAYS
>                   ADD NUM-DAYS TO DATE-INTEGER
>                   END-ADD
>                   DISPLAY DATE-INTEGER
>                   COMPUTE DATE-E = FUNCTION
>                       DATE-OF-INTEGER(DATE-INTEGER)
>                   DISPLAY DATE-E
>                   MOVE DATE-E TO DATE-EX
>                   MOVE CORRESPONDING DATE-EX TO DATE-EDIT
>                   DISPLAY DATE-EDIT
>                   DISPLAY 'CONTINUE ?  (Y/N)' WITH NO ADVANCING
>                   ACCEPT LAST-DATE-SW
>                   IF NOT LAST-DATE PERFORM GET-DATE
>                   END-IF
>               END-PERFORM
>            STOP RUN
>            .

>       GET-DATE.
>           DISPLAY 'ENTER YEAR IN YYYY FORMAT  '
>               WITH NO ADVANCING
>           ACCEPT DATE-Y
>           DISPLAY 'ENTER MONTH IN MM FORMAT   '
>               WITH NO ADVANCING
>           ACCEPT DATE-M
>           DISPLAY 'ENTER DAY IN DD FORMAT     '
>               WITH NO ADVANCING
>           ACCEPT DATE-D
>           .


>thanks

>Sent via Deja.com http://www.*-*-*.com/
>Before you buy.



Fri, 28 Mar 2003 03:00:00 GMT  
 i need help to modify my cobol program can someone help soon please

enlightened us:

Quote:

>>I have written a cobol program, but it needs changes by looking at the
>>question, i don't know how to add those changes in it, can someone
>>please help me make these changes in the program, by looking at the
>>question, and email me soon i need this by thursday or so.
>>here is the question:
>>Given two related dates,(eg: start and end of the World War !!) find
>>the number od days, the number of months and the number of
>>years/months/days between the two dates.

>>*If it is interactive, submit your disk with the correct .int file on
>>it.
>>If you are using files, include a copy of both the input and output
>>files

>>here is my program:
>>       IDENTIFICATION DIVISION.
>>       PROGRAM-ID.  Y2K.

>>       DATA DIVISION.
>>       WORKING-STORAGE SECTION.
>>       01  DATE-DATA.
>>           02  DATE-INTEGER        PIC 9(6).
>>           02  DATE-INPUT.
>>               03  DATE-Y          PIC 9(4).
>>               03  DATE-M          PIC 99.
>>               03  DATE-D          PIC 99.
>>           02  DATE-RDF REDEFINES DATE-INPUT PIC 9(8).
>>           02  LAST-DATE-SW        PIC X.
>>               88  LAST-DATE       VALUE 'n' 'N'.
>>           02  DATE-E              PIC 9(8).
>>           02  DATE-EX.
>>               03  YY              PIC 9(4).
>>               03  MM              PIC 99.
>>               03  DD              PIC 99.
>>           02  DATE-EDIT.
>>               03  MM              PIC Z9/.
>>               03  DD              PIC Z9/.
>>               03  YY              PIC 9999.
>>           02  NUM-DAYS            PIC S999.

>>       PROCEDURE DIVISION.
>>       CONVERT-DATE.
>>           MOVE 'Y' TO LAST-DATE-SW
>>           PERFORM GET-DATE
>>               PERFORM UNTIL LAST-DATE
>>                   COMPUTE DATE-INTEGER =
>>                       FUNCTION INTEGER-OF-DATE(DATE-RDF)
>>                   END-COMPUTE
>>                   DISPLAY DATE-INTEGER
>>                   DISPLAY 'HOW MANY DAYS TO MATURITY ?'
>>                       WITH NO ADVANCING
>>                   ACCEPT NUM-DAYS
>>                   ADD NUM-DAYS TO DATE-INTEGER
>>                   END-ADD
>>                   DISPLAY DATE-INTEGER
>>                   COMPUTE DATE-E = FUNCTION
>>                       DATE-OF-INTEGER(DATE-INTEGER)
>>                   DISPLAY DATE-E
>>                   MOVE DATE-E TO DATE-EX
>>                   MOVE CORRESPONDING DATE-EX TO DATE-EDIT
>>                   DISPLAY DATE-EDIT
>>                   DISPLAY 'CONTINUE ?  (Y/N)' WITH NO ADVANCING
>>                   ACCEPT LAST-DATE-SW
>>                   IF NOT LAST-DATE PERFORM GET-DATE
>>                   END-IF
>>               END-PERFORM
>>            STOP RUN
>>            .

>>       GET-DATE.
>>           DISPLAY 'ENTER YEAR IN YYYY FORMAT  '
>>               WITH NO ADVANCING
>>           ACCEPT DATE-Y
>>           DISPLAY 'ENTER MONTH IN MM FORMAT   '
>>               WITH NO ADVANCING
>>           ACCEPT DATE-M
>>           DISPLAY 'ENTER DAY IN DD FORMAT     '
>>               WITH NO ADVANCING
>>           ACCEPT DATE-D
>>           .


>>thanks

>>Sent via Deja.com http://www.deja.com/
>>Before you buy.

Doc, is your reply secret :)

Regards,

          ////
         (o o)
-oOO--(_)--OOo-

If the force in Yoda is so strong, construct a sentence with
words in the proper order then why can't he?

Boycott Mitsubishi Industries
For more info, please see:  
http://www.ran.org/ran/ran_campaigns/mitsubishi/background.html

Remove nospam to email me.

Steve



Sat, 29 Mar 2003 03:00:00 GMT  
 i need help to modify my cobol program can someone help soon please

[snippage]

Quote:
>Doc, is your reply secret :)

No, just fat-fingered... I was unsure about the code presented and I
wanted to ask the author to explain the way it functioned.

DD



Sat, 29 Mar 2003 03:00:00 GMT  
 
 [ 5 post ] 

 Relevant Pages 

1. i need help to write a cobol program as soon as possible

2. need help to write a cobol program,as soon as possible

3. SOMEONE PLEASE HELP ME COBOL PROGRAM

4. Someone Please Help Me - I Help You in Any Software Queries/Programming/Coding

5. Someone Please Help Me - I Help You in Any Software Queries/Programming/Coding

6. Someone Please Help Me - I Help You in Any Software Queries/Programming/Coding

7. Someone Please Help Me - I Help You in Any Software Queries/Programming/Coding

8. Someone Please Help Me - I Help You in Any Software Queries/Programming/Coding

9. Someone Please Help Me - I Help You in Any Software Queries/Programming/Coding

10. Someone Please Help Me - I Help You in Any Software Queries/Programming/Coding

11. Someone Please Help Me - I Help You in Any Software Queries/Programming/Coding

12. Someone Please Help Me - I Help You in Any Software Queries/Programming/Coding

 

 
Powered by phpBB® Forum Software