Search results for query: *

In a Rexx exec, I am trying to concatenate 2 private libraries to ISPLLIB as follows: ADDRESS TSO "ALLOC FI(MYLIB1) SHR DA('H2501S.T.DYNAMIC.LIBZ00')" IF RC = 0 THEN CONCAT ISPLLIB MYLIB1 ADDRESS TSO "ALLOC FI(MYLIB2) SHR DA('H2501S.T.DYNAMIC.LIBZ01')" IF RC = 0...

I have a Rexx exec that calls a program (actually I think it might be an assembler program, it's vendor supplied). When it runs, there are displays from the program that show up on the screen that I would like to capture to a dataset. I've tried allocating SYSPRINT, SYSOUT, TERMINAL, etc...

I'm not sure which forum this belongs in, but here goes anyway : I am trying to pass a parm to a program via a Rexx exec using LINKPGM : EPAPARM = "/ADFPTVWUMAH5" ADDRESS LINKPGM 'EPA ' EPAPARM I am getting a return code -2 on the ADDRESS LINKPGM command. So, I created another dummy...

I know I'm probably missing something basic here, but I am trying to write a Rexx exec to check if a dataset is migrated, using LMDINIT. I'm getting RC -3 on the 'lmdinit' and 'lmdlist' commands. Thanks for any info... //TSOBATCH EXEC PGM=IKJEFT01,PARM='%MIGDSNS' //SYSTSIN...

Can anyone tell me why this expression turns out 'true' ? str1 = '1234567891' str2 = '1234567890' if str1 = str2 then say "they're equal" else say "they're not equal" If I compare 2 strings with lengths between 1 and 9, and the last...

Does anyone know why, when I type HILITE REXX on the command line, I get a message 'INVALID TERMINAL' ? A co-worker has the same settings as I do, and it works fine for him. Thanks for any help...

Can anyone tell me what ISREDIT command can I use to position the cursor at the beginning of the command line ? I tried: "ISREDIT CURSOR = 0 0" but that doesn't work.... Thanks for any help...

Is there a way to continue a line in QMF ? I need to concatenate a few fields and they all won't fit on one line: field1 || field2 || field3 || ... etc.. Thanks for any help ....

Is there a way to do a 'Group by' on a substringed column ? SELECT SUBSTR(MY_FIELD,1,4), COUNT(*) FROM MYDATABASE.MYTABLE WHERE STATE = '20' AND STATUS = '1' GROUP BY (MY_FIELD,1,4) <--- ????? Thanks for any help !

This isn't really a Rexx question, but in my Rexx exec I have the following: ADDRESS TSO "DELETE '"||MY.DATASET||"'" Is there any way to prevent the 'deleted' message from appearing on the screen ? IDC0550I ENTRY (A) MY.DATASET DELETED If not, is there another way to delete a dataset that...

I need to write an ISREDIT macro to insert a new line at the bottom of a file.. Can anyone help with this ? Thanks...

I have a Visual Basic program from which I'd like to set up a command button, that when clicked, will bring up a Lotus Notes Database view. The database apparently opens, but I'm unable to bring up the 'VIEW'. Can anyone help me out with what I'm missing here? Thanks! Here is the code...

I have a Visual Basic program from which I'd like to set up a command button, that when clicked, will bring up a Lotus Notes Database view. The database apparently opens, but I'm unable to bring up the 'VIEW'. Thanks for any help ! Here is the code: Public Sub openupdb() Dim notesdb As...

I'm having trouble with one particular user's machine, where my application gets a RUN TIME ERROR '91' - 'OBJECT VARIALBE OR WITH BLOCK VARIABLE NOT SET'.<br> <br> Does anyone have any information on this error? On the Microsoft Web site it says that the error may occur during the Package and...