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
 

 

Change an F sign to an C sign in PD values

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
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    Post subject: Change an F sign to an C sign in PD values
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: 2150
Location: At my coffee table

PostPosted: Wed Feb 20, 2008 3:16 am    Post subject: Re: Change an F sign to an C sign in PD values
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    Post subject:
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 Moderator


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

PostPosted: Wed Feb 20, 2008 3:22 am    Post subject:
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    Post subject:
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    Post subject:
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: 3158
Location: Tucson AZ

PostPosted: Wed Feb 20, 2008 3:35 am    Post subject:
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    Post subject:
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: 2150
Location: At my coffee table

PostPosted: Wed Feb 20, 2008 5:22 am    Post subject:
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: 500
Location: USA

PostPosted: Wed Feb 20, 2008 10:18 pm    Post subject:
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    Post subject:
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: 3158
Location: Tucson AZ

PostPosted: Thu Feb 21, 2008 3:32 am    Post subject:
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    Post subject:
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    Post subject:
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    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Sorting of hex values Saurabh_mi DFSORT/ICETOOL 11 Thu May 25, 2017 3:49 pm
No new posts How to change 'K' or 'M' use Sort vice_versa DFSORT/ICETOOL 5 Thu May 18, 2017 7:11 am
No new posts Replace values in the input data Vikas Maharnawar DFSORT/ICETOOL 10 Thu May 11, 2017 2:18 pm
No new posts Compare two files and subtract values ameetmund DFSORT/ICETOOL 7 Fri Mar 31, 2017 3:35 pm
No new posts Check Binary Values for symbols gandikk CA Products 3 Tue Mar 21, 2017 5:11 am


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