|
View previous topic :: View next topic
|
| Author |
Message |
jayaprakashr
Currently Banned
New User
Joined: 23 Jul 2005
Posts: 6
Location: bangalore
|
|
|
|
PROCEDURE DIVISION.
PARA1.
ACCEPT E-NAME.
I AM ACCEPTING A NAME JAYAPRAKASH.....
I WANT AN OUTPUT IN THE VERTICAL MODE..........
LIKE.... J
A
Y
A
P
R
A
K
A
S
H
DISPALY E-NAME.
STOP RUN. |
|
| Back to top |
|
 |
shobam
New User
.jpg)
Joined: 18 Jul 2005
Posts: 34
Location: CN
|
|
|
|
MOVE +1 TO IND
PERFORM UNTIL IND > ENAME-LEN
DISPLAY ENAME(IND:1)
IND = IND + 1
END-PERFORM
Find the length of the ENAME using FUNTION LENGTH() and move it to ENAME-LEN.
Hope it works. |
|
| Back to top |
|
|
|
|
