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

ravven16 · New User Joined: 22 Aug 2006 Posts: 16

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

priyesh.agrawal · Posted: Wed Aug 30, 2006 4:13 am

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.

ravven16 · New User Joined: 22 Aug 2006 Posts: 16

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