Deepakgoyal2005
New User
Joined: 22 Mar 2007 Posts: 57 Location: India
|
|
|
|
I need to modify the input file for selected records. I tried using OUTREC but its not working.
JCL:
Code: |
//STEP001 EXEC PGM=SORT
//SORTIN DD *
A12
A34
A56
B78
B90
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTREC IFTHEN=(WHEN=(1,1,EQ,C'A'),BUILD=(1:1,1,2:3,1,3:2,1))
/*
|
Logic: If the 1st character is 'A', exchange 2nd and 3rd character of the records. Else, copy the record as is.
Expected Output:
Code: |
A21
A43
A65
B78
B90
|
Error received:
Code: |
SYSIN :
SORT FIELDS=COPY
OUTREC IFTHEN=(WHEN=(1,1,EQ,C'A'),BUILD=(1:1,1,2:3,1,3:2,1))
*
WER251A INCLUDE/OMIT INVALID FORMAT
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
|
|
|