Re: CSP

2011-08-23 Thread Claudio Marcio 

hi,

I have CSP programs in my work that will need maintenance,
which is why I asked your help, because I find nothing manual on the 
Internet.


att


- Original Message - 
From: "Mark Pace" 

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Tuesday, August 23, 2011 4:45 PM
Subject: Re: CSP


Google -  ibm cross system product

Hopefully that will get you what you need.  That product has been out of
support for a long time.

On Tue, Aug 23, 2011 at 3:02 PM, Claudio Marcio  wrote:


Hi,

There is a  program language used for mainframe called CSP, is what I 
want.


att
Claudio


- Original Message - From: "Lizette Koehler" <
stars...@mindspring.com>
Newsgroups: bit.listserv.ibm-main
To: 
Sent: Tuesday, August 23, 2011 2:15 PM
Subject: Re: CSP





 Hello,

 I need a manual CSP, can anyone help me?

att

Claudio




Claudio,

Can you tell us what CSP stands for?  There are many names for CSP.  By
telling the full name, will help us.

What product, what function?

Lizette

--**--**
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at 
http://bama.ua.edu/archives/**ibm-main.html<http://bama.ua.edu/archives/ibm-main.html>




--**--**--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at 
http://bama.ua.edu/archives/**ibm-main.html<http://bama.ua.edu/archives/ibm-main.html>






--
The postings on this site are my own and don’t necessarily represent
Mainline’s positions or opinions

Mark D Pace
Senior Systems Engineer
Mainline Information Systems

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: CSP

2011-08-23 Thread Claudio Marcio 

Hi,

There is a  program language used for mainframe called CSP, is what I want.

att
Claudio


- Original Message - 
From: "Lizette Koehler" 

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Tuesday, August 23, 2011 2:15 PM
Subject: Re: CSP




 Hello,

 I need a manual CSP, can anyone help me?

att

Claudio



Claudio,

Can you tell us what CSP stands for?  There are many names for CSP.  By
telling the full name, will help us.

What product, what function?

Lizette

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

CSP

2011-08-23 Thread Claudio Marcio 

Hello,

I need a manual CSP, can anyone help me?

att

Claudio

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

CSP

2011-08-23 Thread Claudio Marcio 

Hello,

I need a manual CSP, can anyone help me?

att

Claudio

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

Re: Loop in REXX

2008-10-23 Thread Claudio Marcio 

Hi see my rexx exec

/* rexx  by Claudio Marcio */
Say 'Enter with the year',
pull year
do while \datatype(year,'N')
 SAY 'Invalid Date!!... enter year, using only numeric digits''
 pull year
end
do until answer \= "S"
 dec25 = date("B",year"1225","S")//7
 select
when dec25 = 0 then day = "Segunda-feira"
when dec25 = 1 then day = "Terca-feira"
when dec25 = 2 then day = "Quarta-feira"
when dec25 = 3 then day = "Quinta-feira"
when dec25 = 4 then day = "Sexta-feira"
when dec25 = 5 then day = "Sabado"
   when dec25 = 6 then day = "Domingo"
end
if year < right(date(),4) then
   say 'In 'year', the Christmas was 'day
   else
   say 'In 'year', the Christmas will be 'day

say 'Want to learn some more years? (s/n)'
pull answer
if answer = "S" then
 say 'Enter with another year!'
 pull year--- > 
HERE TO UP it´s ok

 do while \datatype(year,'N')
   SAY 'Invalid Date!!... enter year, using only numeric digits''  ,
   pull year
 end
end
if answer = "N" then-->   not be enter 
to if when type answer equal the "N"???
do 
the program returns to the message of while command and
  say 'Invalid answer BYE! BYE!'  when 
type the year( ex. 1970), he cancel  ??? why??

  leave
end
end 
more a question... how to verify the number of digits of the year??
end 
ex. If digits of thhe year less than 4
exit 
say 'Invalid Date!!... Invalid number of the digits'




regards


 Bottom of Data *

if answer = "N" then
- Original Message - 
From: "Paul Gilmartin" <[EMAIL PROTECTED]>

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Thursday, October 23, 2008 12:10 PM
Subject: Re: Loop in REXX



On Thu, 23 Oct 2008 04:39:38 +0100, CM Poncelet wrote:


Try:

SAY 'Enter year'
PULL YEAR
DO WHILE \DATATYPE(YEAR,'N')
 SAY 'Invalid date 'YEAR':' enter year, using only numeric digits'
 PULL YEAR
 END
SAY 'Year is 'YEAR /* this line is just to verify ... */


I loathe the top-and-bottom input style.  The need for it is
a symptom of a deficiency of control structures in the language.
Would you code assembler this way?  What could be done with
SPM?

Better:

SAY 'Enter year'
DO InputYear=1
 PULL YEAR
 IF DATATYPE(YEAR,'N') THEN LEAVE InputYear
 SAY 'Invalid date 'YEAR':' enter year, using only numeric digits'
 END InputYear
SAY 'Year is 'YEAR /* this line is just to verify ... */

Best to code a function to put the expression in the
loop control:

SAY 'Enter year'
DO InputYear=1 WHILE \GETYEAR()
 SAY 'Invalid date 'YEAR':' enter year, using only numeric digits'
 END InputYear
SAY 'Year is 'YEAR /* this line is just to verify ... */
...
GETYEAR PROCEDURE
 PULL YEAR
 RETURN  DATATYPE(YEAR,'N')

Better languages allow a compound in the control expression
(not Rexx):

DO InputYear=1 WHILE (PULL YEAR; DATATYPE(YEAR,'N'))
   ...

-- gil

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

Loop in REXX

2008-10-22 Thread Claudio Marcio 

hi,

how make a loop using the DO command in REXX?

ex:

Say ' enter wiith the year'
pull year

do until year (not numeric???)
say ' invalid date, enter with the year'
pull year
end

be right the command above?

regards

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

Re: REXX error

2008-10-17 Thread Claudio Marcio 

I got it!!!

run the pack off command inside member
the now it´s OK!  very, very thank´s to all
what helped me!

thank´s Scott and thank´s for all

regards

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

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Friday, October 17, 2008 11:47 PM
Subject: Re: REXX error



Claudio,
How are you executing your clist ???

Option # 6 as   'exec clist-pds(clistname)' or

How ?

Also what are the dcb parameters of your clist pds ?




Scott Ford
Senior Systems Engineer


[p] 678.266.3399 x304[m] 609-346-0399  identityforge.com



This message is for the designated recipient only and may contain
privileged, proprietary, or otherwise private information. If you have
received it in error, please notify the sender immediately or let us know 
at


[EMAIL PROTECTED] or [EMAIL PROTECTED], and then delete the
original.  Any other use of the email by you is prohibited.

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On 
Behalf

Of Claudio Marcio
Sent: Friday, October 17, 2008 8:08 PM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: REXX error

when I run my exec REXX the error appears:
1 +++ ?
   IRX0013I Error running BRAS, line 1: Invalid character in program

see my program rexx BRAS:

/* REXX para mostrar o dia da semana que cai o natal. BY CLAUDIO MARCIO */
/***/
/* Say 'Calculate Christmas day in year ?' */
 Say 'Este programa informa em que dia da semana foi ou sera o Natal',
 'em determinado  ano, que ano quer saber ?'
 pull year
do until answer \= "S"
 if year = "" then year = right(date(),4)
 dec25 = date("B",year"1225","S")//7
 select
when dec25 = 0 then day = "Segunda-feira"
when dec25 = 1 then day = "Terca-feira"
when dec25 = 2 then day = "Quarta-feira"
when dec25 = 3 then day = "Quinta-feira"
when dec25 = 4 then day = "Sexta-feira"
when dec25 = 5 then day = "Sabado"
otherwise day = "Domingo"
 end
 if year < right(date(),4) then
say 'Em 'year', o natal foi 'day
else
say 'Em 'year', o natal sera 'day
 say 'Deseja saber mais algum ano ? (s/n)'
 pull answer
 if answer = 'S' then
Say 'Vamos la entao, qual outro ano voce gostaria de saber!!'
else
   do
 say 'BYE! BYE!'
 leave
   end
 pull year
end
exit

---
Very strange

Why runs in other dataset ??
in the dataset below, run ok..

VIEW  ZOS.CONTEST.JCL>  other dataset
Command ===>  Scroll ===>
PAGE
  Name Prompt   Size   Created  Changed 
ID

__ex_ BRAS *RC=0   11  2007/09/19  2007/09/21 14:36:53  BABEYS
 **End**


In the dataset below, not run, WHY??

I'm use the ex command in BRAS(member) of the my datset see;

VIEW  BRATIME.TIME.CHRIST---> my dataset
Command ===>
  Name Prompt   Size   Created
___EX__ BRAS*Edited 34  2008/09/09  -> member
member
   **End**

regards


- Original Message - 
From: "Hunkeler Peter (KIUK 3)" <[EMAIL PROTECTED]>

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Friday, October 17, 2008 4:52 AM
Subject: Re: REXX error



I don't see neither an error nor REXX code? What is your problem?
Pleaes take your time to write sufficient information so others
are able to help instead of wasting time trying to guess what
you want.

--
Peter Hunkeler
CREDIT SUISSE

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



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



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

Re: REXX error ***** I WIN!!!!!! ******

2008-10-17 Thread Claudio Marcio 

I got it!!!

run the pack off command inside member
the now it´s OK!  very, very thank´s to all
what helped me!

regards

- Original Message - 
From: "Hunkeler Peter (KIUK 3)" <[EMAIL PROTECTED]>

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Friday, October 17, 2008 4:52 AM
Subject: Re: REXX error



I don't see neither an error nor REXX code? What is your problem?
Pleaes take your time to write sufficient information so others
are able to help instead of wasting time trying to guess what
you want.

--
Peter Hunkeler
CREDIT SUISSE

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



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

Re: REXX error

2008-10-17 Thread Claudio Marcio 

when I run my exec REXX the error appears:
1 +++ ?
   IRX0013I Error running BRAS, line 1: Invalid character in program

see my program rexx BRAS:

/* REXX para mostrar o dia da semana que cai o natal. BY CLAUDIO MARCIO */
/***/
/* Say 'Calculate Christmas day in year ?' */
 Say 'Este programa informa em que dia da semana foi ou sera o Natal',
 'em determinado  ano, que ano quer saber ?'
 pull year
do until answer \= "S"
 if year = "" then year = right(date(),4)
 dec25 = date("B",year"1225","S")//7
 select
when dec25 = 0 then day = "Segunda-feira"
when dec25 = 1 then day = "Terca-feira"
when dec25 = 2 then day = "Quarta-feira"
when dec25 = 3 then day = "Quinta-feira"
when dec25 = 4 then day = "Sexta-feira"
when dec25 = 5 then day = "Sabado"
otherwise day = "Domingo"
 end
 if year < right(date(),4) then
say 'Em 'year', o natal foi 'day
else
say 'Em 'year', o natal sera 'day
 say 'Deseja saber mais algum ano ? (s/n)'
 pull answer
 if answer = 'S' then
Say 'Vamos la entao, qual outro ano voce gostaria de saber!!'
else
   do
 say 'BYE! BYE!'
 leave
   end
 pull year
end
exit
---
Very strange

Why runs in other dataset ??
in the dataset below, run ok..

VIEW  ZOS.CONTEST.JCL>  other dataset
Command ===>  Scroll ===>
PAGE
  Name Prompt   Size   Created  Changed  ID
__ex_ BRAS *RC=0   11  2007/09/19  2007/09/21 14:36:53  BABEYS
 **End**


In the dataset below, not run, WHY??

I'm use the ex command in BRAS(member) of the my datset see;

VIEW  BRATIME.TIME.CHRIST---> my dataset
Command ===>
  Name Prompt   Size   Created
___EX__ BRAS*Edited 34  2008/09/09  -> member
member
   **End**

regards


- Original Message - 
From: "Hunkeler Peter (KIUK 3)" <[EMAIL PROTECTED]>

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Friday, October 17, 2008 4:52 AM
Subject: Re: REXX error



I don't see neither an error nor REXX code? What is your problem?
Pleaes take your time to write sufficient information so others
are able to help instead of wasting time trying to guess what
you want.

--
Peter Hunkeler
CREDIT SUISSE

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



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

Re: REXX error

2008-10-16 Thread Claudio Marcio 

hi,

Very strange

Why runs in other dataset ??
in the dataset below, run ok..

VIEW  ZOS.CONTEST.JCL>  other dataset
Command ===>  Scroll ===> 
PAGE

  Name Prompt   Size   Created  Changed  ID
__ex_ BRAS *RC=0   11  2007/09/19  2007/09/21 14:36:53  BABEYS
 **End**


In the dataset below, not run, WHY??

I'm use the ex command in BRAS(member) of the my datset see;

VIEW  BRATIME.TIME.CHRIST---> my dataset
Command ===>
  Name Prompt   Size   Created
___EX__ BRAS*Edited 34  2008/09/09  -> member
member
   **End**

regards


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

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Monday, October 13, 2008 11:23 AM
Subject: Re: REXX error



On Mon, 13 Oct 2008 06:35:59 -0400, Shmuel Metz (Seymour J.) wrote:


  say 'first part' ||
'second part'

Note that in this case the comma is permissible but not necessary.


Necessary.

[EMAIL PROTECTED]:132$ head `whence cont.rexx` /dev/null
==> /u/user/bin/cont.rexx <==
/* Rexx */ signal on novalue;  trace R

  say 'first part' ||
'second part'

==> /dev/null <==
[EMAIL PROTECTED]:133$ cont.rexx
3 *-* say 'first part' ||
3 +++ say 'first part' ||
IRX0035I Error running /u/user/bin/cont.rexx, line 3: Invalid expression
[EMAIL PROTECTED]:134$

Are you confusing with, perhaps, JCL continuation syntax?

-- gil

--
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: REXX error

2008-10-12 Thread Claudio Marcio 

Hi

after commands DDLIST and MEMBER BRAS appears:

 6000   400 FB   PO  > BOOKMAN.SEOYAENU

+-+
| Warning: ISRDDN has detected that one or more concatenations, including DD 
|
| name ISPPLIB contain mixed record formats, organizations, or fixed record 
|
| lengths. Reading from allocations containing different types of data sets 
|
| can cause I/O errors, ABENDs, or other unpredictable results. For further 
|
| information, see the z/OS documentation on using data sets. Enter CHECK 
OFF |
| to disable this check. 
|

+-+

it´s is ok or not?? what the next step??

regards

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

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Sunday, October 12, 2008 4:30 PM
Subject: Re: REXX error



On Sun, 12 Oct 2008 15:52:28 -0200, Claudio Marcio wrote:


I´m using the ex command see below:
VIEW  BRATIME.TIME.CHRIST---> my dataset
Command ===>
  Name Prompt   Size   Created
___EX__ BRAS*Edited 34  2008/09/09  -> dataset member
   |**End**
   |
   |> A command entered or contained in a CLIST has invalid 
syntax.



You're apparently using ISPF (or are you editing it under
ISPF and running it in batch?)  So:

on a command line, type

   DDLIST

On the command line of the resulting display, type

   MEMBER BRAS

In what DDNAME(s) and catenand(s) is is found?

Your script may have been in SYSPROC rather than in
SYSEXEC (or in both, or in two catenands of one).
If not in SYSEXEC, it may lack the "/* REXX */" initial
comment (must be on the first line).

-- gil

--
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: REXX error

2008-10-12 Thread Claudio Marcio 

hi,

I´m using the ex command see below:
VIEW  BRATIME.TIME.CHRIST---> my dataset
Command ===>
  Name Prompt   Size   Created
___EX__ BRAS*Edited 34  2008/09/09  -> dataset member
   |**End**
   |
   |> A command entered or contained in a CLIST has invalid syntax.

what can be?



regards


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

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Saturday, October 11, 2008 8:35 PM
Subject: Re: REXX error



On Sat, 11 Oct 2008 07:11:12 -0500, Kenneth E Tomiak wrote:


No, you do not need rexx in a comment. It depends. TSO will read them from
SYSEXEC and run them without rexx in the comment. z/OS UNIX Services, in
my limited testing, requires rexx to be lower case where any other
environment/platform could care less about the case.


No -- I've tried a couple case variants and they work.  Of course,
the case in the invoking shell command must match the case of the
UNIX path to the EXEC.

However, z/OS UNIX Services requires that the "/* Rexx ..." comment
begin in column 1, unlike TSO and CMS.  If the comment is indented
I get:

   [EMAIL PROTECTED]:119$ INDENT
   BPXWI Exec not found
   [EMAIL PROTECTED]:120$

... the code explanation is in

C.1 "z/OS V1R10.0 Using REXX and z/OS UNIX System Services"

__
   C.1 BPXWI

___

  BPXWI Exec not found

  Explanation: The REXX program could not be found.

  System Action: The REXX program is not run.

  User Response: Check the format of the REXX program  ...

  As was pointed out, if you 
get

an IRX message than TSO already figured out it is rexx and the comment is
unnecessary.


Likewise in this case, it appears that exec() recognized the script
as Rexx, and then called the Rexx interpreter, which somehow rejected
it.

I have found no IBM documentation that requires the comment to begin
in column 1.  Both TSO and CMS accept EXECs with the Rexx comment
indented.  I reported this in a PMR to IBM, who claimed the problem
is impossible to fix.  (I regard this as nonsense;  IBM merely lacks
the determination to make the repair.)

-- gil

--
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: REXX error

2008-10-11 Thread Claudio Marcio 

Hi,

Is this being done in batch?  Foreground TSO?  Other (specify)?
We need more context.

I'm use the ex command in BRAS(member) of the my datset see;

VIEW  BRATIME.TIME.CHRIST---> my dataset
Command ===>
  Name Prompt   Size   Created
___EX__ BRAS*Edited 34  2008/09/09  -> dataset member
   **End**


see my program rexx BRAS:

/* REXX para mostrar o dia da semana que cai o natal. BY CLAUDIO MARCIO */
/***/
/* Say 'Calculate Christmas day in year ?' */
 Say 'Este programa informa em que dia da semana foi ou sera o Natal',
 'em determinado  ano, que ano quer saber ?'
 pull year
do until answer \= "S"
 if year = "" then year = right(date(),4)
 dec25 = date("B",year"1225","S")//7
 select
when dec25 = 0 then day = "Segunda-feira"
when dec25 = 1 then day = "Terca-feira"
when dec25 = 2 then day = "Quarta-feira"
when dec25 = 3 then day = "Quinta-feira"
when dec25 = 4 then day = "Sexta-feira"
when dec25 = 5 then day = "Sabado"
otherwise day = "Domingo"
 end
 if year < right(date(),4) then
say 'Em 'year', o natal foi 'day
else
say 'Em 'year', o natal sera 'day
 say 'Deseja saber mais algum ano ? (s/n)'
 pull answer
 if answer = 'S' then
Say 'Vamos la entao, qual outro ano voce gostaria de saber!!'
else
   do
 say 'BYE! BYE!'
 leave
   end
 pull year
end
exit

regards


- Original Message - 
From: "Kenneth E Tomiak" <[EMAIL PROTECTED]>

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Saturday, October 11, 2008 9:05 AM
Subject: Re: REXX error



I put my money on he is changing it. To get the first error I did a cut and
paste of his code and changed the leading x40 to x20 and got the same 
first

error. It then works. Changing anything outside the apostrophes caused the
same problem. Thus his second error is coming from somewhere else.

Why would you expect someone who can not code a simple say statement to
turn on trace and find his own problems when he has the listserv to do his
work?


On Wed, 8 Oct 2008 09:04:52 -0500, Paul Gilmartin <[EMAIL PROTECTED]>
wrote:



  Date: Tue, 7 Oct 2008 02:12:59 -0300
  Content-Type: text/plain
   when I run my exec REXX the error appears:
1 +++ ?
   IRX0013I Error running BRAS, line 1: Invalid character in program

... clearly a Rexx message.  Is Claudio changing the conditions of the
problem without informing us?  Or is his script being interpreted as a
CLIST, or open code in SYSTSIN, which contains a token which causes an
invalid Rexx exec to be invoked?

Is this being done in batch?  Foreground TSO?  Other (specify)?  We
need more context.

-- gil



--
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: REXX error

2008-10-11 Thread Claudio Marcio 

correcting...
a debug command?


regards

- Original Message - 
From: "Claudio Marcio" <[EMAIL PROTECTED]>

To: "IBM Mainframe Discussion List" 
Sent: Saturday, October 11, 2008 10:14 AM
Subject: Re: REXX error



How do on trace to find my problems and how see this listserv??
The TSO has a degug command?

regards

- Original Message - 
From: "Kenneth E Tomiak" <[EMAIL PROTECTED]>

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Saturday, October 11, 2008 9:05 AM
Subject: Re: REXX error


I put my money on he is changing it. To get the first error I did a cut 
and
paste of his code and changed the leading x40 to x20 and got the same 
first
error. It then works. Changing anything outside the apostrophes caused 
the

same problem. Thus his second error is coming from somewhere else.

Why would you expect someone who can not code a simple say statement to
turn on trace and find his own problems when he has the listserv to do 
his

work?


On Wed, 8 Oct 2008 09:04:52 -0500, Paul Gilmartin <[EMAIL PROTECTED]>
wrote:



  Date: Tue, 7 Oct 2008 02:12:59 -0300
  Content-Type: text/plain
   when I run my exec REXX the error appears:
1 +++ ?
   IRX0013I Error running BRAS, line 1: Invalid character in program

... clearly a Rexx message.  Is Claudio changing the conditions of the
problem without informing us?  Or is his script being interpreted as a
CLIST, or open code in SYSTSIN, which contains a token which causes an
invalid Rexx exec to be invoked?

Is this being done in batch?  Foreground TSO?  Other (specify)?  We
need more context.

-- gil



--
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: REXX error

2008-10-11 Thread Claudio Marcio 

How do on trace to find my problems and how see this listserv??
The TSO has a degug command?

regards

- Original Message - 
From: "Kenneth E Tomiak" <[EMAIL PROTECTED]>

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Saturday, October 11, 2008 9:05 AM
Subject: Re: REXX error



I put my money on he is changing it. To get the first error I did a cut and
paste of his code and changed the leading x40 to x20 and got the same 
first

error. It then works. Changing anything outside the apostrophes caused the
same problem. Thus his second error is coming from somewhere else.

Why would you expect someone who can not code a simple say statement to
turn on trace and find his own problems when he has the listserv to do his
work?


On Wed, 8 Oct 2008 09:04:52 -0500, Paul Gilmartin <[EMAIL PROTECTED]>
wrote:



  Date: Tue, 7 Oct 2008 02:12:59 -0300
  Content-Type: text/plain
   when I run my exec REXX the error appears:
1 +++ ?
   IRX0013I Error running BRAS, line 1: Invalid character in program

... clearly a Rexx message.  Is Claudio changing the conditions of the
problem without informing us?  Or is his script being interpreted as a
CLIST, or open code in SYSTSIN, which contains a token which causes an
invalid Rexx exec to be invoked?

Is this being done in batch?  Foreground TSO?  Other (specify)?  We
need more context.

-- gil



--
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: REXX error

2008-10-07 Thread Claudio Marcio 

hi,

see the first lines of the my exec rexx

** * Top of Data 
**

==MSG> -Warning- The UNDO command is not available until you change
==MSG>   your edit profile using the command RECOVERY ON.
000100  say 'Este programa informa em que dia da semana foi ou sera o Natal
000200  em determinado ano, que ano quer saber ?'
000300 pull year


before run, appears this message??

: F   & Bsay 'Este programa informa em que dia da semana foi ou sera o
IKJ56545I THIS STATEMENT HAS AN INVALID SYMBOLIC VARIABLE

regards


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

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Tuesday, October 07, 2008 11:16 AM
Subject: Re: REXX error



On Tue, 7 Oct 2008 08:25:09 -0400, P S wrote:


Or just replace the first line of the program with /**/ and you'll
know it's good (less scientific, but easier!).


Ummm.  If the program was loaded from SYSPROC, this will cause it
to be treated as a CLIST rather than an EXEC, and the OP is not
likely to know it's good.

If the error is due to a code page problem, there are likely to
be additional instances, and disabling the first line may leave
residual errors, even if the program was loaded from SYSEXEC or
invoked via the API.


On Tue, Oct 7, 2008 at 7:59 AM, Lizette Koehler wrote:


You can change the hex data to a blank with the command:   C P'.' ' '


Which is unlikely to achieve the OP's intent unless he intended
a blank where the nondisplayable character(s) appeared.

Would you advise "C P'.' ' ' ALL"?


when I run my exec REXX the error appears:
 1 +++ ?
IRX0013I Error running BRAS, line 1: Invalid character in program


Code page problems are challenging to a novice (or a non-novice).
So, what was the hex value of the nondisplayable character in the
first line?  What graphic did the programmer intend to appear there?
What code page was the programmer's terminal using?  What code
page was Rexx using?  Was the program coded on a workstation, with
the hazard of transmission errors?

-- gil

--
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: REXX error

2008-10-07 Thread Claudio Marcio 

post of the initial lines

  ** * Top of Data 
**

==MSG> -Warning- The UNDO command is not available until you change
==MSG>   your edit profile using the command RECOVERY ON.
000710 /* REXX para mostrar o dia da semana que cai o natal. */
000720 /*/
000730 /* time to do some programming */
000740 /* Say 'Ok Christmas day falls on a  day in 'year' ?'*/
000750 say 'Este programa informa em que dia da semana foi ou sera o Natal
000800 em determinado ano, que ano quer saber ?'
000900 pull year

regards



- Original Message - 
From: "Hardee, Charles H" <[EMAIL PROTECTED]>

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Tuesday, October 07, 2008 12:48 PM
Subject: Re: REXX error



Can you post the first 5 or 6 lines in a fixed pitch font like Courier?

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

REXX error

2008-10-06 Thread Claudio Marcio 

when I run my exec REXX the error appears:
1 +++ ?
IRX0013I Error running BRAS, line 1: Invalid character in program

what is this??

regards


- Original Message - 
From: "Itschak Mugzach" <[EMAIL PROTECTED]>

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Sunday, October 05, 2008 8:59 AM
Subject: Re: REXX question


Lizatte,

I don't think TSO-REXX is active any more...

Itschak

On Sat, Oct 4, 2008 at 4:23 PM, Lizette Koehler 
<[EMAIL PROTECTED]>wrote:



Rexx is case sensitive.

Use  PARSE Pull UPPER Answer

Then it will always be upper case and a test for Upper Case letters/words
will work.

Lizette

PS.  You may wish to join the TSO-REXX newsgroup.

For TSO-REXX subscribe / signoff / archive access instructions, send email
to [EMAIL PROTECTED] with the message: INFO TSO-REXX


> hi
>
> I make this:
> do until answer = N'
>  instructions
> say 'Do you want to exit? (s/n)'
> pull answer
> if answer = 'S' then exit
> end
>
> I type s, but not exit of the do until?? Why?? this is a case
> sensitive??
>
> It´s correct??
>
>
>
> more a question:
> how i do to treat for error:
>  10 +++  dec25 = date("B",year"1225","S")//7
>  IRX0040I Error running CHRISTMA, line 10: Incorrect call to routine
>
> the error ocorred when typed less four digits to year??
> ex: year with tree or two or one digits
>  200 or 20 or 2.
>
> regards
>
>
>

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

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

Re: REXX question

2008-10-04 Thread Claudio Marcio 

Hi,
we brought it about to solve the problem!!!

correct syntax of the command, in this case, is:

do until answer \= "N" - ( For example, here we repeat the loop until the 
variable answer does not have the value "NO")

instructions
instructions
say 'Do you want to exit? (s/n)'
pull answer
end

it workedthanks to all !!!


more question,
when typed less four digits to the year or a charecter alfa, occurs the 
error:

IRX0040I Error running Incorrect call to routine
how can consist the field of the year typed?

regards


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

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Saturday, October 04, 2008 10:05 PM
Subject: Res: REXX question


The code below worked fine for me.


/* rexx */
op =

Hi

The code below worked fine for me.


/* rexx */
op = ''

DO WHILE op \= 'E'
 SAY ''
 SAY 'Enter a text or "e" to exit.'
 PARSE UPPER PULL op
 SAY 'The text is "'op'".'
END
SAY 'You selected the exit option.'
EXIT



Regards,

Alexandre




- Mensagem original 
De: Jürgen Kehr <[EMAIL PROTECTED]>
Para: IBM-MAIN@BAMA.UA.EDU
Enviadas: Sábado, 4 de Outubro de 2008 14:11:23
Assunto: Re: REXX question

Hi,

I looked up the TSO REXX reference, it says:

PULL reads a string from the head of the external data queue. It is just
a short form of the instruction:  PARSE UPPER PULL template_list ;

if you do not need the uppercase translation you should code "parse pull".

Lizette Koehler schrieb:

I looked up the PARSE command in the TSO REXX commands manual.  It states

If you specify the UPPER option, the data to be parsed is first translated
to uppercase (that is, lowercase a–z to uppercase A–Z). Otherwise, no
uppercase translation takes place during the parsing.

I did have my syntax backward.  It should have read

PARSE UPPER PULL answer


Lizette



Hello,

AFAIK pull is the short form for parse upper pull,  so it shouldn't
make  any difference to your version. What makes me nervous instead is
the single quote in the do until clause ... : N'

Lizette Koehler schrieb:


Rexx is case sensitive.

Use  PARSE Pull UPPER Answer

Then it will always be upper case and a test for Upper Case


letters/words


will work.

Lizette

PS.  You may wish to join the TSO-REXX newsgroup.

For TSO-REXX subscribe / signoff / archive access instructions, send


email


to [EMAIL PROTECTED] with the message: INFO TSO-REXX





hi

I make this:
do until answer = N'
 instructions
say 'Do you want to exit? (s/n)'
pull answer
if answer = 'S' then exit
end

I type s, but not exit of the do until?? Why?? this is a case
sensitive??

It´s correct??



more a question:
how i do to treat for error:
 10 +++  dec25 = date("B",year"1225","S")//7
 IRX0040I Error running CHRISTMA, line 10: Incorrect call to routine

the error ocorred when typed less four digits to year??
ex: year with tree or two or one digits
 200 or 20 or 2.

regards






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


 Novos endereços, o Yahoo! que você conhece. Crie um email novo com a 
sua cara @ymail.com ou @rocketmail.com.

http://br.new.mail.yahoo.com/addresses

--
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: REXX question

2008-10-03 Thread Claudio Marcio 

hi

I make this:
do until answer = N'
instructions
   say 'Do you want to exit? (s/n)'
   pull answer
   if answer = 'S' then exit
end

I type s, but not exit of the do until?? Why?? this is a case sensitive??

It´s correct??



more a question:
how i do to treat for error:
10 +++  dec25 = date("B",year"1225","S")//7
IRX0040I Error running CHRISTMA, line 10: Incorrect call to routine

the error ocorred when typed less four digits to year??
ex: year with tree or two or one digits
200 or 20 or 2.

regards




- Original Message - 
From: "P S" <[EMAIL PROTECTED]>

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Friday, October 03, 2008 10:30 PM
Subject: Re: REXX question



This would work:
==
do until answer = N'
   say 'Do you want to exit? (s/n)'
   pull answer
   if answer = 'S' then exit
end
==

It could be made a lot more elegant, of course.

On Fri, Oct 3, 2008 at 9:20 PM, Claudio Marcio <[EMAIL PROTECTED]> wrote:

Hi,

How make to receive one string in rexx language??

Ex.   say ' you want exit (s/n)?'

pull ??
arg ?? parse ??

if  (string??) = 's'
  return to begin exec
else
  exit

I want ready the string with which command?

regards

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



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

REXX question

2008-10-03 Thread Claudio Marcio 

Hi,

How make to receive one string in rexx language??

Ex.   say ' you want exit (s/n)?'

pull ??
arg ?? 
parse ??


if  (string??) = 's'
   return to begin exec
else
   exit

I want ready the string with which command?

regards

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

2008-09-25 Thread Claudio Marcio 

I had managed to find the error ... see ..

 Description

 RSN_GCRE +

 HFS_RSN_Access_Denied (X'0002')


RSN_GCRE_Access_Denied

The current (requesting) process does not have the requested access 
authority to the file, or directory.


Cause: A higher access authority is being requested for this file, or 
directory, than is defined for this user.


Action: Verify that the correct access authority is being requested. If so, 
contact the file, or directory,

owner and request that the access authority be changed


strange .. I even wrote this dataset and I can not change it?

I have some other alternative?

regards


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

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Thursday, September 25, 2008 6:45 PM
Subject: Re: Data conversion EBCDIC to ASCII - correction



Claudio Marcio wrote:

After type the oput command see the message below :

IGD103I SMS ALLOCATED TO DDNAME SYS00107
BPXF105E RETURN CODE 006F, REASON CODE 5B450002.  AN ERROR OCCURRED 
DURING

THE OPENING OF HFS FILE /DATA1.
***
... not be open the file why???

regards,


The error indicates you are not authorized to create a file
in that directory. You really need to talk to your systems
and / or security people to set you up with an omvs segment
that has your own directory, usually of the form /u/userid
where 'userid' is your tso id in lower case. They will need
to allocate an HFS file for you and mount it at your /u/userid
mountpoint.


/ 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: Data conversion EBCDIC to ASCII - correction

2008-09-25 Thread Claudio Marcio 

After type the oput command see the message below :

IGD103I SMS ALLOCATED TO DDNAME SYS00107
BPXF105E RETURN CODE 006F, REASON CODE 5B450002.  AN ERROR OCCURRED 
DURING

THE OPENING OF HFS FILE /DATA1.
***
... not be open the file why???

regards,


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

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Thursday, September 25, 2008 11:45 AM
Subject: Re: Data conversion EBCDIC to ASCII - correction



Steve Comstock wrote:

[Whoops! fixed a typo in the oget command below. sorry.]



OK. So your home is root. Not a good idea, but I'm finding
it to be pretty common.

Knowing that, then here's the series of commands I recommend
you issue, starting at ISPF 6:


  ==> oput 'BRASIL.ZOS.CONTEST.JCL(DATA1)' '/data1' binary

  ==> omvs(you are put into UNIX)

  ==> iconv -f ibm-1047 -t iso8859-1 data1 data2
  ==> exit  (you leave UNIX, return to ISPF 6)

  ==> oget '/data2' 'BRASIL.ZOS.CONTEST.JCL(DATA1)' binary

done.




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 in four<==
==> programming languages, JCL to Assemble or compile, <==
==> bind and test. <==
==>   http://www.trainersfriend.com/TTFStore/index.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



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

REXX EXEC

2008-09-23 Thread Claudio Marcio 

Hi,

I need make one REXX exec to enter with one year the return the day 
christmas of  week.

ex:  year  1978
 day of th week - monday

 year 2000
 day of the week - saturday

 how meke in REXX language?

regards


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

Newsgroups: bit.listserv.ibm-main
To: 
Sent: Monday, September 22, 2008 7:00 PM
Subject: Re: Calling Assembler module from REXX



On Mon, 22 Sep 2008 16:38:38 -0500, Dave Day wrote:


Suggestions:

1)make the assembler routine re-entrant.  Successive LOADS will up the use
count, but not actually bring in a new module.

2)pass the called routine a parm that says this is a successive call, not
the 1st.

3)if you can't do #2 above, take a look at NAME/TOKEN services.

4)if you can't do #3 above, create another load module that is not
re-entrant.  Just a csect that is all 0's.  Have the 1st routine search 
the
CDE chain for the non re-entrant one.  Set indicators in the non 
re-entrant

dummy 0's load module that tells the other one what the status of things
are.


All good ideas.  For a variant of #2 with some influence from #4,
let the Rexx routine supply the working storage for the called
routine, initialized before the first call.  See the use of
"ChainingVector" in SYS1.SAMPLIB(CSFTEST) for an example of the
Rexx side of this technique.

But none of these deal with the deficiency that Rexx LINKPGM/ATTCHPGM
will LOAD and DELETE even a REFReshable load module for each
invocation.  This causes unwelcome overhead for large numbers
of invocations.  So, perhaps:

5) Put the routine in LPA if permitted.

Would there perhaps be Rexx interfaces to LOAD and DELETE
on CBTTAPE (or similar) so the routine could be LOADed and
DELETed only once?

Would TSO-REXX supply better advice?

-- gil

--
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: Data conversion EBCDIC to ASCII

2008-09-23 Thread Claudio Marcio 

Hi,

This is my dataset
Data Set Name . . . . : BRASIL.ZOS.CONTEST.JCL

General Data   Current Allocation
Management class . . : USRMGMT Allocated tracks  . : 2
Storage class  . . . : USRBASE Allocated extents . : 1
 Volume serial . . . : DMTU08
 Device type . . . . : 3390
Data class . . . . . : **None**   Current Utilization
 Organization  . . . : PO  Used tracks . . . . : 2
 Record format . . . : FB  Used extents  . . . : 1
 Record length . . . : 80
 Block size  . . . . : 27920
 1st extent tracks . : 2
 Secondary tracks  . : 1
 Data set name type  : PDS   NO

 Creation date . . . : 2008/09/16  Referenced date . . : 2008/09/24
 Expiration date . . : ***None***
-

This is the member of my dataset with EBCDIC code:

VIEW  BRASIL.ZOS.CONTEST.JCL   Row 1 of 
3
Command ===>  Scroll ===> 
PAGE
   Name Prompt   Size   Created  Changed 
ID
_ DATA 13  2008/07/24  2008/09/20 00:07:49 
BRASIL

   **End**
-
Questions about oput command:

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

in 'x..zzz(member) -> I type   'BRASIL.ZOS.CONTEST.JCL(DATA1)'  ???
in '/u/yourid/member' binary -> I type   '/u/BRASIL/DATA1' binary ??

-

Look when typed the omvs command, and then the pwd command to see my id.
Appeared in the information below:

IBM
Licensed Material - Property of IBM
5694-A01 (C) Copyright IBM Corp. 1993, 2004
(C) Copyright Mortice Kern Systems, Inc., 1985, 1996.
(C) Copyright Software Development Group, University of Waterloo, 1989.

All Rights Reserved.

U.S. Government users - RESTRICTED RIGHTS - Use, Duplication, or
Disclosure restricted by GSA-ADP schedule contract with IBM Corp.

IBM is a registered trademark of the IBM Corp.

BRASIL:/: >pwd
/
BRASIL:/: >

regards




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

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



Claudio Marcio wrote:

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


yes, all of these commands are issued from ISPF option 6

When you enter the omvs command, you are placed into UNIX; the
next two commands are actually issued while you are in UNIX.

So, go to ISPF 6 and enter the first two commands (oput and omvs)

when you are in UNIX, issue

   ==> pwd

this will display your current directory. if it is /u/ followed
by your tso id in lower case, then you are good.

It may be you are not set up to run under UNIX, however; if not
you need to have your systems programmer add an omvs segment
to your security profile (RACF, ACF2, Top Secret, any other).
This is where you specify the home directory (and some other
attributues). If you are not set up to run under UNIX, the omvs
command will fail.

the exit command leaves UNIX and returns to yout ISPF 6 command
line to enter the oget command. I have tested this series of
commands, and it does what you want, assuming the various parts
for you running under UNIX are in place.


As far as knowing what code page is used for a file, there
really is no magic way. The default code page for z/OS is
ibm-037, the default code page for the unix shell is ibm-1047.
But these can be changed by systems people. In most cases,
the various EBCDIC code pages are the same; it's only some
special characters and some language-specific characters
that have varying code points. If your member only contains
English alphabetic characters, numeric digits, and a few
special characters, almost any of the EBCDIC code pages
will work in the iconv command.

The page http://www.tachyonsoft.com/cpindex.htm contains a
list of ibm code pages; I notice that 1bm-037 (the first in
the list) includes Brazil; but so also does ibm-275. You
could bring both pages up in separate browser windows and
compare these; for points where characters are different,
look at your data to see if any of those characters are
different. Kinda' tedious, but doable. As an alternative

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 IB

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

Data conversion EBCDIC to ASCII

2008-09-19 Thread Claudio Marcio 

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