Basic file handling

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
   SELECT P-FILE ASSIGN TO dd-name-jcl
   ORGANIZATION IS SEQUENTIAL
   ACCESS MODE  IS SEQUENTIAL.
   
DATA DIVISION.
FILE SECTION.

   FD P-FILE.
   01 P-NUMBER                      PICTURE 99 USAGE DISPLAY.

WORKING-STORAGE SECTION.

01  WORKING-VARIABLES.
    05  W-SUB                       PICTURE 99.
   
PROCEDURE DIVISION.
OPEN OUTPUT P-FILE.
PERFORM LOOP 10 TIMES.
CLOSE P-FILE.
STOP RUN. 


LOOP.

ADD 1 TO W-SUB.
MOVE W-SUB TO P-NUMBER.
WRITE P-NUMBER
END-WRITE.







STOP RUN.