thanks all of you.
it works well right now. but there is
a little bit problem. my input record is VB. althougn I
got the output dataset. but the header record is
extended to 2004. Could you tell me how to keep the same
size as before sorting for the header record. thanks.
026900 //SYSIN DD *
026910 INREC IFTHEN=(WHEN=(6,5,ZD,EQ,12251),
027000 SORT FIELDS=(40,10,CH,A,
027210 //* SKIPREC=1