Interested to Buy Any Domain ? << Click Here >> for more details...
I have a sequential file in which there are 50 records. Now
I want to copy all the 50 records in the reverse order into
a new file? The last record in the original file should be
the first record in the new file. How can I do it?
- 4 Answers
- 15089 Views
- IBM, TCS, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / avinashn17
The above soultion works only if records are in the sorted
order.
The below piece of code could be used for records which are
not sorted.
******************************************************
//STEP1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=INPUT,
// DISP=SHR
//SORTOUT DD DSN=OUTPUT,
// DISP=(NEW,CATLG,DELETE),
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0),
// DATACLAS=PSFB
//SYSIN DD *
INREC OVERLAY=(81:SEQNUM,8,ZD)
SORT FIELDS=(81,8,ZD,D)
OUTREC BUILD=(1,80)
/*
*********************************************************
Record length of the above file is 80
INREC OVERLAY - places sequence number after 80.
Then it is sorted in descending order of sequence nummber.
OUTREC BUILD - removes sequence number and retains original
record.
| Is This Answer Correct ? | 13 Yes | 1 No |
Answer / shammi
But COPYBACK option can be used using File aid only...
| Is This Answer Correct ? | 3 Yes | 0 No |
Answer / avinash n
The file could be sorted in the descending order.
Synatx:
SORT FIELDS=(1:Y,CH,D)
where Y = record length.
The output would be in the reverse order!
| Is This Answer Correct ? | 0 Yes | 13 No |
How would you understand error(execution phase)?
i have a base gdg consisting of 12 versions like jan to dec. i need to concatante this gdg to another gdg which have version 1 or to the base gdg itself can anyone give me the code pls ?
How gdg are concatenated?
What are the default system and catalog libraries in JCL?
Explain the function of a dd statement?
what is a null indicator in db2?
What is a Proc ? why do we go for a Proc ? What are the types of procs?Can we have nesting in Procs ?
I have two files each contains 10 records. I would like to copy both files into one output file but in alternate sequence. for e.g. first record from file1 then record 2 from file2.....
what is symbolic parameters in jcl, what is a temparary data set ? where do u use ?
how to compress the data set
How to exclude the duplicate records from two concateded flat files (records from both files must be removed)?
I want to join to input files and write the matching fields on to an output file but i dont want the output file a sorted one
COBOL 
