ASCII
*NOSEQ
*WIDTH 132
.PROC,SHOW*I,
P'PRIMARY PANEL NAME'=(*F),
O'OPTIONAL (OVERLAY) PANEL'=(*N=,*F).
.HELP,,NOLIST

          SHOW DISPLAYS PREDEFINED SCREEN FORMATTING PANELS ON
          THE SCREEN FOR EXAMINATION TO TEST PANEL DEFINITIONS
          WITHOUT HAVING TO WRITE A PROGRAM TO DISPLAY THEM.

          A PANEL TO BE SHOWN MUST BE A PDU (PANEL DEFINITION
          UTILITY) COMPILED PANEL THAT RESIDES ON LOCAL LIBRARY
          FILE PANELIB OR IN A GLOBAL LIBRARY SET.

          THE FIRST PARAMETER IS THE NAME OF A PRIMARY PANEL.

          THE SECOND PARAMETER IS THE (OPTIONAL) SECOND PANEL
          WHICH MAY BE ANOTHER PRIMARY OR AN OVERLAY PANEL.
.HELP,P,NOLIST

        E^N^T^E^R ^T^H^E ^N^A^M^E ^O^F ^A PDU (PANEL DEFINITION UTILITY) ^D^E^F^I^N^E^D ^P^A^N^E^L ^T^H^A^T
  ^E^X^I^S^T^S ^I^N ^A ^L^O^C^A^L ^L^I^B^R^A^R^Y ^F^I^L^E ^C^A^L^L^E^D PANELIB ^O^R ^I^N ^Y^O^U^R ^G^L^O^B^A^L ^L^I^B^R^A^R^Y ^S^E^T,
  ^A^N^D ^H^A^S ^B^E^E^N ^D^E^F^I^N^E^D ^A^S ^A PRIMARY (^N^O^T ^A^N OVERLAY) ^P^A^N^E^L.

        I^F ^Y^O^U^R ^T^E^R^M^I^N^A^L ^S^U^P^P^O^R^T^S ^S^C^R^E^E^N ^M^O^D^E (^Y^O^U ^H^A^V^E ^D^O^N^E ^A SCREEN,MODEL_
  NAME ^C^O^M^M^A^N^D, ^W^H^E^R^E MODEL_NAME ^I^S ^T^H^E ^N^A^M^E ^O^F ^Y^O^U^R ^T^E^R^M^I^N^A^L ^A^S ^D^E^F^I^N^E^D ^T^O
  ^T^H^E ^S^Y^S^T^E^M) ^T^H^E^N ^S^C^R^E^E^N ^F^O^R^M^A^T^T^I^N^G ^O^B^J^E^C^T ^R^O^U^T^I^N^E^S ^W^I^L^L ^B^E ^E^X^E^C^U^T^E^D ^T^O SHOW
  ^T^H^E ^P^A^N^E^L ^O^N ^T^H^E ^S^C^R^E^E^N.

        R^O^U^T^I^N^E^S SFOPEN, SFSREA, ^A^N^D SFCLOS ^W^I^L^L ^B^E ^C^A^L^L^E^D ^T^O ^O^P^E^N ^T^H^E ^P^A^N^E^L,
  ^S^E^T ^T^H^E ^T^E^R^M^I^N^A^L ^I^N^T^O ^S^C^R^E^E^N ^M^O^D^E, ^D^I^S^P^L^A^Y ^T^H^E ^P^A^N^E^L ^O^N ^T^H^E ^S^C^R^E^E^N ^F^O^R ^V^I^S
^L
  ^A^N^D ^I^N^P^U^T ^V^E^R^I^F^I^C^A^T^I^O^N, ^A^N^D ^R^E^S^E^T ^Y^O^U^R ^T^E^R^M^I^N^A^L ^T^O ^L^I^N^E ^M^O^D^E ^U^P^O^N ^E^X^I^T.

       T^H^E^R^E ^I^S ^N^O ^D^E^F^A^U^L^T ^F^O^R ^T^H^E ^F^I^R^S^T ^P^A^N^E^L, ^Y^O^U ^M^U^S^T ^S^P^E^C^I^F^Y ^A ^N^A^M^E.
.HELP,O,NOLIST

          E^N^T^E^R ^T^H^E ^N^A^M^E ^O^F ^A PDU (PANEL DEFINITION UTILITY) ^D^E^F^I^N^E^D ^P^A^N^E^L ^T^H^A^T
  ^E^X^I^S^T^S ^I^N ^A ^L^O^C^A^L ^L^I^B^R^A^R^Y ^F^I^L^E ^C^A^L^L^E^D PANELIB ^O^R ^I^N ^Y^O^U^R ^G^L^O^B^A^L ^L^I^B^R^A^R^Y ^S^E^T,
  ^A^N^D ^H^A^S ^B^E^E^N ^D^E^F^I^N^E^D ^A^S ^A PRIMARY ^O^R ^A^N OVERLAY ^P^A^N^E^L.

        I^F ^Y^O^U^R ^T^E^R^M^I^N^A^L ^S^U^P^P^O^R^T^S ^S^C^R^E^E^N ^M^O^D^E (^Y^O^U ^H^A^V^E ^D^O^N^E ^A SCREEN,MODEL_
  NAME ^C^O^M^M^A^N^D, ^W^H^E^R^E MODEL_NAME ^I^S ^T^H^E ^N^A^M^E ^O^F ^Y^O^U^R ^T^E^R^M^I^N^A^L ^A^S ^D^E^F^I^N^E^D ^T^O
  ^T^H^E ^S^Y^S^T^E^M) ^T^H^E^N ^S^C^R^E^E^N ^F^O^R^M^A^T^T^I^N^G ^O^B^J^E^C^T ^R^O^U^T^I^N^E^S ^W^I^L^L ^B^E ^E^X^E^C^U^T^E^D ^T^O SHOW
  ^T^H^E ^S^E^C^O^N^D ^P^A^N^E^L ^O^N ^T^H^E ^S^C^R^E^E^N.

        R^O^U^T^I^N^E^S SFOPEN, SFSREA, ^A^N^D SFCLOS ^W^I^L^L ^B^E ^C^A^L^L^E^D ^T^O ^O^P^E^N ^T^H^E ^P^A^N^E^L,
  ^D^I^S^P^L^A^Y ^I^T ^O^N ^T^H^E ^S^C^R^E^E^N ^F^O^R ^V^I^S^U^A^L ^A^N^D ^I^N^P^U^T ^V^E^R^I^F^I^C^A^T^I^O^N, ^A^N^D ^C^L^O^S^E ^I^T.

       T^H^E ^D^E^F^A^U^L^T ^I^S ^T^H^A^T ^N^O ^S^E^C^O^N^D ^P^A^N^E^L ^W^I^L^L ^B^E ^D^I^S^P^L^A^Y^E^D.
.ENDHELP
SHOWEX,#P=P,#O=O.
REVERT,NOLIST.
*WEOR