I want avoid having to move 1000-PARAGRAPH-NAME, and have it done automatically. Like this:
Code: Select all
WORKING-STORAGE SECTION.
01 WS-HOLD-NAME PIC X(30).
PROCEDURE DIVISION.
1000-PARAGRAPH-NAME.
Perform some function to get the paragraph name and store it to WS-HOLD-NAME
DISPLAY 'Paragraph name is ' WS-HOLD-NAME
.
OUPUT SHOULD BE
Paragraph name is 1000-PARAGRAPH-NAME