Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008 Posts: 2501 Location: Atlanta, Georgia, USA
|
|
|
|
Code: |
03 WS-SUB PIC 9(04) BINARY.
03 WS-NAME PIC X(04) VALUE 'TEST'.
PERFORM VARYING WS-SUB FROM 1 BY 1
UNTIL WS-SUB > LENGTH OF WS-NAME
DISPLAY WS-NAME (WS-SUB:1)
END-PERFORM.
|
I hope this is only an exercise or homework assignment.
Regards,
Bill |
|