I have a input file.
Data like: ABCDEFGH....
i want out put file like
AB
BC
CD
DE....How can do this??

Answer Posted / 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



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

how JCL works?

794


in order to execute step2 a job after a return code of 8 in step1, what condition you will code in step2?

2050


Is automatic restart possible in jcl?

728


Is condition checking possible in jcl? If yes, how?

734


I want my job (careerride) to be executed in 1 minute and 2 seconds. How do I do that?

705






How can the attributes of one sms dataset be copied to another dataset?

846


Explain the jcl exec statement?

643


WORKING-STORAGE SECTION. 01 GROSS-PAY. 05 BASIC-PAY PIC 9(5). 05 ALLOWENCES PIC 9(3). PROCEDURE DIVISION. MOVE 1000 TO BASIC-PAY. MOVE 250 TO ALLOWENCES. DISPLAY GROSS-PAY. STOP RUN. 77 W-A PIC 9(3)V99 VALUE 23.75 77 W-B PIC ZZ9V99 VLAUE 123.45 after the statement MOVE W-A TO W-B what will be W-B's value? a.123.75 b.b23.75 (where b indicates space) c.023.75 d.invalid move

850


Many jcl statements contain specific values designed to direct and control the execution of the statement. What are these fields called?

716


how would you create a temporary dataset? And where will you use them?

763


which utility is used a dummy utility?

785


What parameter directs the output of the job log dataset?

763


Is their any limit for data sets?

699


when can a job time-out occur? How to overcome that?

748


Step 1 RC 4 Step 2 Step 3 I want to know the COND parameter which can be coded in step 2 or 3. Step 2 should be executed based on Step 1 RC and Step 3 should not be executed based on step 1's RC

503