Re: TSO Command to issue message to Outtrap

[Anthony Thompson]

TSO/e has largely been 'stabilized'. No further development, in other words, 
unless required by other software products. IBM don't spend any effort to 
upgrade old TSO commands that use TPUT/TGET (SVC 93/94) to favour 
PUTLINE/PUTGET or whatever. That is nothing new, otherwise those commands would 
have been re-written literally decades ago.

'That long to fix it', in IBM terms, means that everyone should be used to the 
behaviour of old TSO commands, and they have no intention of upgrading them for 
what are not game-changing trivialities.

Ant. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Thursday, 3 November 2016 12:57 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: TSO Command to issue message to Outtrap

On 2016-11-02 20:39, Jesse 1 Robinson wrote:
> Clist has been subject to the same restrictions since long before Rexx came 
> to TSO/E. It's not up to Rexx to fix the problem.  
> 
You mean they had that long to fix it and they haven't?

But I said, "... or arrange that it be fixed ..."  If needed they should pass 
the requirement on to the department in charge.

I feel the same about ISPF's SUBMIT command's losing data.  TSO SUBMIT fails 
with a message if it can't handle the input.  ISPF simply discards enough data 
that it fits and doesn't even tell the user, much less provide an option to 
cancel.

-- gil

--
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: TSO Command to issue message to Outtrap

[Paul Gilmartin]

On 2016-11-02 20:39, Jesse 1 Robinson wrote:
> Clist has been subject to the same restrictions since long before Rexx came 
> to TSO/E. It's not up to Rexx to fix the problem.  
> 
You mean they had that long to fix it and they haven't?

But I said, "... or arrange that it be fixed ..."  If needed they
should pass the requirement on to the department in charge.

I feel the same about ISPF's SUBMIT command's losing data.  TSO
SUBMIT fails with a message if it can't handle the input.  ISPF
simply discards enough data that it fits and doesn't even tell
the user, much less provide an option to cancel.

-- gil

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

Re: TSO Command to issue message to Outtrap

[Jesse 1 Robinson]

Clist has been subject to the same restrictions since long before Rexx came to 
TSO/E. It's not up to Rexx to fix the problem.  

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-302-7535 Office
robin...@sce.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Wednesday, November 02, 2016 7:33 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: TSO Command to issue message to Outtrap

On 2016-11-02 13:51, Nims,Alva John (Al) wrote:
> From: "z/OS TSO/E REXX Reference"
> 
> OUTTRAP function does not trap command output that is sent to the terminal by:
>   * TPUT
>   * WTO macro
>
And that's the source of recurrent misery reported on these lists.  Rexx really 
ought to fix that or arrange that it be fixed so OUTTRAP captures all (or at 
least linemode) terminal output.  Possibly selected by a keyword option.

>   * messages issued by TSO/E REXX (that is, messages beginning with IRX)
>   * messages issued by TRACE outputex
>
There's a reason that UNIX has separate streams for messages and main output.  
But those can be merged by redirection.

Wjs once reported that he petitioned the powers that be that Rexx messages and 
TRACE output issued under OMVS go to stderr rather than stdout.  The request 
was denied.

> However, OUTTRAP does trap output from the PUTLINE macro with DATA or INFOR 
> keywords.
> 
I guess that's better than if it trapped nothing at all.

-- gil


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

Re: TSO Command to issue message to Outtrap

[Paul Gilmartin]

On 2016-11-02 13:51, Nims,Alva John (Al) wrote:
> From: "z/OS TSO/E REXX Reference"
> 
> OUTTRAP function does not trap command output that is sent to the terminal by:
>   * TPUT
>   * WTO macro
>
And that's the source of recurrent misery reported on these lists.  Rexx
really ought to fix that or arrange that it be fixed so OUTTRAP captures
all (or at least linemode) terminal output.  Possibly selected by a
keyword option.

>   * messages issued by TSO/E REXX (that is, messages beginning with IRX)
>   * messages issued by TRACE outputex
>
There's a reason that UNIX has separate streams for messages and
main output.  But those can be merged by redirection.

Wjs once reported that he petitioned the powers that be that Rexx
messages and TRACE output issued under OMVS go to stderr rather
than stdout.  The request was denied.

> However, OUTTRAP does trap output from the PUTLINE macro with DATA or INFOR 
> keywords.
> 
I guess that's better than if it trapped nothing at all.

-- gil

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

Re: TSO Command to issue message to Outtrap

[Bill Godfrey]

The LIST subcommand of EDIT.

This will trap and display "Hello!" and "Goodbye!".

/* rexx */
call outtrap('t.')
push "end nosave"
push "list * 2"
push "top"
push "unnum"
push "20 Goodbye!"
push "10 Hello!"
"edit temp text new emode"
call outtrap 'off'
do i = 1 to t.0;say t.i;end

As used above, EDIT will not read data set temp.text if it exists, and will not 
create or write to it.
You could also use EDIT to list some or all of an existing data set.

Bill

On Wed, 2 Nov 2016 14:13:15 -0500, Dyck, Lionel B. wrote:

>Does anyone know of any TSO command (or REXX function) that will let me send 
>text to the screen that can be captured by OUTTRAP?
>
>What I'm trying to do is have a rexx dialog that does something like this 
>(very simplified):
>
>Call outtrap 't.'
>Write 'starting xyz'
>'xyz'<=== tso command
>Call outtrap 'off'
>Do I = 1 to t.0;say t.i;end
>
>
>--
>Lionel B. Dyck (TRA Contractor)
>Mainframe Systems Programmer 
>Enterprise Infrastructure Support (Station 200) (005OP6.3.10)
>VA OI Service Delivery & Engineering
>

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

Re: Remote API to z/OS?

[Paul Gilmartin]

On Wed, 2 Nov 2016 14:02:42 -0500, Kirk Wolf wrote:
>
>Had you seen this?
>It appears that VM/CMS OpenExtensions folks have thought a little more
>about the conversion of fork/exec to spawn:
>
>https://www.ibm.com/support/knowledgecenter/SSB27U_6.2.0/com.ibm.zvm.v620.dmsa3/forkcnv.htm
>
Well, that's because OpenExtensions doesn't have a working fork().
"Necessity is the mother ..."  It has something they (dishonestly)
call fork, but it's more like what (older?) versions of UNIX call "vfork()"

And there's posix_spawn, for which the rationale is to provide support for
hardware lacking an MMU.  It's incompatible with and somewhat inferior
to IBM's spawn because a design criterion was that it should be possible
to implement posix_spawn as a wrapper to fork on systems on which
true fork is available.

And what it's truly missing is a way to do a fork() *without* the exec().
I've wished for that in Rexx on z/OS.


>On Wed, Nov 2, 2016 at 11:14 AM, John McKown wrote:
>>
>> ​Correct. I was actually looking at this when I was doing my port of BASH
>> for the CBT. But I've basically abandoned my port since Rocket Software​
>> took over the ported tools from IBM. I figured that they'd do a better job
>> than I. BASH does some really strange things to run commands. It's not a
>> simple fork()/exec() sequence which would be relatively simple to replace
>> with a spawn(), which is required to honor _BPXAS_SHAREAS.
>>
Of course sh provides some of that facility by reading scripts with the
dot (".") command which runs in the same execution environment.

I'd like Rexx added to the mix so I could somehow invoke BPXWDYN
from a shell script.  Perhaps a shell built-in interface to ATTACH?

Interestingly, if I invoke a Rexx EXEC in TSO that does SYSCALL chdir,
that CWD is set for the remainder of the TSO session.  No surprise.

A while back, I tried to do some Apache work (port to z/OS; IBM
beat me by a nose).  Apache rejected one of my build script patches
that would have greatly improved build performance on z/OS because
it depended on a POSIX construct not supported by Bourne Shell.
Yet they required an ANSI-conformant C compiler and now depend
on bash?

-- gil

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

z/os 2.2 and SET TIMEZONE command

[Jousma, David]

Just an FYI...this appears to be a z/OS 2.2 issue only.  APAR is still open, 
but there is a workaround.

SET TIMEZONE 
COMMAND

When using the SET TIMEZONE=d.hh command, message IEE308I SET TERM LENGTH ERROR 
will be received. Problem is described by APAR OA51568. Command will be 
properly executed if the MINUTES value is specified on the command, i.e. SET 
TIMEZONE=d.hh.00 . The circumvention to the IEE308I is to add the MINUTES value 
to the failing command.



_
Dave Jousma
Manager Mainframe Engineering, Assistant Vice President
david.jou...@53.com
1830 East Paris, Grand Rapids, MI  49546 MD RSCB2H
p 616.653.8429
f 616.653.2717

This e-mail transmission contains information that is confidential and may be 
privileged.
It is intended only for the addressee(s) named above. If you receive this 
e-mail in error,
please do not read, copy or disseminate it in any manner.  If you are not the 
intended 
recipient, any disclosure, copying, distribution or use of the contents of this 
information
is prohibited. Please reply to the message immediately by informing the sender 
that the 
message was misdirected. After replying, please erase it from your computer 
system. Your 
assistance in correcting this error is appreciated.




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

Re : Looking for some direction on USS / JAVA / C / COBOL and or Assembler please.

[Jim]

Listers,

For brevity ... I've been trying to get the Standalone Java vol 2 example of 
JAVA calling COBOL (and assembler) via a 
C glue working, unsuccessfully ..  

I'm on a  z/OS 2.2 box, Java 7 x64 only .. I can install 31bit java am hoping I 
won't be limited to that ... 

I've compiled my skeletons, both assembler and COBOL under native z/OS and 
included RENT, DYNAM(DLL) and AMODE64. 


For the Java part .. it's a simple javac programname.java followed by a javah 
programname (class name)... for the 
C part ... I've been using the below .. 

c89 -c -o programname.o -W "c,langlvl(extended)",lp64 -W c,expo,lp64,dll 
-DNEEDSIEE754 -DNEEDSLONGLONG -I/usr/lpp/java/J7.0_64/include programname.c
c89 -Wl,lp64,dll -o libprogramname.so programname.o 
"//'HLQ.PDSE.OBJ(COBOLPROGRAM | ASSEMBLERPROGRAM)'"

With the 'lp64' included .. for the 2nd step (link) .. I keep getting ..

IEW2480W A711 EXTERNAL SYMBOL CEELLIST OF TYPE LD WAS ALREADY DEFINED AS A   
  SYMBOL OF TYPE LD IN SECTION CEEBLLST.  
 IEW2482W A712 THE ORIGINAL DEFINITION WAS IN A MODULE IDENTIFIED BY DDNAME   
  C8921.  THE DUPLICATE DEFINITION IS IN SECTION CELQLLST  IN A MODULE
  IDENTIFIED BY DDNAME SYSLIB.
 IEW2491E 9373 CLASSES C_WSA and C_WSA64 ARE BOTH PRESENT IN THE MODULE.  
FSUM3065 The LINKEDIT step ended with return code 8.  

I do see that both, the COBOL and assembler objects (under z/OS) are amode 64 / 
rmode any ... I do not know how to do
the same under USS but am going by the options provided to 'c89' ... 

If I remove the 'lp64' option ... it compiles / links fine .. but when I try to 
run (java programname) .. I get a class not found error 
followed by a java.lang.unspecifiedlinkerror ... this is on the java 
System.loadLibrary statement ... when I changed it to 
System.load specifying the full path ... I got an EDC5253S An AMODE64 
application is attempting to load an AMODE31 DLL load
module .. 

Any advice / direction would be appreciated  ...

Kind Regards.

Jim 

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

Re: How set CVTLSO?

[Tony Harminc]

On 2 November 2016 at 17:03, George Kozakos  wrote:
>>Not any computer systems I work with. They use either 1900 or 1970
>>as their epoch. What uses 1972?
>
> The "epoch" on z/OS systems is 1900.

The TOD epoch is 1900. The UNIX epoch -- z/OS UNIX or any other -- is 1970.

Tony H.

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

Re: How set CVTLSO?

[George Kozakos]

>Not any computer systems I work with. They use either 1900 or 1970
>as their epoch. What uses 1972?

The "epoch" on z/OS systems is 1900.

George Kozakos
z/OS Software Service, Level 2 Supervisor


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

Re: Member search in multiple PDS

[Tom Marchant]

On Wed, 2 Nov 2016 20:36:16 +, Neil Duffee wrote:

>I'm surprised no one has suggested SRCHFOR in Dataset List (=3.4).

Or in the ISPF Workplace, option 11. You can easily create a data set list that 
includes DSNAMEs and/or masks.

-- 
Tom Marchant

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

Re: Subject: Member search in multiple PDS

[Tim Brown]

This works for me


//XTBSRCHM JOB 0,CLASS=A,PRTY=6,MSGCLASS=X,MSGLEVEL=(1,1)
//GENER   EXEC PGM=ICEGENER
//SYSPRINT DD SYSOUT=*
//SYSINDD DUMMY
//SYSUT1   DD *
  SRCHFOR 'ABC.'
//SYSUT2   DD DSN=&,DISP=(NEW,PASS),
//DCB=(DSORG=PS,RECFM=FB,LRECL=80),
//UNIT=SYSDA,SPACE=(TRK,1)
//SRCHFOR  PROC
//STEP01  EXEC PGM=ISRSUPC,PARM=('L SRCHCMP ANYC')
//SYSPRINT DD SYSOUT=*
//NEWDDDD DISP=SHR,DSN=
//OUTDDDD SYSOUT=*
//SYSINDD DSN=&,DISP=(OLD,KEEP)
// PEND
//SYS21   EXEC SRCHFOR,DSN1=SYS1.PROCLIB
//SYS22   EXEC SRCHFOR,DSN1=SYS2.PROCLIB
//SYS23   EXEC SRCHFOR,DSN1=SYS3.PROCLIB

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of R.S.
Sent: Wednesday, 02 November, 2016 4:52 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Subject: Member search in multiple PDS


** THIS IS AN EXTERNAL EMAIL ** Use caution before opening links / attachments. 
Never supply UserID/PASSWORD information.


W dniu 2016-11-02 o 21:34, Kenneth J. Kripke pisze:
> If you have Innovation Data Processing's products installed, 
> specifically, FDREPORT,
>
> A report can be generated based on a XDSN= dsn mask, and, then in the 
> REPORT section, you can specify DIRISPF to list the members, who updated 
> last, etc.
>
>
> The data can be sorted as well within the program.


Are we talking about searching for a string?
Recipe:
p.3.4 - DSLIST with all PDS(E)'ses needed. (***) Primary command SRCHFOR string 
END.

*** the list may contain other datasets, non-PO are welcome. Not needed 
datasets can be excluded before search.
When using REFLIST, the list can consist of totally unrelated dataset names 
like SYS1.XYZ, ABC.EDG, KHJ.BEW, etc.

--
Radoslaw Skorupka
Lodz, Poland






---
Tre tej wiadomoci moe zawiera informacje prawnie chronione Banku 
przeznaczone wycznie do uytku subowego adresata. Odbiorc moe by jedynie 
jej adresat z wyczeniem dostpu osób trzecich. Jeeli nie jeste adresatem 
niniejszej wiadomoci lub pracownikiem upowanionym do jej przekazania 
adresatowi, informujemy, e jej rozpowszechnianie, kopiowanie, rozprowadzanie 
lub inne dziaanie o podobnym charakterze jest prawnie zabronione i moe by 
karalne. Jeeli otrzymae t wiadomo omykowo, prosimy niezwocznie 
zawiadomi nadawc wysyajc odpowied oraz trwale usun t wiadomo 
wczajc w to wszelkie jej kopie wydrukowane lub zapisane na dysku.

This e-mail may contain legally privileged information of the Bank and is 
intended solely for business use of the addressee. This e-mail may only be 
received by the addressee and may not be disclosed to any third parties. If you 
are not the intended addressee of this e-mail or the employee authorized to 
forward it to the addressee, be advised that any dissemination, copying, 
distribution or any other similar activity is legally prohibited and may be 
punishable. If you received this e-mail by mistake please advise the sender 
immediately by using the reply facility in your e-mail software and delete 
permanently this e-mail including any copies of it either printed or saved to 
hard drive.

mBank S.A. z siedzib w Warszawie, ul. Senatorska 18, 00-950 Warszawa, 
www.mBank.pl, e-mail: kont...@mbank.pl
Sd Rejonowy dla m. st. Warszawy XII Wydzia Gospodarczy Krajowego Rejestru 
Sdowego, nr rejestru przedsibiorców KRS 025237, NIP: 526-021-50-88. 
Wedug stanu na dzie 01.01.2016 r. kapita zakadowy mBanku S.A. (w caoci 
wpacony) wynosi 168.955.696 zotych.


--
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: Subject: Member search in multiple PDS

[R.S.]

W dniu 2016-11-02 o 21:34, Kenneth J. Kripke pisze:

If you have Innovation Data Processing's products installed, specifically,
FDREPORT,

A report can be generated based on a XDSN= dsn mask, and, then in the REPORT
section, you can specify DIRISPF to list the members, who updated last, etc.


The data can be sorted as well within the program.



Are we talking about searching for a string?
Recipe:
p.3.4 - DSLIST with all PDS(E)'ses needed. (***)
Primary command SRCHFOR string
END.

*** the list may contain other datasets, non-PO are welcome. Not needed 
datasets can be excluded before search.
When using REFLIST, the list can consist of totally unrelated dataset 
names like SYS1.XYZ, ABC.EDG, KHJ.BEW, etc.


--
Radoslaw Skorupka
Lodz, Poland






---
Tre tej wiadomoci moe zawiera informacje prawnie chronione Banku 
przeznaczone wycznie do uytku subowego adresata. Odbiorc moe by jedynie 
jej adresat z wyczeniem dostpu osób trzecich. Jeeli nie jeste adresatem 
niniejszej wiadomoci lub pracownikiem upowanionym do jej przekazania 
adresatowi, informujemy, e jej rozpowszechnianie, kopiowanie, rozprowadzanie 
lub inne dziaanie o podobnym charakterze jest prawnie zabronione i moe by 
karalne. Jeeli otrzymae t wiadomo omykowo, prosimy niezwocznie 
zawiadomi nadawc wysyajc odpowied oraz trwale usun t wiadomo 
wczajc w to wszelkie jej kopie wydrukowane lub zapisane na dysku.

This e-mail may contain legally privileged information of the Bank and is 
intended solely for business use of the addressee. This e-mail may only be 
received by the addressee and may not be disclosed to any third parties. If you 
are not the intended addressee of this e-mail or the employee authorized to 
forward it to the addressee, be advised that any dissemination, copying, 
distribution or any other similar activity is legally prohibited and may be 
punishable. If you received this e-mail by mistake please advise the sender 
immediately by using the reply facility in your e-mail software and delete 
permanently this e-mail including any copies of it either printed or saved to 
hard drive.

mBank S.A. z siedzib w Warszawie, ul. Senatorska 18, 00-950 Warszawa, 
www.mBank.pl, e-mail: kont...@mbank.pl
Sd Rejonowy dla m. st. Warszawy XII Wydzia Gospodarczy Krajowego Rejestru 
Sdowego, nr rejestru przedsibiorców KRS 025237, NIP: 526-021-50-88. 
Wedug stanu na dzie 01.01.2016 r. kapita zakadowy mBanku S.A. (w caoci 
wpacony) wynosi 168.955.696 zotych.


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

Re: Member search in multiple PDS

[Neil Duffee]

Caveat:  as daily digestor, list responses are implicitly delayed.  YMMV...

I'm surprised no one has suggested SRCHFOR in Dataset List (=3.4).  It will 
only search 'non-hidden' entries if you can't get a wild-carded string to list 
only the 45 libraries you desire.  There's even an option on the pop-up 
dialogue where you can have SRCHFOR hide the libraries that don't contain your 
search string.  Using the pop-up, you can also specify about 15 (partial) 
member names  I leave it to the reader to query the ISPF help for details.

Unless, of course, it *has* to be done in batch...  (don't know if it would 
like IKJEFT*)

>  signature = 8 lines follows  <
Neil Duffee, Joe Sysprog, uOttawa, Ottawa, Ont, Canada
telephone:1 613 562 5800 x4585  fax:1 613 562 5161
mailto:NDuffee of uOttawa.ca http:/ /aix1.uOttawa.ca/ ~nduffee
“How *do* you plan for something like that?”  Guardian Bob, Reboot
“For every action, there is an equal and opposite criticism.”
“Systems Programming: Guilty, until proven innocent”  John Norgauer 2004
"Schrodinger's backup: The condition of any backup is unknown until a restore 
is attempted."  John McKown 2015


-Original Message-
From: Ron Thomas [mailto:ron5...@gmail.com] 
Sent: November 1, 2016 15:16
Subject: Member search in multiple PDS

There are some around 45 PDS we have and i need to run in batch to to find 
where all a member exists . Could some one let me know how this can be done in 
a job ? 

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

Subject: Member search in multiple PDS

[Kenneth J. Kripke]

If you have Innovation Data Processing's products installed, specifically,
FDREPORT, 

A report can be generated based on a XDSN= dsn mask, and, then in the REPORT
section, you can specify DIRISPF to list the members, who updated last, etc.


The data can be sorted as well within the program.  

 

kennethkri...@gmail.com 

 


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

Re: TSO Command to issue message to Outtrap

[Nims,Alva John (Al)]

From: "z/OS TSO/E REXX Reference"

OUTTRAP function does not trap command output that is sent to the terminal by:
* TPUT
* WTO macro
* messages issued by TSO/E REXX (that is, messages beginning with IRX)
* messages issued by TRACE output
However, OUTTRAP does trap output from the PUTLINE macro with DATA or INFOR 
keywords.

Al Nims
Systems Admin/Programmer 3
UFIT
University of Florida
(352) 273-1298

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler
Sent: Wednesday, November 02, 2016 3:46 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: TSO Command to issue message to Outtrap

I think it depends on if the TSO command issues a TPUT or a PUTLINE.
One will let you capture the output and the other will not.  And I forget which 
one is OUTTRAP friendly.


Lizette


-Original Message-
>From: "Dyck, Lionel B. (TRA)" 
>Sent: Nov 2, 2016 12:13 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: TSO Command to issue message to Outtrap
>
>Does anyone know of any TSO command (or REXX function) that will let me send 
>text to the screen that can be captured by OUTTRAP?
>
>What I'm trying to do is have a rexx dialog that does something like this 
>(very simplified):
>
>Call outtrap 't.'
>Write 'starting xyz'
>'xyz'<=== tso command
>Call outtrap 'off'
>Do I = 1 to t.0;say t.i;end
>
>
>---
>---
>Lionel B. Dyck (TRA Contractor)
>Mainframe Systems Programmer  Enterprise 
>Infrastructure Support (Station 200) (005OP6.3.10) VA OI Service 
>Delivery & Engineering
>

--
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: TSO Command to issue message to Outtrap

[Lizette Koehler]

I think it depends on if the TSO command issues a TPUT or a PUTLINE.
One will let you capture the output and the other will not.  And I forget which 
one is OUTTRAP friendly.


Lizette


-Original Message-
>From: "Dyck, Lionel B. (TRA)" 
>Sent: Nov 2, 2016 12:13 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: TSO Command to issue message to Outtrap
>
>Does anyone know of any TSO command (or REXX function) that will let me send 
>text to the screen that can be captured by OUTTRAP?
>
>What I'm trying to do is have a rexx dialog that does something like this 
>(very simplified):
>
>Call outtrap 't.'
>Write 'starting xyz'
>'xyz'<=== tso command
>Call outtrap 'off'
>Do I = 1 to t.0;say t.i;end
>
>
>--
>Lionel B. Dyck (TRA Contractor)
>Mainframe Systems Programmer 
>Enterprise Infrastructure Support (Station 200) (005OP6.3.10)
>VA OI Service Delivery & Engineering
>

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

RCNVTCAT utility

[Sam Golob]

Hi Folks,

   Bob Richards and I solved the ALIAS problem with RCNVTCAT.

   RCNVTCAT was not defining alias entries properly.  RELATE was 
generated in the line before NAME was generated, in all DEFINE ALIAS 
statements that were generated by the exec.


   I fixed SCNVTCAT in File 542 as well.

   Corrected code may be found on www.cbttape.org  UPDATES page, File 
542.  I think we fixed it.  If you have a chance, please test the code.  
It is very easy to run:


   TSO RCNVTCAT 'catalog.name'

This will generate a pds, and check to see if all ALIAS entries were 
properly generated.


   All the best of everything to all of you.

Sincerely,   Sam and Bob

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

Re: TSO Command to issue message to Outtrap

[Richards, Robert B.]

Here is another simple version:

ADDRESS TSO  
  Arg info   
 
  x = OUTTRAP(help.) 
 'ALLOC DD(LIST) UNIT(VIO) SPACE(1) CYLINDERS REUSE  
RECFM (F B) LRECL (80) BLKSIZE (0)'  
 'HELP 'info''   
 'EXECIO * DISKW LIST (STEM help. FINIS)'
  x = OUTTRAP('OFF') 
ADDRESS ISPEXEC  
 'LMINIT DATAID(LASTID) DDNAME(LIST)'
 'BROWSE DATAID('lastid')'   
 'LMFREE DATAID('lastid')'   
ADDRESS TSO  
 'FREE DD(LIST)' 


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bill Ashton
Sent: Wednesday, November 02, 2016 3:27 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: TSO Command to issue message to Outtrap

Here is a simple Listcat command that does an Outtrap, and then writes it to a 
file that is browsed...you could easily just do a bunch of "say"
commands with this, too.

/*>> REXX <<==*/
/* LCAT: Browse output from 'LISTCAT ENT(dsn) ALL' command   */
/**/
Trace ?i;
Parse Upper ARG dsn parm
x = OutTrap('LISTC_Output.',1500) /* up to 1500 lines */ If parm = '' Then parm 
= 'ALL'
Address TSO "LISTC ENT("DSN")" parm
listc_rc = rc
x = OutTrap('Off')
outds = "'"Userid()".TSO.LISTC'" /* output dataset name */ If Sysdsn(outds) = 
"OK"
Then alloc_info = "SHR REUSE"
Else alloc_info = "NEW UNIT(3390) SPACE(1 1) TRACKS", "RECFM(F B) LRECL(121) 
DSORG(PS)", "REUSE"
"ALLOC F(TSOLISTC) DATASET("outds")" alloc_info "EXECIO * DISKW TSOLISTC (STEM 
LISTC_Output. OPEN FINIS "
Address ISPEXEC "ISPEXEC BROWSE DATASET("outds")"
Return listc_rc

On Wed, Nov 2, 2016 at 3:13 PM, Dyck, Lionel B. (TRA) 
wrote:

> Does anyone know of any TSO command (or REXX function) that will let 
> me send text to the screen that can be captured by OUTTRAP?
>
> What I'm trying to do is have a rexx dialog that does something like 
> this (very simplified):
>
> Call outtrap 't.'
> Write 'starting xyz'
> 'xyz'<=== tso command
> Call outtrap 'off'
> Do I = 1 to t.0;say t.i;end
>
>
> --
> 
> Lionel B. Dyck (TRA Contractor)
> Mainframe Systems Programmer  Enterprise 
> Infrastructure Support (Station 200) (005OP6.3.10) VA OI Service 
> Delivery & Engineering
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



--
Thank you and best regards,
*Billy Ashton*

--
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: Remote API to z/OS?

[John McKown]

On Wed, Nov 2, 2016 at 2:02 PM, Kirk Wolf  wrote:

> John,
>
> Had you seen this?
> It appears that VM/CMS OpenExtensions folks have thought a little more
> about the conversion of fork/exec to spawn:
>
> https://www.ibm.com/support/knowledgecenter/SSB27U_6.2.0/
> com.ibm.zvm.v620.dmsa3/forkcnv.htm


​Interesting, thanks.​



>
> Kirk Wolf
> Dovetailed Technologies
> http://dovetail.com
>
>
-- 
Heisenberg may have been here.

Unicode: http://xkcd.com/1726/

Maranatha! <><
John McKown

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

Re: TSO Command to issue message to Outtrap

[Bill Ashton]

Here is a simple Listcat command that does an Outtrap, and then writes it
to a file that is browsed...you could easily just do a bunch of "say"
commands with this, too.

/*>> REXX <<==*/
/* LCAT: Browse output from 'LISTCAT ENT(dsn) ALL' command   */
/**/
Trace ?i;
Parse Upper ARG dsn parm
x = OutTrap('LISTC_Output.',1500) /* up to 1500 lines */
If parm = '' Then parm = 'ALL'
Address TSO "LISTC ENT("DSN")" parm
listc_rc = rc
x = OutTrap('Off')
outds = "'"Userid()".TSO.LISTC'" /* output dataset name */
If Sysdsn(outds) = "OK"
Then alloc_info = "SHR REUSE"
Else alloc_info = "NEW UNIT(3390) SPACE(1 1) TRACKS",
"RECFM(F B) LRECL(121) DSORG(PS)",
"REUSE"
"ALLOC F(TSOLISTC) DATASET("outds")" alloc_info
"EXECIO * DISKW TSOLISTC (STEM LISTC_Output. OPEN FINIS "
Address ISPEXEC "ISPEXEC BROWSE DATASET("outds")"
Return listc_rc

On Wed, Nov 2, 2016 at 3:13 PM, Dyck, Lionel B. (TRA) 
wrote:

> Does anyone know of any TSO command (or REXX function) that will let me
> send text to the screen that can be captured by OUTTRAP?
>
> What I'm trying to do is have a rexx dialog that does something like this
> (very simplified):
>
> Call outtrap 't.'
> Write 'starting xyz'
> 'xyz'<=== tso command
> Call outtrap 'off'
> Do I = 1 to t.0;say t.i;end
>
>
> --
> Lionel B. Dyck (TRA Contractor)
> Mainframe Systems Programmer 
> Enterprise Infrastructure Support (Station 200) (005OP6.3.10)
> VA OI Service Delivery & Engineering
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



-- 
Thank you and best regards,
*Billy Ashton*

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

TSO Command to issue message to Outtrap

[Dyck, Lionel B. (TRA)]

Does anyone know of any TSO command (or REXX function) that will let me send 
text to the screen that can be captured by OUTTRAP?

What I'm trying to do is have a rexx dialog that does something like this (very 
simplified):

Call outtrap 't.'
Write 'starting xyz'
'xyz'<=== tso command
Call outtrap 'off'
Do I = 1 to t.0;say t.i;end


--
Lionel B. Dyck (TRA Contractor)
Mainframe Systems Programmer 
Enterprise Infrastructure Support (Station 200) (005OP6.3.10)
VA OI Service Delivery & Engineering


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

Re: Remote API to z/OS?

[Kirk Wolf]

John,

Had you seen this?
It appears that VM/CMS OpenExtensions folks have thought a little more
about the conversion of fork/exec to spawn:

https://www.ibm.com/support/knowledgecenter/SSB27U_6.2.0/com.ibm.zvm.v620.dmsa3/forkcnv.htm


Kirk Wolf
Dovetailed Technologies
http://dovetail.com

On Wed, Nov 2, 2016 at 11:14 AM, John McKown 
wrote:

> On Wed, Nov 2, 2016 at 11:08 AM, Kirk Wolf  wrote:
>
> > I think that it would be great to use bash for z/OS, but the current
> ports
> > that I am aware of do not support local spawn of normal shell commands
> > (_BPX_SHAREAS)  like the z/OS UNIX shell. Other than performance, the
> most
> > important implication of this is that you can't access DD's from shell
> > commands in a batch job since all commands are forked in a separate OMVS
> > address space.I don't view dynamically loaded bash built-ins as a
> > general solution to this.
> >
> > This would be a major change to the current open source code base, which
> is
> > probably why it has never been done.
> >
>
> ​Correct. I was actually looking at this when I was doing my port of BASH
> for the CBT. But I've basically abandoned my port since Rocket Software​
> took over the ported tools from IBM. I figured that they'd do a better job
> than I. BASH does some really strange things to run commands. It's not a
> simple fork()/exec() sequence which would be relatively simple to replace
> with a spawn(), which is required to honor _BPXAS_SHAREAS.
>
>
>
> >
> > Kirk Wolf
> > Dovetailed Technologies
> > http://dovetail.com
> >
> >
>
> --
> Heisenberg may have been here.
>
> Unicode: http://xkcd.com/1726/
>
> 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: Cancel STARTING

[Gibney, Dave]

Also,  looking into why there are STARTING tasks and stopping it would be a 
good idea :)

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Lizette Koehler
> Sent: Wednesday, November 02, 2016 10:20 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Cancel STARTING
> 
> Not sure of your question.
> 
> However,  C STARTING,A=
> 
> Says to cancel the task STARTING in the Address Space 
> 
> You may have multiple tasks in Starting Status, this allows you to cancel a
> specific STARTING in an specific ASID.
> 
> If you do CANCEL STARTING, I think z/OS would not know what to do with that.
> 
> 
> Lizette
> 
> 
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> > On Behalf Of Nathan Astle
> > Sent: Wednesday, November 02, 2016 10:14 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Cancel STARTING
> >
> > Hi
> >
> > Apology for asking a dummy question.
> >
> > When we have multiple STC in starting status. We issue C
> > STARTING,A=
> >
> > Does it mean we are cancelling just based on Cancel status ?
> >
> > Nathan
> 
> --
> 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: SQLCODE=-904 during RUN

[Janet Graff]

>I am not getting the DROP/CREATE table part here... Are these the tables that 
>are used in your program? Because if they are, then dropping them >will 
>invalidate all packages accessing them. And re-creating the tables will *not* 
>rebind your packages. After all, even if they have the same name, >your tables 
>will be different, new objects. And any program that uses the invalidated 
>packages will fail...

>Cheers,

>Jantje.

Jan,

Yes this is part of my test automation so to make sure the result sets are 
clean I am dropping and recreating the tables every time through.

Are you saying I need to sequence this?  So the Drop/Create is done and THEN 
then BIND?

Janet

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

Re: SQLCODE=-904 during RUN

[Janet Graff]

>HI Janet,
 >I noticed that the bind is binding DALLASA.DB2ZP.ZPDB2
>but the error is for DB2ZP.ZPDB2.1A320A2A009C519E.
>
>It looks like a mis-match between local and remote versions of the package.
>
>Regards,
 > Ron

Ron,

What step do I fix that on and what keyword do I specify?

Thanks!
Janet

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

Re: Rexx and hex data strings

[Charles Mills]

@Itschak, I don't know if you have resolved your issue but I had some further 
thoughts and wanted to close the loop. If you were to encode your non-printable 
data in hex (true hex, each nibble converted to a printable character 0-9, a/A 
- f/F)) or Base64 (https://en.wikipedia.org/wiki/Base64) then it would solve 
both your original problem and my objection below to non-printable data in 
source code.

Hex has the advantage that it is extremely straightforward, well-known and 
more-or-less human-readable. It has the disadvantage that it exactly doubles 
the size of your data. Uuencoding (https://en.wikipedia.org/wiki/Uuencoding) 
has been suggested because of the advantage that it only expands the data by a 
third. The problem with uuencode is that both ' (apostrophe) and " (quote) can 
appear in the encoded data, preventing their use as string terminators. Base64 
is not so straightforward nor human-readable as hex but has the same "only" 4:3 
expansion advantage and does not include apostrophe or quote in its encoded 
character set. 

With your non-printable data encoded in hex or Base64, your original problem 
becomes trivial:

MyData =
'first part of encoded data' || ,
'second part of encoded data' || ,
 etc.
'last part'

The || sequence concatenates the quoted literals with no intervening blank. 
Alternatively, your decode routine could skip over blanks. The comma continues 
the Rexx statement onto the next line.

You will of course need to encode your data (once) and decode it on every 
execution. I would assume you can handle that.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Charles Mills
Sent: Thursday, October 27, 2016 3:02 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Rexx and hex data strings

@Gil, the below would imply it is "non-print" data rather than true hex data.

And @Itschak I don't of course grasp all of the ramifications of the problem 
you are trying to solve, but I would say program source code should be 
generally printable, displayable characters. Anything else is asking for 
trouble. I don't grasp the exact problem you are trying to solve, but I have to 
think there must be a better solution. For example, would it make sense to put 
this binary data in a separate file of its own, and read it in when needed?

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

Re: SAS Error

[Barry Merrill]

There are SAS options that control whether SAS will read all of the 80 bytes or 
only the first 72.

And SAS reads columns 73-80 of the first //SYSIN statement and if there are no 
line numbers, 
assumes the rest of the input is also unnumbered, so a later line with a line 
number can trip
up that presumption.

Barry Merrill


Merrilly yours,

 Herbert W. Barry Merrill, PhD
 President-Programmer
 Merrill Consultants
 MXG Software
 10717 Cromwell Drive  technical questions: supp...@mxg.com
 Dallas, TX 75229
 http://www.mxg.comadmin questions: ad...@mxg.com
 tel: 214 351 1966
 fax: 214 350 3694




-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ron Thomas
Sent: Wednesday, November 2, 2016 11:59 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SAS Error

Thanks Donald ! I looked at the code and there was line numbers in 73-80 col 
and in removed those and it worked fine . Thanks !

--
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: Cancel STARTING

[Lizette Koehler]

Not sure of your question.

However,  C STARTING,A=

Says to cancel the task STARTING in the Address Space 

You may have multiple tasks in Starting Status, this allows you to cancel a 
specific STARTING in an specific ASID. 

If you do CANCEL STARTING, I think z/OS would not know what to do with that.


Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Nathan Astle
> Sent: Wednesday, November 02, 2016 10:14 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Cancel STARTING
> 
> Hi
> 
> Apology for asking a dummy question.
> 
> When we have multiple STC in starting status. We issue C STARTING,A=
> 
> Does it mean we are cancelling just based on Cancel status ?
> 
> Nathan

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

Cancel STARTING

[Nathan Astle]

Hi

Apology for asking a dummy question.

When we have multiple STC in starting status. We issue C STARTING,A=

Does it mean we are cancelling just based on Cancel status ?

Nathan

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

Re: SAS Error

[Lizette Koehler]

The only function in SAS I found that does not like line numbers are SAS Macros.

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Lizette Koehler
> Sent: Wednesday, November 02, 2016 10:06 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: SAS Error
> 
> SAS typically ignores 73-80 line numbers.  The SASLOG, as Barry indicated,
> lists the SAS code line and the error location.
> 
> 
> Lizette
> 
> 
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> > On Behalf Of Leonardo Vaz
> > Sent: Wednesday, November 02, 2016 9:55 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: SAS Error
> >
> > I don't know SAS or how it reads the SYSIN DD, but maybe you have
> > numbers on columns 73-80?
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> > On Behalf Of Barry Merrill
> > Sent: Wednesday, November 02, 2016 12:51 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: SAS Error
> >
> > The 180 error means SAS could not resolve the syntax, and there is
> > nothing VISIBLY wrong in your program.
> >
> > Post the full SAS log of the job and/or look for an unprintable
> > character in your SAS program.
> >
> > Barry
> >
> >
> > Merrilly yours,
> >
> >  Herbert W. Barry Merrill, PhD
> >  President-Programmer
> >  Merrill Consultants
> >  MXG Software
> >  10717 Cromwell Drive  technical questions: supp...@mxg.com
> >  Dallas, TX 75229
> >  http://www.mxg.comadmin questions: ad...@mxg.com
> >  tel: 214 351 1966
> >  fax: 214 350 3694
> >
> >
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> > On Behalf Of Ron Thomas
> > Sent: Wednesday, November 2, 2016 10:54 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: SAS Error
> >
> > Hi .
> >
> > I am completely  new to SAS  and when i executed the below  one to
> > write 111 char to a dataset , the following below error message is
> > showing up could someone please let me know where the issue is ?
> >
> >
> > //RDDATA   EXEC  SAS,WORK='4,4'
> > //*
> > //SASLIST  DD  DSN=RS32UVT.SAS.SASLIST,
> > // DISP=SHR
> > //TESTF1   DD  DSN=RS32UVT.TEST.FILE,
> > // DISP=SHR
> > //SYSIN  DD *
> > OPTIONS NOCENTER;
> > DATA _NULL_ ;
> >   FILE TESTF1 ;
> >PUT @1 '111 '
> >;
> > RUN;
> > //SYSPRINT DD SYSOUT=*
> >
> >
> > ERROR 180-322: Statement is not valid or it is used out of proper order.
> > ERROR 180-322: Statement is not valid or it is used out of proper order.
> > ERROR 180-322: Statement is not valid or it is used out of proper order.
> >
> > Thanks
> > Ron T

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

Re: SAS Error

[Lizette Koehler]

SAS typically ignores 73-80 line numbers.  The SASLOG, as Barry indicated, 
lists the SAS code line and the error location.


Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Leonardo Vaz
> Sent: Wednesday, November 02, 2016 9:55 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: SAS Error
> 
> I don't know SAS or how it reads the SYSIN DD, but maybe you have numbers on
> columns 73-80?
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Barry Merrill
> Sent: Wednesday, November 02, 2016 12:51 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: SAS Error
> 
> The 180 error means SAS could not resolve the syntax, and there is nothing
> VISIBLY wrong in your program.
> 
> Post the full SAS log of the job and/or look for an unprintable character in
> your SAS program.
> 
> Barry
> 
> 
> Merrilly yours,
> 
>  Herbert W. Barry Merrill, PhD
>  President-Programmer
>  Merrill Consultants
>  MXG Software
>  10717 Cromwell Drive  technical questions: supp...@mxg.com
>  Dallas, TX 75229
>  http://www.mxg.comadmin questions: ad...@mxg.com
>  tel: 214 351 1966
>  fax: 214 350 3694
> 
> 
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Ron Thomas
> Sent: Wednesday, November 2, 2016 10:54 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: SAS Error
> 
> Hi .
> 
> I am completely  new to SAS  and when i executed the below  one to write 111
> char to a dataset , the following below error message is showing up could
> someone please let me know where the issue is ?
> 
> 
> //RDDATA   EXEC  SAS,WORK='4,4'
> //*
> //SASLIST  DD  DSN=RS32UVT.SAS.SASLIST,
> // DISP=SHR
> //TESTF1   DD  DSN=RS32UVT.TEST.FILE,
> // DISP=SHR
> //SYSIN  DD *
> OPTIONS NOCENTER;
> DATA _NULL_ ;
>   FILE TESTF1 ;
>PUT @1 '111 '
>;
> RUN;
> //SYSPRINT DD SYSOUT=*
> 
> 
> ERROR 180-322: Statement is not valid or it is used out of proper order.
> ERROR 180-322: Statement is not valid or it is used out of proper order.
> ERROR 180-322: Statement is not valid or it is used out of proper order.
> 
> Thanks
> Ron T
> 

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

Re: SAS Error

[Ron Thomas]

Thanks Donald ! I looked at the code and there was line numbers in 73-80 col 
and in removed those and it worked fine . Thanks !

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

Re: RCNVTCAT utility

[Richards, Robert B.]

Problem with out of sequence NAME and REL statements discovered and resolved. 
Worked with Sam Golob and he will update the CBT version with the correct 
changes.

Executed it as a TSO command on Option 6 and it created the dataset and members 
correctly, with one exception:  All CAT(catalog. Statements are for the catalog 
you are copying from. Did I miss something that I should have specified to 
generate CAT(Catalog.newcat name statements? 

Bob

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Dyck, Lionel B. (TRA)
Sent: Wednesday, November 02, 2016 9:58 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] Re: RCNVTCAT utility


Have you picked up the latest version from cbttape.org for V-492 (aug 25, 2016):

Update to File 039 to put in a fixed version of RCNVTCAT which works for SWA 
above the line, and which includes some UNIX implementation.

--
Lionel B. Dyck (TRA Contractor)
Mainframe Systems Programmer  Enterprise Infrastructure 
Support (Station 200) (005OP6.3.10) VA OI Service Delivery & Engineering


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Steve Smith
Sent: Wednesday, November 02, 2016 8:48 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: RCNVTCAT utility

Sam Golob detailed issues and solutions to this list on on 8 September.  I 
don't know if it addresses your problem or not.

If you happen to have Tivoli Advanced Catalog Management, or Rocket's 
CatalogRecoveryPlus, you could use them to do what *CNVTCAT does.

sas

On Tue, Nov 1, 2016 at 12:59 PM, Richards, Robert B. < robert.richa...@opm.gov> 
wrote:

> Does anyone have a *working* copy of this utility? And its JCL?
>
> The copy I downloaded from the CBT website (CBT493.FILE542) is 
> producing errors and even when I got around that, it was formatting 
> the define alias statements out of order.
>
> Thanks in advance,
>
> Bob
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



--
sas

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

Re: SAS Error

[Leonardo Vaz]

I don't know SAS or how it reads the SYSIN DD, but maybe you have numbers on 
columns 73-80?

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Barry Merrill
Sent: Wednesday, November 02, 2016 12:51 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SAS Error

The 180 error means SAS could not resolve the syntax, and there is nothing 
VISIBLY wrong in your program.

Post the full SAS log of the job and/or look for an unprintable character in 
your SAS program.

Barry


Merrilly yours,

 Herbert W. Barry Merrill, PhD
 President-Programmer
 Merrill Consultants
 MXG Software
 10717 Cromwell Drive  technical questions: supp...@mxg.com
 Dallas, TX 75229
 http://www.mxg.comadmin questions: ad...@mxg.com
 tel: 214 351 1966
 fax: 214 350 3694



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ron Thomas
Sent: Wednesday, November 2, 2016 10:54 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: SAS Error

Hi .

I am completely  new to SAS  and when i executed the below  one to write 111 
char to a dataset , the following below error message is showing up could 
someone please let me know where the issue is ?


//RDDATA   EXEC  SAS,WORK='4,4'
//*
//SASLIST  DD  DSN=RS32UVT.SAS.SASLIST,
// DISP=SHR
//TESTF1   DD  DSN=RS32UVT.TEST.FILE,
// DISP=SHR
//SYSIN  DD *
OPTIONS NOCENTER;
DATA _NULL_ ;
  FILE TESTF1 ;
   PUT @1 '111 '
   ;
RUN;
//SYSPRINT DD SYSOUT=*


ERROR 180-322: Statement is not valid or it is used out of proper order.
ERROR 180-322: Statement is not valid or it is used out of proper order.
ERROR 180-322: Statement is not valid or it is used out of proper order.

Thanks
Ron T

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

Re: SAS Error

[Barry Merrill]

The 180 error means SAS could not resolve the syntax,
and there is nothing VISIBLY wrong in your program.

Post the full SAS log of the job and/or look for an unprintable
character in your SAS program.

Barry


Merrilly yours,

 Herbert W. Barry Merrill, PhD
 President-Programmer
 Merrill Consultants
 MXG Software
 10717 Cromwell Drive  technical questions: supp...@mxg.com
 Dallas, TX 75229
 http://www.mxg.comadmin questions: ad...@mxg.com
 tel: 214 351 1966
 fax: 214 350 3694



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ron Thomas
Sent: Wednesday, November 2, 2016 10:54 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: SAS Error

Hi .

I am completely  new to SAS  and when i executed the below  one to write 111 
char to a dataset , the following below error message is showing up could 
someone please let me know where the issue is ?


//RDDATA   EXEC  SAS,WORK='4,4'
//*
//SASLIST  DD  DSN=RS32UVT.SAS.SASLIST,
// DISP=SHR
//TESTF1   DD  DSN=RS32UVT.TEST.FILE,
// DISP=SHR
//SYSIN  DD *
OPTIONS NOCENTER;
DATA _NULL_ ;
  FILE TESTF1 ;
   PUT @1 '111 '
   ;
RUN;
//SYSPRINT DD SYSOUT=*


ERROR 180-322: Statement is not valid or it is used out of proper order.
ERROR 180-322: Statement is not valid or it is used out of proper order.
ERROR 180-322: Statement is not valid or it is used out of proper order.

Thanks
Ron T

--
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: SAS Error

[Lizette Koehler]

First, there is a SAS list that is extremely helpful with these types of 
questions.
To join, if you have not done so,
https://listserv.uga.edu/cgi-bin/wa?LIST=SAS-L

Second, please post the complete code output with the Error messages.  The 
error messages alone are not as helpful.

The SAS proc may have some differences in your shop than mine.  By posting the 
entire job and error messages will help to see what the error is.

I suspect the //SYSPRINT either needs to be deleted or moved above the SYSIN

Lizette



> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Ron Thomas
> Sent: Wednesday, November 02, 2016 8:54 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: SAS Error
> 
> Hi .
> 
> I am completely  new to SAS  and when i executed the below  one to write 111
> char to a dataset , the following below error message is showing up could
> someone please let me know where the issue is ?
> 
> 
> //RDDATA   EXEC  SAS,WORK='4,4'
> //*
> //SASLIST  DD  DSN=RS32UVT.SAS.SASLIST,
> // DISP=SHR
> //TESTF1   DD  DSN=RS32UVT.TEST.FILE,
> // DISP=SHR
> //SYSIN  DD *
> OPTIONS NOCENTER;
> DATA _NULL_ ;
>   FILE TESTF1 ;
>PUT @1 '111 '
>;
> RUN;
> //SYSPRINT DD SYSOUT=*
> 
> 
> ERROR 180-322: Statement is not valid or it is used out of proper order.
> ERROR 180-322: Statement is not valid or it is used out of proper order.
> ERROR 180-322: Statement is not valid or it is used out of proper order.
> 
> Thanks
> Ron T
> 
> --
> 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

AW: Re: Question re LE TERMTHDACT options for CICS environment

[Peter Hunkeler]

>Just curious. Are you coding LE-enabled AMODE 64 applications?


No, were not.




--
Peter Hunkeler

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

AW: Re: Question re LE TERMTHDACT options for CICS environment

[Peter Hunkeler]

>The only guess I can make is that perhaps, and this seems to be a CICS 
>question,
whether or not the CESE (Transient Data Queue) can be written to by a 64bit
function.  Termthdact tells LE what to dump and how, but in CICS that goes to
the CESE and may have other conditions that need to be considered.




Good hint. Thanks




--
Peter Hunkeler

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

Re: SAS Error

[Grinsell, Don]

I pasted your code into my JCL and it worked like a charm.  Do you have some 
extraneous data on a line that wasn't copied to the email?

--
 
Donald Grinsell, Systems Programmer
Enterprise Technology Services Bureau
SITSD/Montana Department of Administration
406.444.2983 (D)

"We fear things in proportion to our ignorance of them."
~ Titus Livius

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Ron Thomas
> Sent: Wednesday, November 02, 2016 9:54 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: SAS Error
> 
> Hi .
> 
> I am completely  new to SAS  and when i executed the below  one to write
> 111 char to a dataset , the following below error message is showing up could
> someone please let me know where the issue is ?
> 
> 
> //RDDATA   EXEC  SAS,WORK='4,4'
> //*
> //SASLIST  DD  DSN=RS32UVT.SAS.SASLIST,
> // DISP=SHR
> //TESTF1   DD  DSN=RS32UVT.TEST.FILE,
> // DISP=SHR
> //SYSIN  DD *
> OPTIONS NOCENTER;
> DATA _NULL_ ;
>   FILE TESTF1 ;
>PUT @1 '111 '
>;
> RUN;
> //SYSPRINT DD SYSOUT=*
> 
> 
> ERROR 180-322: Statement is not valid or it is used out of proper order.
> ERROR 180-322: Statement is not valid or it is used out of proper order.
> ERROR 180-322: Statement is not valid or it is used out of proper order.
> 
> Thanks
> Ron T
> 
> --
> 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: Remote API to z/OS?

[John McKown]

On Wed, Nov 2, 2016 at 11:08 AM, Kirk Wolf  wrote:

> I think that it would be great to use bash for z/OS, but the current ports
> that I am aware of do not support local spawn of normal shell commands
> (_BPX_SHAREAS)  like the z/OS UNIX shell. Other than performance, the most
> important implication of this is that you can't access DD's from shell
> commands in a batch job since all commands are forked in a separate OMVS
> address space.I don't view dynamically loaded bash built-ins as a
> general solution to this.
>
> This would be a major change to the current open source code base, which is
> probably why it has never been done.
>

​Correct. I was actually looking at this when I was doing my port of BASH
for the CBT. But I've basically abandoned my port since Rocket Software​
took over the ported tools from IBM. I figured that they'd do a better job
than I. BASH does some really strange things to run commands. It's not a
simple fork()/exec() sequence which would be relatively simple to replace
with a spawn(), which is required to honor _BPXAS_SHAREAS.



>
> Kirk Wolf
> Dovetailed Technologies
> http://dovetail.com
>
>

-- 
Heisenberg may have been here.

Unicode: http://xkcd.com/1726/

Maranatha! <><
John McKown

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

Re: Weird problem hoping to be saved by SMP/E

[Tom Brennan]

Or perhaps implement the re-installed Serverpac system to eliminate any 
possibility of copy errors.


Prior to Serverpac, we installed maintenance and upgrades in an SMP/E 
zone that was very old, and a mistake could be there for years to come. 
 When Serverpac came out I quietly said to myself, whew!  If I goof up 
it will be fixed automatically at the next total replacement.  That's 
one thing I really like about Serverpac.


Gibney, Dave wrote:

Is the Serverpac still available? Do another install and run it up to the level 
you need. Then copy the modules..


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

Re: Remote API to z/OS?

[Kirk Wolf]

I think that it would be great to use bash for z/OS, but the current ports
that I am aware of do not support local spawn of normal shell commands
(_BPX_SHAREAS)  like the z/OS UNIX shell. Other than performance, the most
important implication of this is that you can't access DD's from shell
commands in a batch job since all commands are forked in a separate OMVS
address space.I don't view dynamically loaded bash built-ins as a
general solution to this.

This would be a major change to the current open source code base, which is
probably why it has never been done.

Kirk Wolf
Dovetailed Technologies
http://dovetail.com

PS> If you look at IBM's Apache Spark port for z/OS, you will see that it
requires the Rocket bash port.   I suppose that IBM didn't want to rewrite
a bunch of complicate bash scripts to get the port done :-)

On Wed, Nov 2, 2016 at 8:49 AM, Rick Troth  wrote:

> On 09/29/16 11:16, Jack J. Woehr replied to John McKown:
>
>> Perhaps the
>>> ultimate "illegitimate offspring" would be for IBM to come up with a UNIX
>>> shell which also has all the TSO APIs integrated into it.
>>>
>>
>> It's almost like that already. Maybe the next marketing ploy will be to
>> rebrand the system zOSnix
>>
>
> I'm seeing increased use of BASH in USS.
> BASH has the ability to add commands as loadable modules. The value of
> that (compared to an external command) is that they run in the same address
> space, so they can affect the state of the shell.
>
> Years ago, I did some language bindings for a product: Perl, Tcl, Regina,
> CMS REXX, ... and BASH. Whatever TSO APIs cannot be driven via 'tsocmd'
> could perhaps be integrated as a BASH loadable module.
>
> Just kinda thinkin out loud.
>
> -- R; <><
>
>
>
>
>
>
>
> --
> 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: Weird problem hoping to be saved by SMP/E

[Paul Gilmartin]

On 2016-11-02, at 09:14, Jesse 1 Robinson wrote:

> I didn't see any comments about the effect of the DELETE action. Doesn't this 
> mean that something vital is no longer there?
>  
A PTF containing a ++DELETE MCS can not be RESTORED.  But I think
that what the OP meant is that ACCEPTed PTFs were deleted from the
GLOBAL zone.  But all necessary MOD elements exist either in
ACCEPTed PTF in DLIB or in unACCEPted PTFs remaining in GLOBAL.

For other reasons, I wish that LINK LMODS could appear in a SYSMOD
rather than only in SMPCNTL.  Even better if a SYSMOD containing
LINK LMODS could be RESTORed.

In this area, VMSES/E has greater function than SMP/E.  But it
can't recover objects that have truly been deleted.

-- gil

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

SAS Error

[Ron Thomas]

Hi .

I am completely  new to SAS  and when i executed the below  one to write 111 
char to a dataset , the following below error message is showing up
could someone please let me know where the issue is ?


//RDDATA   EXEC  SAS,WORK='4,4'
//*
//SASLIST  DD  DSN=RS32UVT.SAS.SASLIST,
// DISP=SHR
//TESTF1   DD  DSN=RS32UVT.TEST.FILE,
// DISP=SHR
//SYSIN  DD *
OPTIONS NOCENTER;
DATA _NULL_ ;
  FILE TESTF1 ;
   PUT @1 '111 '
   ;
RUN;
//SYSPRINT DD SYSOUT=*


ERROR 180-322: Statement is not valid or it is used out of proper order.
ERROR 180-322: Statement is not valid or it is used out of proper order.
ERROR 180-322: Statement is not valid or it is used out of proper order.

Thanks
Ron T

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

Re: Question re LE TERMTHDACT options for CICS environment

[Tom Marchant]

On Wed, 2 Nov 2016 15:44:05 +0100, Peter Hunkeler wrote:

>This explains a bit more, but still does not say what happens with AMODE 64 
>applicaitons.

Just curious. Are you coding LE-enabled AMODE 64 applications?

AFAIK, that would be XPLINK-64 applications, as that is the only way that LE 
supports AMODE 64.
Such applications can be generated by C/C++. I think that there are plans for 
COBOL and PL/I to generate 
XPLINK-64 code, but I don't know if either is available yet.

-- 
Tom Marchant

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

Re: Weird problem hoping to be saved by SMP/E

[Jesse 1 Robinson]

I didn't see any comments about the effect of the DELETE action. Doesn't this 
mean that something vital is no longer there?

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-302-7535 Office
robin...@sce.com

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Rob Schramm
Sent: Wednesday, November 02, 2016 6:42 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: Weird problem hoping to be saved by SMP/E

Kurt,

Is this really as simple as

LINK LMODS(module1)
 CHECK.

And it will just relink the load module?

Rob Schramm

On Wed, Nov 2, 2016 at 9:24 AM Tom Marchant < 
000a2a8c2020-dmarc-requ...@listserv.ua.edu> wrote:

> On Wed, 2 Nov 2016 05:06:44 +, Rob Schramm wrote:
>
> >What if I make a fake USERMOD and then RESTORE it off.
>
> I like this idea. A USERMOD to ZAP the affected modules, then RESTORE 
> the USERMOD. RESTORE processing will get the modules from the 
> Distribution zone. Do it on a clone of your target zone and verify the 
> results.
>
> --
> Tom Marchant
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
-- 

Rob Schramm


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

Re: Question re LE TERMTHDACT options for CICS environment

[Lizette Koehler]

The only guess I can make is that perhaps, and this seems to be a CICS question,
whether or not the CESE (Transient Data Queue) can be written to by a 64bit
function.  Termthdact tells LE what to dump and how, but in CICS that goes to
the CESE and may have other conditions that need to be considered.

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Peter Hunkeler
> Sent: Wednesday, November 02, 2016 7:44 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: AW: Re: Question re LE TERMTHDACT options for CICS environment
> 
> 
> >Are you looking a z/OS V2.1 information?
> 
> 
> Yes
> 
> 
> >What I found from z/OS V1.13 it stated
> 
> 
> This explains a bit more, but still does not say what happens with AMODE 64
> applicaitons.
> 
> 
> 
> 
> Thanks.
> It happens every now and then that information that is still relevant gets
> dropped in newer releases of manuals. I wonder why.
> 
> 
> --
> Peter Hunkeler
> 

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

AW: Re: Question re LE TERMTHDACT options for CICS environment

[Peter Hunkeler]

>Are you looking a z/OS V2.1 information?


Yes


>What I found from z/OS V1.13 it stated


This explains a bit more, but still does not say what happens with AMODE 64 
applicaitons.




Thanks.
It happens every now and then that information that is still relevant gets 
dropped in newer releases of manuals. I wonder why.


--
Peter Hunkeler



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

Re: Question re LE TERMTHDACT options for CICS environment

[Lizette Koehler]

Are you looking a z/OS V2.1 information?

What I found from z/OS V1.13 it stated
CESE

Restriction: This suboption is ignored for AMODE 64 applications.
Specifies that Language Environment dump output will be written to the CESE
queue. 
CICSDDS

Restriction: This suboption is ignored for AMODE 64 applications.

Specifies that Language Environment dump output will be written to the CICS
transaction dump data set that contains both CICS and CEEDUMP data. For program
checks or ABENDs, the CICSDDS option directs Language Environment to place the
message output in the CICS dump dataset created for the failure. For
software-raised errors, like subscript range exceeded, the CESE queue remains
the destination for the output (since there may be no transaction dump for
these). CICSDDS can be specified with any of the first TERMTHDACT settings
except DUMP and UADUMP. Attempts to request this combination will result in an
error in building the options module.

Does this answer your question?

Lizette 

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Peter Hunkeler
> Sent: Wednesday, November 02, 2016 6:12 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Question re LE TERMTHDACT options for CICS environment
> 
> Although the subject might suggest to post this to a CICS forum, it actually
> is a language environment (LE) question.
> 
> In the LE programming reference, I read under TERMTHDACT:
> 
> CESE
> > Specifies ... This option is ignored in a 64-bit environment.
> 
> CICSDDS
> > Specifies ... This option is ignored in a 64-bit environment.
> 
> 
> What is meant by "64-bit environment" in this context?
> Since both options are ignored, where would LE write the dump to in a "64-bit"
> CICS environment?
> 
> 
> 
> --
> Peter Hunkeler
> 

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

Re: [EXTERNAL] Re: RCNVTCAT utility

[Dyck, Lionel B. (TRA)]

Have you picked up the latest version from cbttape.org for V-492 (aug 25, 2016):

Update to File 039 to put in a fixed version of
RCNVTCAT which works for SWA above the line, and
which includes some UNIX implementation.

--
Lionel B. Dyck (TRA Contractor)
Mainframe Systems Programmer 
Enterprise Infrastructure Support (Station 200) (005OP6.3.10)
VA OI Service Delivery & Engineering


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Steve Smith
Sent: Wednesday, November 02, 2016 8:48 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: RCNVTCAT utility

Sam Golob detailed issues and solutions to this list on on 8 September.  I 
don't know if it addresses your problem or not.

If you happen to have Tivoli Advanced Catalog Management, or Rocket's 
CatalogRecoveryPlus, you could use them to do what *CNVTCAT does.

sas

On Tue, Nov 1, 2016 at 12:59 PM, Richards, Robert B. < robert.richa...@opm.gov> 
wrote:

> Does anyone have a *working* copy of this utility? And its JCL?
>
> The copy I downloaded from the CBT website (CBT493.FILE542) is 
> producing errors and even when I got around that, it was formatting 
> the define alias statements out of order.
>
> Thanks in advance,
>
> Bob
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



--
sas

--
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: SMPE and history cut-off

[R.S.]

W dniu 2016-11-01 o 14:02, Kurt Quackenbush pisze:

On 10/28/2016 9:19 AM, R.S. wrote:

ServerPac-delivered SMP/E database (for z/OS and other products) usually
has some entries older than product release.
For example AA12143 is replaced (SUPBY) by HKCI310 or HADLA10 and
HADL910 are replaced by HADLD10, etc.

That's good, a prodcut which require for example CICS TS 2.3 is
satisfied by CICS TS 5.1.

However in the database there are no more entries regarding very old
releases, like CICS 4.1 (not TS) or PTF to DB2 v4.1.

The history is somehow cut off.

Now the question: what are the criteria for deleting obsoleted entries?
Is it documented anywhere?


I'm reticent to respond on this topic, but I see nobody else has yet 
to jump in.  I don't think IBM has any well formed and documented 
criteria.  I suspect it is pretty much up to the developer to decide 
how far back they want old product releases superseded by a new release.




Kurt,
Thank you for the answer, that explained me there is no point to dig in 
SMP/E documentation.
I understand the difference between SMP/E development and SMP/E users, 
however ...whom to ask about z/OS (as a product) practice?


Regards
--
Radoslaw Skorupka
Lodz, Poland






---
Treść tej wiadomości może zawierać informacje prawnie chronione Banku 
przeznaczone wyłącznie do użytku służbowego adresata. Odbiorcą może być jedynie 
jej adresat z wyłączeniem dostępu osób trzecich. Jeżeli nie jesteś adresatem 
niniejszej wiadomości lub pracownikiem upoważnionym do jej przekazania 
adresatowi, informujemy, że jej rozpowszechnianie, kopiowanie, rozprowadzanie 
lub inne działanie o podobnym charakterze jest prawnie zabronione i może być 
karalne. Jeżeli otrzymałeś tę wiadomość omyłkowo, prosimy niezwłocznie 
zawiadomić nadawcę wysyłając odpowiedź oraz trwale usunąć tę wiadomość 
włączając w to wszelkie jej kopie wydrukowane lub zapisane na dysku.

This e-mail may contain legally privileged information of the Bank and is 
intended solely for business use of the addressee. This e-mail may only be 
received by the addressee and may not be disclosed to any third parties. If you 
are not the intended addressee of this e-mail or the employee authorized to 
forward it to the addressee, be advised that any dissemination, copying, 
distribution or any other similar activity is legally prohibited and may be 
punishable. If you received this e-mail by mistake please advise the sender 
immediately by using the reply facility in your e-mail software and delete 
permanently this e-mail including any copies of it either printed or saved to 
hard drive.

mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa, 
www.mBank.pl, e-mail: kont...@mbank.pl
Sąd Rejonowy dla m. st. Warszawy XII Wydział Gospodarczy Krajowego Rejestru 
Sądowego, nr rejestru przedsiębiorców KRS 025237, NIP: 526-021-50-88. 
Według stanu na dzień 01.01.2016 r. kapitał zakładowy mBanku S.A. (w całości 
wpłacony) wynosi 168.955.696 złotych.


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

Re: Remote API to z/OS?

[Rick Troth]

On 09/29/16 11:16, Jack J. Woehr replied to John McKown:

Perhaps the
ultimate "illegitimate offspring" would be for IBM to come up with a 
UNIX

shell which also has all the TSO APIs integrated into it.


It's almost like that already. Maybe the next marketing ploy will be 
to rebrand the system zOSnix 


I'm seeing increased use of BASH in USS.
BASH has the ability to add commands as loadable modules. The value of 
that (compared to an external command) is that they run in the same 
address space, so they can affect the state of the shell.


Years ago, I did some language bindings for a product: Perl, Tcl, 
Regina, CMS REXX, ... and BASH. Whatever TSO APIs cannot be driven via 
'tsocmd' could perhaps be integrated as a BASH loadable module.


Just kinda thinkin out loud.

-- R; <><






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

Re: RCNVTCAT utility

[Steve Smith]

Sam Golob detailed issues and solutions to this list on on 8 September.  I
don't know if it addresses your problem or not.

If you happen to have Tivoli Advanced Catalog Management, or Rocket's
CatalogRecoveryPlus, you could use them to do what *CNVTCAT does.

sas

On Tue, Nov 1, 2016 at 12:59 PM, Richards, Robert B. <
robert.richa...@opm.gov> wrote:

> Does anyone have a *working* copy of this utility? And its JCL?
>
> The copy I downloaded from the CBT website (CBT493.FILE542) is producing
> errors and even when I got around that, it was formatting the define alias
> statements out of order.
>
> Thanks in advance,
>
> Bob
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



-- 
sas

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

Re: Weird problem hoping to be saved by SMP/E

[Rob Schramm]

Kurt,

Is this really as simple as

LINK LMODS(module1)
 CHECK.

And it will just relink the load module?

Rob Schramm

On Wed, Nov 2, 2016 at 9:24 AM Tom Marchant <
000a2a8c2020-dmarc-requ...@listserv.ua.edu> wrote:

> On Wed, 2 Nov 2016 05:06:44 +, Rob Schramm wrote:
>
> >What if I make a fake USERMOD and then RESTORE it off.
>
> I like this idea. A USERMOD to ZAP the affected modules, then RESTORE the
> USERMOD. RESTORE processing will get the modules from the Distribution
> zone. Do it on a clone of your target zone and verify the results.
>
> --
> Tom Marchant
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
-- 

Rob Schramm

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

Re: Weird problem hoping to be saved by SMP/E

[Allan Staller]

EXCELLENT!  Much easier than my proposal

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Kurt Quackenbush
Sent: Wednesday, November 2, 2016 8:21 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Weird problem hoping to be saved by SMP/E

> I am looking for ideas on how to get back to the correct versions of 
> the modules.

Check out the SMP/E LINK LMODS command.  Assuming you know exactly which load 
modules you want to rebuild, just specify them by name on the LINK LMODS 
command and SMP/E will figure out where to get all the modules at the 
appropriate levels to include in a bind operation.

Kurt Quackenbush -- IBM, SMP/E Development

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


::DISCLAIMER::


The contents of this e-mail and any attachment(s) are confidential and intended 
for the named recipient(s) only.
E-mail transmission is not guaranteed to be secure or error-free as information 
could be intercepted, corrupted,
lost, destroyed, arrive late or incomplete, or may contain viruses in 
transmission. The e mail and its contents
(with or without referred errors) shall therefore not attach any liability on 
the originator or HCL or its affiliates.
Views or opinions, if any, presented in this email are solely those of the 
author and may not necessarily reflect the
views or opinions of HCL or its affiliates. Any form of reproduction, 
dissemination, copying, disclosure, modification,
distribution and / or publication of this message without the prior written 
consent of authorized representative of
HCL is strictly prohibited. If you have received this email in error please 
delete it and notify the sender immediately.
Before opening any email and/or attachments, please check them for viruses and 
other defects.




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

Re: Weird problem hoping to be saved by SMP/E

[Tom Marchant]

On Wed, 2 Nov 2016 05:06:44 +, Rob Schramm wrote:

>What if I make a fake USERMOD and then RESTORE it off.

I like this idea. A USERMOD to ZAP the affected modules, then RESTORE the 
USERMOD. RESTORE processing will get the modules from the Distribution zone. Do 
it on a clone of your target zone and verify the results.

-- 
Tom Marchant

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

Re: Weird problem hoping to be saved by SMP/E

[Kurt Quackenbush]

I am looking for ideas on how to get back to the correct versions of the
modules.


Check out the SMP/E LINK LMODS command.  Assuming you know exactly which 
load modules you want to rebuild, just specify them by name on the LINK 
LMODS command and SMP/E will figure out where to get all the modules at 
the appropriate levels to include in a bind operation.


Kurt Quackenbush -- IBM, SMP/E Development

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

Question re LE TERMTHDACT options for CICS environment

[Peter Hunkeler]

Although the subject might suggest to post this to a CICS forum, it actually is 
a language environment (LE) question.

In the LE programming reference, I read under TERMTHDACT:

CESE
> Specifies ... This option is ignored in a 64-bit environment.

CICSDDS
> Specifies ... This option is ignored in a 64-bit environment.


What is meant by "64-bit environment" in this context?
Since both options are ignored, where would LE write the dump to in a "64-bit" 
CICS environment?



--
Peter Hunkeler

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

Re: Weird problem hoping to be saved by SMP/E

[Richard Pinion]

What about SMP/E's generate command.  You should be able to
edit the job stream that it creates to get the proper control
statements to build the over-laid modules from the Distribution
libraries.

Chapter 7. The GENERATE command
With the GENERATE command, you can create a job stream that builds a set of
target libraries from a set of distribution libraries. In that way, it is 
similar to
system generation. However, the GENERATE command offers several advantages
over system generation:
v GENERATE helps you reinstall products without SYSGEN support.
System generation creates jobs to install only products that are included by the
system generation macros. Products without this SYSGEN support are not
included. As a result, when SYSGEN is used to create or replace a system, a
number of products have to be reinstalled outside the SYSGEN process.
GENERATE can create jobs to install all the products defined in a target zone,
regardless of whether the products have SYSGEN support. As a result, when
GENERATE is used to create or replace a system, no products have to be
reinstalled outside the generation process.
v GENERATE creates job streams that are processed more efficiently.
The format of the system generation job stream depends on how the system
generation macros are coded. For example, the number of products being
installed and any changes in the system generation process may cause utilities 
to
be called inefficiently.
The format of the GENERATE job stream is based on an analysis of the target
zone. One job is created for each target library. This reduces the number of
utility calls for each data set and improves SMP/E performance by allowing the
various utilities to run concurrently.
Zones for SET BOUNDARY
For the GENERATE command, the SET BOUNDARY command must specify the
target zone containing the entries used to create the job stream.
Syntax
GENERATE Command
 GENERATE
,JOBCARD
JOBCARD(ddname )
,member_name

,
FORFMID( name )
REPLACE



,
RC( command=rc )


--- allan.stal...@hcl.com wrote:

From: Allan Staller 
To:   IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Weird problem hoping to be saved by SMP/E
Date: Wed, 2 Nov 2016 12:33:53 +

HDZ1D10 is the function for df/SMS and related. This will normally be accepted 
at the time of installation.

Try this (not syntax checked).

SET BDY(DLIBZONE).
LIST MOD().   (for each of the affected modules). Note  UMID and RMIDs. 
   

SET BDY(TARGZONE).
LIST MOD().   (for each of the affected modules). Note  UMID and RMIDs. 
  

If the RMID's and UID's match, then the change was done outside of SMP/E. It 
they do not match, the change was done within SMP/E and either the RMID or 
UMID can be restored (It *WILL NOT BE* HDZ1D10).

Accept all relevant maintenance *EXCEPT* the "offending RMID/UMID. Then 
*RESTORE* the offending RMID/UMID. This will install the just accepted module 
back into the 
specified target library.

If there is no SMP/E record, then it becomes somewhat more difficult. You will 
have to use several utilities to "reconstruct" the original LMOD. 

Lets see if there is an SMP/E record first and then go from there

HTH,



I am attempting to recover or get back to the proper version of a couple LPALIB 
modules.  In this case some sysprog decided to copy altered versions of a 
couple of load modules into SYS1.LPALIB.  I have not been able to find a backup 
of the modules.  So, I am left with what is in SMP/E to hopefully save the day. 
 At first I was hoping for something like an APPLY REDO to recover the modules.
 .
 APPLY SELECT( HDZ1D10 )
CHECK
BYPASS(HOLDSYSTEM)
RETRY(YES)

fails because HDZ1D10 was ACCEPTed.

A RESTORE fails for

GIM24501E   RESTORE PROCESSING FAILED FOR SYSMOD sysmod BECAUSE OTHER
SYSMODS WERE DELETED WHEN sysmod WAS APPLIED

I am looking for ideas on how to get back to the correct versions of the 
modules.




::DISCLAIMER::


The contents of this e-mail and any attachment(s) are confidential and intended 
for the named recipient(s) only.
E-mail transmission is not guaranteed to be secure or error-free as information 
could be intercepted, corrupted,
lost, destroyed, arrive late or incomplete, or may contain viruses in 
transmission. The e mail and its contents
(with or without referred errors) shall therefore not attach any liability on 
the originator or HCL or its affiliates.
Views or opinions, if any, presented in this email are solely those of the 
author and may not necessarily reflect the
views or opinions of HCL or its affiliates. Any form of reproduction, 
dissemination, copying, disclosure, modification,
distribution and / or publication of this message without the prior written 
consent of authorized representative of
HCL is strictly prohibited. If you have received 

Re: Weird problem hoping to be saved by SMP/E

[Allan Staller]

HDZ1D10 is the function for df/SMS and related. This will normally be accepted 
at the time of installation.

Try this (not syntax checked).

SET BDY(DLIBZONE).
LIST MOD().   (for each of the affected modules). Note  UMID and RMIDs. 
   

SET BDY(TARGZONE).
LIST MOD().   (for each of the affected modules). Note  UMID and RMIDs. 
  

If the RMID's and UID's match, then the change was done outside of SMP/E. It 
they do not match, the change was done within SMP/E and either the RMID or 
UMID can be restored (It *WILL NOT BE* HDZ1D10).

Accept all relevant maintenance *EXCEPT* the "offending RMID/UMID. Then 
*RESTORE* the offending RMID/UMID. This will install the just accepted module 
back into the 
specified target library.

If there is no SMP/E record, then it becomes somewhat more difficult. You will 
have to use several utilities to "reconstruct" the original LMOD. 

Lets see if there is an SMP/E record first and then go from there

HTH,



I am attempting to recover or get back to the proper version of a couple LPALIB 
modules.  In this case some sysprog decided to copy altered versions of a 
couple of load modules into SYS1.LPALIB.  I have not been able to find a backup 
of the modules.  So, I am left with what is in SMP/E to hopefully save the day. 
 At first I was hoping for something like an APPLY REDO to recover the modules.
 .
 APPLY SELECT( HDZ1D10 )
CHECK
BYPASS(HOLDSYSTEM)
RETRY(YES)

fails because HDZ1D10 was ACCEPTed.

A RESTORE fails for

GIM24501E   RESTORE PROCESSING FAILED FOR SYSMOD sysmod BECAUSE OTHER
SYSMODS WERE DELETED WHEN sysmod WAS APPLIED

I am looking for ideas on how to get back to the correct versions of the 
modules.




::DISCLAIMER::


The contents of this e-mail and any attachment(s) are confidential and intended 
for the named recipient(s) only.
E-mail transmission is not guaranteed to be secure or error-free as information 
could be intercepted, corrupted,
lost, destroyed, arrive late or incomplete, or may contain viruses in 
transmission. The e mail and its contents
(with or without referred errors) shall therefore not attach any liability on 
the originator or HCL or its affiliates.
Views or opinions, if any, presented in this email are solely those of the 
author and may not necessarily reflect the
views or opinions of HCL or its affiliates. Any form of reproduction, 
dissemination, copying, disclosure, modification,
distribution and / or publication of this message without the prior written 
consent of authorized representative of
HCL is strictly prohibited. If you have received this email in error please 
delete it and notify the sender immediately.
Before opening any email and/or attachments, please check them for viruses and 
other defects.




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

Re: SQLCODE=-904 during RUN

[Jantje.]

On Tue, 1 Nov 2016 16:07:59 -0500, Janet Graff  wrote:

> DSN SYSTEM(DBAG)  
>  
>DSN
> 
> BIND PACKAGE(DB2ZP) MEMBER(ZPDB2) ACT(REP) ISO(CS) CURRENTDATA(YES) 
> ENCODING(EBCDIC)

>DSN
> 
> BIND PLAN(DB2ZP) PKLIST(DB2ZP.*) ACT(REP) ISO(CS) CURRENTDATA(YES) 
> ENCODING(EBCDIC)

I don't think you need to bind your plan over and over. The way you specify the 
package list, new versions of the package will be picked up. But that is not 
the problem...


>DSN
> 
> RUN  PROGRAM(DSNTIAD) PLAN(DSNTIA10)LIB('DSNA10.DBAG.RUNLIB.LOAD')
>  
>DSN
> 
> END   
>  
>READY  
> 
>END
> 
> DSNTIAD  - SAMPLE DYNAMIC SQL PROGRAM 2.0
>  
>   DROP TABLE JIG.TESTDB2 
>DSNT400I SQLCODE = 000,  SUCCESSFUL EXECUTION 
>  
>   CREATE TABLE JIG.TESTDB2   
> (MYAUTO  CHAR(16) FIELDPROC VSHFPX01 ('CRYPTID=@WAGA@MYAUTO'),   
>  MYCCN   CHAR(16) FIELDPROC VSHFPX01 ('CRYPTID=@WAGA@MYCCN'),
>  MYSSN   CHAR(11) FIELDPROC VSHFPX01 ('CRYPTID=@WAGA@MYSSN'),
>  MYSST   CHAR(16) FIELDPROC VSHFPX01 ('CRYPTID=@WAGA@MYSST'))
>   IN VOLTTEST.VOLTTAB
>DSNT400I SQLCODE = 000,  SUCCESSFUL EXECUTION 
>  
>   DROP TABLE JIG.TESTDB22
>DSNT400I SQLCODE = 000,  SUCCESSFUL EXECUTION 
>  
>   CREATE TABLE JIG.TESTDB22  
> (MYAUTO  CHAR(16),   
>  MYCCN   CHAR(16),   
>  MYSSN   CHAR(11),   
>  MYSST   CHAR(16))   
>   IN VOLTTEST.VOLTTAB
>DSNT400I SQLCODE = 000,  SUCCESSFUL EXECUTION 
>

I am not getting the DROP/CREATE table part here... Are these the tables that 
are used in your program? Because if they are, then dropping them will 
invalidate all packages accessing them. And re-creating the tables will *not* 
rebind your packages. After all, even if they have the same name, your tables 
will be different, new objects. And any program that uses the invalidated 
packages will fail...

Cheers,

Jantje.

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

Re: SQLCODE=-904 during RUN

[Jantje.]

On Mon, 31 Oct 2016 14:01:56 -0500, Janet Graff  wrote:

>Truncations on the right side of the JES output, let me know if you need that 
>data
>
>
>   J E S 2  J O B  L O G  --  S Y S T E M  S 0 W 1  --  N O D 
> E 

I am afraid I'll need to see all sysout as well...

Cheers,

Jantje.

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

Re: Weird problem hoping to be saved by SMP/E

[John Eells]

SMP/E to the rescue!

It goes without saying that you should not be doing this on the active 
system, and that you should take a backup first, but I'll say it anyway. 
 Back up target libraries and zone, DLIBs and DLIB zone.  (DFSMSdss or 
your favorite alternative is the sysprog's best friend.)


Caveat: I have not personally done this in some time.

Before you do any of the following, go read the SMP/E Commands chapter 
on GENERATE. Then:


0. Make sure ACCJCLIN is set in the DLIB zone.  If it's not, ignore 
everything below.  (You cannot just set it and proceed, because if it's 
not been set all along SMP/E has not been saving the JCLIN at ACCEPT time.)


1. Run a LIST LMOD(name) XREF for each member that worries you to find 
out what MODs make them up.


2. LIST all the MODs that are listed by LIST LMOD XREF in both the 
target and DLIB zones to find and compare their RMIDs.


3. If the RMIDs show that one or more PTFs have been applied but not 
accepted, accept them all.  Bypass all hold conditions including error 
holds.  You're not trying to achieve perfection now, just get back to 
where you were first.  (Alternatively, accept everything for HDZ1D10. 
You took a backup!)


4. Run GENERATE FORFMID(HDZ1D10).  Specify a data set or member for 
SMPPUNCH.


Note: GENERATE runs suprisingly fast.  Don't think things went wrong 
just because the job ends quickly.


5. If the modules are linked and not copied, edit the output in the 
SMPPUNCH data set to delete all the link steps except for the one or 
ones for LPALIB for those load modules, and also to remove all the link 
control statements for all other load modules.  If they are copied, 
remove all the other steps and all the COPY (or COPYMOD) statements for 
other members.


6. Run the remaining step or steps.  If you directed the link (or copy) 
steps at your LPALIB data set, then assuming you did the editing right 
and got the expected return codes, you are now back where you were 
before Something Bad Happened to those modules from an SMP/E standpoint.


7. If you bypassed errors to accept the PTFs, decide whether to restore 
the DLIBs from the backup.


You can do recovery for individual modules, whole libraries, FMIDs' 
worth of stuff, or entire target zones this way.  It's perhaps the 
best-kept open secret in the SMP/E books.  I believe GENERATE was 
originally invented for IPO, way back when, to generate target data sets 
from DLIB data sets, saving on tape.


Rob Schramm wrote:

Dear Listers,

I am attempting to recover or get back to the proper version of a couple
LPALIB modules.  In this case some sysprog decided to copy altered versions
of a couple of load modules into SYS1.LPALIB.  I have not been able to find
a backup of the modules.  So, I am left with what is in SMP/E to hopefully
save the day.  At first I was hoping for something like an APPLY REDO to
recover the modules.
  .
  APPLY SELECT( HDZ1D10 )
 CHECK
 BYPASS(HOLDSYSTEM)
 RETRY(YES)

fails because HDZ1D10 was ACCEPTed.

A RESTORE fails for

GIM24501E   RESTORE PROCESSING FAILED FOR SYSMOD sysmod BECAUSE OTHER
SYSMODS WERE DELETED WHEN sysmod WAS APPLIED

I am looking for ideas on how to get back to the correct versions of the
modules.



--
John Eells
IBM Poughkeepsie
ee...@us.ibm.com

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

Re: Weird problem hoping to be saved by SMP/E

[Jesse 1 Robinson]

Depending on how long ago the bad copy was done, you may be able to restore the 
original modules via the PDS command (or successor). This should be possible 
unless LPALIB has been compressed. Even if it was compressed, you could try 
reloading a full-volume copy made before that event.

Once you have an uncompressed copy of LPALIB, use PDS RESTORE to find and 
display old deleted/replaced members. You will have to choose the correct 
versions by eyeballing data within the modules.

The reason you cannot SMPE RESTORE the PTF is that some pieces needed to 
rebuild the module(s) were actually deleted during the APPLY/ACCEPT. There is 
usually a HOLD record to that effect--type DELETE--when such a PTF is 
installed. Given the messages you've reported, I don't think that SMPE alone 
can get you back to the point you need. 

For the future, I suggest creating usermods for modifications to SMPE-managed 
elements. A usermod on principle is APPLied but never ACCEPTed. 

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-302-7535 Office
robin...@sce.com

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Gibney, Dave
Sent: Wednesday, November 02, 2016 12:26 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: Weird problem hoping to be saved by SMP/E

Is the Serverpac still available? Do another install and run it up to the level 
you need. Then copy the modules..

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Rob Schramm
> Sent: Tuesday, November 01, 2016 9:08 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Weird problem hoping to be saved by SMP/E
> 
> Dear Listers,
> 
> I am attempting to recover or get back to the proper version of a 
> couple LPALIB modules.  In this case some sysprog decided to copy 
> altered versions of a couple of load modules into SYS1.LPALIB.  I have 
> not been able to find a backup of the modules.  So, I am left with 
> what is in SMP/E to hopefully save the day.  At first I was hoping for 
> something like an APPLY REDO to recover the modules.
>  .
>  APPLY SELECT( HDZ1D10 )
> CHECK
> BYPASS(HOLDSYSTEM)
> RETRY(YES)
> 
> fails because HDZ1D10 was ACCEPTed.
> 
> A RESTORE fails for
> 
> GIM24501E   RESTORE PROCESSING FAILED FOR SYSMOD sysmod BECAUSE
> OTHER
> SYSMODS WERE DELETED WHEN sysmod WAS APPLIED
> 
> I am looking for ideas on how to get back to the correct versions of 
> the modules.
> 
> Thanks,
> Rob Schramm
> 
> --
> 
> Rob Schramm


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

Re: Weird problem hoping to be saved by SMP/E

[Gibney, Dave]

Is the Serverpac still available? Do another install and run it up to the level 
you need. Then copy the modules..

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Rob Schramm
> Sent: Tuesday, November 01, 2016 9:08 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Weird problem hoping to be saved by SMP/E
> 
> Dear Listers,
> 
> I am attempting to recover or get back to the proper version of a couple
> LPALIB modules.  In this case some sysprog decided to copy altered versions
> of a couple of load modules into SYS1.LPALIB.  I have not been able to find a
> backup of the modules.  So, I am left with what is in SMP/E to hopefully save
> the day.  At first I was hoping for something like an APPLY REDO to recover
> the modules.
>  .
>  APPLY SELECT( HDZ1D10 )
> CHECK
> BYPASS(HOLDSYSTEM)
> RETRY(YES)
> 
> fails because HDZ1D10 was ACCEPTed.
> 
> A RESTORE fails for
> 
> GIM24501E   RESTORE PROCESSING FAILED FOR SYSMOD sysmod BECAUSE
> OTHER
> SYSMODS WERE DELETED WHEN sysmod WAS APPLIED
> 
> I am looking for ideas on how to get back to the correct versions of the
> modules.
> 
> Thanks,
> Rob Schramm
> 
> --
> 
> Rob Schramm
> 
> --
> 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