Hi everyone,
Is there a way to list all paragraph in a COBOL program in the function list.
I have tried a few things, but....
Here's a sample of a COBOL program and what I need to be in the function list:
Keep in mind that there are characters preceding the code (column 1-7)
It's not possible to highlight strings in a code block. So here are the lines which limits a function:
0000-XXDRPRIC.
:
:
:
0000-EXIT.
EXIT.
0100-INITIALISER.
:
:
0100-EXIT.
EXIT.
Is there a way to list all paragraph in a COBOL program in the function list.
I have tried a few things, but....
Here's a sample of a COBOL program and what I need to be in the function list:
Code: Select all
0000-XXDRPRIC.
PERFORM 0100-INITIALISER THRU 0100-EXIT.
PERFORM 0200-READ-TD THRU 0200-EXIT.
PERFORM 0300-VALIDER-PRINTER THRU 0300-EXIT.
PERFORM 0400-ROUTE-PRINTER THRU 0400-EXIT.
PERFORM 0500-SEND-FIRST-LIGNE THRU 0500-EXIT.
MOVE SPACES TO CST-RAPPORT-FIN.
PERFORM 0600-SEND-LIGNE THRU 0600-EXIT
UNTIL CST-RAPPORT-FIN = 'FIN'.
GO TO 0000-XXDRPRIC.
0000-EXIT.
EXIT.
0100-INITIALISER.
SET CARO-IDX TO 1.
MOVE 17 TO CST-P-LENGTH.
SET CAR-IDX TO 1.
MOVE 1 TO CST-SEND-FRST-IND.
MOVE 8185 TO CST-Q-LENGTH.
MOVE 0 TO CST-FF-IND.
EXEC CICS LOAD PROGRAM('XXTBPRIA')
SET(ADDRESS OF COM-TABLE-TERMPRINT)
END-EXEC.
MOVE COM-PR-NB-OCC TO COM-PR-NB-OCC.
0100-EXIT.
EXIT.
It's not possible to highlight strings in a code block. So here are the lines which limits a function:
0000-XXDRPRIC.
:
:
:
0000-EXIT.
EXIT.
0100-INITIALISER.
:
:
0100-EXIT.
EXIT.