MVSFORUMS.com

gkreth · Beginner Joined: 28 May 2004 Posts: 29 Topics: 10

Vini,

I tried you program, and it did appear to work. But when I modified it thus:

vini · Posted: Wed Jun 23, 2004 9:16 am Post subject:

Greg , Interesting ! Try Initialising TEST1 & RIGHT1 before the 2nd series of Moves.

coolman · Posted: Wed Jun 23, 2004 10:37 am Post subject:

Greg,

When you move a string data item which is smaller in length(7 chars) than the target, what apparently happens is that the default value(spaces) gets padded up to the right until the length of the datatypes match. So, per your example, 7 chars gets padded up with spaces until the length of 30 and hence when you display, you get the display at the same position.

To test this define another variable say x(10) and move '7 chars' to this variable and you would see what you expected.

Hope this helps...

Cheers,
Coolman
________
weed news

vini · Posted: Wed Jun 23, 2004 10:56 am Post subject:

Greg, On second thots ... am sure the Intialise would not have helped ya.

Whats happening here is that as you are moving '7 chars' to a PIC X(30) which has a default Justification of LEFT. Essentially after the "MOVE '7 chars' TO TEST1 ", what TEST1 has again is nothing but a Left justified String of length 30 with trailing spaces.

vini · Posted: Wed Jun 23, 2004 11:03 am Post subject:

contd ...
Move the '7 Chars' constant Directly to RIGHT1 or Define an Item TEST2 of PIC X(7) and move '7 Chars' to this before moving it to RIGHT1.

gkreth · Beginner Joined: 28 May 2004 Posts: 29 Topics: 10

OK, no I get it.... If I do this:

vini · Posted: Wed Jun 23, 2004 3:34 pm Post subject:

Greg , I guess your approach would depend on the Source of your ANY string .
If it originates from a Db Table you can still manage by trimming the Trailing spaces by using a scalar Function before moving to the Justified Right Item and Displaying it.
Curious , why you would always want to move the String constant (if this is the source in your case) to an Item of "fixed" length first , instead of the constant directly to the Justified Right Item. Only thing I see is you may want to avoid hard-coding and hence define it in working-storage instead , which is a good practice indeed but you can still keep the length of the Item to its "actual" length in which case.
You may be thinking in terms of having a Sub-program and hence its linkage parms then it makes more sense , yeah.

slade · Posted: Thu Jun 24, 2004 3:10 pm Post subject:

Hi Greg,

Justified (right or left) only works when using fields of differing DEFINED lengths, e.g.:

gkreth · Beginner Joined: 28 May 2004 Posts: 29 Topics: 10

Vini said:

ranga_subham · Intermediate Joined: 31 Jan 2006 Posts: 255 Topics: 72

Hi,

I wrote a small program to know how "JUST RIGHT" clause works. Confused

ranga_subham · Intermediate Joined: 31 Jan 2006 Posts: 255 Topics: 72

We are using "IBM Enterprise COBOL for z/OS 3.4.1".....

Thx.
_________________
Ranga
*****
None of us is as smart as all of us - Ken Blanchard

kolusu · Posted: Fri Mar 21, 2008 10:31 am Post subject:

ranga_subham,

pay attention to what SLADE said in here

http://www.mvsforums.com/helpboards/viewtopic.php?p=11719#11719

Try changing the lengths as follows and re-run your program.

Nithisha · Posted: Mon Mar 24, 2008 6:26 am Post subject:

Hi Friend

I have test and found that the justified field (recieving field)shoule be greater than the sending field.Then right justify is working.

ranga_subham · Intermediate Joined: 31 Jan 2006 Posts: 255 Topics: 72

Thank you people......I got my basics right..... Embarassed

_________________
Ranga
*****
None of us is as smart as all of us - Ken Blanchard

slade · Posted: Thu Apr 03, 2008 2:15 pm Post subject:

Hi Gang,

This might work. Haven't tested, but the concept looks OK.

Also, didn't test for zero length and other things around the edges.