Search:

Cobol Articles

Submit Article

Home » Articles » Cobol » Homework Help

RSS Feeds

Find the yearly Depreciation. Yearly Depreciation = (Cost - Scap Value) / Years of life.Output file should contain no name no of year and depreciated

Posted By: Ellis Evans Category: Cobol Views: 2037

Find the yearly Depreciation.
Yearly Depreciation = (Cost - Scap Value) / Years of life.
Output file should contain no name no of year and depreciated value and cost.

Position Desc.
1 - 3 No
4 - 18 Name
19 - 2 Cost (9(4) V 99).
25 - 29 Scap Value (9(3) V 99).
30 - 31 Years of Life.

Code for Find the yearly Depreciation. Yearly Depreciation = (Cost - Scap Value) / Years of life.Output file should contain no name no of year and depreciated in Cobol

       IDENTIFICATION DIVISION.
       PROGRAM-ID. ASSIGN-5.

       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT IN5 ASSIGN TO DISK
           ORGANIZATION IS LINE SEQUENTIAL.
           SELECT OUT5 ASSIGN TO DISK
           ORGANIZATION IS LINE SEQUENTIAL.

       DATA DIVISION.
       FILE SECTION.
       FD IN5
          LABEL RECORDS ARE STANDARD
          VALUE OF FILE-ID IS "IN5.TXT".
       01 IN5-REC.
          05 NO-IN PIC 9(3).
          05 NAME-IN PIC X(15).
          05 COST-IN PIC 9999V99.
          05 SCAP-IN PIC 9(3)V99.
          05 YRS-IN PIC 9999.

       FD OUT5
          LABEL RECORDS ARE STANDARD
          VALUE OF FILE-ID IS "OUT5.TXT".

       01 OUTREC PIC X(80).

       WORKING-STORAGE SECTION.
       77 ARE-THERE-MORE-REC PIC XXX VALUE 'YES'.
       77 WS-DEP PIC 9(4)V99.
       
       01 H1.
          05 STAR PIC X(80) VALUE ALL '*'.
       01 H2.
          05 NUM PIC X(3) VALUE 'NO.'.
          05 FILLER PIC X(5).
          05 NAME PIC X(4) VALUE 'NAME'.
          05 FILLER PIC X(12).
          05 YRS PIC X(3) VALUE 'YRs'.
          05 FILLER PIC X(4).
          05 COST PIC X(4) VALUE 'COST'.
          05 FILLER PIC X(4).
          05 DEP PIC X(12) VALUE 'DEPRITIATION'.
          05 FILLER PIC X(3).
          05 NET PIC X(5) VALUE "NET".
           
       01 OUT5-REC.
          05 NO-OUT PIC 9(3).
          05 FILLER PIC X(3).
          05 NAME-OUT PIC X(15).
          05 FILLER PIC X(1).
          05 YRS-OUT PIC 9999.
          05 FILLER PIC X(3).
          05 COST-OUT PIC 9(4).99.
          05 FILLER PIC X(3).
          05 DEP-OUT PIC 9(4).99.
          05 FILLER PIC X(5).
          05 NET-OUT PIC 9(4).99.

       PROCEDURE DIVISION.
       MAIN-PARA.
           OPEN INPUT IN5
                OUTPUT OUT5.

                WRITE OUTREC FROM H1.
                WRITE OUTREC FROM H2.
                WRITE OUTREC FROM H1.

           READ IN5
                AT END MOVE 'NO' TO ARE-THERE-MORE-REC.
                PERFORM PARA-1 UNTIL ARE-THERE-MORE-REC = 'NO'.
           CLOSE IN5.
           CLOSE OUT5.
           STOP RUN.
       PARA-1.

              MOVE NO-IN TO NO-OUT.
              MOVE NAME-IN TO NAME-OUT.
              MOVE COST-IN TO COST-OUT.
              MOVE YRS-IN TO YRS-OUT.

              COMPUTE WS-DEP = (COST-IN - SCAP-IN) / YRS-IN.
              COMPUTE NET-OUT = COST-IN - WS-DEP.
              MOVE WS-DEP TO DEP-OUT.

              WRITE OUTREC FROM OUT5-REC.
           READ IN5 AT END MOVE 'NO' TO ARE-THERE-MORE-REC.





INput:- 

201Patel Krunal   500000200002003
202Soni Tejas     300000100001988
203Shah Vijay     700000800001987
204Modi Vijay     300000800001988


Output:-

********************************************************************************
NO.     NAME            YRs    COST    DEPRITIATION   NET                       
********************************************************************************
201   Patel Krunal    2003   5000.00   0002.39     4997.61                      
202   Soni Tejas      1988   3000.00   0001.45     2998.55                      
203   Shah Vijay      1987   7000.00   0003.12     6996.88                      
204   Modi Vijay      1988   3000.00   0001.10     2998.90

Previous Post:

Calculate Total percentage Class (Dist , First) for each student and output file should contain Each

Next Post:

Program of purchase and rebate amount payslip

Didn't find what you were looking for? Find more on Find the yearly Depreciation. Yearly Depreciation = (Cost - Scap Value) / Years of life.Output file should contain no name no of year and depreciated Or get search suggestion and latest updates.

Ellis Evans author of Find the yearly Depreciation. Yearly Depreciation = (Cost - Scap Value) / Years of life.Output file should contain no name no of year and depreciated is from London, United Kingdom.

View All Articles

RSS Feeds:	Articles \| Forum \| New Users \| Activities \| Interview FAQ \| Poll \| Hotlinks
Social Networking:	Hall of Fame \| Facebook \| Twitter \| LinkedIn
Terms:	Terms of Use \| Privacy Policy \| Contact us

Cobol Articles

Find the yearly Depreciation. Yearly Depreciation = (Cost - Scap Value) / Years of life.Output file should contain no name no of year and depreciated

Find the yearly Depreciation.
Yearly Depreciation = (Cost - Scap Value) / Years of life.
Output file should contain no name no of year and depreciated value and cost.

Position Desc.
1 - 3 No
4 - 18 Name
19 - 2 Cost (9(4) V 99).
25 - 29 Scap Value (9(3) V 99).
30 - 31 Years of Life.

Code for Find the yearly Depreciation. Yearly Depreciation = (Cost - Scap Value) / Years of life.Output file should contain no name no of year and depreciated in Cobol

Related Articles and Code:

Other Interesting Articles in Cobol:

Please enter your Comment ** Comment should be atleast 30 Characters. Please put code inside [Code] your code [/Code]. Please login to post comment

No Comment Found, Be the First to post comment!

Cobol Articles

Find the yearly Depreciation. Yearly Depreciation = (Cost - Scap Value) / Years of life.Output file should contain no name no of year and depreciated

Find the yearly Depreciation. Yearly Depreciation = (Cost - Scap Value) / Years of life. Output file should contain no name no of year and depreciated value and cost. Position Desc. 1 - 3 No 4 - 18 Name 19 - 2 Cost (9(4) V 99). 25 - 29 Scap Value (9(3) V 99). 30 - 31 Years of Life.

Code for Find the yearly Depreciation. Yearly Depreciation = (Cost - Scap Value) / Years of life.Output file should contain no name no of year and depreciated in Cobol

Related Articles and Code:

Other Interesting Articles in Cobol:

Find the yearly Depreciation.
Yearly Depreciation = (Cost - Scap Value) / Years of life.
Output file should contain no name no of year and depreciated value and cost.

Position Desc.
1 - 3 No
4 - 18 Name
19 - 2 Cost (9(4) V 99).
25 - 29 Scap Value (9(3) V 99).
30 - 31 Years of Life.