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...


I have program P1 which calls file F1 which has 100 records
and following structure
001 ..................
002 ..................
003 ..................
098 ....................
099 ...................
100 ....................

Now I want to read these files and write these records in
file F2 in following manner.

001 ...... 051 .....
002 ...... 052 .....
003 ...... 053 .....
.......... .......
.......... .......
.......... .......
048 ........ 098 ......
049 .......... 099 .......
050 .... 100 ......

Answers were Sorted based on User's Feedback



I have program P1 which calls file F1 which has 100 records and following structure 001 ..........

Answer / ch. ranveer singh

//Aaaaaaaa JOB ,'ADC',NOTIFY=&SYSUID
BY CH . RANVEER SINGH GURJAR




//STEP1 EXEC PGM=SORT
//SORTIN DD DSN=WW.W.AHOC.ADC.P1,DISP=SHR
//SORTOF1 DD DSN=WW.W.AHOC.ADC.P2,DISP=SHR
//SORTOF2 DD DSN=WW.W.AHOC.ADC.P3,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL FILES=(1,2),SPLITBY=50
/*
//

Is This Answer Correct ?    4 Yes 3 No

I have program P1 which calls file F1 which has 100 records and following structure 001 ..........

Answer / krishnan a

1.first use JCL to sort the file then split the file into
two or read the file first 50 record by using count after
reached 50 then move to one file then remaining 50 move to
other file then read file1 and write by using write para
(PERFORM FILE1-WRITE1) then READ SECOND file then write
second FILE2 record(PERFORM FILE2-WRITE2)into the same
output file.

Is This Answer Correct ?    2 Yes 2 No

I have program P1 which calls file F1 which has 100 records and following structure 001 ..........

Answer / vaneesh

Hi Krishnan A

How will how will you split the file into 50-50. Please let
me know with the sort card.

Vaneesh

Is This Answer Correct ?    0 Yes 0 No

I have program P1 which calls file F1 which has 100 records and following structure 001 ..........

Answer / gm

Simple. Read the input file in sequence.
Store the first 50 records in a table.
When you start reading from 51st record,
Build your output record with one half of
the record from the table (record 1) and the
other half from the input that u have read (51)
and write the output record.
Loop thru till end.

Is This Answer Correct ?    1 Yes 2 No

Post New Answer

More COBOL Interview Questions

Is It Possible to Update or change in VIEW Mode?

5 Answers   CSC,


i was faced one question- i have value -00001234.56 Suppress the zeroes and the output should be -1234.56 But Not - 1234.56 spaces should not be available after suppressing the zeroes. logic in jcl and cobol?

0 Answers  


how do you reference the variable block file formats from cobol programs

0 Answers  


01 a pic s9(5) occupies how many bytes ?

9 Answers   Wipro,


What is link edit in cobol?

0 Answers  


how can u pass the values into db2 values from cobol ?

3 Answers   CTS,


What is EIBCALEN? Why it is used?

9 Answers   ADP,


what will be the output when a)pic 9(6)value 000178 is moved to pic ***,***. b)pic 9(5) value 57397 is moved to pic $$,$$9.

5 Answers  


how to refer the data field?

0 Answers  


what is s000 u4087 error? please give the all error codes in cobol,jcl.

0 Answers  


what is search and searchall?what is the diffrence between them?give an best example?

3 Answers   BirlaSoft,


What is reference modification? What is UNION in sql and syntax? What is the difference between GDGS and VSAM? Which is prefer one? What is processing groups in endevor?

1 Answers   Kuwait Oil Company,


Categories