MVSFORUMS.com

Fin · Beginner Joined: 19 Jan 2004 Posts: 27 Topics: 8

If I look at my NAMEOFINFILE I can see records with x'0008' from position 88 but when I run this SORT the OUTFILE is empty. I am puzzled, can anyone help?
(The item is defined as a PIC S9(4) COMP)

Thanks.

000009 //SYSOUT DD SYSOUT=*
000010 //SORTIN DD DSN=NAMEOFINFILE,
000011 // DISP=SHR
000012 //SORTOF01 DD DSN=NAMEOFOUTFILE,
000013 // UNIT=DASD,
000014 // SPACE=(CYL,(10,10),RLSE),
000015 // RETPD=10,
000016 // DCB=*.SORTIN,
000017 // DISP=(NEW,CATLG,CATLG)
000018 //SYSIN DD *
000019 SORT FIELDS=COPY
000020 OUTFIL FILES=01,INCLUDE=(88,2,BI,EQ,X'0008')
000021 /*

Jeba · Posted: Wed Nov 24, 2004 1:38 pm Post subject:

Fin,

Please make sure whether your input file has records with X'0008' in the 88th position.

I tried the same and it worked for me. Use HEX ON command in the input dataset and then see whether you really have X'0008' in 88th position.

Since the item is defined with S9(04) COMP, it might be having some other value.
_________________
Thanks,
Jeba
(Known is a drop Unknown is an ocean)

kolusu · Posted: Wed Nov 24, 2004 2:04 pm Post subject:

Fin,

If your input file is of VB format then your actual position of data is at 92th byte( 88 + 4 bytes rdw)

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

Phantom · Posted: Thu Nov 25, 2004 12:50 am Post subject:

Fin,

One more thing. If your input file is of FBA, then the actual position of the data will be 89 (88 + 1 carriage control char).

Thanks,
Phantom

Fin · Beginner Joined: 19 Jan 2004 Posts: 27 Topics: 8

It was a VB file and so when I changed to position 92, I got my results - once again, thanks Kolusu.
It had me because when I looked at it in Fileaid it appeared as if it was in 88.