|
View previous topic :: View next topic
|
| Author |
Message |
RIGICDS32
New User
Joined: 24 Jun 2020
Posts: 4
Location: India
|
|
|
|
I am writing this piece of code -
| Code: |
IDENTIFICATION DIVISION.
program-id. Hello.
data division.
WORKING-STORAGE SECTION.
01 INPUT-RECORD.
02 VAR1 OCCURS 4 TIMES.
03 VAR2 PIC X(11) OCCURS 1 TIMES.
03 VAR22 REDEFINES VAR2 PIC S9(10) SIGN IS LEADING SEPARATE CHARACTER.
PROCEDURE DIVISION.
MOVE '012|323|121|2|1' TO INPUT-RECORD.
UNSTRING INPUT-RECORD DELIMITED BY "|"
INTO VAR2(1,1)
DISPLAY VAR22(1)
stop run. |
Output -
12 -
I want to get it displayed as +012.
Thanks for the help in advance. |
|
| Back to top |
|
 |
RIGICDS32
New User
Joined: 24 Jun 2020
Posts: 4
Location: India
|
|
|
|
| Code: |
IDENTIFICATION DIVISION.
program-id. Hello.
data division.
WORKING-STORAGE SECTION.
01 INPUT-RECORD.
02 VAR1 OCCURS 4 TIMES.
03 VAR2 PIC X(10) OCCURS 1 TIMES.
01 VAR22 PIC S9(10) LEADING.
PROCEDURE DIVISION.
MOVE '012|323|121|2|1' TO INPUT-RECORD.
UNSTRING INPUT-RECORD DELIMITED BY "|"
INTO VAR2(1,1)
END-UNSTRING.
MOVE VAR2(1,1) TO VAR22.
DISPLAY VAR22.
stop run.
|
OUTPUT - +0000000012
It's kinda solved.
Thank you. |
|
| Back to top |
|
|
RIGICDS32
New User
Joined: 24 Jun 2020
Posts: 4
Location: India
|
|
|
|
No it's not solved actually.
The subscript thing is adding trailing zeroes to the number.
How to avoid it? |
|
| Back to top |
|
|
RIGICDS32
New User
Joined: 24 Jun 2020
Posts: 4
Location: India
|
|
| Back to top |
|
|
|
|
