I ned a help in a SORT. Consider the input like this:
Code: Select all
XX 100
XX 140
YY 500
YY 50
YY 50
Code: Select all
XX 240
YY 600
Code: Select all
XX 240 2
YY 600 3
Code: Select all
XX 100
XX 140
YY 500
YY 50
YY 50
Code: Select all
XX 240
YY 600
Code: Select all
XX 240 2
YY 600 3
Code: Select all
OPTION COPY
OUTFIL REMOVECC,NODETAIL,
SECTIONS=(1,2,
TRAILER3=(1,2,X,TOT=(4,3,ZD,TO=ZD,LENGTH=3),X,COUNT=(EDIT=(IT))))
Code: Select all
//SYSIN DD *
OPTION COPY
INREC OVERLAY=(4:4,3,SQZ=(SHIFT=RIGHT))
OUTFIL REMOVECC,NODETAIL,
SECTIONS=(1,2,
TRAILER3=(1,2,X,TOT=(4,3,ZD,TO=ZD,LENGTH=4),X,COUNT=(EDIT=(IT))))
/*
You need to be a member in order to post a reply
Not a member? register to join our community
Members can start their own topics & subscribe to topics
It’s free and only takes a minute