Search results for query: *

Thanks... using your method, I wasn't able to get it to work, though: "ISPEXEC LIBDEF ISPLLIB DATASET ID('H2501S.T.DYNAMIC.LIBZ00') STACK" "ISPEXEC LIBDEF ISPLLIB DATASET ID('H2501S.T.DYNAMIC.LIBZ01') STACK" "ISPEXEC SELECT CMD(H2545Z00)" IKJ56500I COMMAND H2545Z00 NOT FOUND ADDRESS...

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...

Yes, I tried OUTTRAP, and that didn't work. After doing some experimenting, I found out that the SYSPRINT dd wasn't being written to because it was already allocated. I put a "FREE DDNAME(SYSPRINT)" at the top of my exec, and now I am able to allocate and write to the SYSPRINT dd. Thanks.

Well, at least I got it to work by using: ADDRESS LINKMVS "EPA EPAPARM" I have to read up on this more, but it's working.

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...

Thanks... That worked for my dummy test COBOL program, but it's still not working for my call to the EPA program. I suspect now that the EPA program is Assembler. Would there be a different way to pass a PARM to an Assembler program ?

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...

Yes, thanks. I had read up on IKJEFT1A and IKJEFT1B. They will both pass back a user defined return code. I believe the problem I was having was that I was invoking ISPSTART : //ISPF EXEC PGM=IKJEFT1B,DYNAMNBR=30, // PARM='ISPSTART CMD(&CMD)' So, when the step completed, I was...

Thanks... That was my problem. I wasn't invoking ISPSTART. I did run into another problem where the return code that I was setting upon exit from my Rexx exec wasn't being recognized. But it appears that setting and putting the ZISPFRC variable takes care of that: ZISPFRC = 5...

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...

Looks like I needed the 'numeric digits' clause. Using 'numeric digits 10' worked..

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...

OK. I'm back... The difference between our settings was the TN3270 Connection setting for terminal type was IBM-3278 on mine and 3279 on his.

Well, I finally decided to copy a co-worker's SESSION.EDP file to my machine and it works now. I tried comparing the 2 files, but there's so many differences I'm not sure which one was causing the problem. If you're interested, I'll send you the compares, but I'm sure you'll be satisfied...

.---------------------------------------------------. | The message ID of the last message was "ISRE947 " | '---------------------------------------------------' Thanks... and yes, I am using TN3270

ISPF Release 5.7 - z/OS 01.07.00 Attachmate Extra! Personal Client version 6.5 Getting help from our systems programming dept. is like pulling teeth ...

I tried that.... I set it to 24x80, 'support extended attributes' is checked... I logged back on, set to Terminal Type '3'... and I get: 'Invalid Terminal', with the following F1 message: .--------------------------------------------------------------------------. | Enhanced coloring is not...

It turns out it will work... but only using a screen size of 32x80. If I use 'any model', 24x80, 43x80, or 27x132 it doesn't. The only catch is, if I leave my session at 32x80, I can't sign on to CICS. I get the following: U02RAA47 UNABLE TO ESTABLISH SESSION - IPS SRC FAILED WITH SENSE...

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...

exit('thanks!')