HP3000-L Archives

July 2006, Week 2

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
donna garverick <[log in to unmask]>
Reply To:
Date:
Fri, 14 Jul 2006 16:40:31 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (62 lines)
we've got an old cobol program that's calling suprtool....that's having
trouble.

the version of suprtool2 in the library is (i believe) 4.2...at least
according to this:

SEGMENT  31 SUPRTOOL        LENGTH  6044

   ENTRY POINTS    CHECK CAL STT  ADR
   SUPRTOOL2         2    C    1     0
   SUPRTOOL          2    C    3  1007
   SUPRTOOL'4'2      3    C    4  1173           <<<<< 4.2??

this is the suprtool control area from their program:

01  SUPR-CONTROL.
    05  SUPR-VERSION                   PIC S9(4) COMP VALUE 2.
    05  SUPR-COMMAND-LINE              PIC X(256) VALUE SPACES.
    05  SUPR-FLAGS.
        10  SUPR-PRIORITY              PIC X(2) VALUE SPACES.
            88  SUPR-PRIORITY-CS       VALUE "CS".
            88  SUPR-PRIORITY-DS       VALUE "DS".
            88  SUPR-PRIORITY-ES       VALUE "ES".
        10  SUPR-MAXDATA               PIC S9(9) COMP VALUE 0.
        10  SUPR-PRINT-STATE           Pic X(2) VALUE "ER".
            88  SUPR-PRINT-ON-ERROR    VALUE "ER".
            88  SUPR-PRINT-ALWAYS      VALUE "AL".
            88  SUPR-PRINT-NEVER       VALUE "NE".
        10  SUPR-OTHER-FLAGS           PIC X(20) VALUE SPACES.
    05  SUPR-WORKSPACE                 PIC X(20) VALUE SPACES.
    05  SUPR-STATUS                    PIC S9(4) COMP.
        88  SUPR-OK                    VALUE ZEROS.
        88  SUPR-BAD-MSGFILES          VALUE 1.
        88  SUPR-ABORTED               VALUE 2.
        88  SUPR-CREATE-ERROR          VALUE 3.

i have documentation for calling suprtool version 4.4 and the control
area in the documentation doesn't match the above code.

does anyone have documentation for calling suprtool version 4.2?  if
so, please let me know.       - d

Donna Garverick, HP-CSA   Sr. System Programmer
dgarverick -at- longs -dot- com
925-210-6631              Longs Drug Stores

Come, my friends, 'Tis not too late to seek a newer world.
Tho' much is taken, much abides; and tho'
We are not now that strength which in old days
Moved earth and heaven, that which we are, we are.
"Ulysses", A. Tennyson

>>>MY opinions, not Longs Drug Stores'<<<

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2