Occurs and Subscripts (COBOL)?

Nice, this worked out great. I will have to remember that from now on. Now I can go on to finish this.

Thanks a lot. – Kimmy1235 Jan 27 at 15:50.

Your program has a flaw from 300-STORE-NAME onwards. You also need to add 350-FLUSH-NAMES at the end of the 100-MAIN subroutine before closing the output file in order to print the list of names that remains in the name store when the program finishes and doesn't reach the end of the page. 300-STORE-NAME.

ADD 1 TO NAME-COUNT. MOVE NAME-IN TO NAME-STO(NAME-COUNT). IF NAME-COUNT > 108 PERFORM 350-FLUSH-NAMES PERFORM 360-CLEAN-DATASTORE END-IF.350-FLUSH-NAMES.

PERFORM 400-PROCESS-FILE VARYING LINE-COUNT FROM 1 BY 1 UNTIL LINE-COUNT > NAME-COUNT / 2. PERFORM 200-NEXT-PAGE.360-CLEAN-DATASTORE. PERFORM VARYING NAME-COUNT FROM 1 BY 1 UNTIL NAME-COUNT > 108 MOVE SPACE TO NAME-STO(NAME-COUNT) END-PERFORM.

MOVE ZERO TO NAME-COUNT.400-PROCESS-FILE. MOVE NAME-STO(LINE-COUNT) TO DL-COLUMN-1. MOVE NAME-STO(LINE-COUNT + NAME-COUNT / 2) TO DL-COLUMN-2.

MOVE DETAIL-LINE TO NAMELIST-RECORD-OUT. WRITE NAMELIST-RECORD-OUT AFTER ADVANCING 1 LINE.

I cant really gove you an answer,but what I can give you is a way to a solution, that is you have to find the anglde that you relate to or peaks your interest. A good paper is one that people get drawn into because it reaches them ln some way.As for me WW11 to me, I think of the holocaust and the effect it had on the survivors, their families and those who stood by and did nothing until it was too late.