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
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 |
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 |
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 |
I have a COBOL main program which is calling sub program, the number of calling parameters used in main program are 4 whereas in sub program it's 5. Sub program is passing 5 parameters back to main program Will there be any compilation error? Or main program parameters displays junk values?
what is the use of comp2 ? where can we use it with example ?
How many maximum number of procedures can we write in one COBOL program?
CAN ANY ONE HELP WHAT IS QTP? why it is nessery AND WEN IT IS USED?
Can anybody give me example of subscript and index
Extract only those records from a PS file which are having word 'TEXT' in the records using COBOL? The word TEXT is not present in a particular position in all the records.
what is call by value and call by reference ?
3 Answers Infosys, ITC Indian Tobacco Company,
i friends greetings to the day...!!! I face a quation like"while runnig the programe every day i have to access the previous day updates only...!! Ex:- Let last day 100 customers took bank account i have to select those customers only.."
88 level entry is used for (a) data items in WORKING-STORAGE SECTION (b) items with RENAMES clause (c) condition-names (d) None of the above
How to read a 100 record from a file through cobol?
perform I from 0 by 1 until I=5?How maney times it will executes
In which area will you utilize 88 level items in cobol?