Table of Contents

SHOWEX

Table Of Contents

  • [00004] SHOWEX EXECUTIVE PROGRAM.

Source Code

SHOWEX.txt 
  1.        PROGRAM SHOWEX
  2. *  TITLE SHOWEX - SHOWEX EXECUTIVE PROGRAM.
  3. *
  4. ***    SHOWEX - SHOWEX EXECUTIVE PROGRAM.
  5. *
  6. *      *SHOWEX* WILL DISPLAY A PREDEFINED PRIMARY PANEL, AND
  7. *      AN OPTIONAL SECOND PANEL WHICH CAN BE AN OVERLAY OR AN
  8. *      ANOTHER PRIMARY PANEL, FROM LOCAL FILE *PANELIB* OR
  9. *      GLOBAL LIBRARY SET FOR VISUAL CHECKOUT ON THE SCREEN.
  10. *
  11. *      *SHOWEX* USES THE SCREEN FORMATTING LIBRARY (SFLIB)
  12. *      *SFOPEN*, TO OPEN THE SPECIFIED PANEL(S), *SFSREA*
  13. *      (TO ALLOW VARIABLES DEFINED WITH DEFAULT VALUES TO
  14. *      BE SEEN) TO DISPLAY THE PANELS(S), AND *SFCLOS* TO
  15. *      CLOSE THE PANEL(S) AND REVERT TO LINE MODE.  IF THE
  16. *      PANEL(S) CAN NOT BE OPENED AN ERROR MESSAGE IS SENT.
  17. *
  18. *      PROGRAM SHOWEX
  19. *
  20. *      ENTRY   *PPANEL* = PRIMARY PANEL NAME.
  21. *              *OPANEL* = OPTIONAL OVERLAY PANEL.
  22. *
  23. *      EXIT    PANEL(S) DISPLAYED, TERMINAL RESET TO LINE MODE.
  24. *
  25. *      CALLS   GETPARM, SFCLOS, SFOPEN, SFSREA.
  26. *
  27. *      COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
  28. *
  29.  
  30.        CHARACTER*7 PARM
  31.        CHARACTER*7 PPANEL
  32.        CHARACTER*7 OPANEL
  33.        CHARACTER*1 DUMMY
  34.  
  35.        DUMMY = ' '
  36.        CALL GETPARM(PARM,PPANEL,I)
  37.        IF ((I.EQ.0).AND.(PPANEL.NE.'       ')) THEN
  38. *        CONTROL STATEMENT PARAMETER RETURNED.
  39.          CALL SFOPEN(PPANEL,J)
  40.          IF (J.EQ.0) THEN
  41. *          DISPLAY SUCCESSFULLY OPENED PANEL.
  42.            CALL SFSREA(PPANEL,DUMMY)
  43.            CALL GETPARM(PARM,OPANEL,I)
  44.            IF ((I.EQ.0).AND.(OPANEL.NE.'       ')) THEN
  45. *          CONTROL STATEMENT PARAMETER RETURNED.
  46.              CALL SFOPEN(OPANEL,J)
  47.              IF (J.EQ.0) THEN
  48. *              DISPLAY SUCCESSFULLY OPENED PANEL.
  49.                CALL SFSREA(OPANEL,DUMMY)
  50. *              CLOSE PANELS
  51.                CALL SFCLOS(OPANEL,0)
  52.                CALL SFCLOS(PPANEL,2)
  53.              ELSE
  54. *              CLOSE FIRST PANEL
  55.                CALL SFCLOS(PPANEL,2)
  56. *              ISSUE ERROR MESSAGE
  57.                GO TO (100,200,300,300,200,300,300) J
  58.  100           PRINT*,'SHOW - ',OPANEL,' NOT FOUND IN PANELIB.'
  59.                GO TO 400
  60.  200           PRINT*,'SHOW - BAD OR MISSING PANELIB.'
  61.                GO TO 400
  62.  300           PRINT*,'SHOW - INTERNAL ERROR.'
  63.  400           CONTINUE
  64.              ENDIF
  65.            ELSE
  66. *            CLOSE FIRST PANEL
  67.              CALL SFCLOS(PPANEL,2)
  68.            ENDIF
  69.          ELSE
  70. *          CLOSE PANEL, CLEARING SCREEN, ISSUE MESSAGE
  71.            GO TO (500,600,700,700,600,800,810) J
  72.  500       CALL SFCLOS(PPANEL,1)
  73.            PRINT*,'SHOW - ',PPANEL,' NOT FOUND IN PANELIB.'
  74.            GO TO 900
  75.  600       CALL SFCLOS(PPANEL,1)
  76.            PRINT*,'SHOW - BAD OR MISSING PANELIB.'
  77.            GO TO 900
  78.  700       CALL SFCLOS(PPANEL,1)
  79.            PRINT*,'SHOW - SHOW INTERNAL ERROR.'
  80.            GO TO 900
  81. *          NEVER IN SCREEN MODE, SO NO CALL TO SFCLOS
  82.  800       PRINT*,'SHOW - TERMINAL NOT IN SCREEN MODE.'
  83.            GO TO 900
  84.  810       PRINT*,'SHOW - TERMINAL MODEL UNKNOWN OR UNSUPPORTED.'
  85.  900       CONTINUE
  86.          ENDIF
  87.        ENDIF
  88.        END