IBM Mainframe Forum

Hi,

I am facing an issue with unpacking PD fields of a VB file .can you please help me. Your help is appreciated.

I am getting the follwoing error

OUTREC RDW NOT INCLUDED

below is the jcl
-----------------
//STEP01 EXEC PGM=SORT
//SORTIN DD DSN=TEST.SORTED, VB file with 462 length(458+4)
// DISP=SHR
//SORTOUT DD DSN=TEST.SORTED.UNPK,
// DISP=(,CATLG,DELETE),UNIT=(TSODSK,15),
// SPACE=(CYL,(150,100),RLSE),
// DCB=(RECFM=VB,LRECL=479)
//SYSIN DD *
SORT FIELDS=COPY
OUTREC FIELDS=(5:5,3,PD,EDIT=(TTTTT),
10:8,3,PD,EDIT=(TTTTT),
15:11,2,
17:13,2,PD,EDIT=(TTT),
20:15,2,PD,EDIT=(TTT),
23:17,2,
25:19,5,
30:24,2,
32:26,3,
35:29,10,
45:39,5,PD,EDIT=(STTTTTTT.TT),SIGNS=(+,-),
56:44,419)
/*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
**************************** Bottom of Data ****************************

You must always specify the RDW with BUILD/FIELDS for a variable-length record file. This comes from the input record, and DFSORT then amends to the correct value as per the size of the output record.



I'm not personally keen on columns for BUILD/FIELDS when data is consecutive. Just creates a maintenance headache when one of the early ones changes.

Thanks for you reply, getting syntax error. I did not see any mistake in this.Can some body help me.

It should be ...

I have "code'd" your post to preserve the spacing. If you want to see how, click on Quote. Note that the Code button will put the tags around an area that you highlight with the cursor.

You have Syncsort, indicated by the WER message. Your topic will be moved to that part of the forum shortly.

you are right !, I am using sync sort. I have tried as adviced above.
still facing the same error :
WER235A OUTREC RDW NOT INCLUDED


SORT FIELDS=COPY
OUTREC FIELDS=(1:4,4,
5:5,3,PD,EDIT=(TTTTT),
10:8,3,PD,EDIT=(TTTTT),
15:11,2,
17:13,2,PD,EDIT=(TTT),
20:15,2,PD,EDIT=(TTT),
23:17,2,
25:19,5,
30:24,2,
32:26,3,
35:29,10,
45:39,5,PD,EDIT=(STTTTTTT.TT),SIGNS=(+,-),
56:44,419)
WER276B SYSDIAG= 4192067, 5641935, 5641935, 5640375
WER164B 8,876K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 12K BYTES RESERVE REQUESTED, 1,004K BYTES USED
WER146B 20K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I SORTIN : RECFM=VB ; LRECL= 462; BLKSIZE= 27998
WER235A OUTREC RDW NOT INCLUDED
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE

I am sorry, it was a typo by me.corrected at

SORT FIELDS=COPY
OUTREC FIELDS=(1:1,4,
...
...)

Facing the following error. I have given 474+4 as LRECL but still..

WER108I SORTIN : RECFM=VB ; LRECL= 462; BLKSIZE= 27998
WER237I OUTREC RECORD LENGTH = 474
WER110I SORTOUT : RECFM=VB ; LRECL= 478; BLKSIZE= 27998
WER462I OUTPUT LRECL DIFFERS FROM SORTOUT LRECL
WER410B 7,848K BYTES OF VIRTUAL STORAGE AVAILABLE ABOVE THE 16MEG LINE,
WER410B 0 BYTES RESERVE REQUESTED, 2,264K BYTES USED
WER244A OUTREC - SHORT RECORD

what is that You do not understand about using the bbcode tags

plain

bb code was correct. now facing different issue with length.

56+419 = 474 being VB I have given LRECL as 474+4 = 478 , getting following error <"WER462I OUTPUT LRECL DIFFERS FROM SORTOUT LRECL">

I have again Code'd your post.

"bbcode" is not in any way related to me, it is the name for "marking up" a piece of text to appear on a "bulletin board".

As enrico has already tried to show you:

what is that You do not understand about using the bbcode tags

This is plain with no bbcode tags to preserve formatting through the use of a fixed-font



Please click on Quote to see how it is done and try to use it in the future. It makes your posts much more readable, and therefore much more likely to get a correct answer. It also shows you are at least putting some effort into into, not just dumping a mess and leaving someone else to sort everything out.

In Sorts, you specify each field position as already including the RDW. If you add four for the RDW you will be "out" by four bytes. It is also best to leave DCB info off your dataset and let Sort put there what it is actually using.