Dynamically changing the Sort Card contents..???

[Bandi2000]

Hi Cobol Gurus,

I want to dynamically change the contents of the sort card periodically. How can we do that..?? can we pass that as a parm from JCL???

Here is what I am doing. I am using ICETOOL to sort a file and created two files.

//STEP020A EXEC PGM=ICETOOL,REGION=0M,COND=(0,NE)
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SORTWK01 DD SPACE=(CYL,(100,50),RLSE),UNIT=WORK
//SORTWK02 DD SPACE=(CYL,(100,50),RLSE),UNIT=WORK
//SORTWK03 DD SPACE=(CYL,(100,50),RLSE),UNIT=WORK
//TOOLIN DD DSN=&PDS1..&PDS2..PARMLIB(SBIICR1),DISP=SHR
//OUT1CNTL DD DSN=&PDS1..&PDS2..PARMLIB(SBIICR2A),DISP=SHR
//OUT2CNTL DD DSN=&PDS1..&PDS2..PARMLIB(SBIICR3A),DISP=SHR
//IN1 DD DSN=NBCS.PROD.SBWK.G0306V00,DISP=SHR
//OUTFILE1 DD DSN=&SEQ..&ENVIRON..BIICR.SBWK.SUPL1,
// DISP=(,CATLG,DELETE),
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=27872),
// UNIT=CART,VOL=(,,,99),LABEL=EXPDT=99000
//OUTFILE2 DD DSN=&SEQ..&ENVIRON..BIICR.SBWK.NONSUPL1,
// DISP=(,CATLG,DELETE),
// DCB=(RECFM=FB,LRECL=98,BLKSIZE=27930),
// UNIT=CART,VOL=(,,,99),LABEL=EXPDT=99000


Here is the sort card

SORT FIELDS=COPY
INCLUDE COND=(68,8,CH,GE,C'20020501')
OUTREC FIELDS=(1214,9,1106,5,3,12,87,3,1134....

I want to dynamically change the Date in the Include condition every week during the execution.

pls help me out.

warm rgds,
Bandi.

 

[Truusvlugindewind]

Start your job with a little program which builds en writes the sort parameters as a 80 char. sequential dataset.
The sort step reads that dataset instead of DD *.

 

[Bandi2000]

Thankyou for the suggestion. I already had this alternative evalauated and tested. I need someother innovative soluation.

rgds,
Bandi

 

[Crox]

Hi,

What is the reason that you need an other innovative solution? Isn't COBOL good enough?

It is possible of course to use REXX to change the card for you.

If there is a sort solution for this - perhaps there is - Frank Yaeger at

http://MVSHELP.COM

knows how to do this.

His sort forum you can find at:

http://mvshelp.com/cgi-bin/ubbcgi/f...t,+Utilities&number=3&DaysPrune=30&LastLogin=

You can start with a search on that forum.

Regards,

Crox