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: 290
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: 290
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: 290
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: 290
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 Check if any Detail records and extra... V S Amarendra Reddy SYNCSORT 19 Mon May 08, 2017 8:54 pm
No new posts Join giving more records than expected Danielle.Filteau SYNCSORT 2 Thu Mar 09, 2017 3:28 am
No new posts TSO or command line utility to genera... kishpra JCL & VSAM 3 Thu Mar 09, 2017 1:11 am
No new posts Extract set of records matching on ac... bhaskar_kanteti DFSORT/ICETOOL 3 Mon Mar 06, 2017 7:19 am
No new posts Inserting records based on conditions vickey_dw DFSORT/ICETOOL 9 Wed Feb 22, 2017 1:33 pm


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