Interested to Buy Any Domain ? << Click Here >> for more details...
I have a input file.
Data like: ABCDEFGH....
i want out put file like
AB
BC
CD
DE....How can do this??
- 7 Answers
- 12751 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 purge 50 initiators continuously?? console commands??
MOD, DELETE; What does a disposition of (,DELETE) mean ?
Is Default for MSGCLASS = (1,1) ?
in ways data can be passed to a COBOL program from JCL?
Explain about Specifying compiler options in the PROCESS (CBL) statement
How many types of parameters are used in JCL and what are mandatory parameters of JOB statement.
List the various advantages of using jcl language?
How to find in aparticular step how many versions a paricular gdg base have?
Explain about CBL/PROCESS statement syntax
i have 10,000 records in one input file.i want to sort 1 to 5000 records in one outputfile and remaining records sort in another output file write the syntax for this?
Explain about LMINIT - generate a data ID for a data set
What is the parameter to be passed in the job card for the unlimited time , irrespective of the job class ?
COBOL 
