Reg: Ifthen and Overlay

suganthyprabha · New User Joined: 28 Jul 2005 Posts: 58

Hi Friends,

The foll code is not working for me, i have found this code in Forums only. Please let me know the mistake i made.

This Code it to convert 0 to space in the first position.

//JO123 JOB (U,1212),'AAAA',CLASS=0,MSGCLASS=X,MSGLEVEL=(1,1),
// NOTIFY=&SYSUID
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
01
02
03
04
05
06
07
08
09
10
11
12
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTIONS COPY
INREC IFTHEN=(WHEN=(1,1,CH,EQ,C'0'),OVERLAY=(1:X))
/*

Thanks and Regards,
Prabha.

priyesh.agrawal · Posted: Fri Aug 26, 2005 5:09 pm

Hi suganthyprabha,

suganthyprabha · New User Joined: 28 Jul 2005 Posts: 58

Hi Priyesh,

Thanks for ur Quick reply.

But still i am getting the foll abend:

ADC1 - ABENDED S000 U0016

SYSIN :
OPTION COPY
INREC IFTHEN=(WHEN=(1,1,CH,EQ,C'0'),OVERLAY=(1:X))
*
WER268A INREC STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000

Please help me to recover this.

Thanks and Regards,
Suganthy.

priyesh.agrawal · Posted: Fri Aug 26, 2005 5:28 pm

Hi Prabha,

Putting error message earlier would have done the job better...

Well, These lines are the Key...

Frank Yaeger · Posted: Fri Aug 26, 2005 8:37 pm

Suganthy,

Priyesh is correct. The WER messages indicate you're using Syncsort, not DFSORT. IFTHEN and OVERLAY are exclusive functions of DFSORT. Syncsort does not support them.