Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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 sort records based on length exceeds ... maxsubrat DFSORT/ICETOOL 7 Wed Oct 04, 2017 4:48 pm
No new posts Addition of two records on 2 fields amar143 SYNCSORT 8 Tue Oct 03, 2017 11:14 am
No new posts Join records from 2 files with No Dup... Poha Eater DFSORT/ICETOOL 22 Sun Aug 27, 2017 10:35 pm
No new posts editting the file by inserting zeros ... pramodrsingh DFSORT/ICETOOL 9 Mon Aug 21, 2017 5:58 pm
No new posts Check if any Detail records and extra... V S Amarendra Reddy SYNCSORT 19 Mon May 08, 2017 8:54 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us