display_cols in a batch job

[Andreas Fischer]

hi,

i ran an edit macro that uses the display_cols command in a batch job. the commands end with rc 28:

"(datacol1, datacol2) = display_cols"
RC(28) +++

in bookmanager, i neither find a description of this return code nor that display_cols can't be used in a batch job. it's just says you shouldn't use display_cols in initial macros. does anyone has an idea why it doesn't work in batch mode?

bye,
andi

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX

[Seibert, Dave]

Hi Andi

ISPF-L is probably a better place for this discussion.

It's been awhile since I've seen the RC 28, but my guess is that you are
asking for a service which requires a screen to do what you're asking.
I think I used to get RC28 if I mistakenly had a display panel in a Rexx
program or forgot to include the "END" or "CANCEL" in an edit macro. In
both cases, ISPF thought I wanted it to display something on my screen
which obviously it does not have in batch.

I can imagine ISPF services saying -- there is NO display, therefore
DISPLAY_COLS is not available.

I suspect the answer is implied in this statement from the Edit and Edit
Macros manual

"Do not use this assignment statement in initial macros because the
columns displayed are not known until the data first appears."
(C)opyright IBM Corp. 1984, 2007
http://publibfp.boulder.ibm.com/cgi-bin/bookmgr/BOOKS/ispzem61/3.3.24?AC
TION=MATCHES&REQUEST=display_cols&TYPE=FUZZY&SHELF=&DT=20071211170344&CA
SE=&searchTopic=TOPIC&searchText=TEXT&searchIndex=INDEX&rank=RANK&Scroll
TOP=FIRSTHIT#FIRSTHIT

For example if you are using a terminal emulator that provides a 133
width display, you'd get a different result than with the mod-2 80
column display.

I'm curious regarding what you want to do with display cols in batch.
Please enlighten us?

Dave

The contents of this e-mail are intended for the named addressee only. It contains information that may be confidential. Unless you are the named addressee or an authorized designee, you may not copy or use it, or disclose it to anyone else. If you received it in error please notify us immediately and then destroy it.

[Andreas Fischer]

hi dave,

thanks for your answer. i read the statement you mentioned myself in the bookmanager but literally thought it just doesn't work in initial macros.

i just tried the display_cols command as i was looking for a method to determine the width of the screen for using it in the rexx function center(). if you have any better idea, i don't mind :-)

bye,
andi

[Seibert, Dave]

I don't have a good solution for your requirement.

When I use center, it's usually just within the record length.

I must not care about my users as much as you do about yours.

Dave

The contents of this e-mail are intended for the named addressee only. It contains information that may be confidential. Unless you are the named addressee or an authorized designee, you may not copy or use it, or disclose it to anyone else. If you received it in error please notify us immediately and then destroy it.

From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf
Of Andreas Fischer
Sent: Thursday, August 14, 2008 8:43 AM
To: TSO-...@VM.MARIST.EDU
Subject: Antwort: Re: [TSO-REXX] display_cols in a batch job

hi dave,

thanks for your answer. i read the statement you mentioned myself in the
bookmanager but literally thought it just doesn't work in initial
macros.

i just tried the display_cols command as i was looking for a method to
determine the width of the screen for using it in the rexx function
center(). if you have any better idea, i don't mind :-)

bye,
andi

----------------------------------------------------------------------

[Dave Salt]

Do you want to center something within the screen (even though the screen isn't being displayed), or center it within the data? If it's within the screen, you could try:

address ispexec "VGET (ZSCREENW) SHARED"

If it's within the data, you could try:

address isredit "(LRECL) = LRECL"

HTH,

Dave Salt

SimpList(tm) - try it; you'll get it!
http://www.mackinney.com/products/SIM/simplist.htm

_________________________________________________________________

[Fenner, Jim]

Hello Andreas,
Do you have an edit macro calling another macro?

Thanks,

Jim Fenner
DECS MISC team
x-64448 (prefer landline) else
0401-712-978

-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf
Of Andreas Fischer

hi,

bye,
andi

****************************************************************
IMPORTANT

The information transmitted is for the use of the intended recipient only and may contain confidential and/or legally privileged material. Any review, re-transmission, disclosure dissemination or other use of, or taking of any action in reliance upon, this information by persons or entities other than the intended recipient is prohibited and may result in severe penalties. If you have received this e-mail in error please notify the Privacy Hotline of the Australian Taxation Office, telephone 13 28 69 and delete all copies of this transmission together with any attachments.
****************************************************************

[arlen stovall]

Jim, I use this code to call macro's it could also be called from a macro.

/* REXX CALLMAC */
/**********************************************************************/
/* THIS EXEC WILL EXECUTE A EDIT MACRO WITH INPUT DATASET NAME */
/* AND MACRO NAME MUST BE PASSED AS PARMS IN THAT ORDER */
/* NAME MUST BE PASSED AS PARMS IN THAT ORDER */
/**********************************************************************/
PARSE UPPER ARG DATASET_NAME MACRO_NAME
DATASET_NAME = "'"DATASET_NAME"'"

SAY "EDITING DATASET "DATASET_NAME " WITH EDIT MACRO "MACRO_NAME
COMMAND = EDIT @ DATASET"(" DATASET_NAME ,
")" @ MACRO"(" MACRO_NAME ")"
COMMAND = SPACE(COMMAND,0) /* DATASET SAVE CHOICE */
COMMAND = TRANSLATE(COMMAND," ","@") /* TRANS PLACE HOLDER */
ADDRESS "ISPEXEC" COMMAND /* EXEC ISPF COMMAND */

SAY RC

EXIT RC

--
Thanks
Arlen Stovall

[Andreas Fischer]

well in some cases i do. in this case, the macro is called by a rexx program using the edit command.

bye,
andi