Golgappa.net | Golgappa.org | BagIndia.net | BodyIndia.Com | CabIndia.net | CarsBikes.net | CarsBikes.org | CashIndia.net | ConsumerIndia.net | CookingIndia.net | DataIndia.net | DealIndia.net | EmailIndia.net | FirstTablet.com | FirstTourist.com | ForsaleIndia.net | IndiaBody.Com | IndiaCab.net | IndiaCash.net | IndiaModel.net | KidForum.net | OfficeIndia.net | PaysIndia.com | RestaurantIndia.net | RestaurantsIndia.net | SaleForum.net | SellForum.net | SoldIndia.com | StarIndia.net | TomatoCab.com | TomatoCabs.com | TownIndia.com
Interested to Buy Any Domain ? << Click Here >> for more details...

differnce between read work file 1 and read work file once?
why we are using work file once?

Answer Posted / kevin

As NIKI stated the read work file 1 is identifying the work
file in JLC

As for the work read work file once it is used to get the
next record. The record pointer doesn't get reset allow
you to process records from 2 files one at at time.

For example if you are comparing record from 2 work files
and processing the records in order


read work a once /* reads the first a record
read work b once /* reads the second b record

REPEAT
IF rec-a > rec-b
process b ...
read work b once
escape top
End-if
IF rec-a < rec-b
process a ...
read work a once
ecape top
End-if
If rec-a = rec-b
process a and b ...
read work a once
read work b once
end-if
end-repeat

(of course you would need escape logic in the loop such as
end of file logic...)

Is This Answer Correct ?    2 Yes 0 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

Suppose you are processing an input file in a natural program and you want the program to fail if the file is empty. What command you use in natural to force it to fail?

1138


What is data trace system 2.0 used for?

5703


Tell me can we update with histogram?

1232


What is the difference between escape(top or bottom) and escape immediate(top or bottom?

1107


How to find occurrence of mu and pe fields in a file?

940


How are you going to remove duplicates from the file that is being read?

1048


Explain the difference between external subroutine and subprogram?

1306


What is cobol coding sheet?

1290


Explain how many work file we can code in jcl?

1042


What is the difference between read work file 1 and read work file once? Why we are using work file once?

1011


What is the quality process in development?

1146


What is a hyperdescriptor?

1000


How to create 1 ddm that fetches 3 adabas files simultaneously?

985


Explain control variable in online screens?

1055


What is the difference between read(1) and read work file once?

1111