IDENTIFICATION DIVISION.
PROGRAM-ID. YOUR-PROGRAM-NAME.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT PORTFOLIO ASSIGN TO "../PORTFOLIO.TXT" ORGANIZATION
IS LINE SEQUENTIAL.
SELECT STOCKS-IN ASSIGN TO "../STOCKS.TXT" ORGANIZATION IS
LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD PORTFOLIO.
01 RECORD-INV.
05 INV-STOCK-SYMBOL PIC X(7).
05 NUM-SHARES PIC 9(5).
05 AVG-COST PIC 9(4)V99.
FD STOCKS-IN.
01 STOCK-RECORD.
05 TICKER-SYMBOL PIC X(7).
05 STOCK-NAME PIC X(25).
05 CLOSING-PRICE PIC 9(4)V99.
WORKING-STORAGE SECTION.
01 STOCKS-TABLE OCCURS 20 TIMES.
05 STOCK-ENTRY.
10 WS-TICKER-SYMBOL PIC X(7).
10 WS-STOCK-NAME PIC X(25).
10 WS-CLOSING-PRICE PIC 9(4)V99.
01 REPORT-RECORD.
05 STOCK-NAME PIC 9(5).
05 FILLER VALUE " ".
05 WS-NUM-SHARE PIC 9(5).
05 FILLER VALUE " ".
05 WS-AVG-COST PIC $9(6)V99.
05 FILLER VALUE " ".
05 CLOSING-PRICE PIC 9(6)V99.
05 FILLER VALUE " ".
05 ADJ-COST PIC $9(6)v99.
05 FILLER VALUE " ".
05 MARKET-VALUE PIC $9(6)v99.
05 FILLER VALUE " ".
05 GAIN-LOSS PIC $9(6)v99.
PROCEDURE DIVISION.
MAIN-PROCEDURE.
DISPLAY "Hello world"
STOP RUN.
END PROGRAM YOUR-PROGRAM-NAME.
