Interested to Buy Any Domain ? << Click Here >> for more details...
I've one sequential file, That file contains millians of
Junk & CHAR recoreds example
File 1
,,,,,...,,,.....,.,.INFOSYS.....,,,,,,,,,,,WIPRO...........,
,...,..,.
My questions is : I want omit the 44th posstion to 4 CHAR
(WIPRO) remaining things I want output file (including Junk
CHAR also)...
How can we slove this problem & give me a syntax.
Please provide the result as soon as possible.
- 5 Answers
- 10925 Views
- CTS, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / srinivas yadav
//SYSIN DD *
SORT FIELDS = COPY
EXCLUDE=(44,4,CH,EQ,C'WIPR')
/*
//
| Is This Answer Correct ? | 13 Yes | 1 No |
Answer / vs kumar
HI LU,
YOU HAVE MISSED THE SORT FIELDS = COPY
I HAVE CORRECTED IT. PLEASE LET ME KNOW IF I AM WRONG
//EXAMP JOB A400,PROGRAMMER
//STEP1 EXEC PGM=SORT
//SORTIN DD DSN=INP1,DISP=old
//SORTOUT DD DSN=OUTPUT,DISP=(,PASS),UNIT=3390,
// SPACE=(CYL,(5,1)),DCB=(LRECL=??)
//SYSIN DD *
SORT FIELDS = COPY
OMIT COND=(44,4,CH,EQ,C'WIPO')
| Is This Answer Correct ? | 5 Yes | 1 No |
Answer / lu
//EXAMP JOB A400,PROGRAMMER
//STEP1 EXEC PGM=SORT
//SORTIN DD DSN=INP1,DISP=old
//SORTOUT DD DSN=OUTPUT,DISP=(,PASS),UNIT=3390,
// SPACE=(CYL,(5,1)),DCB=(LRECL=??)
//SYSIN DD *
OMIT COND=(44,4,CH,EQ,C'WIPO')
| Is This Answer Correct ? | 3 Yes | 1 No |
Answer / pkb
This can be done using SORT utility
//STEP1 exec PGM=SORT
//STEPLIB ........
.....................
//SORTIN dd DSN=INPUT.FILE
...
//SORTOUT DD DSN=OUTPUT.FILE
...
//SYSIN DD *
SORT FIELDS=COPY
OUTREC FIELDS=(1:1,73,74,10)
//SYSOUT DD SYSOUT=*
THE FILE LENGTH IS CONSIDERED AS 83
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / naga
i think , WIPRO is 5 chars not 4 chars.
pls check the blow syntax.
SORT FIELDS = COPY
OMIT COND=(44,5,CH,EQ,C'WIPRO')
| Is This Answer Correct ? | 0 Yes | 0 No |
i have a jcl containing header body and trailer .in header i have viswa body 2 6 1 9 7 trailer reddy .now i need to sort only body in either asecending or descending order how can i do it
Suppose I have a file with three fields with data in the following format 1. empid - S9(4) COMP 2. empname - X(20) 3. empsal - S9(5)V(2) COMP-3 If I view this file, it will not be in a readable format. How to display the empid and empsal fields in a readable format without using COBOL program? What kind of SORT card will have to be coded?
How to resolve the error "WER488A JOIN CAPACITY EXCEEDED" I am using SYNCSORT with JOINKEYS to compare 2 files. I am Getting error - > WER488A JOIN CAPACITY EXCEEDED There are 2 files to be compared with about 2 million records each. LRECL is 3665. Can somebody give a pointer as to how to resolve this problem? I am using SYNCSORT with JOINKEYS to compare 2 files. I am Getting error - > WER488A JOIN CAPACITY EXCEEDED There are 2 files to be compared with about 2 million records each. LRECL is 3665. Can somebody give a pointer as to how to resolve this problem?
how do u send return code from cobol to jcl ?
What is the purpose of include statement in a JCL?
State the uses of syspring, sysin, sort fields, sum fields and dummy.
Write a JCL by using the below requirement: File1 =1, File2 =11 and output needs to come as File3 =111?
THERE IS ONE STEP AS BELOW: //STEPJS060 EXEC PGM=XYX, COND=((200,EQ,JS010),(0,NE,JS020.C),EVEN) COULD ANY ONE EXPLAIN HOW COND PARAMETER WORKS HERE? I AM CONFUSED BECOZ OF "EVEN".
what is XSUM in some fields= none, xsum ??
In SPACE,what is directory,RLSE
What is the purpose of disp parameter?
Explain the function of a dd statement?
COBOL 
