MVSFORUMS.com

[vj2081]

How to move
REQUESTED-DATE-CC PIC XX.
REQUESTED-DATE-YY PIC XX.
these 2 variable into,
MTC-COMM-PROC-MTH-NR PIC S9(04) COMP
this variable?

ex: CC - 19
YY - 99

and populate
MTH-NR as 1999?

[cobcurious]

Hi vj2081,
I believe you can make a group levelfield for the REQUESTED-DATE-CC PIC XX and REQUESTED-DATE-YY PIC XX.Say
01 Group
05 REQUESTED-DATE-CC PIC XX.
05 REQUESTED-DATE-YY PIC XX.
01 MTC-COMM-PROC-MTH-NR PIC S9(04) COMP .

Move Group to MTC-COMM-PROC-MTH-NR.

This will serve your purpose...but ensure you have numeric field going in GROUP variable
Thanks
Cobcurious
8)

[Cogito-Ergo-Sum]

S9(04) COMP is half-word binary i.e. two bytes. Your source data is a total of four bytes. Are you sure, you want to do this?
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.

[mfjin]

I know my fundamentals arent very strong but can somebody explain why a 4 byte numeric field cant be stored in a 9(04) comp field.

I ask this because if you consider a packed decimal field,
a 5 byte field say yyddd can be stored occupying 3 bytes in a 9(5) comp-3 field.

[kolusu]

mfjin,

A S9(1) through S9(4) COMP (Binary half-word (2 bytes)) can be used to store values ranging from -32768 through +32767

I don't see any problem in storing a 4 byte numeric into 2 byte comp field.

Check this link which explains the storage ranges of all COMP variables.

Hope this helps...

Cheers

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

[mfjin]

Thanks Kolusu for affirming what I said. cogitos and ravis posts made me think otherwise.

Also, youve missed the link. Can you pls post it so that i can see what it says?

[kolusu]

mfjin,

oops here is the link .

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IGY3LR10/5.3.16.1?SHELF=&DT=20020920180651&CASE=

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

[Mike Chantrey]