How to sort variable length format files using SORT card

sridevi2005 · New User Joined: 15 Sep 2005 Posts: 42

I'm struggling with SORT card to sort the variable length format.

I used the following code

Aaru · Posted: Tue Oct 23, 2007 10:26 am

Sridevi,

In a VB file the first 4 bytes are for RDW (which have the length of the record ans zeroes). You need to add four bytes in all the sort conditions.

If your field starts from position 1 of length 2- code 5,2

Code and post the error if you still face the problem

sridevi2005 · New User Joined: 15 Sep 2005 Posts: 42

Hi,

Thank u very much for the reply.

I have used the following code its working fine.

//STEP1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=SAB67D.G4662V00.TEST,DISP=SHR
//SORTOUT DD DSN=DFG37D.DFG0GF.TEST,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(10,10),RLSE),
// DCB=*.SORTIN
//SYSIN DD *
OPTION VLSHRT
SORT FIELDS=COPY
INCLUDE COND=(89,1,CH,EQ,C'Y',AND,5,3,ZD,EQ,120)

But When I tried the following code its giving error.

//STEP1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=SAB67D.G4662V00.TEST,DISP=SHR
//SORTOUT DD DSN=DFG37D.DFG0GF.TEST,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(TRK,(10,10),RLSE),
// RECFM=FB,LRECL=10,DSORG=PS
//SYSIN DD *
OPTION VLSHRT
SORT FIELDS=COPY
INCLUDE COND=(89,1,CH,EQ,C'Y',AND,5,3,ZD,EQ,120)
OUTREC FIELDS=(8,2)

Can u look into this.

Thanks in advance.

Sridevi

Aaru · Posted: Tue Oct 23, 2007 11:04 am

Please Post the error message that you are getting

Aaru · Posted: Tue Oct 23, 2007 11:09 am

Srideivi,

Replace your last statement in the SORT card with the one given below

sridevi2005 · New User Joined: 15 Sep 2005 Posts: 42

Hi,

I'm getting the following error.

WER146B 20K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I SORTIN : RECFM=VB ; LRECL= 288; BLKSIZE= 27998
WER235A OUTREC RDW NOT INCLUDED
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE

Aaru · Posted: Tue Oct 23, 2007 11:14 am

Sridevi,

Change the last statement as per my last post.

Whenever you use BUILD parameter for VB datasets, you must begin your INREC/OUTREC statement fields by specifying 1,4 for RDW.

sridevi2005 · New User Joined: 15 Sep 2005 Posts: 42

Wow......

Its working fine.

Thank u very much for your support.

Aaru · Posted: Tue Oct 23, 2007 12:03 pm

You are welcome

jmreddymca · New User Joined: 14 Oct 2007 Posts: 29 Location: Bangalore

Hi sridevi

we can do in this way also it will work fine.

//SYSIN DD *
SORT FIELDS=COPY
OUTREC FIELDS=(1:5,150),VTOF
/*

my i/p file length hs 255
i copied this into fb length of 150 .
you can try.