OpenVMS

How to get command line arguments in OpenVMS Fortran?

由 送分小仙女□ 提交于 2021-02-10 18:23:12
问题 I need to realize c-code in fortran 90 standard and stopped on next problem. How get and use command line arguments. I found GET_COMMAND_ARGUMENT getarg But it doesn't work in the openvms system with fortran 90 compiler. There is another way to get command line arguments in Fortran? Example in C int main(int argc, char **argv) { if (argc > 1) .... } Example (which doesn't work " ILINK-W-NUDFSYMS, 2 undefined symbols: %ILINK-I-UDFSYM, GETARG %ILINK-I-UDFSYM, IARGC %ILINK-W-USEUNDEF, undefined

How to get command line arguments in OpenVMS Fortran?

由 狂风中的少年 提交于 2021-02-10 18:19:53
问题 I need to realize c-code in fortran 90 standard and stopped on next problem. How get and use command line arguments. I found GET_COMMAND_ARGUMENT getarg But it doesn't work in the openvms system with fortran 90 compiler. There is another way to get command line arguments in Fortran? Example in C int main(int argc, char **argv) { if (argc > 1) .... } Example (which doesn't work " ILINK-W-NUDFSYMS, 2 undefined symbols: %ILINK-I-UDFSYM, GETARG %ILINK-I-UDFSYM, IARGC %ILINK-W-USEUNDEF, undefined

好工具推荐系列：开源的杀毒软件

由 |▌冷眼眸甩不掉的悲伤 提交于 2020-08-07 14:57:30
金山卫士 开源项目，pcmanager v2.6.3。对于广大开发者尤其是广大做Windows安全方面的朋友来说，这套代码具有很大的借鉴意义，至少我们可以知道那些所谓的“电脑管家”到底对我们的电脑做了什么事情。 http://code.ijinshan.com/index.html https://bitbucket.org/knoss/pcmanager/src/default/ https://github.com/dreamsxin/PcManager https://github.com/5455945/PcManager/tree/bdev https://github.com/dreamsxin/knoss-pcmanager Ty2yAntiVirus 国产软件，VB写的 http://ty2y.com/ https://github.com/w2sft/Ty2yAntiVirus ClamAV ClamAV是一款免费、跨平台、开源的杀毒软件，采用C和C++语言便携，2018年4月9日发布了Unix版本，同时也支持AIX, BSD, HP-UX, Linux, macOS, OpenVMS, OSF (Tru64) and Solaris等系统，ClamAV可以检测各种恶意软件和病毒，也可以用在Email服务器的病毒检测。自0.97.5版开始

Perl encounters “out of memory” in openvms system

由 ☆樱花仙子☆ 提交于 2020-01-06 06:53:15
问题 I am using a 32 bit perl in my openvms system.(So perl can access up till 2gb of virtual address space ). I am hitting "out of memory!" in a large perl script. I zeroed in on the location of variable causing this . However after my tests with devel:size it turns out the array is using only 13 Mb memory and the hash is using much less than that. My question is about memory profiling this perl script in VMS. is there a good way of doing memory profile on VMS? I used size to get size of array

how to run a c program with reading command line parameters in openvms?

由 梦想的初衷 提交于 2020-01-04 06:23:09
问题 I built a simple program try to print the command line parameters. The code is below and I built an executable file (TEST.EXE). int main(int argc, char *argv[]) { int i; printf("%s\n",argv[0]); for (i = 1; i < argc; i++) printf("argument %d: %s\n", i, argv[i]); exit (EXIT_SUCCESS); } I try to run the TEST.EXE and print the parameters but fail. The result of command RUN TEST.EXE test1 test2 : %DCL-W-MAXPARM, too many parameters - reenter command with fewer parameters What can I do to print

how to run a c program with reading command line parameters in openvms?

由 戏子无情 提交于 2020-01-04 06:23:05
问题 I built a simple program try to print the command line parameters. The code is below and I built an executable file (TEST.EXE). int main(int argc, char *argv[]) { int i; printf("%s\n",argv[0]); for (i = 1; i < argc; i++) printf("argument %d: %s\n", i, argv[i]); exit (EXIT_SUCCESS); } I try to run the TEST.EXE and print the parameters but fail. The result of command RUN TEST.EXE test1 test2 : %DCL-W-MAXPARM, too many parameters - reenter command with fewer parameters What can I do to print

OpenVMS - DELETE Line if TEXT like x

由 瘦欲@ 提交于 2019-12-25 04:23:09
问题 I have a batch script that is writing all files inclusive of path and version number to a TMP file for a physical device. This batch script then writes any lines that demonstrate a file version number greater than a provided variable. DIRECTORYX := DIRECTORY /NODATE /NOHEADING /NOTRAILING DIR_OUTPUT_FILENAME = "TOPAS$UTILLOG:" + F$UNIQUE() + ".TMP" DEVICE = $1$DGA1112 DIRECTORYX 'DEVICE':[000000...]*.*;* /NOSIZE /OUTPUT='DIR_OUTPUT_FILENAME' At the same time I have files to which I am not

How can I convert an alphanumeric and use it for calculation?

由 ⅰ亾dé卋堺 提交于 2019-12-24 18:21:39
问题 I will read a sequential file which include some string such as "79.85", "1000", "212.34". I want to convert the alphanumeric into number in this format 00000.00 ? I will need to add up these numbers and move it to a field in the format 0000000.00 . I tried: 01 WS_AMOUNT_TXT PIC X(8). 01 WS_AMOUNT PIC 9(5).9(2). MOVE WS_AMOUNT_TXT(1:8) TO WS_AMOUNT(1:8). What I got is unexpected, the string is just as same. It is left align and no leading zero display. How can I made it right align and have

How does one safely static_cast between unsigned int and int?

由 我是研究僧i 提交于 2019-12-13 11:56:23
问题 I have an 8-character string representing a hexadecimal number and I need to convert it to an int . This conversion has to preserve the bit pattern for strings "80000000" and higher, i.e., those numbers should come out negative. Unfortunately, the naive solution: int hex_str_to_int(const string hexStr) { stringstream strm; strm << hex << hexStr; unsigned int val = 0; strm >> val; return static_cast<int>(val); } doesn't work for my compiler if val > MAX_INT (the returned value is 0). Changing

Migrating RMS to RDB

由 放肆的年华 提交于 2019-12-12 13:34:28
问题 We're approaching the migration of legacy OpenVMS RMS files into relational database (both MS SQL 2012 and Oracle 10g are available). I wonder if there are: Tools to retrieve schema of indexed files Tools to parse indexed files Tools to deal with custom RMS data formats (zoned decimals etc) as a bundle/API/Library Perhaps I should change the approach? 回答1: There are several tools available, notably through ODBC vendors (I work for one: Attunity). 1 >> Tools to retrieve schema of indexed files
订阅 OpenVMS