Re: FW: RMM Question

2022-10-08 Thread jan De Decker

On 6/10/2022 19:07, Steve Beaver wrote:

Does anyone in the group have the following Redbook on their PC or Laptop

  


SG24-4998-01, Converting to Removable Media Manager: A Practical Guide

  I migth have it on a backup.


Any idea of the date?

Best regards.

j@n.





--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


System REXX AXRCMD not returning all the output of a display command

2014-12-06 Thread jan de decker
Hi list,

I have a problem with AXRCMD returning not all the lines of a JES2 display
command.

A system rexx is coded as follows:

rc = axrcmd('$DPROCLIB','proclib.',5)
if rc <> 0 then do
   say 'axrcmd $DPROCLIB returned non-zero return code:' rc
   return(rc)
   end
say '-START-'rc'--'proclib.0'---'
do i = 1 to proclib.0
   say '---'i'---'proclib.i
   end
say '-END---'

This results in the following 8 lines written to SYSLOG:

-START-0--8---
---1--- $HASP319 PROCLIB(PROC00)
---2--- $HASP319 PROCLIB(PROC00)DD(1)=(DSNAME=SYSL.TMP.PROCLIB.PL+
EX9
---3--- $HASP3191.IP91B1),
---4--- $HASP319DD(2)=(DSNAME=SYSN.EOC.PROCLIB),
---5--- $HASP319DD(3)=(DSNAME=SYSL.MID.PROCLIB.PL+
EX9
---6--- $HASP3191),
---7--- $HASP319DD(4)=(DSNAME=SYSN.MID.PROCLIB),
---8--- $HASP319DD(5)=(DSNAME=SYS1.IBM.PROCLIB)
-END---

However in SDSF,  /$DPROCLIB results in 12 lines:


$HASP319 PROCLIB(PROC00)
$HASP319 PROCLIB(PROC00)DD(1)=(DSNAME=SYSL.TMP.PROCLIB.PLEX9
$HASP3191.IP91B1),
$HASP319DD(2)=(DSNAME=SYSN.EOC.PROCLIB),
$HASP319DD(3)=(DSNAME=SYSL.MID.PROCLIB.PLEX9
$HASP3191),
$HASP319DD(4)=(DSNAME=SYSN.MID.PROCLIB),
$HASP319DD(5)=(DSNAME=SYS1.IBM.PROCLIB)
$HASP319 PROCLIB(PROC01)
$HASP319 PROCLIB(PROC01)DD(1)=(DSNAME=SYSL.TMP.PROCLIB.PLEX9
$HASP3191.IP91B1),
$HASP319DD(2)=(DSNAME=SYSN.TSO.PROCLIB)


Anybody an idea or should I APAR it?

Any help would be greatly appreciated.


Best regards,


j@n

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Tracing the name of executed Rexx execs

2014-08-15 Thread jan de decker
Hi list,


A big clean-up is planned at our site and I was asked to deliver a list of
executed rexx execs, preferably with the jobname (or TSO user) and the
dataset where the rexx resides.

I tried different things but the only result sofar is:

I modified IRXTSPARMS and IRXPARMS

MODNAME_TIRXEXEC DC CL8'IRXJEDSP'

IRXJEDSPT is a small program that displays in WTO's the following values
from the EXECBLK:

EXEC_BLK_ACRYN
EXEC_DDNAME
EXEC_MEMBER
EXEC_DSNPTR


The job

//STEP1 EXEC PGM=IKJEFT01,PARM='%TEST'
//SYSEXEC DD DISP=SHR,DSN=MY.REXX.EXEC
//SYSTSPRT  DD SYSOUT=*
//SYSTSIN DD DUMMY

generates a WTO with the eyecatcher and the rexx exec name

I guess the DDNAME is not filled in because this is defined in de module
name table, and the DSN because it could be a concatenation.

If now in my TEST rexx I add

EXEC 'MY.REXX.EXEC(TAST)'

I have also a WTO for the dsname
and SYS0001 for the DDNAME

If in the exec TAST I add

address "TSO" %TOST

If I execute in ISPF 6

EXEC 'MY.REXX.EXEC(TAST)'

I have nothing at all.

I tried to front-end IRXLOAD, but got terrible ABENDS.


Any idea, help would be greatly appreciated.


Thanks,


j@n

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


REGION size IEFUSI question

2014-08-12 Thread jan de decker
Hi list,


A client asked me to revise an old IEFUSI exit.

Part of the logic flow is:

If REGION=x is coded in  the JCL and x <16M or x = 0M then do

add 96K to REGION limit below

Q1: Why 96K?

end

else do

Take the region size below from LDASIZA

substract LDAHIAL

substract 384K

Q2: Why 384K

set the result as limit below

set the result minus 96K as  size below.

Q3: Why 96K?

end

If anybody has an idea about Q1, Q2 oe Q3, i would be most grateful.


Best regards,


j@n

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Validation of a resource name,

2014-03-05 Thread jan de decker
Hi list,


Thanks to all who responded.

The purpose of the Javascript is to give as much feed-back to the user as
possible before sending it to zOS, who will repeat the validations and a
lot more for the dynamic CDT and ICHRRCDE user defined classes.

Uppercase ALPHANUM is not checked because RACF does not care on the server.

The title of my mail was badly chosen. I want to do resource as well as
profile checking.

E.g. The user can fill in

userd: jan
access: ALTER
class: dataset
resource: jan.x.*

or jan.x.rexx

The CGI program can handle both profile and resource and will return the
authorization and the why. E.g.

jan ALTER dataset jan.x.* PERMIT via group SYSTEM

if the authorization is not sufficient it will return the highest one. E.g.

jan CONTROL dataset jan.x.rexx via GLOBAL &uid.**

If anybody could comment on this it would greatly appreciated.


Regards,


j@n

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Validation of a resource name

2014-03-05 Thread jan de decker
Hi list,

I am building a small web application that interfaces with RACF.

On the client side I only have the IBM default supplied classes.

I want validate as much as possible on the client before sending it to the
server.

For the moment I have the following checks:

- For all classes, never allowed is:

 triple '*'
 2 times '**'
  no dot before '**'
 '*' must be followed by a dot, an second '*' or must be the end of the
resource name

- For the DATASET class:

 A qualifier starts with a number
 A qualifier is longer than 8 characters
 A warning for a single level qualifier resource name

- For the other IBM default ones including DATASET:

 First, Other and Maxlnth are checked

Anybody any corrections or supplementary checks I could add?

Any reaction would be greatly appreciated.

j@n

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: Compiled rexx fails on readfile

2014-01-31 Thread jan de decker
Hi all,

Thanks to a sugesstion from the list (Thanks John) I got a bit further.

The stem is empty apart from the number of lines which is correct.

The result is below.

Anybody any ideas?

j@n


9 *-* if syscalls('ON')>3
   >L>   "ON"
   >F>   "0"
   >L>   "3"
   >O>   "0"
13 *-* pathname = '/jedsp/web/pub/cgi/html_header'
   >L>   "/jedsp/web/pub/cgi/html_header"
14 *-* address "SYSCALL"
15 *-* "readfile "pathname" htmlh."
   >L>   "readfile "
   >V>   "/jedsp/web/pub/cgi/html_header"
   >L>   " htmlh."
   >O>   "readfile /jedsp/web/pub/cgi/html_header"
   >O>   "readfile /jedsp/web/pub/cgi/html_header htmlh."
16 *-* say rc
   >V>   "0"
0
17 *-* say retval
   >V>   "3"
3
18 *-* do i = 1 to htmlh.0
   >L>   "1"
   >V>   "11"
19 *-* say htmlh.i
   >C>   "HTMLH.1"
   >V>   ""

20 *-* end
18 *-* do i = 1 to htmlh.0
19 *-* say htmlh.i
   >C>   "HTMLH.2"
   >V>   ""



On Fri, Jan 31, 2014 at 4:11 PM, John McKown
wrote:

> On Fri, Jan 31, 2014 at 8:41 AM, jan de decker 
> wrote:
>
> > Hi list,
> >
> > John, thanks for the suggestions but the first one gives me a n rc of -1,
> > the second one gives an rc of 127
> >
> > Anybody any idea?
> >
> > Thanks,
> >
> > j@n
> >
> >
> Unfortunately, I don't have access to the REXX compiler. But a couple of
> questions have occurred to me:
> 1) does your REXX program have a SYSCALLS('ON') statement to enable the
> UNIX system calls?
> 2) do you have an ADDRESS SYSCALL standalone statement before doing the
> "readfile".
>
> You might want to prefix the "readfile" line with an ADDRESS SYSCALL
> similar to
>
> ADDRESS SYSCALL "readfile (pathname) htmlh."
>
>
> --
> Wasn't there something about a PASCAL programmer knowing the value of
> everything and the Wirth of nothing?
>
> Maranatha! <><
> John McKown
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: Compiled rexx fails on readfile

2014-01-31 Thread jan de decker
Hi list,

John, thanks for the suggestions but the first one gives me a n rc of -1,
the second one gives an rc of 127

Anybody any idea?

Thanks,

j@n


On Fri, Jan 31, 2014 at 2:07 PM, John McKown
wrote:

> The problem is with the way you did the readfile. You have:
>
> "readfile ("pathname") htmlh."
>
> You should have one of the following instead:
>
> "readfile (pathname) htmlh." /* note that the (readfile) is inside the
> quotes, not outside */
>
> "readfile "pathname" htmlh." /* note lack of parentheses */
>
> The manual is a bit confusing.
>
>
> On Fri, Jan 31, 2014 at 7:02 AM, jan de decker 
> wrote:
>
> > Hi list,
> >
> > I have a problem with a compiled simple rexx program (seee output below).
> >
> > I searched but could find no explanation for the rc(1) of the readfile
> > command.
> >
> > The purpose is to implement this as a CGI program but for the moment it
> > even fails the same way from the OMVS command line.
> >
> > The file
> >
> > /jedsp/web/pub/cgi/html_header
> >
> > exists and is a small text file containing a few lines of html headers.
> >
> > cat /jedsp/web/pub/cgi/html_header
> >
> > works fine.
> >
> > Any help would be greatly appreciated.
> >
> > Thx,
> >
> >
> > j@n
> >
> >
> >
> > Hello
> >  9 *-* if syscalls('ON')>3
> >>L>   "ON"
> >>F>   "0"
> >>L>   "3"
> >>O>   "0"
> > 13 *-* pathname = '/jedsp/web/pub/cgi/html_header'
> >>L>   "/jedsp/web/pub/cgi/html_header"
> > 14 *-* "readfile ("pathname") htmlh."
> >>L>   "readfile ("
> >>V>   "/jedsp/web/pub/cgi/html_header"
> >>L>   ") htmlh."
> >>O>   "readfile (/jedsp/web/pub/cgi/html_header"
> >>O>   "readfile (/jedsp/web/pub/cgi/html_header) htmlh."
> >+++ RC(1) +++
> > 15 *-* say rc
> >>V>   "1"
> > 1
> > 16 *-* say retval
> >>L>   "RETVAL"
> > RETVAL
> > 17 *-* do i = 1 to htmlh.0
> >>L>   "1"
> >>L>   "HTMLH.0"
> > 17 +++ do i = 1 to htmlh.0
> > EAGREX4100E Error 41 running compiled /jedsp/web/pub/cgi/sayhello,
> > line 17: Bad arithmetic conversion
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
>
>
>
> --
> Wasn't there something about a PASCAL programmer knowing the value of
> everything and the Wirth of nothing?
>
> Maranatha! <><
> John McKown
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Compiled rexx fails on readfile

2014-01-31 Thread jan de decker
Hi list,

I have a problem with a compiled simple rexx program (seee output below).

I searched but could find no explanation for the rc(1) of the readfile
command.

The purpose is to implement this as a CGI program but for the moment it
even fails the same way from the OMVS command line.

The file

/jedsp/web/pub/cgi/html_header

exists and is a small text file containing a few lines of html headers.

cat /jedsp/web/pub/cgi/html_header

works fine.

Any help would be greatly appreciated.

Thx,


j@n



Hello
 9 *-* if syscalls('ON')>3
   >L>   "ON"
   >F>   "0"
   >L>   "3"
   >O>   "0"
13 *-* pathname = '/jedsp/web/pub/cgi/html_header'
   >L>   "/jedsp/web/pub/cgi/html_header"
14 *-* "readfile ("pathname") htmlh."
   >L>   "readfile ("
   >V>   "/jedsp/web/pub/cgi/html_header"
   >L>   ") htmlh."
   >O>   "readfile (/jedsp/web/pub/cgi/html_header"
   >O>   "readfile (/jedsp/web/pub/cgi/html_header) htmlh."
   +++ RC(1) +++
15 *-* say rc
   >V>   "1"
1
16 *-* say retval
   >L>   "RETVAL"
RETVAL
17 *-* do i = 1 to htmlh.0
   >L>   "1"
   >L>   "HTMLH.0"
17 +++ do i = 1 to htmlh.0
EAGREX4100E Error 41 running compiled /jedsp/web/pub/cgi/sayhello,
line 17: Bad arithmetic conversion

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Compiled rexx program runs native in OMVS but not as CGI

2014-01-29 Thread jan de decker
Hi list,

I am trying to set up a zOS HTTP server that uses compiled Rexx programs as
CGI.

Example:

A Rexx program runs as CGI when interpreted

After compilation with the REXXOEC procedure it runs when directly invoked
from within OMVS

When itrying to invoke the same compiled program from HTML the browser
stays connecting and eventually times out.

An interpreted Rexx in the same directory runs as CGI.

The HTML points to the same path for both programs.

The HTTP server runs with UID(0) and without user authentication. This will
changed after I get a working prototype.

Any help would be greatly appreciated.

j@n

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


zOS server REXX CGI problem

2013-12-28 Thread jan de decker
Hi list,


I corrected the errors that Steve found but to no avail.

The structure of the file system on the HTTP server is

/jedsp/web/pub

underneath are directories for cgi, css and images

The HTML is beneath /jedsp/web/pub

The link is

Environment

In httpd.conf:

Exec/CGI/*/jedsp/web/pub/cgi/*

The browser keeps syain connecting.

Can somebody help?


Thanks,


j@n

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


zOS server REXX CGI problem

2013-12-27 Thread jan de decker
Hi all,

Thanks for the suggestions.

I implemented them all.

Now I get

IMW0254E Error 404IMW0229E The file was not found, even after searching on
any extensions to the file name. The file does not exist or is
read-protected.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


zOS server REXX CGI problem

2013-12-27 Thread jan de decker
Hi all,


I installed a HTTP server on zOS and sofar as HTML is concerned all goes
well but I cannot manage to get a REXX CGI program to do something. The
brower (Firefox) keeps showing connecting.

In the http.conf file I defined:

Exec  CGI/* /jeds.web/cgi/*

The Rexx program is in /jedsp/web/cgi and has the attributes 755

The link on the page is:

Environment/a>

The page is served from /jedsp/web/pub

The rexx exists in /jedsp/web/cgi

Any help would be greatly appreciated

j@n

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


NFS mount problem between zOS and Linux

2013-12-26 Thread jan de decker
Hi all,

The mount command I tried last, after several variartions was the example
from the IBM manual:

mount -t nfs4 -o sec=sys proto=tcp Catweazle-zOS/hfs/jedsp/web /jedsp/web


There are no error messages in the zOS log nor in the NFSS STC

Hope somebody can help.

Thanks


j@n

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


NFS mount problem between zOS and Linux

2013-12-26 Thread jan de decker
Hi all,

Mark,

I agree that maybe it is a bad practice to touch the root system but in my
case the zOS has a /jedsp/web directory because I did not want the pollute
the default install directories

Underneath /jedsp/web there are directories for pub, cgi, css & images.

The zOS HTTP server has no problem to find /jedsp/web/pub/index.html

Can you or somebody else from the list help?

Thanks,

j@n

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


NFS mount problem between zOS and Linux

2013-12-26 Thread jan de decker
Hi all,

Thanks Mark for your quick reply.
The message after the mount command is the mount help information.
JEDSP is a MVS FLQ
I changed the EXPORTS dsn to include

/hfs/jedsp/web
WEB

and removed the old jedsp entries.

but to avail.

I am running Ubuntu 12.04
kernel  3.2.0.57

Can somebody help? I think there is an error in the mount command.

Thanks,


j@n

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


NFS mount problem between zOS and Linux

2013-12-26 Thread jan de decker
Hi all

First of all a happy good year.

I can not mount a zOS NFS directory  from my Linux machine.

I searched the web and tried the command examples from the IBM manual but
every variation failed.

>From the Linux machine I can do a showattr of the zOS server if I only
supply the zOS host name.

The last attempt was the Linux command:

mount -t nfs4 -o sec=sys proto=tcp Catweazle-zOS/jedsp /jedsp

where Catweazle-zOS is the zOS host name and jedsp are directories on both
systems.

The EXPORTS file contains:

/hfs/jedsp
JEdSP

Any help would be greatly appreciated.

Thanks,


j@n

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: Parameter list changes between calling and called program

2013-03-18 Thread jan de decker
Hi,


In the copy/paste from my preious mail, I skipped the line:

 LR  RB,RF so that RB points to the top of my CSECT


Sorry about that.


Best regards,


j@n

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: Parameter list changes between calling and called program

2013-03-18 Thread jan de decker
Hi,

Sorry about the error in the copy/paste from my previous mail.


I skipped the line

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: Parameter list changes between calling and called program

2013-03-16 Thread jan de decker
Hi,

Thanks for yout help,

below some more information:


I am really baffled by the situation. Never seen it in my 25+ years as a
zOS systems programmer.

I am stck, what can happen to a parameter list between the BASR and the
called program.


Any help would be greatly appreciated.

Best regards,


jan


zOS is 1.10

Both programs involed are assembler batch, no LE.

Both are APF

YEMI0070 is the calling program, linked into YEMI000 AMODE 31 RMODE 24
YEXC is the called program AMODE 31, RMODE ANY, reentrant, reusable

Top of the layout of the parameter ist

YEIOWTOD_START DS0F
YEIOWTOD_IDDSCL8   EYECATCHER
YEIOWTOD_CSECT DSCL8   CSECT NAME CALLER
YEIOWTOD_CVTX  DSF -> YECVTX
YEIOWTOD_ALET_MSG  DSF ALET MESSAGE DATASPACE
YEIOWTOD_ALET_OUT  DSF ALET I/O OR WTO DATASPACE

All correct

Just before jumping into yexc I dumped by inserting

LRR1,R9   R1 -> PARAMETER LIST
LRR2,R1
LAR4,YEIOWTOD_ALET_MSG
LRR6,RF

ABEND 555,DUMP

just before the BASR  RE,RF

Result:

R2 ->E8C5C9D6 E6E3D6C4 E8C5D4C9 F0F0F7F0YEIOWTODYEMI0070
01ED6330 -> YECVTX
01010039 0101003Calets

All OK

I removed the dump statements out of the macro and now I dumped at the
start of YEXC

YEXC CSECT
YEXC AMODE 31
YEXC RMODE ANY
 PRINT GEN
 BAKR  RE,0
 SAM31 .
 LARC,4095(RB)
   LARC,1(RC)
 USING YEXC,RB,RC
 EYECATCH eyecather macro
 EREG  R0,R1   RESTORE REGISTERS
 EREG  RE,RF   AFTER WTO
 LRRA,R1   RA -> PARAMETER LIST
 USING YEIOWTOD,RA RA ADDRESSES THE PARAME
 AR#MODE
 SAC   512 SWITCH TO ACCESS REGIST
 LAM   AR0,ARF,=16F'0' ALL ACCESS REGISTERS TO
 LAM   AR2,AR2,YEIOWTOD_ALET_MSG R2 ADDRESSES MESSAGE
 ABEND 777,DUMP

Result:


RA -> E8C5C9D6 E6E3D6C4 E8C5D4C9 F0F0F7F0YEIOWTODYEMI0070OK
01ED3030wrong
0B01 1228C000wrong





On Fri, Mar 15, 2013 at 3:02 PM, Lizette Koehler wrote:

> I would like a little more detail.
>
> 1) Can you past the abend and registers?
> 2) What level of z/OS?
> 3) I assume all programs are assembler.  If not, what are the languages
> involved?
> 4) How are all of them linked?  Rent, Reuse, etc...
> 5) Any LE calls involved?  Like CEEPIPI or other interfaces?
> 6) Are you using 31bit or 64bit programming?
> 7) Pure batch or are there online (IMS, DB2, CICS, etc?) involved?
> 8) any additional information would be helpful.
>
> Thanks
>
> Lizette
>
>
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf
> > Of jan de decker
> > Sent: Friday, March 15, 2013 3:57 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Parameter list changes between calling and called program
> >
> > Hi list,
> >
> > I am struggling with a curious phenomenom:
> >
> > Program YEMI0070 builds a parameter list for program YEXC using macro
> > YEIOWTOD.
> >
> > The last things YEIOWTOD does is to point register 1 to the parameter
> list
> and BALR
> > into YEXC.
> >
> > This created ABEND's.
> >
> > I dumped just before the BALR and the parameter list was OK.
> >
> > I dumped at entry of YEXC and the parameter list was corrupted.
> >
> > Any, really any idea would be highly appreciated.
> >
> > I will cross-post this to the assembler list.
> >
> > Best regards,
> >
> >
> > jan
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions, send
> email
> to
> > lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Parameter list changes between calling and called program

2013-03-15 Thread jan de decker
Hi list,

I am struggling with a curious phenomenom:

Program YEMI0070 builds a parameter list for program YEXC using macro
YEIOWTOD.

The last things YEIOWTOD does is to point register 1 to the parameter list
and BALR into YEXC.

This created ABEND's.

I dumped just before the BALR and the parameter list was OK.

I dumped at entry of YEXC and the parameter list was corrupted.

Any, really any idea would be highly appreciated.

I will cross-post this to the assembler list.

Best regards,


jan

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Where are the zOS elements and features?

2013-02-27 Thread jan de decker
Hi list,


Since a few days I have www-03.ibm.com not found problems.


Looking up zOS Elements and features on Google all point to this link.


I use the site daily in my work as a zOS systems programmer. And I prefer
the simulated BookManager since it allows you to search an entire shell.

Anybody knows what is going on?

Best regards,


jan

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: Problem with SYSEVENT QVS solved

2013-02-20 Thread jan de decker
Thanks everybody for helping me out

In the end it came down to this:


For my application I need a kind of CVT and CVTX called LACVT and LACVTX.

In one of the macro's I coded a labeled USING with CVT as the label for
my own LACVT.


This was a hard one.


Again, thanks to you all.


Best regards,


jan
On 02/20/2013 06:21 PM, Leonardo Vaz wrote:
> I think what Gerhard meant is that Jan should have "L 
> 15,CVTSRM-CVTMAP(,15)" instead of "L 15,CVTSRM-CVT(,15)"
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
> Behalf Of John McKown
> Sent: Wednesday, February 20, 2013 12:06 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Problem with SYSEVENT QVS
>
> >From a quick look at the CVT macro, if you specify DSECT=YES, then you 
> >should have a
>
> CVT DSECT
>
> generated for you.
>
>
> On Wed, Feb 20, 2013 at 10:58 AM, Gerhard Postpischil 
> wrote:
>
>> On 2/20/2013 7:47 AM, jan de decker wrote:
>>
>>> 378  0   320+ L 15,CVTSRM-CVT(,15)
>>> ASMA044E Undefined symbol - CVT
>>>
>> The base of the CVT is named CVTMAP, not CVT. IBM tends to be 
>> extremely inconsistent about naming.
>>
>> Gerhard Postpischil
>> Bradford, Vermont
>>
>> --**--**--
>>  For IBM-MAIN subscribe / signoff / archive access instructions, 
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>>
>
>
> --
> This is a test of the Emergency Broadcast System. If this had been an actual 
> emergency, do you really think we'd stick around to tell you?
>
> Maranatha! <><
> John McKown
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
> lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

-- 
Die Lösungen der logischen Probleme müssen einfach sein, denn sie setzen
den Standard der Einfachheit.

Ludwig Wittgenstein Tractatus logico-philosoficus 5.4541

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Re: Problem with SYSEVENT QVS

2013-02-20 Thread jan de decker
Hi Binyamin,


Yes, at the bottom of the program I have


 CVT DSECT=YES,LIST=YES


Thanks anyway


On 02/20/2013 02:25 PM, Binyamin Dissen wrote:
>  CVT DSECT=YES,LIST=YES

-- 
Die Lösungen der logischen Probleme müssen einfach sein, denn sie setzen
den Standard der Einfachheit.

Ludwig Wittgenstein Tractatus logico-philosoficus 5.4541

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


Problem with SYSEVENT QVS

2013-02-20 Thread jan de decker
Hi List,


I am struggling with the SYSEVENT QVS macro.


Coding:

MVC   QVSLEN,=AL4(QVS_LEN)
LAR1,QVS
   SYSEVENT QVS

Bottom of the program

  IRAQVS QVS=YES,   +
DSECT=NO


And included the CVT macro

 CVT DSECT=YES,LIST=YES


The assembly returns CC 12, error:

366 D203 BBEC BEA0 01BEC 01EA0   315  MVC   QVSLEN,=AL4(QVS_LEN
36C 4110 BBEC01BEC   316  LAR1,QVS
 317  SYSEVENT QVS
370 4100 007700077   318+ LA0,119(0,0)
374 58F0 001000010   319+ L 15,CVTPTR(,0)
378  0   320+ L 15,CVTSRM-CVT(,15)
ASMA044E Undefined symbol - CVT


Any help would greatly appreciated,



jan

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN