Program for inventory , COBOL Programming

PROGRAM FOR INVENTORY 

We have to write a program to update the inventory file. Consider 2 files,viz, invfile an tranfile. Invfile has 3 fields pno,name,qty. Tranfile has 3 fileds tpno,trcode,tqty. By readin tranfile records if trcode=1 then update the qty with qty+tqty in invfile. If trcode=2 the update the qty with qty-tqty in invfile.

 identification division.

  program- id.

  environment division.

  input-output section.

  file-control.

    select invfile assign to disk

    organization is indexed

    access mode is dynamic

    record key is pno

    file status is fs.

    select tranfile assign to disk

    organization is line sequential.

  data division.

  file section.

  fd  invfile

    label records are standard

    value of file- id is "inv.dat".

  01  invrec.

    02 pno  pic 9(5).

    02 name pic x(5).

    02 qty  pic 9(5).

  fd tranfile

  label records are standard

  value of file- id is "tran.dat".

01 tranrec.

  02 tpno  pic 9(5).

  02 trcode pic 9.

  02 tqty    pic 9(5).

working-storage section.

01  ans pic x value space.

01  fs  pic x(2) value spaces.

01  key- in pic x value space.

  procedure division.

  p-1.

    open i-o invfile.

    if fs = "30"

      open output invfile

      close invfile

      open i-o invfile.

    perform g-w-inv until ans = 'n' or 'N'.

    move space to ans.

    open output tranfile.

    perform g-w-tran until ans = 'n' or 'N'.

    close tranfile.

    open input tranfile.

  read-para.

    read tranfile at end go to close-para.

    move tpno to pno.

    read invfile key is pno invalid key 

        display(5 5) "No Record Found for" ; pno

       accept key- in

       go to read-para.

    if trcode = 1 

      add tqty to qty

      rewrite invrec.

    if trcode = 2 

      subtract tqty from qty 

      rewrite invrec.

     go to read-para.

  close-para.

    close invfile tranfile.

  op-para.

  open input invfile.

r-para.

  read invfile next record at end go to cl-para.

  display(1 1) erase.

  display(3 5) "Part No: " pno.

  display(5 5) "Name : " name.

  display(7 5) "Qty : " qty.

  accept key- in.

  go to r-para.

cl-para.

  close invfile.

  stop run.

g-w-tran.

  display(1 1) erase.

  display(2 5) "Tran Details ....".

  display(3 5) "Part No: ".

  accept tpno.

  display(5 5) "Trancode : ".

  accept trcode.

  display(7 5) "Quantity : ".

  accept tqty.

  write tranrec.

  display(12 5) "Add more [y/n] :".

  accept ans.

g-w- inv.

  display(1 1) erase.

  display(2 5) "Inven Details....".

  display(3 5) "Part No: ".

  accept pno.

  display(5 5) "Name : ".

  accept name.

  display(7 5) "Quantity : ".

  accept qty.

  write invrec invalid key display(10 5) "Rec Exists!".

  display(12 5) "Add more [y/n] :".

  accept ans.

Posted Date: 10/18/2012 2:08:41 AM | Location : United States







Related Discussions:- Program for inventory , Assignment Help, Ask Question on Program for inventory , Get Answer, Expert's Help, Program for inventory Discussions

Write discussion on Program for inventory
Your posts are moderated
Related Questions
WRITE STATEMENT: The records are written to be logical place as determined from the value of the record key. The INVALID KEY condition occurs in the cases shown below: (i)

Rules for constructing an Arithmetic Expression: The rules for constructing an arithmetic expression are as shown below: (i) When an arithmetic expression specifies a calcu

Rules for apply for the condition name: The rules below apply for the condition name. (i) The Condition names should be explained at level 88. The level number starts in ma

FILE-CONTROL: The FILE-CONTROL paragraph names each and every file and identifies the first medium through file control entries. The basic format of a file control entry is gi

There are some restrictions when these procedures are used. (i) The Procedure should not contain any SORT/MERGE statement. (ii) An explicit transfer of the control outside

SEQUENTIAL FILES:   The purpose of the proposed section is to introduce the concepts such as File characteristics, File Description for Fixed-Length Records, File-Control

Common form of the READ statements: Format 1 is the common form of the READ statements. Format 2 is used when the access mode is either random or dynamic. For illustration,

The LENDER Bank offers mortgages on homes valued up to $500,000. The required down payment is calculated as follows: 4% of the first $60,000 borrowed 8% of the next $30,000 borro

Format for COBOL Programs: The COBOL is a high-level language. Therefore, a COBOL program can be executed on a computer for which a COBOL compiler exists. The compiler transla

INDEXED TABLES: The OCCURS clause that is used to define tables can optionally have an INDEXED phrase. This phrase involves the names of data items which are to be used as sub