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

Change an F sign to an C sign in PD values


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

New User


Joined: 13 Feb 2008
Posts: 8
Location: US

PostPosted: Wed Feb 20, 2008 3:05 am
Reply with quote

Hi,

I need to change the last bit of the packed decimal field from F to C value.

INREC OVERLAY=(1:1,5,PD,TO=PDC) option is not working.
The field is X'100000000F'.

Please suggest some other option.

Thanks,
MU
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table

PostPosted: Wed Feb 20, 2008 3:16 am
Reply with quote

hemantheng wrote:
INREC OVERLAY=(1:1,5,PD,TO=PDC) option is not working.
The field is X'100000000F'.
Could you define 'not working'?
Could you provide the sysout?
Back to top
View user's profile Send private message
hemantheng

New User


Joined: 13 Feb 2008
Posts: 8
Location: US

PostPosted: Wed Feb 20, 2008 3:19 am
Reply with quote

I am getting the following sysout msg.

SYSIN :
Code:
  OPTION COPY                               
  INREC OVERLAY=(1:1,5,PD,TO=PDC)           
                          *                 
WER161B  ALTERNATE PARM USED                 
WER268A  INREC STATEMENT   : SYNTAX ERROR   
WER211B  SYNCSMF  CALLED BY SYNCSORT; RC=0000
WER449I  SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
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 Feb 20, 2008 3:22 am
Reply with quote

Code:

   INREC OVERLAY=(1:1,5,PD,TO=PDC)


works fine with DFSORT and gives the correct result of X'100000000C'.

TO=PDC has been available with DFSORT since April, 2006. However, the WER messages indicate you're using Syncsort, not DFSORT.
Back to top
View user's profile Send private message
hemantheng

New User


Joined: 13 Feb 2008
Posts: 8
Location: US

PostPosted: Wed Feb 20, 2008 3:27 am
Reply with quote

Thanks for the info. I know that this works in the new version of DFSORT. Thats why i asked for any other method because here they wont install the new version.

Please suggest some other method.

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

New User


Joined: 13 Feb 2008
Posts: 8
Location: US

PostPosted: Wed Feb 20, 2008 3:32 am
Reply with quote

Can you pls provide me the full JCL using the DFSORT.

Thanks
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Wed Feb 20, 2008 3:35 am
Reply with quote

hemantheng wrote:
Thanks for the info. I know that this works in the new version of DFSORT. Thats why i asked for any other method because here they wont install the new version.
The problem is that you are using Syncsort.
Does your shop have DFSORT also?
Back to top
View user's profile Send private message
hemantheng

New User


Joined: 13 Feb 2008
Posts: 8
Location: US

PostPosted: Wed Feb 20, 2008 5:02 am
Reply with quote

No we don't have DFSORT.

Can anyone pls send the full jcl to do the above the request?

Thanks
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table

PostPosted: Wed Feb 20, 2008 5:22 am
Reply with quote

Have you looked at the Syncsort manual?
Have you considered contacting SyncSort Mainframe Product Services at 201-930-8260 or zos_tech@syncsort.com
Could running a math operation fix the sign?
Back to top
View user's profile Send private message
Alissa Margulies

SYNCSORT Support


Joined: 25 Jul 2007
Posts: 496
Location: USA

PostPosted: Wed Feb 20, 2008 10:18 pm
Reply with quote

hemantheng wrote:
I am getting the following sysout msg.

SYSIN :
Code:
  OPTION COPY                               
  INREC OVERLAY=(1:1,5,PD,TO=PDC)           
                          *                 
WER161B  ALTERNATE PARM USED                 
WER268A  INREC STATEMENT   : SYNTAX ERROR   
WER211B  SYNCSMF  CALLED BY SYNCSORT; RC=0000
WER449I  SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE


Support for PDC format was included in SyncSort for z/OS 1.3. Based on the information you provided, I assume that your shop is still running an earlier release of SyncSort.
Back to top
View user's profile Send private message
hemantheng

New User


Joined: 13 Feb 2008
Posts: 8
Location: US

PostPosted: Thu Feb 21, 2008 3:07 am
Reply with quote

Ya. We have SyncSort for z/OS 1.2. I checked with the system admin. I am not sure they will upgrade it as i am working in a client's place.

Let me know is there any other way we can do it using sort.
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Thu Feb 21, 2008 3:32 am
Reply with quote

hemantheng wrote:
Let me know is there any other way we can do it using sort.
I wonder if inrec reformatting to ZD (sign edited?) and outrec reformatting back to PD could work?
Or doing some sort of math function (like multiplying by +1) might set the sign to C or D?
Back to top
View user's profile Send private message
shankar.v

Active User


Joined: 25 Jun 2007
Posts: 196
Location: Bangalore

PostPosted: Thu Feb 21, 2008 3:40 pm
Reply with quote

Hi hemantheng,

As suggested by William Thompson, please check with the following code for your requirement.
Code:
// EXEC PGM=SORT
//SORTIN DD DSN=INFILE,DISP=SHR
//SORTOUT DD DSN=OUTFILE,DISP=...
//SYSOUT DD SYSOUT=*
//SYSIN DD *
 OPTION COPY
 INREC BUILD=(1,5,PD,MUL,+1,TO=PD,LENGTH=5)
/*
//

Thanks,
Shankar
Back to top
View user's profile Send private message
hemantheng

New User


Joined: 13 Feb 2008
Posts: 8
Location: US

PostPosted: Thu Feb 21, 2008 7:41 pm
Reply with quote

Hi Shankar,

I tried with your code. Its working fine. Thanks.

Hemanth.
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 INCLUDE OMIT COND for Multiple values... DFSORT/ICETOOL 5
No new posts Replace Multiple Field values to Othe... DFSORT/ICETOOL 12
No new posts Null values are considered in Total c... DFSORT/ICETOOL 6
No new posts 3270 personal communications. Can't c... TSO/ISPF 2
No new posts SELECT from data change table DB2 5
Search our Forums:

Back to Top