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!
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.
Data division.
Working-storage section.
01 n pic 9(3) value 0.
01 q pic 9(3) value 0.
01 r pic 9(3) value 0.
Procedure division.
Para-1.
Display(1 1) erase.
Display( 3 5) " Enter a Number :".
Accept n.
Divide n by 2 giving q remainder r.
If (r = 0)
Display(10 5) " EVEN NUMBER"
Go to end-para.
Display(10 5) " ODD NUMBER"
End-para.
Stop run.
Example of Sign condition: The illustration below describes the use of the sign condition. Illustration: 77 BALANCE PIC S9 (6) V99. . . I
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 "-"
PROGRAM FOR IF -ELSE: We have to write a program to check whether the given number is ODD or EVEN. You can use IF..ELSE. Identification division. Program- id. IfElse.
what does it used
PROCEDURE DIVISION statements for the indexed files: All the statements which are available for a relative file are also available for an indexed file. READ STTATEMENT :
Illustration of Perform with varying option: A) Perform para-3 varying the k from 1 by 1 until k > 10. Here para-3 will be constantly executed 10 times (For k=1,2,3, .....1
Second form of Divide verb: The second form of this verb is as shown below: In this situation the identifier-1 or numeric- literal-1 will be divided by identifier-2 or
How do i write a simple cobol programming that works
Currency Sign - edit characters for numeric data: $ (Currency Sign): The single currency sign can appear at the leftmost place of a picture. In that situation the $ cha
Data types available in COBOL are given below Alpha-numeric (X), numeric (9), alphabetic (A)
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: +1-415-670-9521
Phone: +1-415-670-9521
Email: [email protected]
All rights reserved! Copyrights ©2019-2020 ExpertsMind IT Educational Pvt Ltd