HP 3000 Manuals

Switch Programming User's Guide

Appendix E  EDIT Use File for Concatenating Switch Stubs 

     :comment  - - - - - - - - - - - - - - - - -  - - - - - - -
     :comment |                                                |
     :comment | This file is meant to be used as a 'USE' file  |
     :comment | with EDITOR/3000 to concatenate multiple STUB  |
     :comment | procedure source files into a single file.  To |
     :comment | use this utility, perform the following steps: |
     :comment |                                                |
     :comment | :EDITOR                                        |
     :comment | /USE CATEDIT                                   |
     :comment |  --- Then simply answer the prompts as they -- |
     :comment |  --- are presented.                         -- |
     :comment | /EXIT                                          |
     :comment |                                                |
     :comment | * NOTE *                                       |
     :comment | These comment lines DO NOT HAVE TO BE REMOVED  |
     :comment | for this EDITOR 'USE' file to function         |
     :comment | correctly.                                     |
     :comment |                                                |
     set short - - - - - - - - - - - - - - - - - - - - - - - - -
     set quiet
     q " ";q " ";q " ";q " ";q " "
     q " Switch Assist Tool (SWAT) STUB concatenation utility "
     q " ";q " "
     q "In the following dialog, you must enter the requested"
     q "information following the EDITOR 'ENTER Z::=' prompt. "
     q " ";q " "
     q "Enter first STUB FILE name below.  This file may be a"
     q "file as generated by SWAT, or a concatenated STUB file"
     q "created during a previous execution of this utility."
     q " "
     z::=
     q " "
     q "Bringing in file (z::)"
     q " "
     text z::

     q " "
     verify total
     q " "
     q "Extracting top outer block, and first STUB"
     q " "
     holdq first/last-3
     set batch
     z::=
     //
     set poll
     WHILE FLAG
       BEGINQ
       q " ";q " "
       q "Enter ANOTHER STUB FILE name below.  This file may be"
       q "a file as generated by SWAT, or a concatenated STUB"
       q "file created during a previous execution of this"
       q "utility."
       q " "
       q "** If there are NO MORE STUB FILES to concatenate **"
       q "** press CTRL-Y to complete the concatenation and **"
       q "** generate a new file.                           **"
       q " "
       z::=
       q " "
       q "Bringing in file (z::)"
       q " "
       t z::
       q " "
       verify total
       q " "
       q "Skipping over TOP OUTER BLOCK"
       q " "
       findq "$PAGE$"
       q "Extracting current STUB procedure"
       holdq */last-3,APPEND
       q " "
       END
     YES
     q "Appending bottom outer block code"
     holdq last-2/last,APPEND
     q " "

     q "Rebuilding work file"
     dq all
     add,holdq,now
     q "Enter NEW file name to contain the concatenated STUB"
     q "procedures."
     q " "
     z::=
     k z::,unn
     q " ";q " ";q " "
     q "STUB concatenation complete"
     q " "
     set long
     set display

MPE/iX 5.0 Documentation