Already have an account? Get multiple benefits of using own account!
Login in your account..!
Remember me
Don't have an account? Create your account in less than a minutes,
Forgot password? how can I recover my password now!
Enter right registered email to receive password!
OCCURS CLAUSE - PROGRAM:
We have to write a program to elaborate occurs clause. Get names and marks of the students and show them on the screen.
identification division.
program- id.
environment division.
data division.
working-storage section.
01 n pic 9(2) value 0.
01 i pic 9(2) value 1.
01 stu-det.
02 stu-rec occurs 10 times.
03 name pic x(20).
03 mark pic 9(3).
01 key- in pic x value space.
procedure division.
p-1.
display(1 1) erase.
display(3 5) "Enter How many times".
accept n.
perform get-para n times.
move 1 to i.
perform disp-para n times.
stop run.
get-para.
accept name(i).
accept mark(i).
add 1 to i.
disp-para.
display name (i).
display mark (i).
accept key- in.
Display control verbs in Cobol
PROGRAM FOR IF : We have to write a program to check whether the given number is ODD or EVEN. Identification division. Program- id. Ifst. Environment division.
program
Can we declare a redefine clause as below? A Redefines B, PIC X(4)
PROGRAM FOR SIZE ERROR: We have to write an easy program to elaborate the size error option. Identification division. Program- id. sizeerr. Environment division.
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
RULES OF MOVE VERB: The Data movement is managed by the rules which are as shown below: (a) The contents of the identifier - 1 or the value of the literal - 1 is moved to
ADD VERB: The ADD Verb can be used to find the sum of two or more numbers and to store the sum. The ADD verb takes any one of the two forms as shown below:
cobol program for generate a eb bill
Rules of read statements: The next record is identified according to the rules as shown below: (i) Whenever the READ NEXT statement is the initial statement to be executed
Get guaranteed satisfaction & time on delivery in every assignment order you paid with us! We ensure premium quality solution document along with free turntin report!
whatsapp: +91-977-207-8620
Phone: +91-977-207-8620
Email: [email protected]
All rights reserved! Copyrights ©2019-2020 ExpertsMind IT Educational Pvt Ltd