Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
Concatenate to ISPLLIB ?
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... -
Concatenate to ISPLLIB ?
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... -
capture terminal displays from Rexx / External Program call
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. -
passing parm with '/' to COBOL pgm - error
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.- tcurrier
- Post #6
- Forum: COBOL General discussion
-
capture terminal displays from Rexx / External Program call
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... -
passing parm with '/' to COBOL pgm - error
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 ?- tcurrier
- Post #4
- Forum: COBOL General discussion
-
passing parm with '/' to COBOL pgm - error
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...- tcurrier
- Thread
- Replies: 5
- Forum: COBOL General discussion
-
calling LMDINIT from Rexx ?
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... -
calling LMDINIT from Rexx ?
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... -
calling LMDINIT from Rexx ?
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... -
Why do these strings compare ?
Looks like I needed the 'numeric digits' clause. Using 'numeric digits 10' worked.. -
Why do these strings compare ?
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... -
HILITE REXX not working ?
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. -
HILITE REXX not working ?
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... -
HILITE REXX not working ?
.---------------------------------------------------. | The message ID of the last message was "ISRE947 " | '---------------------------------------------------' Thanks... and yes, I am using TN3270 -
HILITE REXX not working ?
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 ... -
HILITE REXX not working ?
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... -
HILITE REXX not working ?
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... -
HILITE REXX not working ?
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... -
