|
HP OpenVMS Systemsask the wizard |
|
The Question is: I'm trying to bring code from a Vax system to an Alpha system. I have recompiled all the COBOL programs that are needed but I'm having trouble Linking the programs. The link procedure I'm using has a Macro in it and I'm getting errors like it's not supported. Here's the link procedure i'm using: $! link_share.com $! COMMAND PROCEDURE TO LINK A PROGRAM AS A SHAREABLE IMAGE $ install:=$sys$system:install/command $ set noon $ set message/nofacility/noidentification/noseverity/notext $ delete 'P1'.map;* $ delete 'P1'.opt;* $ delete x'P1'.mar;* $ define copy_lib basis$data:[picprod.library] $ define aprog basis$data:[picprod.appl.programs] $ @aprog:define_exe.com $ set message/facility/identification/severity/text $ set on $ dm_db_picdb == "picdb" $ dm_db_xpicdb == "xpicdb" $ SET NOVERIFY $ open/write optfile aprog:'p1'.opt $ write optfile "cluster=X_",P1,",,,-" $ write optfile "basis$data:[picprod.appl.programs]X",P1,".obj" $ write optfile "gsmatch=always,0,0" $ write optfile "dm$:dmuss.exe/shareable" $ write optfile "dm$:dmrtl.exe/shareable" $ write optfile "basis$data:[picprod.library]share_library.olb-" $ write optfile "/library" $ close optfile $ open/write optfile x'P1'.mar $ write optfile ".title X",P1 $ write optfile ".transfer ",P1 $ write optfile ".mask ",P1 $ write optfile "jmp l^",P1,"+2" $ write optfile ".end" $ close optfile $ macro x'P1' $ delete x'P1'.mar;* $ library/extract='P1'/output='P1'.obj copy_lib:object_library $ link/shareable/exec='P1'.exe 'P1',aprog:'P1'.opt/option/map $ library/shareable/replace copy_lib:share_library.olb 'P1'.exe $ install replace aprog:'P1'.exe/open/header/shar $ write sys$output " Replaced program ",P1," on shared library." $ install:=$sys$system:install $ delete 'P1'.obj;* $ delete 'P1'.opt;* $ delete x'P1'.obj;* $ deassign copy_lib $ @aprog:deassign_exe.com $ SET PROTECTION=(W:RE) 'P1'.EXE I have looked at the cookbook but it is not helping. Can you give me any help. Thanks, Scott Hughes The Answer is :
The DCL command procedure shown generates a LINKER options file and
then Macro32 program containing a set of shareable image transfer vectors
-- more specifically, one transfer vector, with the entry point using
the same name as the image.
OpenVMS VAX Macro32 transfer vectors are not used on OpenVMS Alpha.
The appropriate way to declare the equivilent of OpenVMS VAX shareable
image transfer vectors is via a LINKER options file.
Omit the generation of the Macro32 module entirely, remove the associated
Macro32 compilation (OpenVMS Alpha has a Macro32 compiler), remove the
references to the Macro32 module elsewhere in the procedure, remove the
CLUSTER directive in the LINKER options file that references the Macro32
module, and add a line to the options file for something akin to the
following symbol vector entry:
SYMBOL_VECTOR = ( entry_point_symbol_name = PROCEDURE)
|