home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Low Level Languages / Rm Cobol V2.2 / PRNTST.CBL < prev    next >
Encoding:
Text File  |  1985-09-03  |  3.0 KB  |  87 lines
  1.     IDENTIFICATION DIVISION.
  2.     PROGRAM-ID.  PRNTST.
  3.       * SCCS information:
  4.       *@(#) PRNTST  ver. 1.1 last update 85/03/29 12:18:11
  5.       *@(#) This source obtained from the s file on 85/03/29 at 12:19:24
  6.       *            (PRINTER CONFIGURATION TEST)
  7.     ENVIRONMENT DIVISION.
  8.     CONFIGURATION SECTION.
  9.     SOURCE-COMPUTER.  RMCOBOL.
  10.     OBJECT-COMPUTER.  RMCOBOL.
  11.     INPUT-OUTPUT SECTION.
  12.     FILE-CONTROL.
  13.         SELECT PFILE ASSIGN TO PRINT, "PRINTER1".
  14.       *
  15.     DATA DIVISION.
  16.     FILE SECTION.
  17.     FD  PFILE RECORD CONTAINS 132 CHARACTERS,
  18.             LABEL RECORDS OMITTED.
  19.     01  FD-RECORD PIC X(132).
  20.       *
  21.     WORKING-STORAGE SECTION.
  22.     01    TITLE.
  23.         03    FILLER        PIC    X(51) VALUE
  24.         "PRNTST: RM/COBOL Verify printer operation      ver.".
  25.         03    TITLE-DATE    PIC    X(10).
  26.         03    TITLE-TIME    PIC    X(8).
  27.     01    VERSION-INFO.
  28.         03    FILLER        PIC    X(15) VALUE "@ #( ) (@)#@(#)".
  29.         03    PROGRAM-NAME    PIC    X(10) VALUE "PRNTST".
  30.         03    FILLER        PIC    X(6) VALUE " ver. ".
  31.         03    VERSION        PIC    X(4)    VALUE "1.1".
  32.         03    VER-DATE    PIC    X(10) VALUE " 85/03/29 ".
  33.         03    VER-TIME    PIC    X(8)    VALUE "12:18:11".
  34.         03    FILLER        PIC    X    VALUE ">".
  35.     01  WS-NEW-PAGE           PIC X(132) VALUE "NEW PAGE".
  36.     01  WS-NEXT-LINE                          PIC X(132) VALUE
  37.             "          NEXT LINE".
  38.     01  WS-FIVE-LINES                         PIC X(132) VALUE
  39.             "                    5 LINES".
  40.     01  WS-SAME-LINE                          PIC X(132) VALUE
  41.             "                              SAME LINE".
  42.     01  WS-NEW-PAGE-B                         PIC X(132) VALUE
  43.             "                                      NEW PAGE NEXT".
  44.     01  WS-NEXT-LINE-B                        PIC X(132) VALUE
  45.             "          LINE NEXT".
  46.     01  WS-FIVE-LINES-B                       PIC X(132) VALUE
  47.             "                    5 NEXT".
  48.     01  RETURN-KEY                            PIC X.
  49.       /
  50.     PROCEDURE DIVISION.
  51.     PARA-1.
  52.         MOVE VER-DATE TO TITLE-DATE MOVE VER-TIME TO TITLE-TIME.
  53.         DISPLAY TITLE LINE 1 ERASE.
  54.         OPEN OUTPUT PFILE.
  55.         DISPLAY "THIS SECTION TESTS PRINTER CONFIGURATION."
  56.             LINE 10 POSITION 20.
  57.         DISPLAY "MAKE SURE THAT THE PRINTER IS ATTACHED AND"
  58.             LINE 12 POSITION 19.
  59.         DISPLAY "ON LINE." LINE 13 POSITION 37.
  60.         DISPLAY "TYPE ANY KEY WHEN READY" LINE 15 POSITION 30.
  61.         ACCEPT RETURN-KEY POSITION 0.
  62.     PARA-2.
  63.         WRITE FD-RECORD FROM WS-NEW-PAGE
  64.             AFTER ADVANCING PAGE.
  65.         WRITE FD-RECORD FROM WS-SAME-LINE
  66.             AFTER ADVANCING ZERO LINES.
  67.         WRITE FD-RECORD FROM WS-FIVE-LINES
  68.             AFTER ADVANCING 5 LINES.
  69.         WRITE FD-RECORD FROM WS-SAME-LINE AFTER ADVANCING 0 LINES.
  70.         WRITE FD-RECORD FROM WS-NEXT-LINE.
  71.         WRITE FD-RECORD FROM WS-NEXT-LINE.
  72.         WRITE FD-RECORD FROM WS-NEW-PAGE-B
  73.             BEFORE ADVANCING PAGE.
  74.         WRITE FD-RECORD FROM WS-SAME-LINE AFTER ADVANCING 0 LINES.
  75.         WRITE FD-RECORD FROM WS-FIVE-LINES-B
  76.             BEFORE ADVANCING 5 LINES.
  77.         WRITE FD-RECORD FROM WS-SAME-LINE AFTER ADVANCING 0 LINES.
  78.         WRITE FD-RECORD FROM WS-NEXT-LINE-B
  79.             BEFORE ADVANCING 1 LINE.
  80.         WRITE FD-RECORD FROM WS-NEXT-LINE-B
  81.             BEFORE ADVANCING 1 LINE.
  82.     PROGRAM-END.
  83.         CLOSE PFILE.
  84.     EXIT-PARA.
  85.         EXIT PROGRAM.
  86.     END PROGRAM.
  87.