I have this input QSAM for SORTIN DD.
ACCTOUNT 00002001 0000000001
BALL 99000001ABCDEFGHIJKLMN
BALL 99000002AABBCCDDEEFFGG
BALL 99000001ABCDEFGHIJKLMN
BALL 99000002AABBCCDDEEFFGG
I want to extract records they have ACCOUNT and BALL. But only 13 character of records which contain BALL like below:
ACCTOUNT 00002001 0000000001
BALL 99000001
BALL 99000002
BALL 99000001
BALL 99000002
What is the control statement for this?