MVSFORUMS.com

Anand_R · Intermediate Joined: 24 Dec 2002 Posts: 189 Topics: 60

Hi,

I have requirement to convert the comp sync variable to character and then finally convert the character variable to comp sync variable.

Example :

01 ws-db-key pic s9(08 ) comp sync.

I want to conver this to the variable defined as

01 ws-temp-hold-variable pic x(10).

And then finally I should able to conver the ws-temp-hold-variable back to

01 ws-db-key-final pic s9(08 ) comp sync.

Please suggest me..

Thx
Anand

kolusu · Posted: Tue Dec 23, 2003 6:06 am Post subject:

Anand,

I don't quite understand as to what you are trying to do.Can you please explain in detail with examples?

Btw the SYNC is not really required and comes in handy to improve performance on some systems for binary items used in arithmetic.

Thanks

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

Anand_R · Intermediate Joined: 24 Dec 2002 Posts: 189 Topics: 60

Kolusu,

I have to write the IDMS db-key into output file as non comp value(either character or as signed numeric) which is defined as follows

db-key definition : 01 ws-db-key pic s9(08 ) comp sync.
In the out put file I need it as : 01 ws-db-key-non-comp pic x(10) or s9(08). (I need ur input in deciding the picture clause)

And that output file again, I will use as input in the other program and use that dbkey(which is in non comp format) to get the record using that db-key. But we cannot use the non comp db-key to get the record. So I have to convert the non comp db-key again back to s9(08 ) comp sync.

I just wanted to know, is it feasible.. Please let me know if I am not clear .

And this I need to do, b'coz MQ does not accept the comp values. So I have to do this way.

Thanks
Anand

kolusu · Posted: Tue Dec 23, 2003 1:00 pm Post subject:

Anand,

Try this

Anand_R · Intermediate Joined: 24 Dec 2002 Posts: 189 Topics: 60

We tried the following logic as suggested:-

01 WS-DBKEY-HOLD PIC S9(08 ) COMP.
01 WS-DB-KEY PIC S9(08 ) COMP
01 WS-TEMP-HOLD-VARIABLE PIC X(10 ).
01 WS-DB-KEY-FINAL PIC S9(08 ) COMP SYNC.

-------
Accept WS-DBKEY-HOLD FROM R7270-ACCT-SCHED CURRENCY
Move WS-DBKEY-HOLD to WS-DB-KEY
MOVE '00' To WS-TEMP-HOLD-VARIABLE (1 : 2 )
MOVE WS-DB-KEY TO WS-TEMP-HOLD-VARIABLE (3 : 8 )
DISPLAY 'THE CHAR VALUE :' WS-TEMP-HOLD-VARIABLE
MOVE WS-TEMP-HOLD-VARIABLE TO WS-DB-KEY-FINAL
DISPLAY 'THE COMP VALUE :' WS-DB-KEY-FINAL

As an example,one of the actual DBKEY value should be 1374284548 in display format.
But with above logic the following o/p is obtained:-
CHAR VALUE 0074284548
THE COMP VALUE :74284548.

Its truncating the first 2 digits which in our case is '13'.

Please assist.

Thanks,
Anand.

kolusu · Posted: Tue Dec 23, 2003 4:23 pm Post subject:

Anand,

If the DBKEY is always 10 bytes then you can eliminate the zero padding to the char field. Move the DBKEY directly to the char filed

RobertL · Posted: Tue Dec 30, 2003 9:37 am Post subject:

Anand,
Simply use the following code and let COBOL do the conversion for you.