home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Ms-Cobol / TEST.COB < prev    next >
Text File  |  1979-12-31  |  2KB  |  59 lines
  1. IDENTIFICATION DIVISION.
  2. PROGRAM-ID. TEST.
  3. AUTHOR. GULISTAN.
  4. ENVIRONMENT DIVISION.
  5. CONFIGURATION SECTION.
  6.     SOURCE-COMPUTER. MPF-PC.
  7.     OBJECT-COMPUTER. MPF-PC.
  8. INPUT-OUTPUT SECTION.
  9. FILE-CONTROL.
  10.     SELECT A-FILE ASSIGN TO DISK.
  11.     SELECT B-FILE ASSIGN TO TERMINAL.
  12. DATA DIVISION.
  13. FILE SECTION.
  14. FD      A-FILE RECORD CONTAINS 80 CHARACTERS LABEL RECORD IS STANDARD.
  15. 01      AREC.
  16.         02 FNAME  PIC X(20).
  17.         02 FADD1  PIC X(20).
  18.         02 FADD2  PIC X(20).
  19.         02 FTEL   PIC 999999.
  20.         02 FILLER PIC X(14).
  21.  
  22. WORKING STORAGE SECTION.
  23. 01      W-AREA.
  24.         02 COUNTER PIC 99.
  25. 01      SCRN.
  26.         02 WS-NAME PIC X(20).
  27.         02 WS-ADD1 PIC X(20).
  28.         02 WS-ADD2 PIC X(20).
  29.         02 WS-TEL  PIC 999999.
  30.         02 WS-FIL  PIC X(14).
  31. SCREEN SECTION.
  32. 01      BLANK-SCREEN.
  33.         02 BLANK SCREEN.
  34. 01      CUSTOMER-SCREEN.
  35.         02 LINE 2 COLUMN 10 VALUE "NAME......."
  36.         02 LINE 4 COLUMN 10 VALUE "ADDRESS...."
  37.         02 LINE 6 COLUMN 10 VALUE "ADDRESS...."
  38.         02 LINE 8 COLUMN 10 VALUE "TELE:......"
  39.         02 SNAME LINE 2 COLUMN 22 PIC X(20) USING WS-NAME.
  40.         02 SADD1 LINE 4 COLUMN 22 PIC X(20) USING WS-ADD1.
  41.         02 SADD2 LINE 6 COLUMN 22 PIC X(20) USING WS-ADD2.
  42.         02 STEL  LINE 8 COLUMN 22 PIC 999999 USING WS-TEL.
  43. PROCEDURE DIVISION.
  44. FIRST. 
  45.         OPEN INPUT A-NAME
  46.         OUTPUT B-FILE.
  47.         PERFORM TWO UNTIL COUNT <> 20.
  48.         CLOSE A-FILE, B-FILE
  49.         STOR RUN.
  50. TWO.
  51.         DISPLAY BLANK-SCREEN.
  52.         DISPLAY CUSTOMER-SCREEN.
  53.         ACCEPT CUSTOMER-SCREEN.
  54.         MOVE WS-NAME TO FNAME.
  55.         MOVE WS-ADD1 TO FADD1.
  56.         MOVE WS-ADD2 TO FADD2.
  57.         MOVE WS-TEL TO FTEL.
  58.         WRITE AREC FROM SCRN.
  59.         ADD 1 TO COUNT.