HECnet

hecnet@lists.dfupdate.se

2 participants
15583 discussions

Help with VMS decnet configuration please

by mark＠wickensonline.co.uk

On 14/09/12 20:37, Dennis Boone wrote: > so I updated the MODPARAMS.DAT, rebooted and ran NETCONFIG.COM, but I'm > getting errors when attempting to reach out over the ethernet. I know > the physical network connection is OK because tcpip is working fine. Wasn't there something about starting DECnet first? Try rebooting again now that the reconfig is done. De Well, I never thought this would fix a VMS issue, but rebooting it solved the problem. Sorry for wasting your bandwidth ;) Thanks for the help!!! Mark.

13 years, 1 month

Help with VMS decnet configuration please

by drb＠msu.edu

so I updated the MODPARAMS.DAT, rebooted and ran NETCONFIG.COM, but I'm getting errors when attempting to reach out over the ethernet. I know the physical network connection is OK because tcpip is working fine. Wasn't there something about starting DECnet first? Try rebooting again now that the reconfig is done. De

13 years, 1 month

Slightly OT - How to concatenate multi line strings in DEC COBOL

by mark＠wickensonline.co.uk

On 13/09/12 12:06, Sampsa Laine wrote: All I need is a function in C that takes a string and computes it's SHA1 hash (I've got the code for this) and returns the SHA1 hash as a string, I was thinking along the lines of int sha1hash(char *stringToHash, char *hashStringOutput); /* returns -1 if something borks, otherwise 0 */ Anyone got a nice little bit of code for: a) Wrapping that with the OpenVMS calling standard stuff in C (the strings will be passed in as descriptors etc, so I need to "unpack" them I suppose) b) An example call from COBOL to that wrapper.. Anyone? :) OK, well, my suggestion for these kinds of problems is 'DECUS archive'. If I ever get my semantic web browser up and running it will make this kind of issue trivial ;) In the meantime I did a manual search of packages in the archive containing both 'C' and 'COB' files. This was the list I got: ./vax89a1/cvlug/escdemo/escdemo-c.c ./vmslt01b/vu/cdwrite15_vms.c ./vmslt01b/vu/chkpw.c ./vmslt01b/vu/enable-ide.c ./vmslt01b/vu/fast_io_copy.c ./vmslt01b/vu/grant_revoke_id.c ./vmslt01b/vu/ide-info.c ./vmslt01b/vu/iishack2000-printerexploit.c ./vmslt01b/vu/rwmbx.c ./vmslt01b/vu/tcpfilter.c ./vax91b/france_1991/vaxf91a/vms/copy_folder.c ./vax91b/france_1991/vaxf91a/vms/get3.c ./vax91b/france_1991/vaxf91a/vms/latsym$setup.c ./vax91b/france_1991/vaxf91a/vms/mall.c ./vax91b/france_1991/vaxf91a/vms/show_cursor.c ./vax90b1/france/vaxf90a/vms/decw$creterm.c ./vax90b1/france/vaxf90a/vms/photo.c ./vax90b1/france/vaxf90a/vms/shar.c These are C files contained in packages that also contain files with extension .COB They are rooted here: http://www.decuslib.com/decus/ http://www.decuslib.com/decus/vax91b/france_1991/vaxf91a/vms/ In there are a number of COBOL files. I single out one here: find_file_with_selection.cob this calls a number of external routines for example: * On retrouve l'adresse de l'Item Liste CALL "LIB$ANALYZE_SDESC" USING BY DESCRIPTOR ITMLST BY REFERENCE DUMMY1 ITMLST_ADDRESS. CALL "LIB$MOVC3" USING DUMMY1 BY VALUE ITMLST_PTR BY REFERENCE ITMLST_MASK. * Taille du BUFFER... CALL "LIB$GET_VM" USING TAILLE_BUFFER BY REFERENCE BUFFER_ADDRESS GIVING RETCODE. IF RETCODE IS FAILURE THEN GO TO FIN. * Attributes BLOCK : NBR_ITEMS * 8 + 4 MULTIPLY 8 BY NBR_ITEMS GIVING TAILLE_ATRBLK. ADD 4 TO TAILLE_ATRBLK. CALL "LIB$GET_VM" USING TAILLE_ATRBLK BY REFERENCE ATRBLK_ADDRESS GIVING RETCODE. IF RETCODE IS FAILURE THEN GO TO FIN. Hopefully with a few examples of calling external routines within the archive you should be able to figure out what you need to do. Regards, Mark. -- http://www.wickensonline.co.uk http://declegacy.org.uk

13 years, 1 month

Slightly OT - How to concatenate multi line strings in DEC COBOL

by sampsa＠mac.com

All I need is a function in C that takes a string and computes it's SHA1 hash (I've got the code for this) and returns the SHA1 hash as a string, I was thinking along the lines of int sha1hash(char *stringToHash, char *hashStringOutput); /* returns -1 if something borks, otherwise 0 */ Anyone got a nice little bit of code for: a) Wrapping that with the OpenVMS calling standard stuff in C (the strings will be passed in as descriptors etc, so I need to "unpack" them I suppose) b) An example call from COBOL to that wrapper.. Anyone? :) Sampsa On 13 Sep 2012, at 14:01, Mark Wickens wrote: On 13/09/12 01:33, Jordi Guillaumes i Pons wrote: It should be no problem. All the DEC compilers share a common ABI (VMS calling and condition handling standard). There is a manual in the "gray wall" just about that. I can't search for it now, but iirc the title is easy to pick up. Basic summary: scalars are passed by reference, strings are passed by descriptor address. VMS C provides macros to build and manage descriptors (the ASCIZ convention is fortunately not used). The HP OpenVMS Calling Standard manual I think is what you are referring to. Unfortunately I don't think it's going to help Sampsa much - I had a quick flick through and it's all low level detail, it doesn't contain any examples of calling one language from another. More of a specification of the interface for new language implementations. Mark -- http://www.wickensonline.co.uk http://declegacy.org.uk

13 years, 1 month

Slightly OT - How to concatenate multi line strings in DEC COBOL

by mark＠wickensonline.co.uk

On 13/09/12 01:33, Jordi Guillaumes i Pons wrote: It should be no problem. All the DEC compilers share a common ABI (VMS calling and condition handling standard). There is a manual in the "gray wall" just about that. I can't search for it now, but iirc the title is easy to pick up. Basic summary: scalars are passed by reference, strings are passed by descriptor address. VMS C provides macros to build and manage descriptors (the ASCIZ convention is fortunately not used). The HP OpenVMS Calling Standard manual I think is what you are referring to. Unfortunately I don't think it's going to help Sampsa much - I had a quick flick through and it's all low level detail, it doesn't contain any examples of calling one language from another. More of a specification of the interface for new language implementations. Mark -- http://www.wickensonline.co.uk http://declegacy.org.uk

13 years, 1 month

Slightly OT - How to concatenate multi line strings in DEC COBOL

by jg＠jordi.guillaumes.name

It should be no problem. All the DEC compilers share a common ABI (VMS calling and condition handling standard). There is a manual in the "gray wall" just about that. I can't search for it now, but iirc the title is easy to pick up. Basic summary: scalars are passed by reference, strings are passed by descriptor address. VMS C provides macros to build and manage descriptors (the ASCIZ convention is fortunately not used). Jordi Guillaumes i Pons Barcelona - Catalunya - Europa El 12/09/2012, a les 20:21, Sampsa Laine <sampsa at mac.com> va escriure: Ah, That for example calling C from COBOL is for OSF/1 only. I wonder how one does this on VMS.. Sampsa On 12 Sep 2012, at 21:10, Michael Young wrote: found this at odl.sysworks.biz/disk$axpdocdec971/progtool/d37aaa48.p341.bkb#2110 : Example 12-8: C Include File " cobfunc " void cobcancel ( /* CANCEL the named COBOL routine */ char *name ); int cobcall ( /* Call a COBOL program from a C routine */ char *name, /* READ: name of the program */ int argc, /* READ: how many arguments */ char **argv /* READ: array of pointers to the arguments */ ); int cobfunc ( /* Call a COBOL program from a C routine, then CANCEL it */ char *name, /* name of the program */ int argc, /* how many arguments */ char **argv /* array of pointers to the arguments */ ); #ifdef __osf__ void cob_init ( /* init the RTL */ int argc, /* argument count */ char **argv, /* arguments */ char **envp /* environment variable pointers */ ); #endif --Mike On Sep 12, 2012, at 1:54 PM, Sampsa Laine <sampsa at mac.com> wrote: Does anybody happen to have a nice sample bit of code on how to call a C function from DEC COBOL? The documentation gave me this code: /* crtn - c function to test use of argc and argv in c routines * called from HP COBOL */ #include "cobfunc.h" #include <stdio.h> extern int _ _Argc; extern char **_ _Argv[]; #define argc _ _Argc #define argv (*_ _Argv) void crtn() { int i; i = 0; for (i = 0; i < argc; i++) { printf("argv[%d] = %s\n", i, argv[i]); } } But I can't find cobfunc.h anywhere Sampsa On 12 Sep 2012, at 20:18, Sampsa Laine wrote: Well this whole COBOL thing is verging on the humour value anyway, I think I might leave that til later :) Sampsa On 12 Sep 2012, at 20:13, Jordi Guillaumes i Pons wrote: IIRC there was no screen section support in VAX COBOL. Perhaps this can be a good excuse to learn the SMG$ RTL routines... Jordi Guillaumes i Pons Barcelona - Catalunya - Europa El 12/09/2012, a les 17:10, Sampsa Laine <sampsa at mac.com> va escriure: Tried to compile my little program on GORVAX but it has problems with the SCREEN SECTION that works on the AXP version.. I'm thinking I must have an old compiler or something. Anyone know what the latest is? Anyone have a kit? Sampsa Michael Young young at ecn.purdue.edu

13 years, 1 month

Slightly OT - How to concatenate multi line strings in DEC COBOL

by Paul_Koning＠Dell.com

Maybe because the VMS people made the assumption that any language can call any other, so no specific documentation is needed? That was one of the goals of VAX, and it should have carried to Alpha. So assuming that the data type mapping is clear, nothing else should need to be said. paul On Sep 12, 2012, at 3:22 PM, Sampsa Laine wrote: Well I always wanted to play with COBOL lol. It's just infuriating how there's no decent docs on how to call a damn C function anywhere. I mean there is for DEC UNIX COBOL, but not VMS. On 12 Sep 2012, at 22:00, Mark Wickens wrote: Sampsa, I've said it before, I'll say it again - your vintage forays sometimes make me look distinctly normal ;) Keep up the good work! Mark.

13 years, 1 month

Slightly OT - How to concatenate multi line strings in DEC COBOL

by sampsa＠mac.com

Well I always wanted to play with COBOL lol. It's just infuriating how there's no decent docs on how to call a damn C function anywhere. I mean there is for DEC UNIX COBOL, but not VMS. On 12 Sep 2012, at 22:00, Mark Wickens wrote: Sampsa, I've said it before, I'll say it again - your vintage forays sometimes make me look distinctly normal ;) Keep up the good work! Mark.

13 years, 1 month

Slightly OT - How to concatenate multi line strings in DEC COBOL

by mark＠wickensonline.co.uk

Sampsa, I've said it before, I'll say it again - your vintage forays sometimes make me look distinctly normal ;) Keep up the good work! Mark.

13 years, 1 month

Slightly OT - How to concatenate multi line strings in DEC COBOL

by sampsa＠mac.com

Ah, That for example calling C from COBOL is for OSF/1 only. I wonder how one does this on VMS.. Sampsa On 12 Sep 2012, at 21:10, Michael Young wrote: found this at odl.sysworks.biz/disk$axpdocdec971/progtool/d37aaa48.p341.bkb#2110 : Example 12-8: C Include File " cobfunc " void cobcancel ( /* CANCEL the named COBOL routine */ char *name ); int cobcall ( /* Call a COBOL program from a C routine */ char *name, /* READ: name of the program */ int argc, /* READ: how many arguments */ char **argv /* READ: array of pointers to the arguments */ ); int cobfunc ( /* Call a COBOL program from a C routine, then CANCEL it */ char *name, /* name of the program */ int argc, /* how many arguments */ char **argv /* array of pointers to the arguments */ ); #ifdef __osf__ void cob_init ( /* init the RTL */ int argc, /* argument count */ char **argv, /* arguments */ char **envp /* environment variable pointers */ ); #endif --Mike On Sep 12, 2012, at 1:54 PM, Sampsa Laine <sampsa at mac.com> wrote: Does anybody happen to have a nice sample bit of code on how to call a C function from DEC COBOL? The documentation gave me this code: /* crtn - c function to test use of argc and argv in c routines * called from HP COBOL */ #include "cobfunc.h" #include <stdio.h> extern int _ _Argc; extern char **_ _Argv[]; #define argc _ _Argc #define argv (*_ _Argv) void crtn() { int i; i = 0; for (i = 0; i < argc; i++) { printf("argv[%d] = %s\n", i, argv[i]); } } But I can't find cobfunc.h anywhere Sampsa On 12 Sep 2012, at 20:18, Sampsa Laine wrote: Well this whole COBOL thing is verging on the humour value anyway, I think I might leave that til later :) Sampsa On 12 Sep 2012, at 20:13, Jordi Guillaumes i Pons wrote: IIRC there was no screen section support in VAX COBOL. Perhaps this can be a good excuse to learn the SMG$ RTL routines... Jordi Guillaumes i Pons Barcelona - Catalunya - Europa El 12/09/2012, a les 17:10, Sampsa Laine <sampsa at mac.com> va escriure: Tried to compile my little program on GORVAX but it has problems with the SCREEN SECTION that works on the AXP version.. I'm thinking I must have an old compiler or something. Anyone know what the latest is? Anyone have a kit? Sampsa Michael Young young at ecn.purdue.edu

13 years, 1 month

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

HECnet