MVSFORUMS.com

Prayank · Posted: Mon Dec 15, 2003 8:28 am Post subject: Cobol queries (Case conversion)

Hi all,

I have following small queries from COBOL:

1. I have a program which is reading a VSAM KSDS with following select clause:

SELECT CK4-MSTR ASSIGN TO SYS008-CK4MSTR

The DD name for this dataset in JCL is CK4MSTR. I would like to know what does SYS008 signify. The program works ok even if I remove this.

2. I want the COBOL code to convert Upper case to lower case . Or more generally the code to add to HEX values in COBOL

kolusu · Posted: Mon Dec 15, 2003 9:43 am Post subject:

Prayank,

The Assign clause for the old cobol compilers had to contain specific device specifications. In that was a Symbolic-Device this was to assign a specific number to each device (ie. SYS001-255) and with it was a Device Class (UR,UT,DA).

UR stands for unit-record devices like card readders, card punches..

UT stands for Unit Transfer devices like tape drives and sequential disks.

DA stands for Direct Access Disk.

Now all these features are obsolete and not required. So go ahead and remove that clause from your program.

2. Very simple.Cobol has now intrinsic functions that can be used to convert lower case to upper case and vice-versa.

check this link for a detailed explanation of the LOWER-CASE function

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IGY3LR10/7.1.24?DT=20020920180651

check this link for a detailed explanation of the UPPER-CASE function.

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IGY3LR10/7.1.48?DT=20020920180651

Another alternative is use Special-Names for specifying the collating sequence.check this link for an example.

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/igy3pg10/1.1.2.2.1?SHELF=&DT=20020923143836&CASE=

Prayank · Posted: Tue Dec 16, 2003 6:46 am Post subject:

Kolusu,

Thanks for the info on device class.

For my secong query, I want the logic to write case conversion routine in my cobol program. I want to write logic so that if Var1 contains X'81' and Var2 contains X'40' then I can add these two to get X'C1' in Var3.

Cheers!!

PRAYank

kolusu · Posted: Tue Dec 16, 2003 7:26 am Post subject:

prayank,
Let us see if understand your question correctly.

A hex value of x'81' is 'a'

A hex value of x'40' is space

a hex value of '81' is 'A'

now you want a + space = A ? Is that right?

How did you come up with such a logic?

What exactly do you want to do. If your intention is just to convert the lowercase to upper case then you can use the intrinsic functions which I mentioned earlier.

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

Prayank · Posted: Tue Dec 16, 2003 8:04 am Post subject:

Kolusu,

I am not concerned about converting case. I don't say that adding X'40' is the logic for case conversion. I just want to add two pic X variables such that the HEX value stored in them gets added.

Cheers

PRAYank

kolusu · Posted: Tue Dec 16, 2003 2:59 pm Post subject:

Prayank,

I still don't get as to what you are trying to do. But you can add 2 alphanumeric variables (PIC X(01)) by redefining them with Numeric items (PIC 9(01)) or move them to Numeric items and then perform the computation.

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

Mike Chantrey · Posted: Thu Dec 18, 2003 9:02 am Post subject:

kolusu, your suggestion does not add the hex values of two characters; it assumes the alphabetic items have display numeric values and adds these. I think what prayank wants is this:
working storage:

kolusu · Posted: Thu Dec 18, 2003 9:45 am Post subject:

Mike thank you very much for explanation. As stated in my previous posts , I really did not understand as to what prayank is trying to do.

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