HP 3000 Manuals

Switch Programming User's Guide

Appendix D  TDP Use File for Concatenating Switch Stubs 

     :comment |------------------------------------------------|
     :comment |                                                |
     :comment | This file is meant to be used as a 'USE' file  |
     :comment | with TDP/3000 to concatenate multiple STUB     |
     :comment | procedure source files into a single file.  To |
     :comment | use this utility, perform the following steps: |
     :comment |                                                |
     :comment | :RUN TDP.PUB.SYS                               |
     :comment | /USE CATTDP                                    |
     :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 TDP 'USE' file to function correctly. |
     :comment |                                                |
     :comment |------------------------------------------------|
     set shorterror
     set quiet
     q " ";q " ";q " ";q " ";q " "
     q " Switch Assist Tool (SWAT) STUB concatenation utility "
     q " ";q " "
     q "In the following dialog, enter the information"
     q "requested when prompted."
     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 " "
     zp::="First STUB FILE : "
     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
     @L1 q " ";q " "
     q "Enter ANOTHER 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 " "
     zp::="Enter ANOTHER STUB file name : "
     q " "
     q "Bringing in file (z::)"
     q " "
     t z::
     q " "
     verify total
     q " "
     q "Skipping over TOP OUTER BLOCK"
     q " "
     findq "$PAGE$",NOTEXT
     q "Extracting current STUB procedure"
     holdq */last-3,APPEND
     q " "
     @IF "Concatenating another STUB? (Y/N) : " THEN GO TO L1
     q " ";q " "
     q "Appending bottom outer block code"
     holdq last-2/last,APPEND
     q " "
     q "Rebuilding work file"
     dq all
     addq 1,HOLDQ
     q " ";q " "
     zp::="Enter NEW file name to contain concatenated STUBS : "
     k z::,unn
     q " ";q " ";q " "
     q "STUB concatenation complete"
     q " "
     set display
     set longerror

MPE/iX 5.0 Documentation