MVSFORUMS.com

mainframemouli · Beginner Joined: 23 Feb 2005 Posts: 87 Topics: 33

I searched this site and tried to use this Jcl given below

Phantom · Posted: Fri Sep 09, 2005 12:30 am Post subject:

mainframemouli,

I really wonder how you got "19,80" in your sysout while your job says "19,236".

I think there are two errors in your code.
1. You need to leave the First Column as Blank in your SYSIN card.
2. You cannot have 19,80 alone in one line and ")" in another line. They should be in the same line.

Try these things and if you still get an error, post your correct JCL & the error message.

Thanks,
Phantom

ANIL SARATHY · Posted: Fri Sep 09, 2005 12:36 am Post subject:

TRY OUT WITH POSITIONS

Phantom · Posted: Fri Sep 09, 2005 1:05 am Post subject:

Anil,

Positions are not a problem in this case. Col 13 + 6 Chars ends in Col 18, so by default 19,236 will start at Col 19 in the output also. If it really were a problem with positions then the error message would be "OUTREC HAS OVERLAPPING COLUMNS SPECIFIED"

Thanks,
Phantom

mainframemouli · Beginner Joined: 23 Feb 2005 Posts: 87 Topics: 33

As anil said i made the changes still it gives the error
Note : My Record LRECL is 80.

ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE000I 1 - CONTROL STATEMENTS FOR 5740-SM1, DFSORT REL 14.0 - 05:48 ON FRI SEP
SORT FIELDS=COPY
OUTREC FIELDS=(1:1,12,
13:13,6,CHANGE=(6,C'000000',C'BBBBBB'),
NOMATCH=(13,6),
19:19,80)
ICE201I 0 RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE027A 6 END OF FIELD BEYOND MAXIMUM RECORD LENGTH
ICE052I 3 END OF DFSORT

-------------------------------

And as phantom said the Jcl is exceuted still i am getting the error
ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE000I 1 - CONTROL STATEMENTS FOR 5740-SM1, DFSORT REL 14.0 - 05:46 ON FRI SEP
SORT FIELDS=COPY
OUTREC FIELDS=(1,12,
13,6,CHANGE=(6,C'BBBBBB',C'AAAAAA'),NOMATCH=(13,6),
19,80)
ICE201I 0 RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE027A 6 END OF FIELD BEYOND MAXIMUM RECORD LENGTH
ICE052I 3 END OF DFSORT

-----------------------

heres my Jcl.
//STEP0200 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=XT2.SMS.PAY.BATCH.SRC(SAMPLE1),DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTREC FIELDS=(1:1,12,
13:13,6,CHANGE=(6,C'000000',C'BBBBBB'),
NOMATCH=(13,6),
19:19,80)
/*
//

Input file i have given already...

mainframemouli · Beginner Joined: 23 Feb 2005 Posts: 87 Topics: 33

sorry it should be
CHANGE=(6,C'BBBBBB',C'000000')
for this one also i am getting the same abend...

kolusu · Posted: Fri Sep 09, 2005 6:28 am Post subject:

mainframemouli · Beginner Joined: 23 Feb 2005 Posts: 87 Topics: 33

Thanks Kolusu , i really misunderstood the concept of
OUTREC FIELDS = ( p , l )

Now My job ran fine.

Suppose the same thing has to be done for VB file means what i have to do??
My VB LRECL is 850.

kolusu · Posted: Fri Sep 09, 2005 8:28 am Post subject:

Frank Yaeger · Posted: Fri Sep 09, 2005 9:47 am Post subject:

mainframemouli,

Well, I see all of your questions were answered before I even got to work. Smile

Since you seem to be unfamiliar with DFSORT syntax, I'd suggest reading through "z/OS DFSORT: Getting Started". It's an excellent tutorial, with lots of examples, that will show you how to use DFSORT, DFSORT's ICETOOL and DFSORT Symbols. You can access it online, along with all of the other DFSORT books, from:

www.ibm.com/servers/storage/support/software/sort/mvs/srtmpub.html

At that same link, you'll find "z/OS DFSORT Messages, Codes and Diagnosis Guide" where you can look up any DFSORT error message (ICExxxA) you get which may help you diagnose and fix errors yourself, and "z/OS DFSORT Application Programming Guide" which has the complete syntax for all of the DFSORT and ICETOOL statements and parameters.

Phantom wrote

mainframemouli · Beginner Joined: 23 Feb 2005 Posts: 87 Topics: 33

Thanks Frank and Kolusu,
I downloaded all the files for DFSORT as mentioned by Frank....