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
 

 

Conversion from Alphanumeric to Packed Decimal

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
sourav_dasgupta

New User


Joined: 26 Dec 2007
Posts: 18
Location: Chennai, India

PostPosted: Mon Jan 21, 2008 1:57 pm    Post subject: Conversion from Alphanumeric to Packed Decimal
Reply with quote

Hi,

Is it possible to read an S9(3)V99 variable in X(3) format and convert it back to packed decimal format?

Note: Both takes the same space i.e. 3 bytes.

My requirement actually is, given the length and position of the packed decimal, I have to extract it from a X(20) variable (can not use group variable or copybook variable icon_cry.gif ), read it in a alphanumeric temporary variable and then move it back to a packed decimal variable without losing the sign or data.

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

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Mon Jan 21, 2008 8:20 pm    Post subject:
Reply with quote

Hello,

Quote:
Is it possible to read an S9(3)V99 variable in X(3) format and convert it back to packed decimal format?
Please re-post your question differently - as worded, many will not understand (i'm fairly sure that i don't). S9(3)V99 is zoned decimal and will not "fit" in an X(3) field and neither is it packed decimal. I am also not sure where/how the X(20) field is involved.

If you show some "input" data values (maybe in hex) and the desired output (also in hex), we can show you how to get from your intput to your needed output.
Back to top
View user's profile Send private message
sourav_dasgupta

New User


Joined: 26 Dec 2007
Posts: 18
Location: Chennai, India

PostPosted: Tue Jan 22, 2008 12:14 pm    Post subject:
Reply with quote

Hi,

I will try to elaborate my situation.
I am reading a record from an input file. Suppose I am reading it into one X(20) variable WS-READ.
There is a copybook for this input file which is
Code:

05 :TAG:-TEMP-RECORD.                                     
  10 :TAG:-TEMP-TYPE        PIC X(06).                 
  10 :TAG:-ACC-NO           PIC 9(11).                 
  10 :TAG:-AMOUNT           PIC S9(03)V99 USAGE COMP-3.


Suppose in the read record the amount field is holding the value 123.45

Now I need to read the amount field as WS-READ(18,3) and move to a WS-LOCAL-AMOUNT variable which is also of type S9(03)V99 USAGE COMP-3.

It should be some thing like

MOVE WS-READ(18,3) TO WS-TEMP => WS-TEMP is x(3)
MOVE WS-TEMP TO WS-LOCAL-AMOUNT => there should be some processing instead of this line

The ultimate purpose is to have 123.45 in WS-LOCAL-AMOUNT.

If you need any other info just let me know.

Sourav
Back to top
View user's profile Send private message
k.junaid83

New User


Joined: 19 Apr 2006
Posts: 22
Location: bangalore

PostPosted: Tue Jan 22, 2008 1:08 pm    Post subject:
Reply with quote

Hi sourav,

First of all the input data u are reading will not fit into X(20), the amount feild will get truncated.You can define WS-READ similarly as ur input file copy book as declare bleow:


05 WS-READ.
10 WS-TEMP-TYPE PIC X(06).
10 WS-ACC-NO PIC 9(11).
10 WS-AMOUNT PIC S9(03)V99 USAGE COMP-3.

using the above declaration u can read ur input file into WS-READ, so that WS-AMOUNT gets the desired value.

OR

U can define variables similar to the Input file copy book like

10 WS-TAG-TEMP-TYPE PIC X(06).
10 WS-TAG-ACC-NO PIC 9(11).
10 WS-TAG-AMOUNT PIC S9(03)V99 USAGE COMP-3.

With the above declaration u can directly move the input file variables to working storage variables.

MOVE TAG:-TEMP-TYPE TO WS-TAG-TEMP-TYPE
MOVE TAG:-ACC-NO TO WS-TAG-ACC-NO
MOVE TAG:-AMOUNT TO WS-TAG-AMOUNT

U can direclty get the amount value without moving it to temp variable

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

New User


Joined: 26 Dec 2007
Posts: 18
Location: Chennai, India

PostPosted: Tue Jan 22, 2008 2:20 pm    Post subject:
Reply with quote

Hi Junaid,

The layout length which i gave in the previous post is 20.
X(06) => 6 bytes
9(11) => 11 bytes
S9(3)V99 => 3 bytes
so the length of the group variable :TAG:-TEMP-RECORD is 20.
If i read it to WS-READ I think there should not be any truncation for the amount field.
Here my problem is i can not declare WS-READ as group variable and read the fields directly.
I am trying find out if it is possible to read all types of field depending on the position and length.

For Example:
Suppose the following condition

05 :TAG:-TEMP-RECORD.
10 :TAG:-TEMP-TYPE PIC X(06). => contains value "ABCD"
10 :TAG:-ACC-NO PIC 9(11). => contains 99999.
10 :TAG:-AMOUNT PIC S9(03)V99 USAGE COMP-3. => contains 123.45

Now if I write
MOVE WS-READ(1,6) TO WS-LOCAL-TEMP-TYPE
MOVE WS-READ(7,11) TO WS-LOCAL-ACC-NO-CHAR
COMPUTE WS-LOCAL-ACC-NO = FUNCTION NUMVAL(WS-LOCAL-ACC-NO-CHAR)
DISPLAY WS-LOCAL-TEMP-TYPE
DISPLAY WS-LOCAL-ACC-NO

It will display ABCD and 99999 respectively

In the same way i want to read the amount also, which is WS-READ(18,3)
Back to top
View user's profile Send private message
Varun Singh

New User


Joined: 01 Aug 2007
Posts: 25
Location: Delhi

PostPosted: Tue Jan 22, 2008 2:29 pm    Post subject: Reply to: Conversion from Alphanumeric to Packed Decimal
Reply with quote

Hi Saurav,

Is it possible to read an S9(3)V99 COMP-3 variable in X(3) format and convert it back to packed decimal format?

No, it will give data exception error

you have to do like this:-

S9(3)V99 COMP-3 to 9(6)
then only you can move 9(6) to again S9(3)V99 COMP-3. icon_smile.gif
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Jan 22, 2008 8:34 pm    Post subject:
Reply with quote

Hello,

Quote:
you have to do like this:-

S9(3)V99 COMP-3 to 9(6)
then only you can move 9(6) to again S9(3)V99 COMP-3
This is not correct. There is no need for the move to 9(6) (actually that move will not work as desired - the decimal places will be lost because 9(6) has no decimal places).

WS-AMOUNT can be directly moved to WS-LOCAL-AMOUNT.
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1232
Location: Israel

PostPosted: Tue Jan 22, 2008 9:09 pm    Post subject: Reply to: Conversion from Alphanumeric to Packed Decimal
Reply with quote

There is a contradiction in your statements:
sourav_dasgupta wrote:
There is a copybook for this input file which is
Code:
05 :TAG:-TEMP-RECORD.                                     
  10 :TAG:-TEMP-TYPE        PIC X(06).                 
  10 :TAG:-ACC-NO           PIC 9(11).                 
  10 :TAG:-AMOUNT           PIC S9(03)V99 USAGE COMP-3.

If you have a copybook, why not just do
Code:
MOVE :TAG:-AMOUNT TO WS-LOCAL-AMOUNT


If you do not have a copybook and must use WS-READ(18:3) then it is easy to do:
Code:
01  WS-AMOUNT-X.
    05  WS-AMOUNT-9       PIC S9(03)V99 USAGE COMP-3.

    MOVE WS-READ(18:3) TO WS-AMOUNT-X
    IF WS-AMOUNT-9 IS NUMERIC THEN
        MOVE WS-AMOUNT-9 TO WS-LOCAL-AMOUNT
    ELSE
        DISPLAY '!!!ERROR!!!'
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2502
Location: Atlanta, Georgia, USA

PostPosted: Tue Jan 22, 2008 11:42 pm    Post subject: Conversion from Alphanumeric to Packed Decimal
Reply with quote

A heads up for you regarding the NUMERIC check on a COMP-3 field.

If you're unsure of this data's origination and it contains an "F" neutral-nibble instead of a "C" or a "D" sign-nibble, the NUMERIC check will fail, because the picture clause indicates that the data should be signed.

If that's the case, redefine it again as COMP-3 unsigned (remove the S) and try the NUMERIC test again.

If it fails a second time, then the data is not packed-decimal of any type.

Regards,

Bill
Back to top
View user's profile Send private message
saidharrao
Warnings : 1

New User


Joined: 19 Feb 2005
Posts: 27
Location: hyderabad-ap-india

PostPosted: Wed Jan 23, 2008 12:38 am    Post subject: Reply to: Conversion from Alphanumeric to Packed Decimal
Reply with quote

Hi,

Irrespective of your problem, I just want to give some info on COMP-3 and check if it is helpful.

Without reference modification
-----------------------------------

Move the comp-3 field (already read to record) directly to another Comp-3

or

Move the comp-3 field to 9(5)v9(2) and then from 9(5)v9(2) to your local Comp-3 field

With reference modification
-------------------------------

Move the comp-3 field to 9(5)v9(2) and then from 9(5)v9(2)

Please note that, if sign s required you may have to move to s9(4)v9(2).


I think it should work.

All the best.
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2502
Location: Atlanta, Georgia, USA

PostPosted: Wed Jan 23, 2008 8:17 am    Post subject: Re: Reply to: Conversion from Alphanumeric to Packed Decimal
Reply with quote

saidharrao wrote:
Hi,

Irrespective of your problem, I just want to give some info on COMP-3 and check if it is helpful.

Without reference modification
-----------------------------------

Move the comp-3 field (already read to record) directly to another Comp-3

or

Move the comp-3 field to 9(5)v9(2) and then from 9(5)v9(2) to your local Comp-3 field

With reference modification
-------------------------------

Move the comp-3 field to 9(5)v9(2) and then from 9(5)v9(2)

Please note that, if sign s required you may have to move to s9(4)v9(2).


I think it should work.

All the best.


Moving the COMP-3 field to an unsigned COMP-3 field will probably work, because under the covers, the compiler issues an MVC followed by an OI X'0F' of the last byte, to ensure an 'F' neutral-nibble.

However, if the COMP-3 field is truly NOT NUMERIC and you move it to a signed COMP-3 field, again the compiler issues an MVC but will ensure a valid sign-nibble, by issuing a ZAP of the field itself. Unlike an MVC, if there's bad packed-decimal data, the ZAP will fail with a S0C7.

Regards,

Bill
Back to top
View user's profile Send private message
sourav_dasgupta

New User


Joined: 26 Dec 2007
Posts: 18
Location: Chennai, India

PostPosted: Wed Jan 23, 2008 8:47 am    Post subject:
Reply with quote

Hi Marso,

Thanks a lot for the solution. Yess!! It worked icon_biggrin.gif .

Quote:

01 WS-AMOUNT-X.
05 WS-AMOUNT-9 PIC S9(03)V99 USAGE COMP-3.

MOVE WS-READ(18:3) TO WS-AMOUNT-X
IF WS-AMOUNT-9 IS NUMERIC THEN
MOVE WS-AMOUNT-9 TO WS-LOCAL-AMOUNT
ELSE
DISPLAY '!!!ERROR!!!'


Actually i was trying out accessing the fields depending on the position so that later i can use them in a simple loop. Given the positions and type of the field in a separate flat file or an array, i am trying to find a process that will fetch the field in a X(XX) variable and from there process depending on the type of the field (X, 9 or S9).

I think i can go ahead to the next step of processing now
icon_smile.gif icon_smile.gif
Thanks for the reply to all

Sourav
Back to top
View user's profile Send private message
Varun Singh

New User


Joined: 01 Aug 2007
Posts: 25
Location: Delhi

PostPosted: Wed Jan 23, 2008 9:54 am    Post subject: Reply to: Conversion from Alphanumeric to Packed Decimal
Reply with quote

Thanks, dick for correcting me.....
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed Jan 23, 2008 8:28 pm    Post subject: Reply to: Conversion from Alphanumeric to Packed Decimal
Reply with quote

You're welcome icon_smile.gif

d
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 -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm
No new posts Joinkeys with decimal scdinesh DFSORT/ICETOOL 3 Fri Feb 10, 2017 4:46 am
No new posts Converting decimal to numeric using I... Balaryan DFSORT/ICETOOL 4 Thu Feb 02, 2017 11:27 pm
This topic is locked: you cannot edit posts or make replies. How to move a long alphanumeric data ... lind sh COBOL Programming 8 Mon Dec 05, 2016 7:51 pm
No new posts File Aid to File Manager conversion murali3955 IBM Tools 4 Thu Nov 24, 2016 3:41 pm


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