Mainframe File Compression Product - ZIP/390 - From Data21
Leonard Sasso
From Data21?
Thank You.
Len Sasso
. . . . . . . .
Computer Sciences Corporation (CSC)
ITIS (IT Infrastructure Solutions)
Managed Computing Services (MCS)
Integration - System Administrator Associate Professional
eMedNY - 1 CSC Way - Rensselaer, NY 12144
(518) 257-4209 Fax (518) 257-4300 Cel (518) 894-0879
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
This is a PRIVATE message. If you are not the intended recipient, please
delete without copying and kindly advise us by e-mail of the mistake in
delivery. NOTE: Regardless of content, this e-mail shall not operate to
bind CSC to any order or other contract unless pursuant to explicit written
agreement or government initiative expressly permitting the use of e-mail
for such purpose.
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX
Harrington, Mark
Thank You.
Len Sasso
------------------------------------------------------------------------
------------------------------------------------------------------------
--------------------------------
----------------------------------------------------------
IMPORTANT WARNING: This email (and any attachments) is only intended for the use of the person or entity to which it is addressed, and may contain information that is privileged and confidential. You, the recipient, are obligated to maintain it in a safe, secure and confidential manner. Unauthorized redisclosure or failure to maintain confidentiality may subject you to federal and state penalties. If you are not the recipient, please immediately notify us by return email, and delete this message from your computer.
Lizette Koehler
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to list...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the
archives at http://bama.ua.edu/archives/ibm-main.html
Lizette
>
> Anyone experienced with the Mainframe File Compression Product - ZIP/390 -
> From Data21?
>
>
>
> Thank You.
>
> Len Sasso
>
----------------------------------------------------------------------
Gaur
> Try asking the IBM Main Newsgroup
>
> For IBM-MAIN subscribe / signoff / archive access instructions, send email
> archives athttp://bama.ua.edu/archives/ibm-main.html
>
> Lizette
>
>
>
> > Anyone experienced with the Mainframe File Compression Product - ZIP/390 -
> > From Data21?
>
> > Thank You.
>
> > Len Sasso
>
> ----------------------------------------------------------------------
> For TSO-REXX subscribe / signoff / archive access instructions,
Hi Len,
Yes in CSC itself we have been using it on one of our Account...
We have replaced this product from the PKZIP...ZIP/390 ..
Thanks and regard
Ravi Kumar
CSC India
Antonio Santoro
Non mastico molto bene l'inglese,
o meglio lo capisco leggendo, ma ho difficoltà a scriverlo.
Non è bello, lo so... ma non so cos'altro fare.
Vorrei postare un messaggio a questa lista.
Da mesi sto cercando di scriverlo in inglese senza riuscirci.
Scrivetemi in privato.
grazie
Antonio Santoro
e-mail: Antonio...@capitaliainformatica.it
Lizette Koehler
Here you can type Italian and it will translate to English. It will not be
perfect, but we will probably understand. You make have issues with terms
(dasd, jcl) but put those in quotes. It may help.
For example:
My English line:
i would like to post to this newsgroup but my english is not good. can
anyone tell me about dasd?
My translated Italian line:
Amerei affiggere a questo newsgroup ma i miei inglesi non è buono. Nessuno
può dirme del dasd?
Hopefully the translation from English to Italian is okay.
Lizette
> -----Original Message-----
> From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf
Lindy Mayfield
I'll try to help him.
-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf Of Lizette Koehler
Sent: 7. elokuuta 2007 16:17
To: TSO-...@VM.MARIST.EDU
Subject: Re: [TSO-REXX] [Off-Topics] Sorry... I'm lookin for someone that speak Italian
Antonio, there is a website www.freetranslation.com
Here you can type Italian and it will translate to English. It will not be
perfect, but we will probably understand. You make have issues with terms
(dasd, jcl) but put those in quotes. It may help.
For example:
My English line:
i would like to post to this newsgroup but my english is not good. can
anyone tell me about dasd?
My translated Italian line:
Amerei affiggere a questo newsgroup ma i miei inglesi non č buono. Nessuno
puņ dirme del dasd?
Hopefully the translation from English to Italian is okay.
Lizette
----------------------------------------------------------------------
Hamilton, Robert L
Direct Access Storage Device
bobh
-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf Of Lindy Mayfield
Sent: Tuesday, August 07, 2007 11:28 AM
To: TSO-...@VM.MARIST.EDU
Subject: Re: [Off-Topics] Sorry... I'm lookin for someone that speak Italian
Go easy, he's probably from the south. (-:
I'll try to help him.
-----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf Of Lizette Koehler
Sent: 7. elokuuta 2007 16:17
To: TSO-...@VM.MARIST.EDU
Subject: Re: [TSO-REXX] [Off-Topics] Sorry... I'm lookin for someone that speak Italian
Antonio, there is a website www.freetranslation.com
Here you can type Italian and it will translate to English. It will not be
perfect, but we will probably understand. You make have issues with terms
(dasd, jcl) but put those in quotes. It may help.
For example:
My English line:
i would like to post to this newsgroup but my english is not good. can
anyone tell me about dasd?
My translated Italian line:
Amerei affiggere a questo newsgroup ma i miei inglesi non č buono. Nessuno
puň dirme del dasd?
Lizette Koehler
I was just providing an example of how the www.freetranslation.com works. Not that he wanted to know about DASD.
Lizette
>Amerei affiggere a questo newsgroup ma i miei inglesi non è buono. Nessuno
>può dirme del dasd?
Lindy Mayfield
I created a Rexx macro to move a member and everything related to it from one library to another making the correct modifications.
This is what happens:
- I'm editing the member that I'm interested in and I run the macro.
- The macro starts reading the member and evaluates every instruction [line?].
- If the macro finds a "particular" name it runs another edit session with the related macro.
This is the code that is involved:
IF INDEX(SKPRO, "GPG") <> 0 THEN DO
ADDRESS ISPEXEC,
"EDIT DATAID("MPRPDS") MEMBER("SKPRO") MACRO(MGPGDKPR)"
END
In turn the macro that was run (in this case MGPGDKPR) makes the same thing, obviously on the member that it has in line.
I realized, then, I had created a process that recursively moves and changes every element of both the base program [which program?] and everything that relates to it.
The macro works and does what it is supposed to do.
The problem comes up when I want to use the new member, so that the moment I edit it, it tells me it is in use.
I use this code in the Rexx macro:
ADDRESS ISPEXEC "LMMLIST DATAID("MPRPDS") OPTION(FREE)"
ADDRESS ISPEXEC "LMCLOSE DATAID("MPRPDS")"
I have to exit and enter again in TSO to continue.
I hope I explained things clearly. For sure it is something easy. Any ideas what it could be?
Grazie,
Antonio Santoro
A larger snippet of the Rexx code:
/* REXX */
/* TRACE ALL */
ADDRESS ISREDIT
"MACRO"
"(OPENMBR) = MEMBER"
"(OPENDST) = DATASET"
MLIPR = "B990172.USRLIB.BDS.SKLANCIO"
NEWMBR = "I"!!SUBSTR(OPENMBR, 2)
JDB2 = 2
STAT = MSG('OFF')
"RES"
"(FINEFILE)=LINENUM .ZLAST"
PARSE VAR OPENDST PA "SKLANCIO" .
PROPDS = PA!!"PROCLIB"
ADDRESS ISPEXEC "LMINIT DATAID("MPRPDS") DATASET("PROPDS")"
ADDRESS ISPEXEC "LMOPEN DATAID("MPRPDS") OPTION(INPUT)"
SINPDS = PA!!"SYSINLIB"
ADDRESS ISPEXEC "LMINIT DATAID("MSYPDS") DATASET("SINPDS")"
ADDRESS ISPEXEC "LMOPEN DATAID("MSYPDS") OPTION(INPUT)"
DO NRIGA=1 BY 1 WHILE NRIGA<=FINEFILE
'(RIGA)=LINE' NRIGA
IF SUBSTR(RIGA, 1, 3)=="//*" THEN ITERATE
IF SUBSTR(RIGA, 1, 2)=="/*" THEN ITERATE
IF INDEX(RIGA, "DB21=") <> 0 THEN JDB2 = 1
IF INDEX(RIGA, "EXEC DDB2LO1") <> 0 THEN JDB2 = 1
IF INDEX(RIGA, "EXEC PROC=") <> 0 THEN DO
PARSE VAR RIGA A "EXEC PROC=" SKPRO "," B
IF INDEX(SKPRO, "GPG") <> 0 THEN DO
ADDRESS ISPEXEC,
"EDIT DATAID("MPRPDS") MEMBER("SKPRO") MACRO(MGPGDIPR)"
END
IF SKPRO == "DDB2IM" THEN JDB2 = 1
END
IF INDEX(RIGA, "LSYSIN=") <> 0 THEN DO
IF INDEX(RIGA, "GPG") <> 0 THEN DO
PARSE VAR RIGA A "LSYSIN=&PT." SYSIN "," B
ADDRESS ISPEXEC,
"EDIT DATAID("MSYPDS") MEMBER(D"SYSIN") MACRO(MGPGDISY)"
END
END
END
ADDRESS ISPEXEC "LMMLIST DATAID("MPRPDS") OPTION(FREE)"
ADDRESS ISPEXEC "LMCLOSE DATAID("MPRPDS")"
ADDRESS ISPEXEC "LMMLIST DATAID("MSYPDS") OPTION(FREE)"
ADDRESS ISPEXEC "LMCLOSE DATAID("MSYPDS")"
"C DGP IGP ALL"
"C LSYSIN=IGP LSYSIN=DGP ALL"
"C DB=IGP DB=DGP ALL"
"C '%OPC TABLE NAME=(AMBDBPO)' '%OPC TABLE NAME=(AMBQBDS)'"
"C DOP00 IOP00 ALL"
"C DDB2 IDB2 ALL"
ADDRESS TSO "DELETE '"MLIPR"("NEWMBR")'"
"CREATE .ZFIRST .ZLAST '"MLIPR"("NEWMBR")'"
"CAN"
RETURN
- -----Original Message-----
From: TSO REXX Discussion List [mailto:TSO-...@VM.MARIST.EDU] On Behalf Of Antonio Santoro
Sent: 7. elokuuta 2007 14:13
To: TSO-...@VM.MARIST.EDU
Subject: [TSO-REXX] [Off-Topics] Sorry... I'm lookin for someone that speak Italian
Per favore cerco un italiano o qualcuno che conosce l'italiano.
Non mastico molto bene l'inglese,
o meglio lo capisco leggendo, ma ho difficoltà a scriverlo.
Non è bello, lo so... ma non so cos'altro fare.
Vorrei postare un messaggio a questa lista.
Da mesi sto cercando di scriverlo in inglese senza riuscirci.
Scrivetemi in privato.
grazie
Antonio Santoro
----------------------------------------------------------------------
Jeremy Nicoll - lstsrvs
> [[ This is an attempt to translate for Antonio. It wasn't easy. And
before anyone says "ISPF list", I know. ]]
>
> I use this code in the Rexx macro:
>
> ADDRESS ISPEXEC "LMMLIST DATAID("MPRPDS") OPTION(FREE)"
> ADDRESS ISPEXEC "LMCLOSE DATAID("MPRPDS")"
Maybe all the code isn't here, but, if I remember correctly, the opposite of
LMINIT & LMOPEN is LMFREE and LMCLOSE, not LMMLIST OPTION(FREE) & LMCLOSE.
But it's hard to tell precisely what's being done here; the description
talks about "moving" members, but there's no code showing how that's done.
The original questioner really needs to give an example of a typical input
member and tell us what the code then does based on that.
Also in the description: "The problem comes up when I want to use the
new member, so that the moment I edit it, it tells me it is in use."
By "the new member" does he mean any of the newly created members, or just
one of them? Is the problem while he is still editing the original member
or when there's an edit session he's recursively called still active on
(perhaps?) a newly created target member?
I wonder if the problem might be that ispf edit is being used to create new
members based on old ones, whereas it might be rather simpler for his dialog
(or macro) to build sysin for an iebcopy or whatever and then have that run,
perhaps as a batch job.
--
Jeremy C B Nicoll - my opinions are my own.