Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Reg: Ifthen and Overlay

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
suganthyprabha

New User


Joined: 28 Jul 2005
Posts: 58

PostPosted: Fri Aug 26, 2005 4:46 pm    Post subject: Reg: Ifthen and Overlay
Reply with quote

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.
Back to top
View user's profile Send private message

priyesh.agrawal

Senior Member


Joined: 28 Mar 2005
Posts: 1452
Location: Chicago, IL

PostPosted: Fri Aug 26, 2005 5:09 pm    Post subject: Re: Reg: Ifthen and Overlay
Reply with quote

Hi suganthyprabha,

Quote:
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTIONS COPY
INREC IFTHEN=(WHEN=(1,1,CH,EQ,C'0'),OVERLAY=(1:X))
/*


//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=(1,1,CH,EQ,C'0'),OVERLAY=(1:X))
/*

Those lines should not start at column number 1. And OPTIONS is incorrect.

Regards,

Priyesh.
Back to top
View user's profile Send private message
suganthyprabha

New User


Joined: 28 Jul 2005
Posts: 58

PostPosted: Fri Aug 26, 2005 5:18 pm    Post subject: Re: Reg: Ifthen and Overlay
Reply with quote

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.
Back to top
View user's profile Send private message
priyesh.agrawal

Senior Member


Joined: 28 Mar 2005
Posts: 1452
Location: Chicago, IL

PostPosted: Fri Aug 26, 2005 5:28 pm    Post subject: Re: Reg: Ifthen and Overlay
Reply with quote

Hi Prabha,

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

Well, These lines are the Key...

Quote:
WER268A INREC STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000


SYNCSORT doesn't support IF THEN Feature....

Regards,

Priyesh.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Fri Aug 26, 2005 8:37 pm    Post subject:
Reply with quote

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.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Need Help with : IFTHEN(WHEN=GROUP) Sumanta_89 DFSORT/ICETOOL 1 Wed Apr 19, 2017 5:23 pm
No new posts Overlay the system date Danielle.Filteau SYNCSORT 4 Fri Mar 03, 2017 1:16 am
No new posts Overlay with right shift Bill Woodger DFSORT/ICETOOL 3 Thu Jan 28, 2016 7:49 pm
No new posts Overlay with WHEN=Group not working krsenthil85 DFSORT/ICETOOL 7 Wed Oct 21, 2015 4:00 am
No new posts IFTHEN to reformat the matching and n... maki_psg SYNCSORT 6 Fri Sep 25, 2015 2:53 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us