Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Get The Records That ends with Zeros Through JCL

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
ramankapoor

New User


Joined: 27 Feb 2006
Posts: 23
Location: delhi

PostPosted: Tue Mar 14, 2006 4:19 pm    Post subject: Get The Records That ends with Zeros Through JCL
Reply with quote

I AM HAVING 16 RECORDs AS FIRST FOUR COLUMNS.

NOW THE REQUIRMENT IS I WANT ONLY THE RECORD ENDS WITH '0' IN OUTFILE.

PLEASE GIVE ME THE SOLUTION .

The Code i m writing is :
Code:

//STEP0010   EXEC PGM=SORT                   
//SORTIN     DD DSN=APASPUB.SORT.PS7,DISP=SHR
//SORTOUT    DD DSN=APASPUB.SORT.PS8,         
//           DISP=(NEW,CATLG,CATLG),         
//           SPACE=(CYL,(1,1),RLSE),         
//           DCB=(LRECL=80,BLKSIZE=0,RECFM=FB)
//SYSIN      DD *                             
             SORT FIELDS=(1,4,CH,A)           
             OUTFIL FILES=01                 
             INCLUDE COND=(4,1,CH,EQ,'0')     
//SYSOUT     DD SYSOUT=*                     
//                                           


The Data in input file for 1st four column is :


0001
0010
4444
0030
0040
7777
0060
0070
6666
0090
0100
0200
0300
0400
8888
9999


i am getting abend in this :

Abend Log is :

USER COMPLETION CODE=0113
TIME=02.41.51 SEQ=04883 CPU=0000 ASID=00AB
PSW AT TIME OF ERROR 078D1000 00ED7F48 ILC 2 INTC 0D
NO ACTIVE MODULE FOUND
NAME=UNKNOWN
DATA AT PSW 00ED7F42 - 41A0C458 0A0D9602 D3CD9180
AR/GR 0: 80C36B3E/00000000 1: 00000000/80000071
2: 00000000/00000071 3: 00000000/00ED7EF2
4: 00000000/00000050 5: 00000000/000063D7
6: 00000000/00008A08 7: 00000000/40EDAFBC
8: 00000000/00ED8B00 9: 00000000/40EDB270
A: 00000000/00ED7F58 B: 00000000/00ED6B00
C: 00000000/00ED7B00 D: 00000000/00007000
E: 809FA03C/00ED7EF0 F: 809FA020/00000010
END OF SYMPTOM DUMP


1 - CONTROL STATEMENTS FOR 5740-SM1, DFSORT REL 14.0
SORT FIELDS=(1,4,CH,A)
OUTFIL FILES=01
INCLUDE COND=(4,1,CH,EQ,'0')
$
E COMPARISON FIELD ERROR
9 SORTOF01 NOT DEFINED
3 END OF DFSORT

Please Clarify where i am mistaking ??
Back to top
View user's profile Send private message

martin9

Active User


Joined: 01 Mar 2006
Posts: 287
Location: Basel, Switzerland

PostPosted: Tue Mar 14, 2006 4:23 pm    Post subject:
Reply with quote

hy ramankapoor,

as you see in your joblog,
you did not define a sortof01 dd (OUTFIL FILES=01).
--> OUTFIL FILES=xx --> SORTOFxx DD...
change the sortout dd in sortof01 dd and
it will work properly...

martin9
Back to top
View user's profile Send private message
martin9

Active User


Joined: 01 Mar 2006
Posts: 287
Location: Basel, Switzerland

PostPosted: Tue Mar 14, 2006 4:27 pm    Post subject:
Reply with quote

hy ramakapoor,

i just forgot...
the INCLUDE should be
INCLUDE COND=(4,1,CH,EQ,C'0'),
it is a charcter constant in the form C'anystring'

martin9
Back to top
View user's profile Send private message
ramankapoor

New User


Joined: 27 Feb 2006
Posts: 23
Location: delhi

PostPosted: Tue Mar 14, 2006 4:31 pm    Post subject:
Reply with quote

Yes , Its Done ..
Thanks a lot for the Quick Reply.
Back to top
View user's profile Send private message
fixdoubts

New User


Joined: 21 Oct 2005
Posts: 54

PostPosted: Tue Mar 14, 2006 4:37 pm    Post subject:
Reply with quote

Hi,

Apart from what martin suggested i would suggest use the following SYSIN


Code:
//SYSIN      DD *         
  SORT FIELDS=(1,4,CH,A)   
  OUTFIL FILES=01,         
  INCLUDE=(4,1,CH,EQ,C'0')


Instead of the one u have given above.

Regards,
Back to top
View user's profile Send private message
martin9

Active User


Joined: 01 Mar 2006
Posts: 287
Location: Basel, Switzerland

PostPosted: Tue Mar 14, 2006 4:38 pm    Post subject:
Reply with quote

hy ramankapoor,

no problem,
i just like supporting people.

in this forum i meet many indian guys,
what i like, 'cause i'm somehow indian related...

have a good time...

martin9
Back to top
View user's profile Send private message
ramankapoor

New User


Joined: 27 Feb 2006
Posts: 23
Location: delhi

PostPosted: Tue Mar 14, 2006 4:41 pm    Post subject:
Reply with quote

Can u Pls tell Me How u manage to debug these problems so quicly.

Pls give me some tips so that i can imrove upon myself in this technique.

Thanks...
Back to top
View user's profile Send private message
martin9

Active User


Joined: 01 Mar 2006
Posts: 287
Location: Basel, Switzerland

PostPosted: Tue Mar 14, 2006 4:46 pm    Post subject:
Reply with quote

hy ramankapoor,

ok,

E COMPARISON FIELD ERROR
9 SORTOF01 NOT DEFINED

this is why.
i just looked at the error messages, ok.

so for any problem/question you give to this forum
provide always the error codes, joblogs and so on...

martin9
Back to top
View user's profile Send private message
ramankapoor

New User


Joined: 27 Feb 2006
Posts: 23
Location: delhi

PostPosted: Tue Mar 14, 2006 4:52 pm    Post subject:
Reply with quote

Ok .

Now i ll try to concentrate on to the what the main problem exactly in future.

Realy Thnks a lot to u..
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Removing Duplicates based on certain ... chandracdac DFSORT/ICETOOL 8 Fri Dec 09, 2016 4:40 am
No new posts Limit duplicate records in the SORT pshongal SYNCSORT 6 Mon Nov 21, 2016 12:54 pm
No new posts How to split the records using the am... vnktrrd DFSORT/ICETOOL 24 Fri Oct 28, 2016 7:33 pm
No new posts Sort records based on numeric field. Alks SYNCSORT 2 Wed Oct 19, 2016 10:14 pm
No new posts abend sort based on count records in ... anatol DFSORT/ICETOOL 5 Mon Oct 17, 2016 10:10 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us