I have a input file.
Data like: ABCDEFGH....
i want out put file like
AB
BC
CD
DE....How can do this??
- 7 Answers
- 10731 Views
- UST, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / prakash
using inrec in sort utility , we can perform it.
//sysih dd *
sort fields = copy
inrec fields = (10:1,2, 13:2,2, 16:3,2)
(or)
using reference modification in cobol.
| Is This Answer Correct ? | 7 Yes | 6 No |
Answer / sathish
//JOB CARD
//S1 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTOUT DD SYSOUT=*
//SORTIN DD *
ABCDEFGH
/*
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL REMOVECC,NODETAIL,HEADER1=(1:1,2,/,1:3,2,/,1:5,2,/,1:7,2)
/*
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / sathish
//S1 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTOUT DD SYSOUT=*
//SORTIN DD *
ABCDEFGH
/*
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL REMOVECC,NODETAIL,HEADER1=(1:1,2,/,1:2,2,/,1:3,2,/,1:4,2)
/*
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / mdv
Two step process:
1.
Input file:
ABCDEF
//sysih dd *
sort fields = copy
outrec fields = (1,2,78X,2,2,78X,3,2,78X,4,2,78X,5,2,78X)
Step 1 output file will be:
ABBCCDDEEF
2.
//STEP EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD *
ABBCCDDEEF
//OUT DD DISP=OLD,DSN=file-FB_lrec/80
//TOOLIN DD *
RESIZE FROM(IN) TO(OUT) TOLEN(80)
OUT DD dataset will have the required.
Thanks
HTH
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / muttaiah
@satish:
YOu have 2 posts continuously, can you tell us all which
one will work(or both) fine.
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / muttaiah
MDV:
If you are using this stmt
outrec fields = (1,2,78X,2,2,78X,3,2,78X,4,2,78X,5,2,78X)
Your LRECL for O/p File would 400
AB followed by 78 blanksBCfollowed by 78blanks....
Did you try the code which you placed there...
I'm not sure of 2nd step..
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / muttaiah
@Posted Person:
Can you exactly tell me what is your requirement so that i
can try to provide you a solution.
1rec: every 2 char's you want to write a records.
because As far as my knowledge there is no such utility to
get data in such a way. You have to write a cobol program
and use Joblib stmt. In order to accomplish this request.
If you want the cobol program let me know??
| Is This Answer Correct ? | 0 Yes | 1 No |
how to code instream data in procedure?
how to convert a file form fixed Length to variable length?
What it does If we specify TYPRUN=P & it is not substituted by SCAN 0r HOLD in VALUE SET.
In all our JOB Statement we have always COND=(4,LT) defined. Nevertheless when a Job failed the last step should then be executed (send a message to an user). Due to we don't like to change all our JOB's (ca. 2000), we are looking for a simply solution.
How to find in aparticular step how many versions a paricular gdg base have?
Is there a way to check for an empty file in JCL other than using IEBCOMPR and the command PRINT COUNT(1)?
If we want to see the eliminated duplicate record thru SORT, how its output file will be managed
how you will the direct the data to spool using sysout option?
Explain about LMMFIND - find a library member
At what stage, operator can change the class and priority of a submitted job?
i have a file which contains duplicates ? my requirement is to eliminate duplicates and these elminated duplicates should be moved to another file can any code this using sort ?
What statement marks the beginning of an in-stream or cataloged procedure in jcl and assigns default values to parameters defined in the procedure?
COBOL 
