*COMDECK  DISPLAYLN 
00001                                                                    DISPLAY
00002 ******************************************************************DISPLAYL
00003 *  LOGICAL I/O FOR PRINTER                                        N  LV002
00004 ******************************************************************   CL**2
00005  DISPLAY-LINE.                                                    DISPLAYL
           IF 8BY11-FLAG EQUAL "D" GO TO 0100-TERMINAL. 
00006      IF LINE-CT LESS THAN MAX-LINES                               DISPLAYL
00007          GO TO 0500-DISPLAY-LINE.                                 DISPLAYL
00008      MOVE PRT-CTL TO SAVE-PRT-CTL.                                   CL**2
00009      IF LINE-CT EQUAL 99                                             CL**2
00010          GO TO 0100-DISPLAY-LINE.                                 DISPLAYL
00011 ****************************************************************  DISPLAYL
00012 *        PRINT END OF PAGE MESSAGE                                   CL**2
00013 ****************************************************************  DISPLAYL
00014      MOVE SPACE-1 TO PRT-CTL.                                        CL**2
00015      MOVE EOP-MSG TO PRT-EOP-MSG.                                 DISPLAYL
00016      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                      DISPLAYL
00017  0100-DISPLAY-LINE.                                                  CL**2
00018 ****************************************************************  DISPLAYL
00019 *         PRINT HEADING LINES                                        CL**2
00020 ****************************************************************  DISPLAYL
00021      ADD 1 TO PAGE-NO.                                            DISPLAYL
00022      MOVE PAGE-NO TO PRT-PAGE-NO.                                    CL**2
00025      MOVE CON-TITLE TO PRT-PROP.                                     CL**2
00026      IF 8BY11-FLAG EQUAL "Y"                                         CL**2
00027          MOVE PRT-PAGE-CON TO PRT-PAGE-811                           CL**2
00028      ELSE                                                            CL**2
00029          MOVE PRT-PAGE-CON TO PRT-PAGE.                              CL**2
00030      MOVE HOF-IND TO PRT-CTL.                                     DISPLAYL
00031      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                      DISPLAYL
00032      MOVE CON-USER TO PRT-PROP.                                      CL**2
00033      IF 8BY11-FLAG EQUAL "Y"                                         CL**2
00034          MOVE PRT-DATE1-CON TO PRT-DATE1-811                         CL**2
00035          MOVE PRT-DC TO PRT-DC-811                                   CL**2
00036      ELSE                                                            CL**2
00037          MOVE PRT-DATE1-CON TO PRT-DATE1.                            CL**2
00038      MOVE SPACE-1 TO PRT-CTL.                                     DISPLAYL
00039      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                      DISPLAYL
00040      IF 8BY11-FLAG EQUAL "Y"                                      DISPLAYL
00041          MOVE PRT-REV-NO-CON TO PRT-DATE1-811                        CL**2
00042      ELSE                                                            CL**2
00043          MOVE CON-DC TO PRT-DC                                       CL**2
00044          MOVE PRT-REV-NO-CON TO PRT-DATE1.                           CL**2
00045      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                      DISPLAYL
00046      IF 8BY11-FLAG EQUAL "Y"                                      DISPLAYL
00047          MOVE REPORT-TITLE-LONG TO PRT-TITLE-811                     CL**2
00048          MOVE PRT-DATE2-CON TO PRT-DATE1-811                      DISPLAYL
00049      ELSE MOVE PRT-DATE2-CON TO PRT-DATE1.                        DISPLAYL
00050      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                         CL**2
00051      IF 8BY11-FLAG EQUAL "N"                                         CL**2
00052          MOVE REPORT-TITLE-LONG TO PRT-TITLE                      DISPLAYL
00053          PERFORM WRITE-LINE THRU WRITE-LINE-XIT                   DISPLAYL
00054          MOVE 6 TO LINE-CT                                        DISPLAYL
00055      ELSE MOVE 5 TO LINE-CT.                                         CL**2
00056      IF USER-TITLE EQUAL SPACE                                       CL**2
00057          GO TO 0300-DISPLAY-LINE.                                    CL**2
00058      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                         CL**2
00059      IF 8BY11-FLAG EQUAL "Y"                                         CL**2
00060          MOVE USER-TITLE TO PRT-TITLE-811                            CL**2
00061      ELSE                                                            CL**2
00062          MOVE USER-TITLE TO PRT-TITLE.                               CL**2
00063      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                         CL**2
00064      ADD 2 TO LINE-CT.                                               CL**2
00065  0300-DISPLAY-LINE.                                                  CL**2
00066      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                         CL**2
00067      PERFORM USER-ROUTINE THRU USER-ROUTINE-XIT.                     CL**2
00068      MOVE SAVE-PRT-CTL TO PRT-CTL.                                DISPLAYL
00069 ****************************************************************  DISPLAYL
00070 *         PRINT THE LINE                                             CL**2
00071 ****************************************************************  DISPLAYL
00072  0500-DISPLAY-LINE.                                               DISPLAYL
00073      ADD PRT-CTL TO LINE-CT.                                         CL**2
00074      MOVE STD-REPORT-REC TO PRINT-DATA.                              CL**2
00075      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                         CL**2
00076      MOVE 1 TO PRT-CTL.                                              CL**2
00077      MOVE SPACES TO STD-REPORT-REC.                                  CL**2
00078  DISPLAY-LINE-XIT.                                                DISPLAYL
00079      EXIT.                                                        DISPLAYL
00080  0100-TERMINAL.                                                   DISPLAYL
           MOVE 1 TO PRT-CTL. 
00081      MOVE 1 TO LINE-CT.                                              CL**2
           MOVE ZERO TO PAGE-NO.
           GO TO 0500-DISPLAY-LINE. 
00082  EOP-RT.                                                             CL**2
00083      MOVE 2 TO PRT-CTL.                                              CL**2
00084      MOVE EOP-MSG TO PRT-EOP-MSG.                                    CL**2
00085      PERFORM WRITE-LINE THRU WRITE-LINE-XIT.                         CL**2
00086  EOP-RT-XIT.                                                         CL**2
00087      EXIT.                                                           CL**2
