View previous topic :: View next topic
Author
Message
Anand Kumar New User Joined: 29 Aug 2007Posts: 24 Location: chennai
Hi,
When we give a proc inp member, does it require to give a space in the procinput
Ex:-
Code:
//S020 EXEC PGM=SORT
//SYSOUT DD SYSOUT=(,)
//SORTIN DD DSN=EXAMPLE.U.MJYI(RE251S),DISP=SHR
//SORTOUT DD DSN=EXAMPLE.RE251.U.MJYI.SRT,DISP=SHR
//SYSIN DD DSN=EXAMPLE.WERK.U.PROCINP(AM251),DISP=SHR
IN AM251 the sort card present is:-
Code:
OPTION COPY
INREC IFTHEN=(WHEN=(1,1,CH,EQ,C'2'),
OVERLAY=(1:C'1',21:C'N',22:C'N',23:C'1')),
IFTHEN=(WHEN=(1,1,CH,EQ,C'0'),
BUILD=(1:5,58)),
IFTHEN=(WHEN=(1,1,CH,EQ,C'9'),
BUILD=(1:5,58))
END
Since the OPTION COPY is starting from position 1 I get some error. Also i wanted to know whether the OVERLAY used here is correct.
Please help me for the same!!
Regards,
Anand
Back to top
CICS Guy Senior Member Joined: 18 Jul 2007Posts: 2146 Location: At my coffee table
Quote:
Since the OPTION COPY is starting from position 1 I get some error.
Always....
Back to top
dick scherrer Moderator Emeritus Joined: 23 Nov 2006Posts: 19244 Location: Inside the Matrix
Hello Anand and welcome to the forum,
No sort control statement should begin in col 1.
Does your system use DFSORT or Syncsort? I'll move your topic to a better part of the forum once we know which product you use.
Back to top
Anand Kumar New User Joined: 29 Aug 2007Posts: 24 Location: chennai
Hi Dick,
Thank you very much.
The system uses DFSORT
Regards,
Anand
Back to top
dick scherrer Moderator Emeritus Joined: 23 Nov 2006Posts: 19244 Location: Inside the Matrix
Hi Anand,
You're welcome - your topic has been moved
d
Back to top
Frank Yaeger DFSORT Developer Joined: 15 Feb 2005Posts: 7129 Location: San Jose, CA
Anand,
Regardless of the source of DFSORT control statements, you must have at least one blank before the verb (e.g. OPTION, SORT).
Quote:
Also i wanted to know whether the OVERLAY used here is correct.
Well, the syntax is valid. Whether it does what you want depends on what you're trying to do. Note that the following simplified version would be equivalent to what you've coded:
Code:
OVERLAY=(1:C'1',21:C'NN1')),
Back to top
Craq Giegerich Senior Member Joined: 19 May 2007Posts: 1512 Location: Virginia, USA
Anand Kumar wrote:
Hi,
When we give a proc inp member, does it require to give a space in the procinput
Ex:-
Code:
//S020 EXEC PGM=SORT
//SYSOUT DD SYSOUT=(,)
//SORTIN DD DSN=EXAMPLE.U.MJYI(RE251S),DISP=SHR
//SORTOUT DD DSN=EXAMPLE.RE251.U.MJYI.SRT,DISP=SHR
//SYSIN DD DSN=EXAMPLE.WERK.U.PROCINP(AM251),DISP=SHR
IN AM251 the sort card present is:-
Code:
OPTION COPY
INREC IFTHEN=(WHEN=(1,1,CH,EQ,C'2'),
OVERLAY=(1:C'1',21:C'N',22:C'N',23:C'1')),
IFTHEN=(WHEN=(1,1,CH,EQ,C'0'),
BUILD=(1:5,58)),
IFTHEN=(WHEN=(1,1,CH,EQ,C'9'),
BUILD=(1:5,58))
END
Since the OPTION COPY is starting from position 1 I get some error. Also i wanted to know whether the OVERLAY used here is correct.
Please help me for the same!!
Regards,
Anand
Why not just edit "EXAMPLE.WERK.U.PROCINP(AM251)" and correct it?
Back to top
Please enable JavaScript!