| Title: | Alpha Migration Tools - Digital Confidential | 
| Notice: | Kits: VEST v1.1A: Note 15.60, mx v1.2-4: Notes 4.23 & 4.24 | 
| Moderator: | TALLIS::GORTON | 
| Created: | Wed Jun 13 1990 | 
| Last Modified: | Mon May 26 1997 | 
| Last Successful Update: | Fri Jun 06 1997 | 
| Number of topics: | 970 | 
| Total number of notes: | 4239 | 
    
    Will the following COBOL program "vestible" ?
    
    I got errors as follows when running it on Alpha :
    
    $ sho dev tta0:
    
    Device                  Device           Error
     Name                   Status           Count
    TTA0:                   Online               0
    
    $ vest PRINT.EXE;
    
    $ run PRINT_TV.EXE;
    
    %COB-F-ERRON_FIL, error on file TTA0:[QA].DAT;
    -RMS-E-PRV, insufficient privilege or file protection violation
    %TRACE-F-TRACEBACK, symbolic stack dump follows
     Image Name   Module Name     Routine Name    Line Number  rel PC     
    abs PC
                                                            0 93FC5550   
    93FC5550
     TIE$SHARE                                              0 000592B4   
    0008B2B4
    ----- Begin Translated VAX Frames
     LIBRTL_D56_T                                           0 0028BC04   
    0028BC04
     COBRTL_D56_T                                           0 0017533C   
    0017533C
     PRINT_TV                                               0 00000865   
    00000865
     TIE$SHARE                                              0 00058F04   
    0008AF04
    ----- End Translated VAX Frames
                                                            0 93FC533C   
    93FC533C
     TIE$SHARE                                              0 00058E30   
    0008AE30
                                                            0 93FC6170   
    93FC6170
    
    --------------------------------------------------------------------------------
IDENTIFICATION DIVISION.
PROGRAM-ID. TTA0.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
	    SELECT REPORT-FILE ASSIGN TO "TTA0:".
DATA DIVISION.
FILE SECTION.
FD  REPORT-FILE.
01  REPORT-RECORD	PIC X(80).
PROCEDURE DIVISION.
000-MAIN.
            OPEN OUTPUT REPORT-FILE.
	    MOVE "TEST REPORT" TO REPORT-RECORD.
	    WRITE REPORT-RECORD.
	    CLOSE REPORT-FILE.
	    STOP RUN.
    
| T.R | Title | User | Personal Name | Date | Lines | 
|---|---|---|---|---|---|
| 955.1 | Privs? | TALLIS::wlfgng.amt.tay1.dec.com::nelson | It's not the years it's the mileage! | Fri Feb 28 1997 09:05 | 3 | 
| Do you have privs to access TTA0? | |||||
| 955.2 | my tta0: status | HANDVC::STEVELIU | Mon Mar 03 1997 05:10 | 10 | |
|     
    HANDVG::[] sho dev tta0:
    
    Device                  Device           Error
     Name                   Status           Count
    TTA0:                   Online               0
    
    did I need to setup something ? how ?
    
    sl.
 | |||||
| 955.3 | need more | HNDYMN::MCCARTHY | A Quinn Martin Production | Mon Mar 03 1997 05:50 | 3 | 
| You need to do a show dev/full tta0: to find out the device protection. bjm | |||||
| 955.4 | tta0: status | HANDVC::STEVELIU | Mon Mar 03 1997 20:34 | 22 | |
|     
    here's the status :
    
    $ sho dev tta0: /full
    
    Terminal TTA0:, device type unknown, is online, record-oriented device,
    carriage
        control.
    
        Error count                    0    Operations completed                 
    0
        Owner process                 ""    Owner UIC                     
    [SYSTEM]
        Owner process ID        00000000    Dev Prot             
    S:RWPL,O:RWPL,G,W
        Reference count                0    Default buffer size                 
    80
    
    besides setting the protection, are there anything else I need to
    setup properly ?
    
    sl.
 | |||||
| 955.5 | TALLIS::wlfgng.amt.tay1.dec.com::nelson | It's not the years it's the mileage! | Tue Mar 04 1997 11:48 | 9 | |
| You either need read/write access to the device, or elevated privs to allocate it. This is no longer translated image problems, but basic VMS. Please see the online help for more info. Brian | |||||