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
- 10941 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 |
Whats error code s222?
How do you send the output of a COBOL program to a member of a PDS?
How to submit a jcl from cics?
Can we change a FB file to VB file in JCL? Please help
What is Uncatalog dataset? How can we access/use them?
Hi, Say I have 10 flat files and I want to copy all these 10 flat files to a GDG versions flat files (I have GDG base: FDWS01.TEST.RESTORE) in one shot. Can we do that in one shot using a JCL. May be by using IEBGENER. It's a bit urgent. So anyone's fast rely would be appreciated.. Thanks in advance.. 10 flat files ----------------------------------- FDWS01.SUB.RESTORE1 FDWS01.SUB.RESTORE2 FDWS01.SUB.RESTORE3 ; ; FDWS01.SUB.RESTORE10 TO GDG versions ----------------------- FDWS01.TEST.RESTORE.G0001V00 FDWS01.TEST.RESTORE.G0002V00 FDWS01.TEST.RESTORE.G0003V00 ; ; FDWS01.TEST.RESTORE.G0010V00
Explain the purpose of dd * statement in jcl?
Are there any set of rules for the names of the steps used in a job?
What is the difference between sb37,se37,sd37 each?
How jcl work to handle various input output file operations?
Explain how can the disposition of sysout datasets be set for an entire jobstream?
In JCl which of this activities get executed if act002 abnormally terminates //job001 job ......... //act001 exec pgm=cobo01 //act002 exec pgm=cob02, cond=(01,le) //actoo3 exec pgm=cob03, cond=only //actoo4 exec pgm=con04
COBOL 
