Deck SHOWEX

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.showex  +++|       PROGRAM SHOWEX
00002  M01S00002.showex  +++|*  TITLE SHOWEX - SHOWEX EXECUTIVE PROGRAM.
00003  M01S00003.showex  +++|*
00004  M01S00004.showex  +++|***    SHOWEX - SHOWEX EXECUTIVE PROGRAM.
00005  M01S00005.showex  +++|*
00006  M01S00006.showex  +++|*      *SHOWEX* WILL DISPLAY A PREDEFINED PRIMARY PANEL, AND
00007  M01S00007.showex  +++|*      AN OPTIONAL SECOND PANEL WHICH CAN BE AN OVERLAY OR AN
00008  M01S00008.showex  +++|*      ANOTHER PRIMARY PANEL, FROM LOCAL FILE *PANELIB* OR
00009  M01S00009.showex  +++|*      GLOBAL LIBRARY SET FOR VISUAL CHECKOUT ON THE SCREEN.
00010  M01S00010.showex  +++|*
00011  M01S00011.showex  +++|*      *SHOWEX* USES THE SCREEN FORMATTING LIBRARY (SFLIB)
00012  M01S00012.showex  +++|*      *SFOPEN*, TO OPEN THE SPECIFIED PANEL(S), *SFSREA*
00013  M01S00013.showex  +++|*      (TO ALLOW VARIABLES DEFINED WITH DEFAULT VALUES TO
00014  M01S00014.showex  +++|*      BE SEEN) TO DISPLAY THE PANELS(S), AND *SFCLOS* TO
00015  M01S00015.showex  +++|*      CLOSE THE PANEL(S) AND REVERT TO LINE MODE.  IF THE
00016  M01S00016.showex  +++|*      PANEL(S) CAN NOT BE OPENED AN ERROR MESSAGE IS SENT.
00017  M01S00017.showex  +++|*
00018  M01S00018.showex  +++|*      PROGRAM SHOWEX
00019  M01S00019.showex  +++|*
00020  M01S00020.showex  +++|*      ENTRY   *PPANEL* = PRIMARY PANEL NAME.
00021  M01S00021.showex  +++|*              *OPANEL* = OPTIONAL OVERLAY PANEL.
00022  M01S00022.showex  +++|*
00023  M01S00023.showex  +++|*      EXIT    PANEL(S) DISPLAYED, TERMINAL RESET TO LINE MODE.
00024  M01S00024.showex  +++|*
00025  M01S00025.showex  +++|*      CALLS   GETPARM, SFCLOS, SFOPEN, SFSREA.
00026  M01S00026.showex  +++|*

Line S00027 Modification History
`M01` (Added by)	`showex`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00027  M02S00027.281l803 ---|*      COPYRIGHT CONTROL DATA CORPORATION, 1986.
00028  M01S00001.281l803 +++|*      COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00029  M01S00028.showex  +++|*
00030  M01S00029.showex  +++|
00031  M01S00030.showex  +++|       CHARACTER*7 PARM
00032  M01S00031.showex  +++|       CHARACTER*7 PPANEL
00033  M01S00032.showex  +++|       CHARACTER*7 OPANEL
00034  M01S00033.showex  +++|       CHARACTER*1 DUMMY
00035  M01S00034.showex  +++|
00036  M01S00035.showex  +++|       DUMMY = ' '
00037  M01S00036.showex  +++|       CALL GETPARM(PARM,PPANEL,I)
00038  M01S00037.showex  +++|       IF ((I.EQ.0).AND.(PPANEL.NE.'       ')) THEN
00039  M01S00038.showex  +++|*        CONTROL STATEMENT PARAMETER RETURNED.
00040  M01S00039.showex  +++|         CALL SFOPEN(PPANEL,J)
00041  M01S00040.showex  +++|         IF (J.EQ.0) THEN
00042  M01S00041.showex  +++|*          DISPLAY SUCCESSFULLY OPENED PANEL.
00043  M01S00042.showex  +++|           CALL SFSREA(PPANEL,DUMMY)
00044  M01S00043.showex  +++|           CALL GETPARM(PARM,OPANEL,I)
00045  M01S00044.showex  +++|           IF ((I.EQ.0).AND.(OPANEL.NE.'       ')) THEN
00046  M01S00045.showex  +++|*          CONTROL STATEMENT PARAMETER RETURNED.
00047  M01S00046.showex  +++|             CALL SFOPEN(OPANEL,J)
00048  M01S00047.showex  +++|             IF (J.EQ.0) THEN
00049  M01S00048.showex  +++|*              DISPLAY SUCCESSFULLY OPENED PANEL.
00050  M01S00049.showex  +++|               CALL SFSREA(OPANEL,DUMMY)
00051  M01S00050.showex  +++|*              CLOSE PANELS
00052  M01S00051.showex  +++|               CALL SFCLOS(OPANEL,0)
00053  M01S00052.showex  +++|               CALL SFCLOS(PPANEL,2)
00054  M01S00053.showex  +++|             ELSE
00055  M01S00054.showex  +++|*              CLOSE FIRST PANEL
00056  M01S00055.showex  +++|               CALL SFCLOS(PPANEL,2)
00057  M01S00056.showex  +++|*              ISSUE ERROR MESSAGE
00058  M01S00057.showex  +++|               GO TO (100,200,300,300,200,300,300) J
00059  M01S00058.showex  +++| 100           PRINT*,'SHOW - ',OPANEL,' NOT FOUND IN PANELIB.'
00060  M01S00059.showex  +++|               GO TO 400
00061  M01S00060.showex  +++| 200           PRINT*,'SHOW - BAD OR MISSING PANELIB.'
00062  M01S00061.showex  +++|               GO TO 400
00063  M01S00062.showex  +++| 300           PRINT*,'SHOW - INTERNAL ERROR.'
00064  M01S00063.showex  +++| 400           CONTINUE
00065  M01S00064.showex  +++|             ENDIF
00066  M01S00065.showex  +++|           ELSE
00067  M01S00066.showex  +++|*            CLOSE FIRST PANEL
00068  M01S00067.showex  +++|             CALL SFCLOS(PPANEL,2)
00069  M01S00068.showex  +++|           ENDIF
00070  M01S00069.showex  +++|         ELSE
00071  M01S00070.showex  +++|*          CLOSE PANEL, CLEARING SCREEN, ISSUE MESSAGE

Line S00071 Modification History
`M01` (Added by)	`showex`
`M02` (Updated by)	`ns2671`

Seq #  *Modification Id* Act 
----------------------------+
00072  M02S00071.ns2671  ---|           GO TO (500,600,700,700,600,800,800) J
00073  M01S00001.ns2671  +++|           GO TO (500,600,700,700,600,800,810) J
00074  M01S00072.showex  +++| 500       CALL SFCLOS(PPANEL,1)
00075  M01S00073.showex  +++|           PRINT*,'SHOW - ',PPANEL,' NOT FOUND IN PANELIB.'
00076  M01S00074.showex  +++|           GO TO 900
00077  M01S00075.showex  +++| 600       CALL SFCLOS(PPANEL,1)
00078  M01S00076.showex  +++|           PRINT*,'SHOW - BAD OR MISSING PANELIB.'
00079  M01S00077.showex  +++|           GO TO 900
00080  M01S00078.showex  +++| 700       CALL SFCLOS(PPANEL,1)
00081  M01S00079.showex  +++|           PRINT*,'SHOW - SHOW INTERNAL ERROR.'
00082  M01S00080.showex  +++|           GO TO 900
00083  M01S00081.showex  +++|*          NEVER IN SCREEN MODE, SO NO CALL TO SFCLOS
00084  M01S00082.showex  +++| 800       PRINT*,'SHOW - TERMINAL NOT IN SCREEN MODE.'
00085  M01S00002.ns2671  +++|           GO TO 900
00086  M01S00003.ns2671  +++| 810       PRINT*,'SHOW - TERMINAL MODEL UNKNOWN OR UNSUPPORTED.'
00087  M01S00083.showex  +++| 900       CONTINUE
00088  M01S00084.showex  +++|         ENDIF
00089  M01S00085.showex  +++|       ENDIF
00090  M01S00086.showex  +++|       END