Re: Data conversion EBCDIC to ASCII

2008-09-20 Thread Claudio Marcio

Hi,

I use the system z / OS version V1R6
How I see if my directory is /u/
and  my file is encoded in ibm-1047 in that System??

==> oput '..zzz(member)' '/u/yourid/member' binary

   ==> omvs

   ==> iconv -f ibm-1047 -t iso8859-1 member > member2
   ==> exit

   ==> oget '/u/yourid/member2' '..zzz(member)' binary


In main menu, i have a command line option - ( option number 6 )
the above commands run this route??

sorry, I´m from Brazil and maybe I put not it well for you. But, I hope 
solution this problem.


Regards


- Original Message - 
From: "Steve Comstock" <[EMAIL PROTECTED]>

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Sunday, September 21, 2008 3:00 AM
Subject: Re: Data conversion EBCDIC to ASCII



Claudio Marcio wrote:

Well, this is my situation

I have a member in a Dataset  with EBCDIC data,
I need to turn into ASCII  data
Which round dealing??

Regards,


OK, Claudio, but there are still possibilities that
are not clear:

* If you need to have it in ascii to be viewed
  on a workstation, just access it with any
  3270 emulator; that's automatic

* You could then cut and paste from your emulator
  window into a text editor on your workstation
  and save it on your workstation; the version
  on your workstation will be ascii

  Of course, this is tedious for large files

* You could FTP from the mainframe to the workstation
  as text; on your workstation it will be ascii; then
  FTP back to the mainframe as binary, then it will
  be ascii on your mainframe (hmmm, except for those
  nasty line-ends most ascii machines seem to love)

* You could write a little program in Assembler, PL/I,
  COBOL, or C and do the conversion yourself; not too
  hard. What's your language of choice?

* You could use z/OS UNIX:

   ==> oput '..zzz(member)' '/u/yourid/member' binary
   ==> omvs

   ==> iconv -f ibm-1047 -t iso8859-1 member > member2
   ==> exit

   ==> oget '/u/yourid/member2' '..zzz(member)' binary

This presupposes 1) you have z/OS UNIX segment defined and
your home directory is /u/yourid
 2) the file is encoded in ibm-1047

Note that there are multiple ebcdic code pages; do you know
which one is being used?

Finally, I'm still curious as to how the ascii version
is to be used. That might give us some clues as to how
best to do the conversion.






- Original Message - From: "Scott Barry" <[EMAIL PROTECTED]>
Newsgroups: bit.listserv.ibm-main
To: 
Sent: Saturday, September 20, 2008 10:31 PM
Subject: Re: Data conversion EBCDIC to ASCII


On Sat, 20 Sep 2008 22:20:11 -0300, Claudio Marcio <[EMAIL PROTECTED]> 
wrote:



Hello,

I'm using below camando:

//INPUT DD
P=SHR- EBCDIC MEMBER

// OUTPUT DD x..zz(member2),DISP=(,CATLG,DELETE),   -
create new ASCII member in same dataset of the INPUT

member i

//  DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=27920)

//SYSTSIN DD *

OCOPY INDD(xxx..zz(member)) 
OUTDD(xxx..zz(member2))

TEXT CONVERT((BPXFX311)) FROM1047

returns the following error message:
IEF344I JOBCONV STEPCONV OUTPUT - ALLOCATION FAILED DUE TO DATA 
FACILITY

SYSTEM

IGD17045I SPACE NOT SPECIFIED FOR ALLOCATION OF DATA SET

can you help me?

Regards





- Original Message -
From: "John McKown" <[EMAIL PROTECTED]>
Newsgroups: bit.listserv.ibm-main
To: 
Sent: Saturday, September 20, 2008 12:46 AM
Subject: Re: Data conversion EBCDIC to ASCII



On Fri, 19 Sep 2008, Claudio Marcio wrote:


Hello,

How do I convert a member with data EBCDIC to ASCII in the TSO
environment?

thanks
Claudio


A bit more information, please. Are you meaning in ISPF edit? Or do 
you

mean a TSO command processor to do it? That is, some command such as:

E2A input.ebcdic.file output.ascii.file

?

In the latter case, you could possibly use the OCOPY command.

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/BPXZA580

OCOPY INDD(EBCDIC) OUTDD(ASCII) TEXT CONVERT(BPXFX311) FROM1047

This translates from EBCDIC code page 1047 (C language, UNIX) to ASCII
code page ISO8859-1.

--
Q: What do theoretical physicists drink beer from?
A: Ein Stein.

Maranatha!
John McKown




Your parameters are inconsistent.  You have OUTDD and INDD which are
DD-related, not DSN.  Also, you specify DISP=(,CATLG,DELETE) but no 
SPACE=
parameter, which would be required so you can provide directory-blocks. 
I
would recommend pre-allocating the PDS with all required parameters, and 
in

a second step use DISP=OLD with the member name specified in the DSN=
parameter.  And, again, verify the proper syntax/specification of 
INDD(?)

and OUTDD(?).


Scott Barry
SBBWorks, Inc.

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



--

Re: Data conversion EBCDIC to ASCII

2008-09-20 Thread Steve Comstock

Claudio Marcio wrote:

Well, this is my situation

I have a member in a Dataset  with EBCDIC data,
I need to turn into ASCII  data
Which round dealing??

Regards,


OK, Claudio, but there are still possibilities that
are not clear:

* If you need to have it in ascii to be viewed
  on a workstation, just access it with any
  3270 emulator; that's automatic

* You could then cut and paste from your emulator
  window into a text editor on your workstation
  and save it on your workstation; the version
  on your workstation will be ascii

  Of course, this is tedious for large files

* You could FTP from the mainframe to the workstation
  as text; on your workstation it will be ascii; then
  FTP back to the mainframe as binary, then it will
  be ascii on your mainframe (hmmm, except for those
  nasty line-ends most ascii machines seem to love)

* You could write a little program in Assembler, PL/I,
  COBOL, or C and do the conversion yourself; not too
  hard. What's your language of choice?

* You could use z/OS UNIX:

   ==> oput '..zzz(member)' '/u/yourid/member' binary
   ==> omvs

   ==> iconv -f ibm-1047 -t iso8859-1 member > member2
   ==> exit

   ==> oget '/u/yourid/member2' '..zzz(member)' binary

This presupposes 1) you have z/OS UNIX segment defined and
your home directory is /u/yourid
 2) the file is encoded in ibm-1047

Note that there are multiple ebcdic code pages; do you know
which one is being used?

Finally, I'm still curious as to how the ascii version
is to be used. That might give us some clues as to how
best to do the conversion.






- Original Message - From: "Scott Barry" <[EMAIL PROTECTED]>
Newsgroups: bit.listserv.ibm-main
To: 
Sent: Saturday, September 20, 2008 10:31 PM
Subject: Re: Data conversion EBCDIC to ASCII


On Sat, 20 Sep 2008 22:20:11 -0300, Claudio Marcio 
<[EMAIL PROTECTED]> wrote:



Hello,

I'm using below camando:

//INPUT DD
P=SHR- EBCDIC MEMBER

// OUTPUT DD x..zz(member2),DISP=(,CATLG,DELETE),   -
create new ASCII member in same dataset of the INPUT

member i

//  DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=27920)

//SYSTSIN DD *

OCOPY INDD(xxx..zz(member)) 
OUTDD(xxx..zz(member2))

TEXT CONVERT((BPXFX311)) FROM1047

returns the following error message:
IEF344I JOBCONV STEPCONV OUTPUT - ALLOCATION FAILED DUE TO DATA FACILITY
SYSTEM

IGD17045I SPACE NOT SPECIFIED FOR ALLOCATION OF DATA SET

can you help me?

Regards





- Original Message -
From: "John McKown" <[EMAIL PROTECTED]>
Newsgroups: bit.listserv.ibm-main
To: 
Sent: Saturday, September 20, 2008 12:46 AM
Subject: Re: Data conversion EBCDIC to ASCII



On Fri, 19 Sep 2008, Claudio Marcio wrote:


Hello,

How do I convert a member with data EBCDIC to ASCII in the TSO
environment?

thanks
Claudio


A bit more information, please. Are you meaning in ISPF edit? Or do you
mean a TSO command processor to do it? That is, some command such as:

E2A input.ebcdic.file output.ascii.file

?

In the latter case, you could possibly use the OCOPY command.

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/BPXZA580

OCOPY INDD(EBCDIC) OUTDD(ASCII) TEXT CONVERT(BPXFX311) FROM1047

This translates from EBCDIC code page 1047 (C language, UNIX) to ASCII
code page ISO8859-1.

--
Q: What do theoretical physicists drink beer from?
A: Ein Stein.

Maranatha!
John McKown




Your parameters are inconsistent.  You have OUTDD and INDD which are
DD-related, not DSN.  Also, you specify DISP=(,CATLG,DELETE) but no 
SPACE=
parameter, which would be required so you can provide 
directory-blocks.  I
would recommend pre-allocating the PDS with all required parameters, 
and in

a second step use DISP=OLD with the member name specified in the DSN=
parameter.  And, again, verify the proper syntax/specification of INDD(?)
and OUTDD(?).


Scott Barry
SBBWorks, Inc.

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



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





--
Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

303-393-8716
http://www.trainersfriend.com

  z/OS Application development made easier
* Our classes include
   + How things work
   + Programming examples with realistic applications
   + Starter / skeleton code
   + Complete working programs
   + Useful utilities and subroutines
   + Tips and techniques

==> Check out the Trainer's Friend Store to purchase z/OS  <==
==> application developer toolkits. Sample code 

Re: Data conversion EBCDIC to ASCII

2008-09-20 Thread Claudio Marcio

Well, this is my situation

I have a member in a Dataset  with EBCDIC data,
I need to turn into ASCII  data
Which round dealing??

Regards,


- Original Message - 
From: "Scott Barry" <[EMAIL PROTECTED]>

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Saturday, September 20, 2008 10:31 PM
Subject: Re: Data conversion EBCDIC to ASCII


On Sat, 20 Sep 2008 22:20:11 -0300, Claudio Marcio <[EMAIL PROTECTED]> 
wrote:



Hello,

I'm using below camando:

//INPUT DD
P=SHR- EBCDIC MEMBER

// OUTPUT DD 
x..zz(member2),DISP=(,CATLG,DELETE),   -

create new ASCII member in same dataset of the INPUT

member i

//  DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=27920)

//SYSTSIN DD *

OCOPY INDD(xxx..zz(member)) 
OUTDD(xxx..zz(member2))

TEXT CONVERT((BPXFX311)) FROM1047

returns the following error message:
IEF344I JOBCONV STEPCONV OUTPUT - ALLOCATION FAILED DUE TO DATA FACILITY
SYSTEM

IGD17045I SPACE NOT SPECIFIED FOR ALLOCATION OF DATA SET

can you help me?

Regards





- Original Message -
From: "John McKown" <[EMAIL PROTECTED]>
Newsgroups: bit.listserv.ibm-main
To: 
Sent: Saturday, September 20, 2008 12:46 AM
Subject: Re: Data conversion EBCDIC to ASCII



On Fri, 19 Sep 2008, Claudio Marcio wrote:


Hello,

How do I convert a member with data EBCDIC to ASCII in the TSO
environment?

thanks
Claudio


A bit more information, please. Are you meaning in ISPF edit? Or do you
mean a TSO command processor to do it? That is, some command such as:

E2A input.ebcdic.file output.ascii.file

?

In the latter case, you could possibly use the OCOPY command.

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/BPXZA580

OCOPY INDD(EBCDIC) OUTDD(ASCII) TEXT CONVERT(BPXFX311) FROM1047

This translates from EBCDIC code page 1047 (C language, UNIX) to ASCII
code page ISO8859-1.

--
Q: What do theoretical physicists drink beer from?
A: Ein Stein.

Maranatha!
John McKown




Your parameters are inconsistent.  You have OUTDD and INDD which are
DD-related, not DSN.  Also, you specify DISP=(,CATLG,DELETE) but no SPACE=
parameter, which would be required so you can provide directory-blocks.  I
would recommend pre-allocating the PDS with all required parameters, and 
in

a second step use DISP=OLD with the member name specified in the DSN=
parameter.  And, again, verify the proper syntax/specification of INDD(?)
and OUTDD(?).


Scott Barry
SBBWorks, Inc.

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



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



Re: Console restructure an Netview 3.1

2008-09-20 Thread Scott Fagen
On Fri, 19 Sep 2008 11:45:20 -0500, Stephen Wolf <[EMAIL PROTECTED]> wrote:
-- snip --
>We discovered our
>Netview version (3.1 - 5655-007) can no longer issue system commands
>(message CNZ005I).  I believe this is due to the console restructure part 2
>contained in z/OS 1.8.
-- snip --

You do not indicate the reason for the CNZ005I message.  That makes it difficult
to answer with any certainty.  My best guess is that Netview is issuing the
command with a one-byte console id, which is no longer supported with z/OS
1.8.

-- snip --
>I discovered some new parameters in the CONSOLxx parmlib member that I
>thought would "save" us from upgrading Netview.  I added  INTIDS(Y) UNKNIDS
>(Y) to two of our existing operator console definitions.  After an IPL the
>problem did not disappear.
-- snip --

These parameters are to help you display messages (WTOs):
- INTIDS issued with console id 0 (zero)
- UNKNIDS - issued with an invalid console id (unknown id)
rather than having them go to the bit bucket.

-- snip --
>Netview is our main system automation tool and replacing this function with
>other system exits is also undesirable.Does anyone have any ideas, zaps or
>other parameters that would allow us the continue using the old Netview?
-- snip --

I'd have to guess that this crufty old version of Netview uses MGCR to issue
commands.  You might have to intercept the SVC 34 calls and turn them into
MGCREs.  Maybe somebody else has a better idea.

Scott Fagen
Enterprise Systems Management

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



Re: Data conversion EBCDIC to ASCII

2008-09-20 Thread Scott Barry
On Sat, 20 Sep 2008 22:20:11 -0300, Claudio Marcio <[EMAIL PROTECTED]> wrote:

>Hello,
>
>I'm using below camando:
>
>//INPUT DD
>P=SHR- EBCDIC MEMBER
>
>// OUTPUT DD DSN=xxx..zz(member2),DISP=(,CATLG,DELETE),   -
>create new ASCII member in same dataset of the INPUT
>
>member i
>
>//  DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=27920)
>
>//SYSTSIN DD *
>
>OCOPY INDD(xxx..zz(member)) OUTDD(xxx..zz(member2))
>TEXT CONVERT((BPXFX311)) FROM1047
>
>returns the following error message:
>IEF344I JOBCONV STEPCONV OUTPUT - ALLOCATION FAILED DUE TO DATA FACILITY
>SYSTEM
>
>IGD17045I SPACE NOT SPECIFIED FOR ALLOCATION OF DATA SET
>
>can you help me?
>
>Regards
>
>
>
>
>
>- Original Message -
>From: "John McKown" <[EMAIL PROTECTED]>
>Newsgroups: bit.listserv.ibm-main
>To: 
>Sent: Saturday, September 20, 2008 12:46 AM
>Subject: Re: Data conversion EBCDIC to ASCII
>
>
>> On Fri, 19 Sep 2008, Claudio Marcio wrote:
>>
>>> Hello,
>>>
>>> How do I convert a member with data EBCDIC to ASCII in the TSO
>>> environment?
>>>
>>> thanks
>>> Claudio
>>
>> A bit more information, please. Are you meaning in ISPF edit? Or do you
>> mean a TSO command processor to do it? That is, some command such as:
>>
>> E2A input.ebcdic.file output.ascii.file
>>
>> ?
>>
>> In the latter case, you could possibly use the OCOPY command.
>>
>> http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/BPXZA580
>>
>> OCOPY INDD(EBCDIC) OUTDD(ASCII) TEXT CONVERT(BPXFX311) FROM1047
>>
>> This translates from EBCDIC code page 1047 (C language, UNIX) to ASCII
>> code page ISO8859-1.
>>
>> --
>> Q: What do theoretical physicists drink beer from?
>> A: Ein Stein.
>>
>> Maranatha!
>> John McKown
>>


Your parameters are inconsistent.  You have OUTDD and INDD which are
DD-related, not DSN.  Also, you specify DISP=(,CATLG,DELETE) but no SPACE=
parameter, which would be required so you can provide directory-blocks.  I
would recommend pre-allocating the PDS with all required parameters, and in
a second step use DISP=OLD with the member name specified in the DSN=
parameter.  And, again, verify the proper syntax/specification of INDD(?)
and OUTDD(?).


Scott Barry
SBBWorks, Inc.

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



Re: Data conversion EBCDIC to ASCII

2008-09-20 Thread Claudio Marcio

Hello,

I'm using below camando:

//INPUT DD 
P=SHR- EBCDIC MEMBER


// OUTPUT DD DSN=xxx..zz(member2),DISP=(,CATLG,DELETE),   - 
create new ASCII member in same dataset of the INPUT


member i

//  DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=27920)

//SYSTSIN DD *

OCOPY INDD(xxx..zz(member)) OUTDD(xxx..zz(member2)) 
TEXT CONVERT((BPXFX311)) FROM1047


returns the following error message:
IEF344I JOBCONV STEPCONV OUTPUT - ALLOCATION FAILED DUE TO DATA FACILITY 
SYSTEM


IGD17045I SPACE NOT SPECIFIED FOR ALLOCATION OF DATA SET

can you help me?

Regards





- Original Message - 
From: "John McKown" <[EMAIL PROTECTED]>

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Saturday, September 20, 2008 12:46 AM
Subject: Re: Data conversion EBCDIC to ASCII



On Fri, 19 Sep 2008, Claudio Marcio wrote:


Hello,

How do I convert a member with data EBCDIC to ASCII in the TSO 
environment?


thanks
Claudio


A bit more information, please. Are you meaning in ISPF edit? Or do you
mean a TSO command processor to do it? That is, some command such as:

E2A input.ebcdic.file output.ascii.file

?

In the latter case, you could possibly use the OCOPY command.

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/BPXZA580

OCOPY INDD(EBCDIC) OUTDD(ASCII) TEXT CONVERT(BPXFX311) FROM1047

This translates from EBCDIC code page 1047 (C language, UNIX) to ASCII
code page ISO8859-1.

--
Q: What do theoretical physicists drink beer from?
A: Ein Stein.

Maranatha!
John McKown

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



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



Vacancy - WashDC - Capacity Reporting

2008-09-20 Thread Jim Marshall
Vacancy – z/OS Performance Reporting, Capacity Planning, Performance 
Tuning (optional). Data Center has 2-z9BCs operating in a z/OS Parallel 
Sysplex. Knowledge of SAS required to report using MXG. Knowledge of 
SAS/Connect and SAS/Access for Oracle would be a plus but not mandatory.

This is a contractor position where Compuware Services just started the 2nd 
year of a 5 year contact. They have had the contract for 20+ years with US 
Government agency. Position is located in downtown Washington DC with 
Metro train access. MXG is also being exploited to report on zLinux running 
under z/VM with Websphere Application Server, DB2, and Oracle. There is 
ample opportunity to expand into zLinux Middleware products and other 
software as needed. Data Center runs z/OS, JES2, USS, CICS, ADABAS, 
Websphere Application Server and is just in the throws of implementing an 
Enterprise Service Bus with Websphere MQ, Message Broker, and DB2. There is 
no classified data involved although the person must be able to get the US 
Government Executive Branch equivalent of a Top Secret Security clearance; 
due to the sensitivity of the data involved.  You can either send an inquiry to 
me and I can give you the particulars of how to contact Compuware. Or you 
can send the resume to me and I can give to the Compuware Services 
manager. 

I am the US Government Technical “Coach” of the group, ensure the work is 
kept interesting, supply what the folks need and foster the exchange of 
technical information. Tele-working is not offered (even for me) due to the 
daily demands for expert advice. This place is too much fun to retire; a 
second time. 

Jim Marshall,[EMAIL PROTECTED]   202-606-1261

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



SHOWzOS 7.17

2008-09-20 Thread Roland Schiradin
Hi folks,

anybody seen a LOGREC entry with S1C7 running SHOWzOS 7.17 under z/OS 
R9. I don't see them on my system so I can't set a SLIP to capture more data.

I also didn't find any good hint in the IBM database.

LOGREC entry 

SEARCH ARGUMENT ABSTRACT

  PIDS/5752SCWLM RIDS/IWMI2PVT#L RIDS/IWMP2REQ AB/S01C7 
PRCS/0A310005 REGS/0B8EB

  REGS/A0714 RIDS/IWMM2REC#R

 

  SYMPTOM DESCRIPTION   

  --- ---   

  PIDS/5752SCWLM  PROGRAM ID: 5752SCWLM 

  RIDS/IWMI2PVT#L LOAD MODULE NAME: IWMI2PVT

  RIDS/IWMP2REQ   CSECT NAME: IWMP2REQ  

  AB/S01C7SYSTEM ABEND CODE: 01C7   

  PRCS/0A310005   ABEND REASON CODE: 0A310005   

  REGS/0B8EB  REGISTER/PSW DIFFERENCE FOR R0B: 8EB  

  REGS/A0714  REGISTER/PSW DIFFERENCE FOR R0A:-
0714 

  RIDS/IWMM2REC#R RECOVERY ROUTINE CSECT NAME: 
IWMM2REC 

 

OTHER SERVICEABILITY INFORMATION

  RECOVERY ROUTINE LABEL:  IWMMIARR 

  DATE ASSEMBLED:  08/15/06 

  MODULE LEVEL: HBB7740 

  SUBFUNCTION: ***WORKLOAD--MANAGER***  

 

TIME OF ERROR INFORMATION   

  PSW: 07045000 8000  29997A62  

  INSTRUCTION LENGTH: 06   INTERRUPT CODE: 0004 

  FAILING INSTRUCTION TEXT: E50FE000 F0001845 
1F400640  

  TRANSLATION EXCEPTION ADDRESS: 
_2B115005  

 

  BREAKING EVENT ADDRESS: _0192ECDC 

  REGISTERS 0-7 

  GR: 00FF 008C 29909E60 29909D6C  0001 1020 299098F6 
29909CE8  

  AR:         
  

  REGISTERS 8-15

  GR: 2B114F02 29C50FE0 29998176 29997177  29996178 299099F0 2B114F02 
29C50FE0  

  AR: 0001       0001 
  

 

STATUS FROM THE RB

  PSW: 070C5000 A9997A62   INSTRUCTION LENGTH: 06   INTERRUPT CODE: 
0004  

  REGISTERS 0-7   

  GR: 00FF 008C 29909E60 29909D6C  0001 1020 299098F6 
29909CE8

  AR:         


  REGISTERS 8-15  

  GR: 2B114F02 29C50FE0 29998176 29997177  29996178 299099F0 2B114F02 
29C50FE0

  AR:         


Any help is welcome

Regards Roland

 

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



Re: can the ENTER key be simulated in an ISPF panel

2008-09-20 Thread J R
> Okay. But, it acts as a single task.  > Only one is active at a time.  
 
I agree.  The outstanding TGET is the reason why.  
 
> Date: Sat, 20 Sep 2008 19:32:09 +
> From: [EMAIL PROTECTED]
> Subject: Re: can the ENTER key be simulated in an ISPF panel
> To: IBM-MAIN@BAMA.UA.EDU
> 
> >Actually, TSO is far from a single task. The problem is that, 
> >if you have more than one active task that can issue a TGET, 
> >when you enter a response, you don't know to whom you are responding. 
> 
> Okay. But, it acts as a single task.
> Only one is active at a time.
> 
> Tomayto - tomatto! (8-{]}
> 
> -
> Too busy driving to stop for gas!
 
 
_
Want to do more with Windows Live? Learn “10 hidden secrets” from Jamie.
http://windowslive.com/connect/post/jamiethomson.spaces.live.com-Blog-cns!550F681DAD532637!5295.entry?ocid=TXT_TAGLM_WL_domore_092008
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html



Re: can the ENTER key be simulated in an ISPF panel

2008-09-20 Thread Ted MacNEIL
>Well, I just thought a little more about this.  ;-)  
 
>ISPF does the TGET.  Based on context, i.e. where the cursor is, the 
>appropriate logical screen is given control.  


Yes, but that is just context.
There's still only one task listening.

That's like 'one hand clapping'?

-
Too busy driving to stop for gas!

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



Re: can the ENTER key be simulated in an ISPF panel

2008-09-20 Thread J R
Well, I just thought a little more about this.  ;-)  
 
ISPF does the TGET.  Based on context, i.e. where the 
cursor is, the appropriate logical screen is given control.  
 
> Date: Sat, 20 Sep 2008 15:29:50 -0400
> From: [EMAIL PROTECTED]
> Subject: Re: can the ENTER key be simulated in an ISPF panel
> To: IBM-MAIN@BAMA.UA.EDU
> 
> > ... but TSO is a single task. 
> 
> Actually, TSO is far from a single task. The problem is 
> that, if you have more than one active task that can 
> issue a TGET, when you enter a response, you don't 
> know to whom you are responding. 
> 
> ISPF gets around this by only having an outstanding 
> TGET on the current screen. 
> 
 
 
_
Want to do more with Windows Live? Learn “10 hidden secrets” from Jamie.
http://windowslive.com/connect/post/jamiethomson.spaces.live.com-Blog-cns!550F681DAD532637!5295.entry?ocid=TXT_TAGLM_WL_domore_092008
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html



Re: can the ENTER key be simulated in an ISPF panel

2008-09-20 Thread Ted MacNEIL
>Actually, TSO is far from a single task.  The problem is that, if you have 
>more than one active task that can issue a TGET, when you enter a response, 
>you don't know to whom you are responding.  

Okay. But, it acts as a single task.
Only one is active at a time.

Tomayto - tomatto! (8-{]}

-
Too busy driving to stop for gas!

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



Re: can the ENTER key be simulated in an ISPF panel

2008-09-20 Thread J R
> ... but TSO is a single task.  
 
Actually, TSO is far from a single task.  The problem is 
that, if you have more than one active task that can 
issue a TGET, when you enter a response, you don't 
know to whom you are responding.  
 
ISPF gets around this by only having an outstanding 
TGET on the current screen.  
 
> Date: Sat, 20 Sep 2008 18:36:33 +
> From: [EMAIL PROTECTED]
> Subject: Re: can the ENTER key be simulated in an ISPF panel
> To: IBM-MAIN@BAMA.UA.EDU
> 
> >If you want TSO/E REXX to wait only a certain duration after having called 
> >another program (ISPEXEC), there is no such function
> 
> You need TSO to be a multi-tasking environment, where a parent process can 
> kill another after a specific interval.
> 
> I've done this in UNIX, GCOS, LINUX, and an experimental OS (in University), 
> but TSO is a single task.
> 
> -
> Too busy driving to stop for gas!
 
 
_
Get more out of the Web. Learn 10 hidden secrets of Windows Live.
http://windowslive.com/connect/post/jamiethomson.spaces.live.com-Blog-cns!550F681DAD532637!5295.entry?ocid=TXT_TAGLM_WL_domore_092008
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html



Re: can the ENTER key be simulated in an ISPF panel

2008-09-20 Thread Ted MacNEIL
>If you want TSO/E REXX to wait only a certain duration after having called 
>another program (ISPEXEC), there is no such function

You need TSO to be a multi-tasking environment, where a parent process can kill 
another after a specific interval.

I've done this in UNIX, GCOS, LINUX, and an experimental OS (in University), 
but TSO is a single task.

-
Too busy driving to stop for gas!

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



Re: PDSE(1)_BUFFER_BEYOND_CLOSE & PDSE(1)_HSP_SIZE

2008-09-20 Thread Mark Zelden
On Sat, 20 Sep 2008 10:56:41 -0400, Knutson, Sam <[EMAIL PROTECTED]> wrote:

>Hi Mark,
>
>I implemented Buffer Beyond Close in February without incident and I see a
large number of PDSEs that are accessed frequently that are benefiting from
this. You can use MXG TYPE1415 to do some simple reporting.
>
>I would actually like to see member data cached (Data In Memory is good)
but have had enough other projects the concern about causing CPU increase
has kept me away from exploring it.
>
>BROWSESYS1.PARMLIB(IGDSMSA1)
> Command ===>
>*
>SMS ACDS(SYS2.SMS.ACDS)
>COMMDS(SYS2.SMS.COMMDS)
>ACSDEFAULTS(NO)
>ASID(*)
>DB2SSID(DB2P)
>DESELECT(OPCMD,MSG,DISP)
>DINTERVAL(150)
>INTERVAL(10)
>JOBNAME(*)
>OAMPROC(OAM)
>OAMTASK(OAM)
>PDSESHARING(EXTENDED)
>PDSE_RESTARTABLE_AS(YES)
>PDSE_BUFFER_BEYOND_CLOSE(YES)
>PDSE1_BUFFER_BEYOND_CLOSE(YES)
>REVERIFY(NO)
>RLS_MAXCFFEATURELEVEL(A)
>RLSINIT(YES)
>SELECT(ALL)
>SIZE(500K)
>TRACE(OFF)
>TYPE(ERROR)
> B

Thanks Sam.  If running SMSPDSE1, does  PDSE_BUFFER_BEYOND_CLOSE(YES)
have any meaning (aren't all LNKLST data sets open)?

Regards,

Mark
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:[EMAIL PROTECTED]
z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html

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



Re: Taking Image Copy of base tablespace,LOB Tablespace and all the indexspaces in DB2V8

2008-09-20 Thread Kenneth E Tomiak
And take advantage of search engines like GOOGLE and ASK. A search of the 
message id and "COPY YES" turned up this hit which explains why you 
received the message. If you are aDBA then from there you should know what 
to do or get a DBA to fix it. There are DBa consultants available if you are 
still 
stuck.


http://www.redbooks.ibm.com/redbooks/pdfs/sg246289.pdf


>P.Sabarish Kannan
>
>You should post on the DB2 List
>
>[EMAIL PROTECTED]
>

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



Re: Tape Libraries

2008-09-20 Thread John Ticic IBM-MAIN
The MDL can also replicate the data. One solution I am known of starts the 
replication at tape close. There are other options.
For example. If the MAS/MDL uses a DS6800 to store the Tape volumes, then 
the DS6800 can PPRC (in real-time of course) to a second DS6800. This is 
valid for any kind of back-end disk subsystem that supports a peer to peer 
remote copy that you attach to the back-end of the MDL. In this case, the 
MAS/MDL is not aware of the replication.


John
- Original Message - 
From: "Paul Dineen" <[EMAIL PROTECTED]>

Newsgroups: bit.listserv.ibm-main
Sent: Friday, September 19, 2008 5:02 PM
Subject: Re: Tape Libraries



On Fri, 19 Sep 2008 22:11:20 +0800, Tommy Tsui <[EMAIL PROTECTED]>
wrote:


but can EMC tape backup solution can perform a VTS peer to peer mode real
time copy...immedaitely mode? for mainframe platform


From EMC literature:
 Using EMC replication capabilities, tape volumes stored on Celerra by the
 Mainframe Data Library can be automatically duplicated to a remote 
location.


I don't know if this is 'immediate' or via a data trickle.  We haven't
implemented MDL at remote DR site, but understand it will be funded
at some point.

Paul

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



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



Re: can the ENTER key be simulated in an ISPF panel

2008-09-20 Thread Kenneth E Tomiak
If you want TSO/E REXX to wait only a certain duration after having called 
another program (ISPEXEC), there is no such function. REXX waits for the 
called program to return control. Sounds like you want ISPF to have an option 
that when a panel is displayed it would 'timeout' if the user did not press an 
interrupt key (ATTN). Not the normal behavior for an interactive application. 
Similar to how some other functions, CONSOLE() and SOCKET() come to mind, 
have their own settings for how long they can have control before returning 
control back to the caller.

ISPF was designed to be interactive, so it waits for the user to interact, not 
optionally interact. Just like CICS displaying a map and waiting for the user 
to 
do something, then running the transaction without letting the user start 
another transaction or press a PFKEY. In CICS it could ugly if users tried 
running three transactions at the same time that all displayed a different map 
to be used for data entry. Same with ISPF. The CONTROL LOCK option seems 
to be trying to match the windows 'progress bar' method of keeping the user 
occupied while doing things that take awhile and let them know the system is 
fine, just has a lot to do. That is how ISRDDN search uses it, and I use it to 
display which member my PDSEDIT code is currently executing on. Since you 
have just the one active TCB doing your work there is no ISPF reason to let 
them press any keys while your Rexx code is doing your work. They could not 
swap to another screen because you did not spin off a disconnected process 
under another TCB. You can't scroll around because your code is still 
executing. Generically it makes no sense to let the user change the display if 
your program is going to display a different panel. ISPF is not a multi-tasking 
operating system, only one TCB is active at a time, when control returns to 
them, they can swap to another ISPF session/screen and do something else, 
there are no swap but leave the session running in the background options. It 
stops running when they swap. Although I have wanted the ability to scroll 
down a long data set list while something else was chugging away. And having 
to press the attention key to break out to my multi-session monitor so I can 
swap logical terminal sessions is dangerous if I hit it twice, it sends the 
attention to my rexx code.


Ask John L. to open an ISPF Requirement for a TIMEOUT parameter on 
ISPEXEC SELECT and DISPLAY PANEL().


It would be nice to have some code running under session 1, swap to session 
2 and leave session 1 running while continuing to do work under session 2. 
The lack of that functionality is what led users to have multiple tso userids 
and being able to logon with the same userid on multiple systems in a 
JESPLEX. And more recelty asking why not use the same userid more than 
once on the same system.





On Fri, 19 Sep 2008 14:28:25 -0400, Barkow, Eileen 
<[EMAIL PROTECTED]> wrote:

>Dave,
>thank you very much for your synopsis on this.
>we were trying to find a way whereby the process can be interrupted.
> The programmer did manage to do this with an assembler program that
>waits and accepts an interrupt from the attention key - if none is
>received the panel is jus reinvoked with the time updated.
>
>unfortuneatly, I do not see a WAIT facility in TSO REXX - there is one
>in Netview- which would have eliminated the need for an assembler
>program.
>
>you are correct about the attention key, but that can be set with
>emulators.
>

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



Re: A STP question

2008-09-20 Thread Kenneth E Tomiak
I thought the CECs (pre-STP) would only get time from a Sysplex Timer or a 
special hardware device that knew how to dial NIST for the time. STP is a 
replacement for that, so if all 4 CECs play with STP then they need to be able 
to communicate with one another if only two of them are running the NTP 
Client. I do not believe the CECs share time to update clocks through other 
connections. The operating systems running in LPARs use the coupling facility 
and Fibre connections, not the CECs themselves.


The fourth CEC does not have to be part of the 3 CEC STP environment, it 
can have its own ethernet connectivity to the NTP Server and run its own 
single CEC NTP Client. Don't all of your z9 and z10 support elements have two 
ethernet ports?

Are you by chance trying to get a non-STP capable CEC to do NTP? I've heard 
that question often since STP and the NTP Client were releases. The old CECs 
can only do what the old CECs could do. Several SHARE sessions from a year 
or two ago covered how to mix STP and Sysplex Timers while migrating 
towards all STP capable CECs.




On Fri, 19 Sep 2008 09:58:33 -0400, Petersen, Jim 
<[EMAIL PROTECTED]> wrote:

>I have 4 CEC's in my shop that are all wired together.   The laptops on
>3 of the CEC's have a spare Ethernet port.  If I don't use the 4th CEC
>for the Primary, Backup, or Arbiter, do I really need to connect the 4th
>CEC via Ethernet so it can get to NTP?   Won't it get its timing pulses
>via the Coupling Facility or Fibre connections
>
> 
>
>___ 
>
>Jim Petersen 
>MVS - Lead Systems Engineer 
>

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



Re: PDSE(1)_BUFFER_BEYOND_CLOSE & PDSE(1)_HSP_SIZE

2008-09-20 Thread Knutson, Sam
Hi Mark,

I implemented Buffer Beyond Close in February without incident and I see a 
large number of PDSEs that are accessed frequently that are benefiting from 
this. You can use MXG TYPE1415 to do some simple reporting.

I would actually like to see member data cached (Data In Memory is good) but 
have had enough other projects the concern about causing CPU increase has kept 
me away from exploring it.   

BROWSESYS1.PARMLIB(IGDSMSA1) 
 Command ===> 
* 
SMS ACDS(SYS2.SMS.ACDS)   
COMMDS(SYS2.SMS.COMMDS)   
ACSDEFAULTS(NO)   
ASID(*)   
DB2SSID(DB2P) 
DESELECT(OPCMD,MSG,DISP)  
DINTERVAL(150)
INTERVAL(10)  
JOBNAME(*)
OAMPROC(OAM)  
OAMTASK(OAM)  
PDSESHARING(EXTENDED) 
PDSE_RESTARTABLE_AS(YES)  
PDSE_BUFFER_BEYOND_CLOSE(YES) 
PDSE1_BUFFER_BEYOND_CLOSE(YES)
REVERIFY(NO)  
RLS_MAXCFFEATURELEVEL(A)  
RLSINIT(YES)  
SELECT(ALL)   
SIZE(500K)
TRACE(OFF)
TYPE(ERROR)   
 B

Best Regards, 

Sam Knutson, GEICO 
System z Performance and Availability Management 
mailto:[EMAIL PROTECTED] 
(office)  301.986.3574  

"Think big, act bold, start simple, grow fast..." 



-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Mark 
Zelden
Sent: Thursday, September 18, 2008 3:58 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: PDSE(1)_BUFFER_BEYOND_CLOSE & PDSE(1)_HSP_SIZE

I'm confused.

I want to turn on buffer beyond close (for PDSE1) now that **most of the bugs
are hopefully worked out and ISV software should be set (I recall some
issues back at z/OS 1.6 when this was introduced).  I was forced to test
this some weeks back as a work around to problem on one of our
z/OS 1.9 systems (see HIPER APAR OA25618 - PTFs available 07/17/08). 

(** Most, not all... see recent DFSMSdss APAR OA21934)

However, since OA11068 the default HSP_SIZE is 0 due to high CPU. 
So if HSP_SIZE is 0, is there any benefit to buffer beyond close?
Is just directory data cached? 

Some of my systems still have PDSE1_HSP_SIZE(256) coded (now 
overriding the default of 0) from our 1.6 implementation, but we 
haven't seen the high CPU issue described by OA11068 (as far as I know).

Mark
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:[EMAIL PROTECTED]
z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html

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


This email/fax message is for the sole use of the intended
recipient(s) and may contain confidential and privileged information.
Any unauthorized review, use, disclosure or distribution of this
email/fax is prohibited. If you are not the intended recipient, please
destroy all paper and electronic copies of the original message.

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



Re: Data conversion EBCDIC to ASCII

2008-09-20 Thread Ed Finnell
 
In a message dated 9/20/2008 9:38:44 A.M. Central Daylight Time,  
[EMAIL PROTECTED] writes:

You'll find lots of different ways in the archives.  Via JCL, FTP,  using
z/OS UNIX, just to name a few.   The best methods use the  ICONV() 
service.   I have been using this C++  utility:


>>
Don't know what the 'end use' is? If all you  want is to get it to PC
just use WSA and it'll suck the host file to  the PC. 








**Looking for simple solutions to your real-life financial 
challenges?  Check out WalletPop for the latest news and information, tips and 
calculators.  (http://www.walletpop.com/?NCID=emlcntuswall0001)

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



Re: Data conversion EBCDIC to ASCII

2008-09-20 Thread Mark Zelden
On Fri, 19 Sep 2008 20:27:54 -0300, Claudio Marcio <[EMAIL PROTECTED]> wrote:

>Hello,
>
>How do I convert a member with data EBCDIC to ASCII in the TSO environment?
>

You'll find lots of different ways in the archives.  Via JCL, FTP, using
z/OS UNIX, just to name a few.   The best methods use the ICONV() 
service.   I have been using this C++ utility:

//JOBNAME JOB ...
// 
//* SEE SYS1.CEE.SCEEPROC(EDCICONV) and C++ MANUALS  * 
// 
//* EDCICONV --- INVOKE ICONV UTILITY TO CONVERT THE INPUT FILE FROM * 
//* THE SPECIFIED CODESET TO THE SPECIFIED CODESET.  * 
// 
//*
//EDCICONV  EXEC PGM=EDCICONV, 
//  PARM=('FROMCODE(IBM-037),TOCODE(ISO8859-1)')   
//* PARM=('FROMCODE(ISO8859-1),TOCODE(IBM-037)')   
//*STEPLIB   DD DSNAME=SYS1.CEE.SCEERUN,DISP=SHR   
//SYSUT1DD DSNAME=EBCDIC.FILE,DISP=SHR 
//SYSUT2DD DSNAME=ASCII.FILE,DISP=SHR  
//SYSPRINT  DD SYSOUT=*
//SYSIN DD DUMMY 


Mark
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:[EMAIL PROTECTED]
z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html

  

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



Re: Display Esoteric values

2008-09-20 Thread Ron Hawkins
Howard,

Try here http://www.cbttape.org/

Ron

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
> Behalf Of Howard Rifkind
> Sent: Friday, September 19, 2008 2:09 PM
> To: IBM-MAIN@BAMA.UA.EDU
> Subject: Re: [IBM-MAIN] Display Esoteric values
> 
> Just wondering...how does one get this CBT tape?
> 
> Thanks
> 

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



Display Esoteric Values

2008-09-20 Thread Kenneth J. Kripke
Paste: 
From:"Donnelly, John P" <[EMAIL PROTECTED]>
Subject: Display Esoteric values

  hellois there a console command which will display the esoteric a=
ssigned by device type...

End_paste:

To my knowledge, there isn't.  There have been postings of shareware tools to 
accomplish this task.  
The other option is to code your own assembler program to call the EDTINFO 
macro to extract the information.  

K. Kripke 
[EMAIL PROTECTED]

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



Re: Data conversion EBCDIC to ASCII

2008-09-20 Thread Jürgen Kehr

Hello,

you may use the following REXX to do this job. AFAIK this program uses 
the german code table, but this may easily changed.


/** REXX */
/*---*/
/*!   FA#ASCII  !*/
/*!   FA#ASCII - Convert EBCDIC to ASCII (adding CR/LF) !*/
/*!   Author:  Kehr 06/09/2005  !*/
/*!   Category:   1 !*/
/*---*/
/*!   Last changed: 06/09/2005  !*/
/*---*/
/*!   Description of changes:   !*/
/*!   06/09/2005  First version !*/
/*/

say
say "Convert EBCDIC to ASCII - adding CR/LF V1.0.0 (06/09/2005)"
say
/*---*/
/*  Read input file  */
/*---*/
 "EXECIO * DISKR SYSUT1 (STEM data. FINIS)"
/*---*/
 nb = 0
 do j = 1 to data.0
   data1.j = translate(strip(data.j),ebc2asc()) !! "0d0a"x
   nb = nb + length(data1.j)
 end
/*---*/
 "EXECIO * DISKW SYSUT2 (STEM data1. FINIS)"
 say "ASCII001I" data.0 "records written to output file"
 say "ASCII001I" nb "bytes written to output file"
/*---*/
exit

/*--*/
/*! p r o c e d u r e   ebc2asc!*/
/*--*/

/*--- REXX -
Konvertiertabelle EBCDIC -> ASCII
--*/
ebc2asc:
  return,
 /*0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F */,
 "00 01 02 03 ec 09 ca 7f e2 d2 d3 0b 0c 0d 0e 0f"x !!,
 "10 11 12 13 ef c5 08 cb 18 19 dc d8 1c 1d 1e 1f"x !!,
 "b7 b8 b9 bb c4 0a 17 1b cc cd cf d0 d1 05 06 07"x !!,
 "d9 da 16 dd de df e0 04 e3 e5 e9 eb b0 b1 9e 1a"x !!,
 "20 ff 83 7b 85 a0 f2 86 87 a4 8e 2e 3c 28 2b 21"x !!,
 "26 82 88 89 8a a1 8c 8b 8d 7e 9a 24 2a 29 3b 5e"x !!,
 "2d 2f b2 5b b4 b5 b6 8f 80 a5 94 2c 25 5f 3e 3f"x !!,
 "ba 90 bc bd be f3 c0 c1 c2 60 3a 23 15 27 3d 22"x !!,
 "c3 61 62 63 64 65 66 67 68 69 ae af c6 c7 c8 f1"x !!,
 "f8 6a 6b 6c 6d 6e 6f 70 71 72 a6 a7 91 ce 92 a9"x !!,
 "e6 e1 73 74 75 76 77 78 79 7a ad a8 d4 d5 d6 d7"x !!,
 "9b 9c 9d fa 9f 40 14 ac ab fc aa 7c e4 fe bf e7"x !!,
 "84 41 42 43 44 45 46 47 48 49 e8 93 b3 95 a2 ed"x !!,
 "81 4a 4b 4c 4d 4e 4f 50 51 52 ee 96 7d 97 a3 98"x !!,
 "99 f6 53 54 55 56 57 58 59 5a fd f5 5c f7 f0 f9"x !!,
 "30 31 32 33 34 35 36 37 38 39 db fb 5d f4 ea c9"x
 /*0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F */


Claudio Marcio schrieb:

Hello,

How do I convert a member with data EBCDIC to ASCII in the TSO 
environment?


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



--

___



Freundliche Gruesse / Kind regards



Dipl.Math. Juergen Kehr, IT Schulung & Beratung, IT Education + Consulting

Tel.  +49-561-9528788  Fax   +49-561-9528789  Mobil +49-172-5129389

ICQ 292-318-696 (JKehr)



mailto:[EMAIL PROTECTED]

mailto:[EMAIL PROTECTED]

___

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



AUTO: Jon Butler is out of the office (returning 28-09-2008)

2008-09-20 Thread Jon Butler
I am out of the office until 28-09-2008.

I will be out of the office until Monday, 29 September.  I will not have
access to eMail, and mobile coverage will be spotty.  If you need
assistance, please contact Jeff Beck or Denis Vo.


Note: This is an automated response to your message  ".IBM-MAIN Digest - 18
Sep 2008 to 19 Sep 2008 (#2008-263)" sent on 9/20/08 0:00:03.

This is the only notification you will receive while this person is away.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html