       IDENTIFICATION DIVISION.
       PROGRAM-ID. FIXEDFORMAT.
      * Fixed-format COBOL with sequence numbers in cols 1-6
000100 ENVIRONMENT DIVISION.
000200 DATA DIVISION.
000300 WORKING-STORAGE SECTION.
000400 01 WS-COUNTER PIC 9(4) VALUE 0.
000500 01 WS-NAME    PIC X(20).
000600
000700 PROCEDURE DIVISION.
000800 MAIN-PARA.
000900     PERFORM INIT-PARA
001000     PERFORM PROCESS-PARA
001100     STOP RUN.
001200
001300 INIT-PARA.
001400     MOVE 1 TO WS-COUNTER.
001500
001600 PROCESS-PARA.
001700     CALL "LOGGER"
001800     GOBACK.
