home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Low Level Languages / Rm Cobol V2.2 / VERIFY.CBL < prev    next >
Encoding:
Text File  |  1985-09-03  |  2.3 KB  |  102 lines
  1.     IDENTIFICATION DIVISION.
  2.       *
  3.     PROGRAM-ID.  VERIFY.
  4.       * SCCS information:
  5.       *@(#) VERIFY  ver. 1.1 last update 85/03/29 12:17:53
  6.       *@(#) This source obtained from the s file on 85/03/29 at 12:19:26
  7.       *            (COBOL VERIFICATION TEST MAIN MENU)
  8.       *
  9.       *
  10.     ENVIRONMENT DIVISION.
  11.       *
  12.     CONFIGURATION SECTION.
  13.     SOURCE-COMPUTER.  RMCOBOL.
  14.     OBJECT-COMPUTER.  RMCOBOL.
  15.       *
  16.       *
  17.       *
  18.     DATA DIVISION.
  19.       *
  20.     WORKING-STORAGE SECTION.
  21.     01    TITLE.
  22.         03    FILLER        PIC    X(51) VALUE
  23.         "VERIFY: RM/COBOL Verification program          ver.".
  24.         03    TITLE-DATE    PIC    X(10).
  25.         03    TITLE-TIME    PIC    X(8).
  26.     01    VERSION-INFO.
  27.         03    FILLER        PIC    X(15) VALUE "@ #( ) (@)#@(#)".
  28.         03    PROGRAM-NAME    PIC    X(10) VALUE "VERIFY".
  29.         03    FILLER        PIC    X(6) VALUE " ver. ".
  30.         03    VERSION        PIC    X(4)    VALUE "1.1".
  31.         03    VER-DATE    PIC    X(10) VALUE " 85/03/29 ".
  32.         03    VER-TIME    PIC    X(8)    VALUE "12:17:53".
  33.         03    FILLER        PIC    X    VALUE ">".
  34.     77    FUNCTION-NUMBER        PIC 9.
  35.     77    RETURN-KEY        PIC X.
  36.       *
  37.       *
  38.       *
  39.       /
  40.     PROCEDURE DIVISION.
  41.     DISPLAY-MAIN-MENU.
  42.         MOVE VER-DATE TO TITLE-DATE MOVE VER-TIME TO TITLE-TIME.
  43.         DISPLAY TITLE LINE 1 ERASE.
  44.         DISPLAY " ".
  45.         DISPLAY "      RM/COBOL VERIFICATION TEST MAIN MENU".
  46.         DISPLAY " ".
  47.         DISPLAY "   1) SCREEN CONFIGURATION TEST".
  48.         DISPLAY "   2) FILE SYSTEM TEST".
  49.         DISPLAY "   3) NUCLEUS TEST".
  50.         DISPLAY "   4) PRINTER TEST".
  51.         DISPLAY "   5) EXIT PROGRAM".
  52.         DISPLAY " ".
  53.         DISPLAY "      ENTER DESIRED TEST NUMBER       ".
  54.     ACCEPT-MAIN-MENU.
  55.         ACCEPT FUNCTION-NUMBER LINE 11 POSITION 37 TAB.
  56.         GO TO NUMBER-1, NUMBER-2, NUMBER-3, NUMBER-4,
  57.             PROGRAM-END DEPENDING ON FUNCTION-NUMBER.
  58.         DISPLAY "  " LINE 11 POSITION 37.
  59.         GO TO ACCEPT-MAIN-MENU.
  60.       /
  61.       *
  62.       *
  63.       *
  64.     NUMBER-1.
  65.         CALL "VDTTST".
  66.         GO TO DISPLAY-MAIN-MENU.
  67.       *
  68.       *
  69.       *
  70.     NUMBER-2.
  71.         CALL "FILTST".
  72.         GO TO DISPLAY-MAIN-MENU.
  73.       *
  74.       *
  75.       *
  76.     NUMBER-3.
  77.         CALL "NUCTST".
  78.         GO TO DISPLAY-MAIN-MENU-LOOP.
  79.       *
  80.       *
  81.       *
  82.     NUMBER-4.
  83.         CALL "PRNTST".
  84.         GO TO DISPLAY-MAIN-MENU-LOOP.
  85.       *
  86.       *
  87.       *
  88.     DISPLAY-MAIN-MENU-LOOP.
  89.         DISPLAY "TYPE ANY KEY TO RETURN TO MENU"
  90.             LINE 22 POSITION 40.
  91.         ACCEPT RETURN-KEY POSITION 0.
  92.         GO TO DISPLAY-MAIN-MENU.
  93.       *
  94.       *
  95.       *
  96.     PROGRAM-END.
  97.     EXIT-PARA.
  98.         EXIT PROGRAM.
  99.     STOP-PARA.
  100.         STOP RUN.
  101.     END PROGRAM.
  102.