Editing Program Logic (section)

=== PROCEDURE DIVISION (main inline logic) ===

<pre>Step 1  ACCEPT commandline-args FROM COMMAND-LINE
        → reads first token of the OS command line into commandline-args (PIC X(32))

Step 2  MOVE commandline-args TO methods
        MOVE 'primesmain'    TO program-name
        → loads session control block ready for dispatch
        → sets log identity for subsequent messages

Step 3  PERFORM r90-start-session
        → opens primes.prt and verifies UI layer is ready (see §1.1)

Step 4  EVALUATE TRUE
          WHEN report-primes   (commandline-args = &quot;report&quot;)
            LOG &quot;Primes report generation starts.&quot;
            SET methods = &quot;report&quot;
            PERFORM r92-generate-primes   → CALL primesgen

          WHEN generate-primes (commandline-args = &quot;generate&quot;)
            LOG &quot;Primes generation starts.&quot;
            SET methods = &quot;generate&quot;
            *** PERFORM r92-generate-primes is COMMENTED OUT ***

          WHEN OTHER
            LOG &quot;Bad parameter, program initialisation failed.&quot;
            PERFORM r99-stop-session
            STOP RUN

Step 5  LOG &quot;Primes run complete, program stops.&quot;

Step 6  PERFORM r99-stop-session

Step 7  STOP RUN</pre>
<span id="paragraph-r90-start-session"></span>