Re: Capping in Z890

[Hunkeler Peter (KIUB 34)]

>Then why not write a tiny IPLable routine that just branches to 
>itself after the LOAD completes?  (Seriously.)  It would be a 
>bootstrap BR14... and it is easily in range for any SHARE 
>assembler/CCW* coder to write and share.

Done that and it worked like a champ. I just don't have the code
handy but can dig it out if someone is intertested.

Peter Hunkeler
CREDIT SUISSE

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Is There A Z/OS 1.4 (or higher) XML Parser That Uses Schema Files?

[Skip Robinson]

OK, I have to ask the obvious: have you looked at the XML formerly 
delivered as 'ported tools', now supported as regular product? Maybe you 
need something in addition to that XML...





Eric Verwijs <[EMAIL PROTECTED]> 
Sent by: IBM Mainframe Discussion List 
05/07/2006 06:47 PM
Please respond to
IBM Mainframe Discussion List 


To
IBM-MAIN@BAMA.UA.EDU
cc

Subject
Is There A Z/OS 1.4 (or higher) XML Parser That Uses Schema Files?






Hello All,

This is the first time I'm posting (I think).

Here at Social Development Canada, we produce massive XML files that we 
send
to some of our external clients. Previously, we sent them tapes with the
same data in flat files.

The clients send us schemas so we can make sure that our files have all 
the
required data and that all the data is valid.

At present, we download our XML files and parse them on our PC's using a 
SAX
parser that I wrote using Visual Basic 6. It is dreadfully slow and
apparently has architecture problems that cannot be overcome. It parses
using utilities that are part of the Windows operating system.

I've looked and looked and seen nothing resembling parser that we could 
use.

Natural has some XML functionality, but can only work with DTD's instead 
of
Schema files.

Cobol has a wonderful PARSE statement, but  needs you to build in all the
rules. This would be time-consuming and dreadfully error-prone. Also, we'd
get to do it several times a year since we get revised schemas.

PL/I has some parsing functionality but is limited to checking that a
document is well-formed.

EasyTrieve apparently has some XML functionality, but it seems it can only
build XML files, not parse them.

I've begun exploring the XML functionality in the Z/OS toolkit but it
involves Unix and C++. While I am knowledgeable on both, I'm not sure that
it can handle Schema files or if it would do what we need it to do.
Also, few people around here besides me know Unix and C++.

I've also explored Canam's XML Thunder product, but it produces a Cobol
program that's too big to compile.

Right now, we'll be getting Visual Studio .net which I'm told can produce 
a
really fast parser.

I've contacted IBM and they say they are working on XML utilities but they
won't be available any time soon.

Perhaps there's nothing available. I would just like to know if that's the 
case.

Thanks for your time.

 Regards,
 Eric Verwijs


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Abend 282 for RACDCERT on driving system

[Cwi Jeret]

Thanks for the Tip !!

This was the solution...

C. Jeret

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: rexx or other macro processor on z/os?

[Chris Mason]

Paul,

I'm afraid you missed the emphasis in my reply. I was reacting to your
"haven't tried assembler, but it intrigues me." statement from your earlier
post. As I see "Anne & Lynn Wheeler" describing in some detail in a post
which. for some reason, hasn't popped up in my - I almost said "reader" -
"in-box", installing software was very heavily reliant on the assembler
macro language even if you contrived to "punch" to some media other than
cards and "submit" from there.

I tried to think when I last really used cards and then managed to "convert"
to, well, something else, maybe VM/CMS with a guest VS1 system - thus,
logically, I may still have been using cards - but memory fades with respect
to these more trivial tasks. Probably my last efforts with the 029 and the
2540 was in 1976 in Oberedonaustrasse, Vienna. I must have started using VM
shortly after that - and never punched a card thereafter :-) Come to think
of it that's probably a significant moment in everyone's "mainframe"
career - if your long enough in the teeth.

Another aspect to my viewpoint is that, perhaps unlike  John Gilmore, I
started with the original DOS where using cards for the object, literally,
deck was taken for granted. Tape wasn't always available and, in my DOS
days, I can't recall DASD being an option - but maybe I just remember
fanning nice new cards so that they didn't jam. :-)

Chris Mason

- Original Message - 
From: "Paul Gilmartin" <[EMAIL PROTECTED]>
Newsgroups: bit.listserv.ibm-main
To: 
Sent: Sunday, 07 May, 2006 8:42 PM
Subject: Re: rexx or other macro processor on z/os?


> In a recent note, Chris Mason said:
>
> > Date: Sun, 7 May 2006 19:24:11 +0200
> >
> > You are clearly rather new to this game - and you can be very, very
thankful
>
> > many macros and submitted an assembler "compile". You then took the
cards
> > out of the card punch stacker, took a couple of steps round the 2540
card
> > reader/punch and put the cards into the hopper.
> >
> Was this, then, even before passed data sets existed?  There was no
> other way to pass data from one job step to another?  (Did jobs
> even have multiple steps?)
>
> -- gil
> -- 
> StorageTek
> INFORMATION made POWERFUL

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: XIOC-3270TN Emulation screens?

[Joel C. Ewing]

By the persistent and overly repetitious, very general nature of the 
questions over the last several weeks from this poster (which reveal 
minimal comprehension of previous replies), I am beginning to suspect 
that either
	This person is from such a totally different background that he/she is 
still totally clueless as to the function of a 3270 terminal emulator or 
for that matter of a 3270 terminal; or
	He/she is hoping that by pretending to be extremely dense that someone 
may send some images that might contain compromising  information useful 
for hacking attempts against some system (which, considering that 
sensitive 3270 applications tend to be restricted to internal corporate 
networks, would also reveal a lack of understanding).


This last question is not unlike someone asking you to send images from 
your TV screen so they might understand the concept of television; or 
perhaps sending images of your Windows desktop when you are running some 
unspecified application so they might gain an understanding of MS Windows.


What you see on a hardware 3270 display (typically, but not always, 24 
text lines of 80 characters) is totally dependent on the system to which 
it is connected and the system-specific application you are running. 
What you see in the window of a 3270 emulator is totally dependent on 
the system to which it is connected and the system-specific application 
you are running.  Either requires that you have physical access directly 
or indirectly to a system that supports IBM 3270 display devices, and 
that you have whatever logon/password logical access is required to use 
a software application on that system that communicates with 3270 
display devices.



[EMAIL PROTECTED] wrote:

Can anyone send me a screenshot of xioc3270tn emulator?
Please??
I would appreciate it very much,,
thanks




--
Joel C. Ewing, Fort Smith, AR[EMAIL PROTECTED]

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: submit job from SYSPUNCH

[J R]

1)  The latest or the greatest?
   Notwithstanding what it says about &SYSM_HSEV in
   HLASM General Information R5 (GC26-4943-04),
   Appendix B. System Variable Symbols, it seems reasonable
   to assume that it contains the greatest MNOTE severity
   so far in the assembly.

2)  It's not clear exactly when PUNCHed data is written to
   SYSPUNCH and/or SYSLIN.  If they are buffered and
   written out only when complete, then abandoning the
   assembly (if that's possible) will prevent erroneous or
   incomplete JCL being submitted.  If they are written
   out at the time the PUNCH statement is encountered,
   they may be irretrievable, especially if SYSOUT still
   emulates unit record devices as it always used to.

3)  You obviously have more experience with pornography
   than I.



From: john gilmore <[EMAIL PROTECTED]>
Reply-To: IBM Mainframe Discussion List 
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: submit job from SYSPUNCH
Date: Sun, 7 May 2006 15:15:33 +

J R <[EMAIL PROTECTED]>  writes


 >  Why don't you have SYSPUNCH SYSOUT=(*,INTRDR)?


 Because it's a good idea to check the assembly completion code  to 
ensure that the generated JCL is good.  That way you can avoid  submitting 
partially and/or incorrectly built jobs to the internal reader.


The original suggestion that a two-step scheme be used seemed to me to 
share a salient characteristic with certain kinds of pornography:  One 
looks at them and thinks to oneself, "I see that it can be done that way, 
but why?"


The assembler's 'completion code' can be checked WITHIN a single assembly 
step using the value of the HLASM system variable symbol &SYSM_HSEV, as in


|&abortsetb   (&SYSM_HBSEV ge &abort_severity_level)
| aif  &abort).abort

in which &abort_severity_level, initialized in a SETA statement, has any 
desired value, for concreteness say 4.


John Gilmore
Ashland, MA 01721-1817
USA

_
Is your PC infected? Get a FREE online computer virus scan from McAfee® 
Security. http://clinic.mcafee.com/clinic/ibuy/campaign.asp?cid=3963


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


_
Express yourself instantly with MSN Messenger! Download today - it's FREE! 
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Is There A Z/OS 1.4 (or higher) XML Parser That Uses Schema Files?

[Eric Verwijs]

Hello All,

This is the first time I'm posting (I think).

Here at Social Development Canada, we produce massive XML files that we send
to some of our external clients. Previously, we sent them tapes with the
same data in flat files.

The clients send us schemas so we can make sure that our files have all the
required data and that all the data is valid.

At present, we download our XML files and parse them on our PC's using a SAX
parser that I wrote using Visual Basic 6. It is dreadfully slow and
apparently has architecture problems that cannot be overcome. It parses
using utilities that are part of the Windows operating system.

I've looked and looked and seen nothing resembling parser that we could use.

Natural has some XML functionality, but can only work with DTD's instead of
Schema files.

Cobol has a wonderful PARSE statement, but  needs you to build in all the
rules. This would be time-consuming and dreadfully error-prone. Also, we'd
get to do it several times a year since we get revised schemas.

PL/I has some parsing functionality but is limited to checking that a
document is well-formed.

EasyTrieve apparently has some XML functionality, but it seems it can only
build XML files, not parse them.

I've begun exploring the XML functionality in the Z/OS toolkit but it
involves Unix and C++. While I am knowledgeable on both, I'm not sure that
it can handle Schema files or if it would do what we need it to do.
Also, few people around here besides me know Unix and C++.

I've also explored Canam's XML Thunder product, but it produces a Cobol
program that's too big to compile.

Right now, we'll be getting Visual Studio .net which I'm told can produce a
really fast parser.

I've contacted IBM and they say they are working on XML utilities but they
won't be available any time soon.

Perhaps there's nothing available. I would just like to know if that's the case.

Thanks for your time.

Regards,
Eric Verwijs
Programmer Analyst
OAS Mission Critical Systems

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: rexx or other macro processor on z/os?

[john gilmore]

Paul Gilmartin <[EMAIL PROTECTED]>  writes:


Was this, then, even before passed data sets existed?  There was no
other way to pass data from one job step to another?  (Did jobs
even have multiple steps?)


but, agreeable as it is to describe the privations of our salad days, things 
were never quite so bad.  Even OS PCP (Primary Control Program), which 
preceded MFT, supported multiple job steps.  The sequence 
translate==>link==>execute (CLG) long antedates the System/360.


Only in the most primitive situations was it necessary or common to use 
cards for anything but source-program and data entry.  Card images written 
to and read from magnetic tapes were used all but ab initio under OS/360.


John Gilmore
Ashland, MA 01721-1817
USA

_
Is your PC infected? Get a FREE online computer virus scan from McAfee® 
Security. http://clinic.mcafee.com/clinic/ibuy/campaign.asp?cid=3963


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: HSM changed dataset indicator bit, how to prevent reset?

[Shmuel Metz (Seymour J.)]

In
<[EMAIL PROTECTED]>,
on 05/05/2006
   at 02:04 PM, Mark Thomen <[EMAIL PROTECTED]> said:

>I asked the question because many times users come on this website

Website?
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Help : FTP A PDS

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>, on 05/05/2006
   at 01:44 PM, Paul Gilmartin <[EMAIL PROTECTED]> said:

>My mistake; I meant FTP client, as you inferred below.

Then what you meant was correct, as I know of an FTP client that will
accept a URL[1].

>Ummm.  Is there a specification for the UI of an FTP client?

No. RFC 765 and RFC 959 only specify the protocol. There are some de
facto standards, but they're pretty crude.

[1] I haven't looked into the URI-URL distinction.

-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: rexx or other macro processor on z/os?

[Paul Gilmartin]

In a recent note, Chris Mason said:

> Date: Sun, 7 May 2006 19:24:11 +0200
> 
> You are clearly rather new to this game - and you can be very, very thankful

> many macros and submitted an assembler "compile". You then took the cards
> out of the card punch stacker, took a couple of steps round the 2540 card
> reader/punch and put the cards into the hopper.
> 
Was this, then, even before passed data sets existed?  There was no
other way to pass data from one job step to another?  (Did jobs
even have multiple steps?)

-- gil
-- 
StorageTek
INFORMATION made POWERFUL

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: rexx or other macro processor on z/os?

[Chris Mason]

Paul,

You are clearly rather new to this game - and you can be very, very thankful
for that. Some, perhaps many, perhaps most, who subscribe to this list/group
will remember the bad old days when if it needed "installing", it was
"installed" with the aid of the assembler macro language[1]. Very often,
when you wanted to "install" a product, you coded up one or, more likely,
many macros and submitted an assembler "compile". You then took the cards
out of the card punch stacker, took a couple of steps round the 2540 card
reader/punch and put the cards into the hopper. Then you went to the coffee
lounge, read the paper or had a chat and came back some time later to find
your product "installed" - with any luck.

Alternatively, you had to "generate" an NCP or a TCAM "network" where much
the same thing was done - although you probably had a good book to read in
the coffee lounge.

As a matter of interest, since I managed to avoid this particular task, when
was it no longer necessary to "generate" "OS", where "OS" refers to the
ancestors of z/OS?

[1] I did this twice in my time. Once was for a diagnostic package for
BTAM-based network programming where I managed to produce a sort in macro
language - for device addresses. Another time was for my "adaption layer"
product. Unfortunately the latter broke down a bit when one customer site
fooled it by having volume serial numbers actually starting with a number
and I was using the volume serial numbers as names - :-(

Chris Mason

- Original Message - 
From: "Paul Gilmartin" <[EMAIL PROTECTED]>
Newsgroups: bit.listserv.ibm-main
To: 
Sent: Sunday, 07 May, 2006 6:33 PM
Subject: Re: rexx or other macro processor on z/os?


> In a recent note, Gilbert Saint-Flour said:
>
> > Date: Sun, 7 May 2006 11:50:33 -0400
> >
> > REXX is probably your best bet, but in the 1970s and 1980s, REXX wasn't
> > available on MVS and I often used the AREAD capability of ASMH (also
> > available in HLASM) to generate job streams.  See example below (it's
> > been a while, correct syntax is NOT guaranteed):
> >
> Having attempted this sort of tailoring variously in Rexx,
> POSIX shell from a here-document, and sed, I find Rexx is
> uniformly hardest to use; POSIX shell is best for simple
> operations (the sort of thing that could almost be done
> with JCL symbol substitutions except for various onerous
> restrictions), and sed is best for complex operations or
> any use of external prototype data.
>
> I haven't tried assembler, but it intrigues me.  Does
> the "AREAD ... PUNCH" sequence perform symbol substitution,
> presumably of GBLC variables?  (I assume that's the main
> point of the exercise.)  This could well bypass the
> limitations of JCL symbol substitutions so often discussed
> here, and permit self-contained tailorable jobs with no
> external skeletons, filters, etc.  Might be easier than
> Rexx.
>
> >   MACRO
> >   JPUNCH
> > .LOOP ANOP
> >   AREAD &CARD
> >   AIF ('&CARD' EQ '').EOJ
>
> No specific EOF test?  Pity.  What if the input data contain
> an actual empty line?
>
> >   PUNCH '&CARD'
> >   AGO .LOOP
> > .EOJ END
> >   MEND ---
> >   JPUNCH , <-- execute macro and read data cards
> > PFX  TUSER.HH
> > RST ADCD.A.CNTL
> > RST ADCD.LIB.JCL
> > /*

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Submit job from SYPUNCH was (fwd) Re: rexx or other macro processor on z/os?

[Chris Mason]

Clark,

Quite correct - although J R[1] has provided quite a good reason which has
now been challenged by John Gilmore, such is the way with these exchanges.

Although it was a Sunday morning and the brain was mostly shut down I think
I was recalling how I used to do the sort of thing the original poster was
trying to do. It may have consisted of a rather more complex structure where
only part of the eventual job, perhaps the utility statements, was generated
by the assembler. Thus the IEBGENER was used to pull the parts together as
the concatenation of the "input" data sets. Whatever it was - and it wasn't
necessarily the most efficient technique - it got the job done, the job
being, typically, how to perform one task in up to eight "versions" for,
typically, defining/deleting VSAM data sets on test systems - assuming my
memory isn't failing me again.

Chris Mason

- Original Message - 
From: "Clark Morris" <[EMAIL PROTECTED]>
Newsgroups: bit.listserv.ibm-main
To: 
Sent: Sunday, 07 May, 2006 2:34 PM
Subject: Submit job from SYPUNCH was (fwd) Re: rexx or other macro processor
on z/os?


> On 7 May 2006 02:32:09 -0700, in bit.listserv.ibm-main
> [EMAIL PROTECTED] (Chris Mason) wrote:
>
> >To the listeners,
> >
> >This thread was discovered in a Google digest. I did not spot it in
e-mails so I can't reply correctly, that is, "linking" to the existing
thread, nor can I produce the usual references.
> >
> >Hal,
> >
> >Bill's reference misses a key step, namely how to get the SYSPUNCH output
submitted as a job. The typical way to do this is to make the SYSPUNCH a
DISPosition NEW and PASSed temporary data set. The next job step can then be
an IEBGENER with the temporary data set as input with DISPosition OLD and
DELETE and the output going to the internal reader, SYSOUT=(*,INTRDR).
>
> Why don't you have SYSPUNCH SYSOUT=(*,INTRDR)?
> >
> >Chris Mason
> >> rest snipped

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

SMPE APPLY RC 4 Question.

[Howard Rifkind]

Hello,
   
  I resolved all the holds on an FMID apply check run and then ran the apply 
(without the check).
   
  Seems to have run well by got a RC4 which appears to be on the linkedits.  
   
  I checked this out and seems to be a bunch of unresolveds on various modusles 
which I had thought in the past to be o.k.  The run didn't show up any really 
bad errors and had always thought that RC4's were ok.
   
  Would you agree?
   
  Thanks.


-
Blab-away for as little as 1¢/min. Make  PC-to-Phone Calls using Yahoo! 
Messenger with Voice.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: rexx or other macro processor on z/os?

[Paul Gilmartin]

In a recent note, Gilbert Saint-Flour said:

> Date: Sun, 7 May 2006 11:50:33 -0400
> 
> REXX is probably your best bet, but in the 1970s and 1980s, REXX wasn't
> available on MVS and I often used the AREAD capability of ASMH (also
> available in HLASM) to generate job streams.  See example below (it's
> been a while, correct syntax is NOT guaranteed):
> 
Having attempted this sort of tailoring variously in Rexx,
POSIX shell from a here-document, and sed, I find Rexx is
uniformly hardest to use; POSIX shell is best for simple
operations (the sort of thing that could almost be done
with JCL symbol substitutions except for various onerous
restrictions), and sed is best for complex operations or
any use of external prototype data.

I haven't tried assembler, but it intrigues me.  Does
the "AREAD ... PUNCH" sequence perform symbol substitution,
presumably of GBLC variables?  (I assume that's the main
point of the exercise.)  This could well bypass the
limitations of JCL symbol substitutions so often discussed
here, and permit self-contained tailorable jobs with no
external skeletons, filters, etc.  Might be easier than
Rexx.

>   MACRO
>   JPUNCH
> .LOOP ANOP
>   AREAD &CARD
>   AIF ('&CARD' EQ '').EOJ

No specific EOF test?  Pity.  What if the input data contain
an actual empty line?

>   PUNCH '&CARD'
>   AGO .LOOP
> .EOJ END
>   MEND ---
>   JPUNCH , <-- execute macro and read data cards
> PFX  TUSER.HH
> RST ADCD.A.CNTL
> RST ADCD.LIB.JCL
> /*
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [log in to unmask] with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
>___
> 
>Back to: Top of message | Previous page | Main IBM-MAIN page
>BAMA.UA.EDU Secured by F-Secure Anti-Virus CataList email list search
>Powered by LISTSERV email list manager


-- 
StorageTek
INFORMATION made POWERFUL

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: rexx or other macro processor on z/os?

[Gilbert Saint-Flour]

REXX is probably your best bet, but in the 1970s and 1980s, REXX wasn't 
available on MVS and I often used the AREAD capability of ASMH (also 
available in HLASM) to generate job streams.  See example below (it's 
been a while, correct syntax is NOT guaranteed):

  MACRO
  JPUNCH
.LOOP ANOP
  AREAD &CARD
  AIF ('&CARD' EQ '').EOJ
  PUNCH '&CARD'
  AGO .LOOP
.EOJ END
  MEND ---
  JPUNCH , <-- execute macro and read data cards
PFX  TUSER.HH
RST ADCD.A.CNTL
RST ADCD.LIB.JCL
/*

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: submit job from SYSPUNCH

[john gilmore]

J R <[EMAIL PROTECTED]>  writes


 >  Why don't you have SYSPUNCH SYSOUT=(*,INTRDR)?


 Because it's a good idea to check the assembly completion code  to ensure 
that the generated JCL is good.  That way you can avoid  submitting 
partially and/or incorrectly built jobs to the internal reader.


The original suggestion that a two-step scheme be used seemed to me to share 
a salient characteristic with certain kinds of pornography:  One looks at 
them and thinks to oneself, "I see that it can be done that way, but why?"


The assembler's 'completion code' can be checked WITHIN a single assembly 
step using the value of the HLASM system variable symbol &SYSM_HSEV, as in


|&abortsetb   (&SYSM_HBSEV ge &abort_severity_level)
| aif  &abort).abort

in which &abort_severity_level, initialized in a SETA statement, has any 
desired value, for concreteness say 4.


John Gilmore
Ashland, MA 01721-1817
USA

_
Is your PC infected? Get a FREE online computer virus scan from McAfee® 
Security. http://clinic.mcafee.com/clinic/ibuy/campaign.asp?cid=3963


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Submit job from SYPUNCH was (fwd) Re: rexx or other macro processor on z/os?

[J R]

Why don't you have SYSPUNCH SYSOUT=(*,INTRDR)?


Because it's a good idea to check the assembly completion code
to ensure that the generated JCL is good.  That way you can avoid
submitting partially and/or incorrectly built jobs to the internal reader.



From: Clark Morris <[EMAIL PROTECTED]>
Reply-To: IBM Mainframe Discussion List 
To: IBM-MAIN@BAMA.UA.EDU
Subject: Submit job from SYPUNCH was (fwd) Re: rexx or other macro 
processor on z/os?

Date: Sun, 7 May 2006 09:34:14 -0300

On 7 May 2006 02:32:09 -0700, in bit.listserv.ibm-main
[EMAIL PROTECTED] (Chris Mason) wrote:

>To the listeners,
>
>This thread was discovered in a Google digest. I did not spot it in 
e-mails so I can't reply correctly, that is, "linking" to the existing 
thread, nor can I produce the usual references.

>
>Hal,
>
>Bill's reference misses a key step, namely how to get the SYSPUNCH output 
submitted as a job. The typical way to do this is to make the SYSPUNCH a 
DISPosition NEW and PASSed temporary data set. The next job step can then 
be an IEBGENER with the temporary data set as input with DISPosition OLD 
and DELETE and the output going to the internal reader, SYSOUT=(*,INTRDR).


Why don't you have SYSPUNCH SYSOUT=(*,INTRDR)?
>
>Chris Mason
>> rest snipped

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


_
Express yourself instantly with MSN Messenger! Download today - it's FREE! 
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: XIOC-3270TN Emulation screens?

[John S. Giltner, Jr.]

Why?  Do you really understand that you are basically asking for a copy 
of a text screen?  Do you know what 3270 is?


Could you give us an idea of what you are really trying to learn/

A screenshot of xioc3270tn emulator would only show you what the 
application somebody was using looked like and show you the data from 
that application.  Other than having letters, numbers, and special 
symbols it may look like nothing you saw.  A screen shot from a 
different 3270 emulator logged on to the same system would most likely 
look just like the one you saw.


It's sort of like saying you want a screen shot of Netscape.  What is on 
the screen depends on what site I am visting and (in theory) the same 
site viewed with two different browsers should look the same.




[EMAIL PROTECTED] wrote:

Can anyone send me a screenshot of xioc3270tn emulator?

Please??

I would appreciate it very much,,

thanks



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: Abend 282 for RACDCERT on driving system

[Binyamin Dissen]

On Sun, 7 May 2006 07:21:37 -0500 Cwi Jeret <[EMAIL PROTECTED]> wrote:

:>I started to install zOS v1.7 ServerPac .

:>Right on the beginning I got stucked in the RACFDRV job
:>Run by a SPECIAL user , on the driving System.

:>I get the following msg :

:>RACDCERT CERTAUTH ALTER( LABEL('Verisign Class 3 Primary CA')) TRUST 
:>IKJ56641I RACDCERT ENDED DUE TO ERROR+   
:>IKJ56641I SYSTEM ABEND CODE 282   REASON CODE 0010 

:>The same JOB run OK with the SAME SPECIAL user on our test system .

:>Any idea for solution is welcome ...

Check IKJTSO00 to make sure that RACDCERT is included in AUTHCMD.

Check that the STEPLIB(s) are in APFLIST.

--
Binyamin Dissen <[EMAIL PROTECTED]>
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: SMTP Space Allocation for CONN256.Note file

[John S. Giltner, Jr.]

In your SMTP proc there should be a DD named CONFIG.  This contain the 
SMTP parameters.


However there are no parameters dealing with file allocation.  The 
closest is the MAXMAILBYTES.


I beleive, not 100% sure, that we control the file allocation using SMS. 
 The reason I am not sure is that in the comments about MAXMAILBYTES is 
states that the .NOTE file will allocate a minumum of 2 tracks.  Based 
on that I would assume that they are controlling the allocation size and 
have a PRIMARY of 2 with allocation units being tracks.



Laine, Rogers wrote:

My space allocation seems to be too small for the CONN256.NOTE dataset.
Because of this it is going into multi extents on difference volumes,
then failing with error message EZA5544E unable to RENAME file CONN256
followed by message EZA5568E unable to allocate ADDRBLOK data set
correctly.

I believe if I increase the space allocation on this file the error
would stop, but I don't know where this small allocation is defined in
the SMTP STC.

Any suggestions or ideas?

 


Rogers




--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Submit job from SYPUNCH was (fwd) Re: rexx or other macro processor on z/os?

[Clark Morris]

On 7 May 2006 02:32:09 -0700, in bit.listserv.ibm-main
[EMAIL PROTECTED] (Chris Mason) wrote:

>To the listeners,
>
>This thread was discovered in a Google digest. I did not spot it in e-mails so 
>I can't reply correctly, that is, "linking" to the existing thread, nor can I 
>produce the usual references.
>
>Hal,
>
>Bill's reference misses a key step, namely how to get the SYSPUNCH output 
>submitted as a job. The typical way to do this is to make the SYSPUNCH a 
>DISPosition NEW and PASSed temporary data set. The next job step can then be 
>an IEBGENER with the temporary data set as input with DISPosition OLD and 
>DELETE and the output going to the internal reader, SYSOUT=(*,INTRDR).  

Why don't you have SYSPUNCH SYSOUT=(*,INTRDR)?
>
>Chris Mason
>> rest snipped

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Abend 282 for RACDCERT on driving system

[Cwi Jeret]

Hello ,

I started to install zOS v1.7 ServerPac .

Right on the beginning I got stucked in the RACFDRV job
Run by a SPECIAL user , on the driving System.

I get the following msg :

RACDCERT CERTAUTH ALTER( LABEL('Verisign Class 3 Primary CA')) TRUST 
IKJ56641I RACDCERT ENDED DUE TO ERROR+   
IKJ56641I SYSTEM ABEND CODE 282   REASON CODE 0010 

The same JOB run OK with the SAME SPECIAL user on our test system .

Any idea for solution is welcome ...

C . Jeret  - Bank Hapoalim  T.A

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

SMTP Space Allocation for CONN256.Note file

[Laine, Rogers]

My space allocation seems to be too small for the CONN256.NOTE dataset.
Because of this it is going into multi extents on difference volumes,
then failing with error message EZA5544E unable to RENAME file CONN256
followed by message EZA5568E unable to allocate ADDRBLOK data set
correctly.

I believe if I increase the space allocation on this file the error
would stop, but I don't know where this small allocation is defined in
the SMTP STC.

Any suggestions or ideas?

 

Rogers




Confidentiality Notice:

This E-Mail transmission (and/or the documents accompanying it)
may contain information belonging to the sender which is 
confidential, privileged and/or exempt from disclosure under 
applicable law.  The information is intended only for the use
of the individual(s) or entity named above.   If you are not
the intended recipient, you are hereby  notified that any
disclosure, copying, distribution or the taking of any action
in reliance on the contents of this information is strictly 
prohibited.  If you have received this E-Mail transmission 
in error, please immediately notify us by return E-Mail or 
telephone to arrange for return of its contents including any
documents.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: rexx or other macro processor on z/os?

[Chris Mason]

To the listeners,

This thread was discovered in a Google digest. I did not spot it in e-mails so 
I can't reply correctly, that is, "linking" to the existing thread, nor can I 
produce the usual references.

Hal,

Bill's reference misses a key step, namely how to get the SYSPUNCH output 
submitted as a job. The typical way to do this is to make the SYSPUNCH a 
DISPosition NEW and PASSed temporary data set. The next job step can then be an 
IEBGENER with the temporary data set as input with DISPosition OLD and DELETE 
and the output going to the internal reader, SYSOUT=(*,INTRDR).  

Chris Mason



Hello, 

I have the following JCL to do a selective restore from a logical dump 
as follows ... 


//*-8<-8<-8<-8<-8<-8<-8< 
//RESTORE  EXEC PGM=ADRDSSU,PARM='TYPRUN=NORUN' 
//SYSPRINT DD SYSOUT=* 
//RESTFROM DD ... 
//TO   DD VOL=SER=... 
//SYSINDD * 
 RESTORE DATASET(INCLUDE(   - 
 HAL.A.CNTL - 
 HAL.LIB.JCL- 
 HAL.MAIN.CLIST - 
 HAL.MAIN.PARMLIB   - 
 HAL.MAIN.PROCLIB   - 
 SYS1.IPLPARM   - 
 SYS1.PARMLIB   - 
 SYS1.PROCLIB   - 
) ) - 
 RENUNC(- 
(HAL.A.CNTL   , TUSER1.HH.HAL.A.CNTL   ), - 
(HAL.LIB.JCL  , TUSER1.HH.HAL.LIB.JCL  ), - 
(HAL.MAIN.CLIST   , TUSER1.HH.HAL.MAIN.CLIST   ), - 
(HAL.MAIN.PARMLIB , TUSER1.HH.HAL.MAIN.PARMLIB ), - 
(HAL.MAIN.PROCLIB , TUSER1.HH.HAL.MAIN.PROCLIB ), - 
(SYS1.IPLPARM , TUSER1.HH.SYS1.IPLPARM ), - 
(SYS1.PARMLIB , TUSER1.HH.SYS1.PARMLIB ), - 
(SYS1.PROCLIB , TUSER1.HH.SYS1.PROCLIB ), - 
   )  - 
  INDD(RESTFROM)  OUTDD(TO)  CANCELERROR TOL(ENQFAILURE) SHR  - 
  CATALOG 
/* 
//*-8<-8<-8<-8<-8<-8<-8< 


 I would prefer to use some sort of macro processing in a prior step so 
that I can have input similar to this: 
//*-8<-8<-8<-8<-8<-8<-8< 
PFX  TUSER.HH 


RST ADCD.A.CNTL 
RST ADCD.LIB.JCL 
RST ADCD.ZOSV14S.CLIST 
RST ADCD.ZOSV14S.PARMLIB 
RST ADCD.ZOSV14S.PROCLIB 
RST SYS1.IPLPARM 
RST SYS1.PARMLIB 
RST SYS1.PROCLIB 


END 
//*-8<-8<-8<-8<-8<-8<-8< 
which can then be fed into the sysin for the restore step. 


This avoids duplicating the names and looks a lot cleaner. 


I think the natural tool to use is Rexx but perhaps there are better 
ways involving minimal coding? 
Assembler maybe? 


Are there any free tools which address this that are easy to implement 
on z/os? 


Sample code would be appreciated. 


Thanks in advance 
Hal.



Whoops, should have been:- 

PFX  TUSER.HH 


RST  HAL.A.CNTL 
RST  HAL.LIB.JCL 
RST  HAL.MAIN.CLIST 
RST  HAL.MAIN.PARMLIB 
RST  HAL.MAIN.PROCLIB 
RST  SYS1.IPLPARM 
RST  SYS1.PARMLIB 
RST  SYS1.PROCLIB 


END 






Have a look at http://members.tripod.com/billlalonde/mvshint.htm 


Bill

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html