User Tools

Site Tools


cdc:nos2.source:opl871:showex

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
cdc/nos2.source/opl871/showex.txt ยท Last modified: 2023/08/05 17:24 by Site Administrator