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 MOVE CORRESPONDING:
We have to write a simple program to demonstrate Move Corresponding.
identification division.
program- id.
environment division.
data division.
working-storage section.
01 rec-1.
02 sno pic 9(2) value 11.
02 name pic x(4) value "Ravi".
01 rec-2.
05 sno pic z(2).
05 f pic x(10) value spaces.
05 name pic x(4).
procedure division.
p-1.
display(1 1) erase.
move corr rec-1 to rec-2.
display rec-2.
stop run.
NESTED IF STATEMENT: The then and else statement of an IF statement can hold other IF statements. The involved IF statements in their turn may also hold other IF statements
PROGRAM TO DEMONSTRATE MERGE VERB: The two files for which a record having 2 fields viz. Account Number and Name are already available. Now Merge these two files and create a
Example of If- else statement Illustration: IF QUANTITY IS NUMERIC AND QUANTITY IS POSITIVE MOVE ZERO TO ERROR-CODE. COMPUTE SALES VALUE=QUANTITY*RATE
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.
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 :
PROGRAMS FOR REDEFINES CLAUSE: We have to write a simple program to explain the REDEFINES clause at 01 level. identification division. program- id. Redef. environment
Illustration of Renames clause: In the illustration, PAT-OTHER-THAN-BASIC will become a fresh group consisting of DEARNESS-ALLOWANCE, HOUSE-RENT & MTHLY-INCENTIVE. Keep in min
Encryption and Decryption
TO WRITE A QUADRATIC EQN ROOTS ARE COMPLEX IN COBOL 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
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