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 TO DEMONSTRATE SORT VERB:
The file for which a record having 2 fields, viz., Account Number and Name is already available. Sort the file based on the ascending order of the Account Number.
identification division.
program- id.
environment division.
input-output section.
file-control.
select o1- file assign to disk
organization is line sequential.
select s1-file assign to disk
select w- file assign to disk.
data division.
file section.
fd o1- file
label records are standard
value of file- id is "o1.dat".
01 o1-rec.
02 o1-acc-no pic 9(2).
02 o1-name pic x(4).
fd s1-file
value of file- id is "s1.dat".
01 s1-rec.
02 s1-acc-no pic 9(2).
02 s1-name pic x(4).
sd w-file.
01 w-rec.
02 w-acc-no pic 9(2).
02 w-name pic x(4).
procedure division.
p-1.
sort w-file on ascending key w-acc-no using o1-file
giving s1- file.
stop run.
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
GIVING file-name-5. The input files to be merged through the MERGE statements which are specified in the USING phrase. These files should be sequential files and should be
RULES FOR INDEXED TABLES: The rules of indexing a table with an INDEXED phrase are as shown below: (1) If indexing is completed for any one level of a table, then indexing
DIVIDE VERB: The aim of the DIVIDE verb is to divide one number by the other and to store the result. There are few forms of this verb. One of its forms is as shown below:
PROGRAM FOR SCREEN SECTION: identification division. program- id. environment division. data division. working-storage section. 01 a pic 9(2) value
RELATIVE FILES: The Files that are stored on a direct access storage medium like magnetic disk are frequently known as direct access files. The COBOL supports three different
RELATIONAL CONDITION: We know that a relational condition specifies a comparison between two operands and has the form. Operand-1 relational-operator operand-2
When using the accept verb in cobol is it possible to assign something other then "SYSIN" for a ddname?
Plus Sign - edit characters for numeric data: + (Plus Sign) : A plus sign is alike to minus sign except that when the item is positive, +sign will be inserted rather th
What is the difference b/w index and subscript? Subscript indicates to the array occurrence whereas index is the displacement (in no of bytes) from the beginning of the array.
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