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
STATEMENTS FOR SEQUENTIAL FILES: A basic operation on a file includes the reading and writing of its records. Whenever the file is sequential, there are three verbs for the

ACCEPT STATEMENT: The ACCEPT statement is used to read the low-volume data from the operator's console, several other hardware device or from the operating system. The common

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,

PROGRAM FOR COMPUTE VERB: We have to write an easy program to elaborate the COMPUTE verb.  Identification division. Program- id. compverb. Environment division. Da

we have input file ,record layout is EMP ID (6 char) , EMP NAME (20 char), Designation (3 char),Salary (5 digit) Base Branch (10char) Grade (3 Alphanumeric). This is the input file

FILLER CLAUSE: Consider the statements as shown below: 1)  01    f    pic     x(80)  value    all "-". This statement origins a line of 80 characters filled with "-"

LEVEL NUMBERS: The COBOL makes use of the level number concept to explain the hierarchical data structure. A level number is a 2 digit number. The permitted level numbers a

PROGRAM FOR DIVIDE VERB:   We have to write an easy program to elaborate DIVIDE verb. You can also use edit characters in the program. Identification division. Program-

ON SIZE ERROR OPTION: Whenever a size error occurs, the contents of the result field after the operation is unpredictable.  Though, the processing is not-terminated and the co

77 level used for- It is Elementary level item. it Cannot be subdivisions of other items or cannot be qualified, or they can be subdivided themselves.