|
View previous topic :: View next topic
|
| Author |
Message |
hemantheng
New User
Joined: 13 Feb 2008
Posts: 8
Location: US
|
|
|
|
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 |
|
 |
CICS Guy
Senior Member
Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
|
|
|
|
| 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 |
|
|
hemantheng
New User
Joined: 13 Feb 2008
Posts: 8
Location: US
|
|
|
|
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 |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
| 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 |
|
|
hemantheng
New User
Joined: 13 Feb 2008
Posts: 8
Location: US
|
|
|
|
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 |
|
|
hemantheng
New User
Joined: 13 Feb 2008
Posts: 8
Location: US
|
|
|
|
Can you pls provide me the full JCL using the DFSORT.
Thanks |
|
| Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ
|
|
|
|
| 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 |
|
|
hemantheng
New User
Joined: 13 Feb 2008
Posts: 8
Location: US
|
|
|
|
No we don't have DFSORT.
Can anyone pls send the full jcl to do the above the request?
Thanks |
|
| Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
|
|
|
|
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 |
|
|
Alissa Margulies
SYNCSORT Support
Joined: 25 Jul 2007
Posts: 496
Location: USA
|
|
|
|
| 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 |
|
|
hemantheng
New User
Joined: 13 Feb 2008
Posts: 8
Location: US
|
|
|
|
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 |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ
|
|
|
|
| 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 |
|
|
shankar.v
Active User
Joined: 25 Jun 2007
Posts: 196
Location: Bangalore
|
|
|
|
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 |
|
|
hemantheng
New User
Joined: 13 Feb 2008
Posts: 8
Location: US
|
|
|
|
Hi Shankar,
I tried with your code. Its working fine. Thanks.
Hemanth. |
|
| Back to top |
|
|
|
|
