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
 

 

Can we use If ELSE condition in syncsort for symbolic param?

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

New User


Joined: 22 Aug 2006
Posts: 16

PostPosted: Tue Aug 29, 2006 7:56 pm    Post subject: Can we use If ELSE condition in syncsort for symbolic param?
Reply with quote

Hi,

I have one proc which uses symbolic parameters to create a dataset and it varies for different job. My requirement is to evaluate the symbolic parameter and perform
certain sorting operation depending on the symbolic parameter passed to the proc.

Is it possible to do this in sync-sort using IF ELSE condition, if it is not possible please provide me with alternate solution. Eagerly waiting for your reply.

Regards

Ravi venkatesh icon_sad.gif
Back to top
View user's profile Send private message

priyesh.agrawal

Senior Member


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

PostPosted: Wed Aug 30, 2006 4:13 am    Post subject: Re: Can we use If ELSE condition in syncsort for symbolic pa
Reply with quote

SYNCSORT doesn't support IF-THEN so you would probably want to explain what you want to do in those sorting operation based on symbolic parameter.
Back to top
View user's profile Send private message
ravven16

New User


Joined: 22 Aug 2006
Posts: 16

PostPosted: Wed Aug 30, 2006 12:19 pm    Post subject: Re: Can we use If ELSE condition in syncsort for symbolic pa
Reply with quote

Hi Priyesh,

I have one proc called by RGSPOOL which is called by multiple JCLs. The only difference I can see is that they are called using different parameter JOB parameter.

RGSPOOL EXEC RGSPOOL,JOB='RG02'
RGSPOOL EXEC RGSPOOL,JOB='RG01'

My requirement is to omit certain records from the input file when the value for the job parameter is 'RG02'.

I have given the sort card and the proc below for your reference


//RGSPOOL PROC CTL='P',
// LOC='NE',
// SYS='RG',
// JOB='',
// SPC01='1000'
//*
//RGSPOOL3 EXEC PGM=SYNCSORT
//*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=N,FREE=CLOSE
//USERLIB DD DSN=P.SORTLIB,DISP=SHR
//SORTWK01 DD UNIT=DISK,SPACE=(TRK,&SPC01)
//SORTWK02 DD UNIT=DISK,SPACE=(TRK,&SPC01)
//SORTWK03 DD UNIT=DISK,SPACE=(TRK,&SPC01)
//SORTIN DD DSN=&&PSPL,DISP=(OLD,DELETE)
//SORTOF1 DD DSN=SE.&SYS..&JOB.PSPL.@@@@@@@@.@@@@@@@@,
// DISP=(NEW,CATLG,DELETE),UNIT=(DISK,5),VOL=(,,,5)
// SPACE=(TRK,(&SPC01,&SPC01),RLSE),
// DATACLAS=SEQFB,LRECL=140
//SORTOF2 DD DSN=SE.&SYS..&JOB.PVAL.@@@@@@@@.@@@@@@@@,
// DISP=(NEW,CATLG,DELETE),UNIT=(DISK,5),VOL=(,,,5)
// SPACE=(TRK,(&SPC01,&SPC01),RLSE),
// DATACLAS=SEQFB,LRECL=140
//*
//SYSIN DD DSN=&CTL..CTLCARDS(RGSPOOL),DISP=SHR
//*

The sort card RGSPOOL has the following ststements

SORT FIELDS=COPY
OUTFIL FILES=1,
OUTREC=(1,140)
OUTFIL FILES=2,
OUTREC=(1,140)
END

your help is much appreciated.

Regards
Ravi venkatesh KP
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 Joinkeys with condition scdinesh DFSORT/ICETOOL 10 Tue Feb 14, 2017 12:20 am
No new posts SYNCSORT SEQNUM and FI fields. nartcr SYNCSORT 7 Sat Jan 21, 2017 4:02 am
No new posts Syncsort Help to group fields sudhakarraju SYNCSORT 6 Thu Dec 29, 2016 1:38 am
No new posts syncsort: copy lines after the keyword shreya19 SYNCSORT 7 Fri Dec 02, 2016 9:47 am
No new posts Syncsort - Hard coded Value in output PORYES SYNCSORT 1 Thu Nov 03, 2016 9:23 am


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