| View previous topic :: View next topic |
| Author |
Message |
CraigG
Intermediate
Joined: 02 May 2007
Posts: 202
Topics: 0
Location: Viginia, USA
|
 Posted: Thu Apr 03, 2008 3:12 pm Post subject: |
 |
|
| COBOL was never designed to handle strings, it works with fields. If you move an X(10) field to an X(20) left justified field it will put 10 spaces followed by the x(10) field even if the X(10) field only contains 1 character followed by 9 spaces. |
|
| Back to top |
|
 |
slade
Intermediate
Joined: 07 Feb 2003
Posts: 266
Topics: 1
Location: Edison, NJ USA
|
| Posted: Sat Apr 05, 2008 9:53 am Post subject: |
|
|
That's why you must use ref/mod to do the move. MOVE then uses the ref/mod length to JUST.
_________________
Regards, Jack.
"A problem well stated is a problem half solved" -- Charles F. Kettering |
|
| Back to top |
|
|
Terry_Heinze
Supermod
Joined: 31 May 2004
Posts: 391
Topics: 4
Location: Richfield, MN, USA
|
| Posted: Sun Apr 06, 2008 11:31 am Post subject: |
|
|
The important concept to grasp with JUST RIGHT is that the MOVE statement looks at the lengths of the PICTUREs of the fields, not the contents of the fields. Look again at Craig's example. Also, I think he intended to say right justified, not left justified in his post.
_________________
....Terry |
|
| Back to top |
|
|
slade
Intermediate
Joined: 07 Feb 2003
Posts: 266
Topics: 1
Location: Edison, NJ USA
|
| Posted: Sun Apr 06, 2008 1:24 pm Post subject: |
|
|
I agree, when reference to the variable is not modified. If it is reference modified and moved to a just variable, the move uses the modified length.
Using Craig's example:
MOVE X10-FLD(1:1) TO X20-JUST-RIGHT
Produces a one char string at pos 20 of X20-JUST-RIGHT preceded by 19 spaces.
_________________
Regards, Jack.
"A problem well stated is a problem half solved" -- Charles F. Kettering |
|
| Back to top |
|
|
Terry_Heinze
Supermod
Joined: 31 May 2004
Posts: 391
Topics: 4
Location: Richfield, MN, USA
|
| Posted: Fri Jul 31, 2009 6:59 pm Post subject: |
|
|
This might be similar to other posts, but here's my contribution for right justifying the contents of any field: | Code: | ----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
05 WS-ANYFIELD PIC X(??) VALUE 'XXX'.
05 WS-WORK-FIELD PIC X(100).
* LENGTH of WS-WORK-FIELD must be >=
* WS-LENGTH-OF-ORIG-FIELD
05 WS-LENGTH-OF-ORIG-FIELD PIC 999.
05 WS-NBR-OF-TRAILING-BLANKS PIC 999.
05 WS-LENGTH-OF-DATA PIC 999.
05 WS-START-POS PIC 999.
* The following will right justify the contents of
* WS-ANYFIELD.
IF WS-ANYFIELD = SPACE
OR WS-ANYFIELD (LENGTH OF WS-ANYFIELD:1) NOT = SPACE
CONTINUE
ELSE
MOVE WS-ANYFIELD TO WS-WORK-FIELD
MOVE LENGTH OF WS-ANYFIELD TO WS-LENGTH-OF-ORIG-FIELD
PERFORM XXXX-RIGHT-JUSTIFY
MOVE SPACE TO WS-ANYFIELD
MOVE WS-WORK-FIELD (1:WS-LENGTH-OF-DATA)
TO WS-ANYFIELD (WS-START-POS:WS-LENGTH-OF-DATA)
END-IF
.
* Right justify the contents of WS-WORK-FIELD.
XXXX-RIGHT-JUSTIFY.
MOVE ZERO TO WS-NBR-OF-TRAILING-BLANKS
INSPECT FUNCTION REVERSE (WS-WORK-FIELD)
TALLYING WS-NBR-OF-TRAILING-BLANKS FOR LEADING SPACE
COMPUTE WS-LENGTH-OF-DATA
= LENGTH OF WS-WORK-FIELD - WS-NBR-OF-TRAILING-BLANKS
COMPUTE WS-START-POS
= WS-LENGTH-OF-ORIG-FIELD - WS-LENGTH-OF-DATA + 1
. |
_________________
....Terry |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
