IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How to remove '/'from date field & insert zero b4 rec co


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Satyajit

New User


Joined: 25 Jan 2006
Posts: 27

PostPosted: Sun Mar 05, 2006 5:08 pm
Reply with quote

Hi
I am getting the report as below,however I want to remove '/' from the date field in header1 line ( 03/05/06 -> 030506) and the record count to 00000011 instead of only 11 in trailer1 line.
I've used
OUTFIL REMOVECC,HEADER1=(6:&DATE,5X),TRAILER1=(6:COUNT)
in the JCL What change should I do there?

Code:

     03/05/06     
153S04922006022C680
153S04932006022C681
153S04942006022C682
153S04952006022C683
153S04962006022C684
153S04972006022C685
153S04982006022C686
153S04992006022C687
153S05002006022C688
153S05012006022C689
153S05022006022C690
           11
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Sun Mar 05, 2006 9:41 pm
Reply with quote

You can use a DFSORT control statement like this to do what you asked for:

Code:

 OUTFIL REMOVECC,                                   
    HEADER1=(6:DATENS=(MDY)),                       
    TRAILER1=(6:COUNT=(M11,LENGTH=8))               


SORTOUT will have:

Code:

     030506     
RECORD 1       
RECORD 2       
RECORD 3       
RECORD 4       
RECORD 5       
RECORD 6       
RECORD 7       
RECORD 8       
RECORD 9       
RECORD 10       
RECORD 11       
     00000011   
Back to top
View user's profile Send private message
Satyajit

New User


Joined: 25 Jan 2006
Posts: 27

PostPosted: Mon Mar 06, 2006 11:15 am
Reply with quote

hey ... i am trying this but getting the abend like this see below...
(its saying that there is syntax error)

OUTFIL REMOVECC,
HEADER1=(6:DATENS,5X),
TRAILER1=(6:COUNT=(M11,LENGTH=8))
*
268A OUTFIL STATEMENT : SYNTAX ERROR
Back to top
View user's profile Send private message
Satyajit

New User


Joined: 25 Jan 2006
Posts: 27

PostPosted: Mon Mar 06, 2006 11:23 am
Reply with quote

SORT FIELDS=COPY
OPTION COPY,SKIPREC=4
OUTREC FIELDS=(1:9,8,9:26,8,17:43,3)
OUTFIL REMOVECC,
HEADER1=(6:DATENS,5X),
TRAILER1=(6:COUNT=(M11,LENGTH=8))
*
WER268A OUTFIL STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
Back to top
View user's profile Send private message
sril.krishy

Active User


Joined: 30 Jul 2005
Posts: 183
Location: hyderabad

PostPosted: Mon Mar 06, 2006 11:42 am
Reply with quote

Hi ,
The WER messages are of SYNCSORT not of DFSORT.It is true that the DFSORT is having more features than the SYNCSORT.Please check the corresponing SYNCSORT statements to get the resutls .


Thanks
Krishy
Back to top
View user's profile Send private message
Satyajit

New User


Joined: 25 Jan 2006
Posts: 27

PostPosted: Mon Mar 06, 2006 12:15 pm
Reply with quote

Hi Krishy

I am not getting you... I dont know much about syncsort.can you please explain me in detail. please explain me with an example.
Back to top
View user's profile Send private message
sril.krishy

Active User


Joined: 30 Jul 2005
Posts: 183
Location: hyderabad

PostPosted: Mon Mar 06, 2006 12:22 pm
Reply with quote

Hi,
What I beleive is ,your shop is having the product of SNCSORT not the DFSORT.
These 2 are diffrent products from diffrent companies.DFSORT is the product of IBM .
The messages that are shown by you in the above give the info that your shop is having SYNCSORT rather than DFSORT.

WER268A OUTFIL STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000

You can see the word 'SYNCSORT' in the above lines.You can search the forums for more info about these 2 products.

Thank you
Krishy
Back to top
View user's profile Send private message
Satyajit

New User


Joined: 25 Jan 2006
Posts: 27

PostPosted: Mon Mar 06, 2006 12:32 pm
Reply with quote

Thanks Krishy...
So can you please give me the solution to my original problem thru sync sort. i.e. I want leading zeros before the record count. What I mean is
record count in the trailer should be '00000011' instead of only '11' ; which I get by using count.
Back to top
View user's profile Send private message
sril.krishy

Active User


Joined: 30 Jul 2005
Posts: 183
Location: hyderabad

PostPosted: Mon Mar 06, 2006 12:36 pm
Reply with quote

Hi ,
Sorry to say this,,I am at home now(Not able to connect MF) and going to bed. I will try it tomorrow and get back to you.
Let's hope some body else might post the reply before me.

Have a good day.

Regards
Krishy
Back to top
View user's profile Send private message
Satyajit

New User


Joined: 25 Jan 2006
Posts: 27

PostPosted: Mon Mar 06, 2006 12:42 pm
Reply with quote

Thanks Krishy...

Good Night...
Back to top
View user's profile Send private message
Satyajit

New User


Joined: 25 Jan 2006
Posts: 27

PostPosted: Mon Mar 06, 2006 7:04 pm
Reply with quote

Hi ...
Can any one pls tell me why I am getting the syntax error below? (although I feel that there is no syntax error) and the possible solution.
Is it b'cos SYNCSORT , that I am using????
Moderator please help.

Satyajit wrote:


SORT FIELDS=COPY
OPTION COPY,SKIPREC=4
OUTREC FIELDS=(1:9,8,9:26,8,17:43,3)
OUTFIL REMOVECC,
HEADER1=(6:DATENS,5X),
TRAILER1=(6:COUNT=(M11,LENGTH=8))
*
WER268A OUTFIL STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Mon Mar 06, 2006 9:34 pm
Reply with quote

Other people have already explained the situation, but I'll explain it again.

The job works fine with DFSORT. But the WER messages indicate you're using Syncsort, not DFSORT. The Syncsort message tells you it does not support this syntax.

I'm a DFSORT developer. DFSORT and Syncsort are competitive products. I'm happy to answer questions on DFSORT and DFSORT's ICETOOL, but I don't answer questions on Syncsort.

If you or anyone else on this board would like some documents prepared by the DFSORT Team that describe what we see as the advantages of DFSORT over Syncsort, as well as considersations for migrating from Syncsort to DFSORT, send me an e-mail offline (yaeger@us.ibm.com). Please put "DFSORT" somewere in your Subject line to catch my attention.
Back to top
View user's profile Send private message
tksvv

New User


Joined: 17 Mar 2006
Posts: 6

PostPosted: Wed Mar 22, 2006 12:30 pm
Reply with quote

This is my first post and I am not an expert, but I do see from the quick reference that SYNCSORT supports REMOVECC but I do not see it in the DFSORT! Am i missing something?
Back to top
View user's profile Send private message
Vikas Jain

New User


Joined: 22 Mar 2006
Posts: 3
Location: Delhi

PostPosted: Wed Mar 22, 2006 6:03 pm
Reply with quote

can anybody explain about DFSORT and SYNCSORT products. What exactlay they r.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Wed Mar 22, 2006 9:28 pm
Reply with quote

Quote:
This is my first post and I am not an expert, but I do see from the quick reference that SYNCSORT supports REMOVECC but I do not see it in the DFSORT! Am i missing something?


Yes, DFSORT has supported REMOVECC since March, 2002. I don't know what quick reference you're looking at but if it doesn't show REMOVECC for DFSORT, then it's very out of date. You can access all of the official up-to-date DFSORT documentation online from:

Use [URL] BBCode for External Links

You should use the official DFSORT doc rather than any quick reference material.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Wed Mar 22, 2006 9:29 pm
Reply with quote

Quote:
can anybody explain about DFSORT and SYNCSORT products. What exactlay they r.


DFSORT is IBM's sort product. Syncsort is Syncsort, Inc's sort product.

If you're not familiar with DFSORT and DFSORT's ICETOOL, 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:

Use [URL] BBCode for External Links
Back to top
View user's profile Send private message
tksvv

New User


Joined: 17 Mar 2006
Posts: 6

PostPosted: Wed Mar 22, 2006 10:10 pm
Reply with quote

I was looking at the one that you get on the Mainframe(type QW at the command line and you get the quick reference). I think that gives the help for the version/s of what is/was available at my installation, rather than the latest version which might not be supported by my installation.

But thanks for link. This forum has been a revelation to me and I am thouroughly enjoying browsing it.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Wed Mar 22, 2006 10:27 pm
Reply with quote

I don't get anything when I type QW at the command line. I think QW invokes a product that your shop installed. I'd be very surprised if it reflects the version of DFSORT available at your shop since that would mean it would have to know which DFSORT PTFs were installed at your shop and which functions were available with those PTFs. That would be a very tricky thing to be able to do.

If you want to know if a specific function is available with the level of DFSORT you're running, try that function. For example, if you want to know if REMOVECC is available, try:

Code:

//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
//SORTOUT DD DUMMY
//SYSIN DD *
   OPTION COPY
   OUTFIL REMOVECC
/*


If you get a RC=0, you'll know you have the March, 2002 PTF. If you get an error message for REMOVECC and RC=16, you'll know you don't have the March, 2002 PTF (I'd guess that's unlikely).

If you want to know if you have the latest DFSORT functional PTF (Dec, 2004), try this job:

Code:

//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
//SORTOUT DD DUMMY
//SYSIN DD *
   OPTION COPY
   INREC OVERLAY=(5:C'A')
/*


If you get a RC=0, you'll know you have the Dec, 2004 PTF. If you get an error message for OVERLAY and RC=16, you'll know you don't have the Dec, 2004 PTF.

If you don't have the Dec, 2004 PTF, ask your System Programmer to install z/OS DFSORT V1R5 PTF UQ95214 or DFSORT R14 PTF UQ95213 (it's free).
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts Modifying Date Format Using DFSORT DFSORT/ICETOOL 9
No new posts Sortjoin and Search for a String and ... DFSORT/ICETOOL 1
No new posts Replace Multiple Field values to Othe... DFSORT/ICETOOL 12
No new posts Need to convert date format DFSORT/ICETOOL 20
No new posts Need help to append a date&tsp at... DFSORT/ICETOOL 9
Search our Forums:

Back to Top