ibm-netrexx

Help Needed -

Classic

List

Threaded

25 messages Options

measel

JLabel - Setting the text

Hi Thomas, I've been using swing. This was left out of the example:
import javax.swing.

There are lots of examples in java and once you get one working it's
easy.

-----Original Message-----
From: [hidden email]
[mailto:[hidden email]] On Behalf Of Thomas
Schneider
Sent: Wednesday, January 20, 2010 8:00 AM
To: IBM Netrexx
Subject: Re: [Ibm-netrexx] JLabel - Setting the text

Hello Mike Measel,
first of all may thanks for your explanation what I will have to do to
get my software
running on an IBM zOS system. And all the URL's you gave.
I will work on this in February ...

Second, I have been *not* on the group IBM-netRexx for the past two
years. For unknown
reson, I have been thrown out, but now I am there again.

My Question:

I would like to BUILD a GUI interface to my packages www.db-123.com
and www.Rexx2Nrx.com.

Where do I have to start reading how to use SCRRENS in Java ?
Should I use SWING, or what would you there, with your insight,
recommend
nowadays.

My intent is to build a GUI interface bot for Rexx2Nrx and DB-123.

What would you recommend?

And what I would have to GOOGLE to get at the proper URL?

Please note, that I am working alone (at home) and do have no chance
to ask any collegues (except the groups where I am a member of).

Your advise will be appreciated...
Thanks in advance,
Tom.
=====================================================
Measel, Mike schrieb:

>
> An example ( parts missing indicated with "..." )
>
> class journalMarkers extends JFrame implements TableModelListener,
> ActionListener
>
> topPanel = JPanel
>
> crumbTable = JTable
>
> scrollPane = JScrollPane
>
> quitItem = JMenuItem('Exit')
>
> newMarkerItem = JMenuItem('New Marker')
>
> ...
>
> ....
>
> method main( args = String[]) static public
>
> journalMarkers()
>
> method journalMarkers() signals Exception, FileNotFoundException,
> IOException
>
> quitItem.setMnemonic('x')
>
> quitItem.setAccelerator(KeyStroke.getKeyStroke("alt X"))
>
> quitItem.addActionListener(this)
>
> newMarkerItem.addActionListener(this)
>
> menuBar = JMenuBar()
>
> fileMenu = JMenu('File')
>
> fileMenu.setMnemonic('F')
>
> menuBar.add(fileMenu)
>
> fileMenu.add(newMarkerItem)
>
> fileMenu.add(quitItem)
>
> this.setJmenuBar(menuBar)
>
> this.setTitle("Journal entries")
>
> this.setSize(1000,300)
>
> this.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE)
>
> c = this.getContentPane()
>
> c.setLayout(BorderLayout())
>
> topPanel = JPanel()
>
> topPanel.setSize(490, 290)
>
> bl = BorderLayout()
>
> topPanel.setLayout(bl)
>
> topPanel.setBackground(Color.green)
>
> c.add(topPanel)
>
> ....
>
> ....
>
> btnSelect = Button("Select");
>
> btnSelect.addActionListener(this)
>
> ...
>
> colnames = String[7]
>
> colnames[0] = 'Name'
>
> colnames[1] = 'Date/Time'
>
> colnames[2] = 'Hosts'
>
> colnames[3] = 'Process'
>
> colnames[4] = 'Agents'
>
> colnames[5] = 'Metrics'
>
> colnames[6] = 'Duration (min)'
>
> aobj = Object[20,7]
>
> n = 0
>
> loop aname over timeSlots
>
> ....
>
> ....
>
> crumbTable = JTable(aobj, colnames)
>
> crumbTable.getModel().addTableModelListener(this)
>
> crumbCM = crumbTable.getColumnModel()
>
> crumbCM.getColumn(0).setPreferredWidth(170)
>
> crumbCM.getColumn(1).setPreferredWidth(210)
>
> ...
>
> scrollPane = JScrollPane(crumbTable)
>
> topPanel.add(scrollPane, BorderLayout.CENTER)
>
> topPanel.add(btnSelect, BorderLayout.SOUTH)
>
> setVisible(1)
>
> .....
>
> ...
>
> method actionPerformed(ae = ActionEvent)
>
> select
>
> when ae.getSource() == quitItem then
>
> System.exit(0)
>
> when ae.getSource() == newMarkerItem then
>
> crumbyApplet()
>
> otherwise
>
> do
>
>

------------------------------------------------------------------------
>
> _______________________________________________
> Ibm-netrexx mailing list
> [hidden email]
>
>

_______________________________________________
Ibm-netrexx mailing list
[hidden email]

Thomas.Schneider.Wien

The recommendes GUI interface for Rexx2Nrx & DB-123

Hello Mike Measel, and all others, again....

I did *never* use any GUI interface in Java. I'm fluent in IBM CICS, and
IBM IMS/DC, BUT:

Long time, ago, Rene Vincent Jansen in the Netherlands recommended I
should use Java CURSES.

But i *did never avtively* tried it ...

What I would like to do is to implement a (very small) GUI interface for
www.db-123.com and
www.Rexx2Nrx.com.

For SURE, I am *no* expert on this....

Hence,

(while seeing all those messages on ibm-netRexx, again which are *really
helpful for me*)

I do NEED your advise, how I could/should implement a GUI interface to
Rexx2Nrx/DB-123
which *has to have* the following properties:

1.) It run's on Windows XP (my machine)
2.) It runs's on any UNIX System
3.) It run's on IBM's mainframe, namely zOS.

Any recommendations will be welcome!

Kind regards from dark Vienna, Austra,

Thomas Schneider
========================================================================
Measel, Mike schrieb:

> Hi Thomas, I've been using swing. This was left out of the example:
> import javax.swing.
>
> There are lots of examples in java and once you get one working it's
> easy.
>
> -----Original Message-----
> From: [hidden email]
> [mailto:[hidden email]] On Behalf Of Thomas
> Schneider
> Sent: Wednesday, January 20, 2010 8:00 AM
> To: IBM Netrexx
> Subject: Re: [Ibm-netrexx] JLabel - Setting the text
>
> Hello Mike Measel,
> first of all may thanks for your explanation what I will have to do to
> get my software
> running on an IBM zOS system. And all the URL's you gave.
> I will work on this in February ...
>
> Second, I have been *not* on the group IBM-netRexx for the past two
> years. For unknown
> reson, I have been thrown out, but now I am there again.
>
> My Question:
>
> I would like to BUILD a GUI interface to my packages www.db-123.com
> and www.Rexx2Nrx.com.
>
> Where do I have to start reading how to use SCRRENS in Java ?
> Should I use SWING, or what would you there, with your insight,
> recommend
> nowadays.
>
> My intent is to build a GUI interface bot for Rexx2Nrx and DB-123.
>
> What would you recommend?
>
> And what I would have to GOOGLE to get at the proper URL?
>
> Please note, that I am working alone (at home) and do have no chance
> to ask any collegues (except the groups where I am a member of).
>
> Your advise will be appreciated...
> Thanks in advance,
> Tom.
> =====================================================
> Measel, Mike schrieb:
>
>> An example ( parts missing indicated with "..." )
>>
>> class journalMarkers extends JFrame implements TableModelListener,
>> ActionListener
>>
>> topPanel = JPanel
>>
>> crumbTable = JTable
>>
>> scrollPane = JScrollPane
>>
>> quitItem = JMenuItem('Exit')
>>
>> newMarkerItem = JMenuItem('New Marker')
>>
>> ...
>>
>> ....
>>
>> method main( args = String[]) static public
>>
>> journalMarkers()
>>
>> method journalMarkers() signals Exception, FileNotFoundException,
>> IOException
>>
>> quitItem.setMnemonic('x')
>>
>> quitItem.setAccelerator(KeyStroke.getKeyStroke("alt X"))
>>
>> quitItem.addActionListener(this)
>>
>> newMarkerItem.addActionListener(this)
>>
>> menuBar = JMenuBar()
>>
>> fileMenu = JMenu('File')
>>
>> fileMenu.setMnemonic('F')
>>
>> menuBar.add(fileMenu)
>>
>> fileMenu.add(newMarkerItem)
>>
>> fileMenu.add(quitItem)
>>
>> this.setJmenuBar(menuBar)
>>
>> this.setTitle("Journal entries")
>>
>> this.setSize(1000,300)
>>
>> this.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE)
>>
>> c = this.getContentPane()
>>
>> c.setLayout(BorderLayout())
>>
>> topPanel = JPanel()
>>
>> topPanel.setSize(490, 290)
>>
>> bl = BorderLayout()
>>
>> topPanel.setLayout(bl)
>>
>> topPanel.setBackground(Color.green)
>>
>> c.add(topPanel)
>>
>> ....
>>
>> ....
>>
>> btnSelect = Button("Select");
>>
>> btnSelect.addActionListener(this)
>>
>> ...
>>
>> colnames = String[7]
>>
>> colnames[0] = 'Name'
>>
>> colnames[1] = 'Date/Time'
>>
>> colnames[2] = 'Hosts'
>>
>> colnames[3] = 'Process'
>>
>> colnames[4] = 'Agents'
>>
>> colnames[5] = 'Metrics'
>>
>> colnames[6] = 'Duration (min)'
>>
>> aobj = Object[20,7]
>>
>> n = 0
>>
>> loop aname over timeSlots
>>
>> ....
>>
>> ....
>>
>> crumbTable = JTable(aobj, colnames)
>>
>> crumbTable.getModel().addTableModelListener(this)
>>
>> crumbCM = crumbTable.getColumnModel()
>>
>> crumbCM.getColumn(0).setPreferredWidth(170)
>>
>> crumbCM.getColumn(1).setPreferredWidth(210)
>>
>> ...
>>
>> scrollPane = JScrollPane(crumbTable)
>>
>> topPanel.add(scrollPane, BorderLayout.CENTER)
>>
>> topPanel.add(btnSelect, BorderLayout.SOUTH)
>>
>> setVisible(1)
>>
>> .....
>>
>> ...
>>
>> method actionPerformed(ae = ActionEvent)
>>
>> select
>>
>> when ae.getSource() == quitItem then
>>
>> System.exit(0)
>>
>> when ae.getSource() == newMarkerItem then
>>
>> crumbyApplet()
>>
>> otherwise
>>
>> do
>>
>>
>>
> ------------------------------------------------------------------------
>
>> _______________________________________________
>> Ibm-netrexx mailing list
>> [hidden email]
>>
>>
>>
>
> _______________________________________________
> Ibm-netrexx mailing list
> [hidden email]
>
>
>
> _______________________________________________
> Ibm-netrexx mailing list
> [hidden email]
>
>
>

Tom. (ths@db-123.com)

Thomas.Schneider.Wien

JLabel - Setting the text

In reply to this post by measel

Hello Mike Measel,
are you working at *Computer Associates* (CA) ??

When yes, I would like to send you a private mail about my DB-123 product!

Please *do send me a private mail* to [hidden email] when interested!

Thanks in advance,
Tom.
===========================================================
Measel, Mike schrieb:

Tom. (ths@db-123.com)

britten /Quique Britto (SPAIN VAL Export Mngr AMX)

JLabel - Setting the text

In reply to this post by Kermit Kiser

solved.
using parent.sb.setText( i )

thks

________________________________

De: [hidden email] [mailto:[hidden email]] En nombre de Kermit Kiser
Enviado el: mi?rcoles, 20 de enero de 2010 5:11
Para: IBM Netrexx
Asunto: Re: [Ibm-netrexx] JLabel - Setting the text

There are no File or JTextField objects in this code. I don't think that error is directly caused by this part. How is sb created?

Quique Britto wrote:

no, it does not work.
error: the method "setText(java.io.file)" cannot be found in class "javax.swing.JTextField" or superclass

everytime sb is not declared in this class i receive the same msg.

2010/1/19 Kermit Kiser <[hidden email]>

I think

parent.sb.setText( i )

would do it.

-- Kermit

Quique Britto wrote:

ok that makes sense, so I remove the contructor fm this class, how do I access the jlabel in the parent class which has been declared as "sb".

2010/1/19 Kermit Kiser <[hidden email]>

This code creates a NEW JLabel (constructor is called) and assigns it to the sb variable. This new JLabel is not added to any display window, at least in this code. The JLabel you previously assigned to sb is unchanged and is no longer assigned to sb but is still in any window it was added to prior to this code.

britten /Quique Britto (SPAIN VAL Export Mngr AMX) wrote:

the jlabel already exists and is displayed in the parent class, I just need to update it's text fm within the Class below.

Cosco Iberia, S.A.
Export Trade Manager
Quique Britto
Tel.: 96-3939103
Fax.: 96-3939119
[hidden email]

Track, trace and monitor your shipments through internet. On www.coscon.com <http://www.coscon.com/>

Office Hours .:
08.30 - 17.30 hrs (Mon/Thu)
08.30 - 14.00 hrs (Fri)

________________________________

De: [hidden email] [mailto:[hidden email]] En nombre de Kermit Kiser
Enviado el: martes, 19 de enero de 2010 10:44
Para: IBM Netrexx
Asunto: Re: [Ibm-netrexx] JLabel - Setting the text

Ah. Perhaps:

mainwindow.add(sb);mainwindow.show

would do it?

britten /Quique Britto (SPAIN VAL Export Mngr AMX) wrote:

i want to display the total entries in this Jlbael (sb) before the return is performed.

Cosco Iberia, S.A.
Export Trade Manager
Quique Britto
Tel.: 96-3939103
Fax.: 96-3939119
[hidden email]

Track, trace and monitor your shipments through internet. On www.coscon.com <http://www.coscon.com/>

Office Hours .:
08.30 - 17.30 hrs (Mon/Thu)
08.30 - 14.00 hrs (Fri)

________________________________

De: [hidden email] [mailto:[hidden email]] En nombre de Kermit Kiser
Enviado el: lunes, 18 de enero de 2010 22:01
Para: IBM Netrexx
Asunto: Re: [Ibm-netrexx] JLabel - Setting the text

I don't quite understand your code. Isn't the "sb" JLabel in the actionPerformed method a temporary local variable that vanishes when you return? How are you displaying it?

britten /Quique Britto (SPAIN VAL Export Mngr AMX) wrote:

Hi,

my program will call the OpenAction class when "Open" is selected fm the jtoolbar or jmenu, a filechooser is shown and filtered to show onlys zips, the file is selected and entries counted and stored into variable "i".

I need that this amount to be shown in a JLabel called "sb" which has been created in the parent class, the OpenAction code is below, the program compiles without error but the jlabel text is not set.

Any help would be appreciated.

Thks

..
..
class eZE.OpenAction dependent extends AbstractAction
method OpenAction( text = String, icon = ImageIcon )
super( text, icon )

method actionPerformed( e = ActionEvent ) public
mainwindow = JFrame()
sb = JLabel()

-- load file chooser using filters
fc = JFileChooser( "c:\\backup\\ecomstation\\programs\\netdrive" ) -- directory for testing purposes only
fc.setFileSelectionMode( JFileChooser.FILES_ONLY )
fc.setAcceptAllFileFilterUsed( 0 )
fc.addChoosableFileFilter( MyFilter() )

-- open file chooser
returnedval = fc.showOpenDialog( mainwindow )

-- query the filechooser to get user input
if returnedval = JFileChooser.APPROVE_OPTION then
do
zp = fc.getSelectedFile()
zf = ZipFile( zp )

entries = zf.entries()

-- set counter to hold total entries
i = 0

loop while entries.hasMoreElements()
je = ZipEntry entries.nextElement()
i = i + 1
end

catch err=Exception
say "NetRexxScript.jar ==>" err
end
sb.setText( i )
return
..
..

Quique

DISCLAIMER:
En cumplimiento del articulo 5 de la Ley Organica de Proteccion de Datos 15/1999, le informamos que sus datos personales estan incorporados a un fichero denominado clientes, con la unica finalidad de mantener relaciones profesionales. Si lo desea puede ejercer los derechos de acceso, rectificacion, cancelacion u oposicion de sus datos personales dirigiendose a: COSCO IBERIA S.A. -Responsable Proteccion de Datos- calle Casanova, 2, 6a planta de Barcelona (08011). Este mensaje y cualquier documento que lleve adjunto, es confidencial y destinado unicamente a la persona o entidad a quien ha sido enviado. Si Usted ha recibido este mensaje por error, le informamos que el contenido en el mismo es reservado y el uso no autorizado esta prohibido legalmente,por ello,por favor , le rogamos que nos lo notifique al e-mail: [hidden email] o al telefono 93 304 71 26 Si su e-mail no ha podido ser entregado al buzon de su destinatario, por favor reenvielo a la direccion [hidden email] If your mail could not be delivered correctly, please resend it to [hidden email]

________________________________

_______________________________________________
Ibm-netrexx mailing list
[hidden email]

DISCLAIMER:
En cumplimiento del articulo 5 de la Ley Organica de Proteccion de Datos 15/1999, le informamos que sus datos personales estan incorporados a un fichero denominado clientes, con la unica finalidad de mantener relaciones profesionales. Si lo desea puede ejercer los derechos de acceso, rectificacion, cancelacion u oposicion de sus datos personales dirigiendose a: COSCO IBERIA S.A. -Responsable Proteccion de Datos- calle Casanova, 2, 6a planta de Barcelona (08011). Este mensaje y cualquier documento que lleve adjunto, es confidencial y destinado unicamente a la persona o entidad a quien ha sido enviado. Si Usted ha recibido este mensaje por error, le informamos que el contenido en el mismo es reservado y el uso no autorizado esta prohibido legalmente,por ello,por favor , le rogamos que nos lo notifique al e-mail: [hidden email] o al telefono 93 304 71 26 Si su e-mail no ha podido ser entregado al buzon de su destinatario, por favor reenvielo a la direccion [hidden email] If your mail could not be delivered correctly, please resend it to [hidden email]

________________________________

_______________________________________________
Ibm-netrexx mailing list
[hidden email]

DISCLAIMER:
En cumplimiento del articulo 5 de la Ley Organica de Proteccion de Datos 15/1999, le informamos que sus datos personales estan incorporados a un fichero denominado clientes, con la unica finalidad de mantener relaciones profesionales. Si lo desea puede ejercer los derechos de acceso, rectificacion, cancelacion u oposicion de sus datos personales dirigiendose a: COSCO IBERIA S.A. -Responsable Proteccion de Datos- calle Casanova, 2, 6a planta de Barcelona (08011). Este mensaje y cualquier documento que lleve adjunto, es confidencial y destinado unicamente a la persona o entidad a quien ha sido enviado. Si Usted ha recibido este mensaje por error, le informamos que el contenido en el mismo es reservado y el uso no autorizado esta prohibido legalmente,por ello,por favor , le rogamos que nos lo notifique al e-mail: [hidden email] o al telefono 93 304 71 26 Si su e-mail no ha podido ser entregado al buzon de su destinatario, por favor reenvielo a la direccion [hidden email] If your mail could not be delivered correctly, please resend it to [hidden email]

________________________________

_______________________________________________
Ibm-netrexx mailing list
[hidden email]

_______________________________________________
Ibm-netrexx mailing list
[hidden email]

________________________________

_______________________________________________
Ibm-netrexx mailing list
[hidden email]

_______________________________________________
Ibm-netrexx mailing list
[hidden email]

________________________________

_______________________________________________
Ibm-netrexx mailing list
[hidden email]

DISCLAIMER:
En cumplimiento del art?culo 5 de la Ley Org?nica de Protecci?n de Datos 15/1999, le informamos que sus datos personales est?n incorporados a un fichero denominado clientes, con la ?nica finalidad de mantener relaciones profesionales. Si lo desea puede ejercer los derechos de acceso, rectificaci?n, cancelaci?n u oposici?n de sus datos personales dirigi?ndose a: COSCO IBERIA S.A. -Responsable Protecci?n de Datos- calle Casanova, 2, 6? planta de Barcelona (08011).
Este mensaje y cualquier documento que lleve adjunto, es confidencial y destinado ?nicamente a la persona o entidad a quien ha sido enviado. Si Usted ha recibido este mensaje por error, le informamos que el contenido en el mismo es reservado y el uso no autorizado est? prohibido legalmente,por ello,por favor , le rogamos que nos lo notifique al e-mail: [hidden email] o al tel?fono 93 304 71 26
Si su e-mail no ha podido ser entregado al buz?n de su destinatario, por favor reenv?elo a la direcci?n [hidden email]
If your mail could not be delivered correctly, please resend it to [hidden email]

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://ns.hursley.ibm.com/pipermail/ibm-netrexx/attachments/20100120/8f12e99e/attachment-0001.html

Thomas.Schneider.Wien

Reading ZIP-Files directly the ReyFile.

In reply to this post by Kermit Kiser

Hi Kermit,

thank you SOOO Much to send this program snippet.

No, I have NOT been yet on this list at the time you sent it...

So it's most helpful.

I also did schange the subject (as you see) ;-)

The still OPEN QUESTION is:

What *is* currently the PROPOSED and/or actual SYNTAX Convention to separate
a Member of a JAR/ZIP from the NAME (of the Jar/ZIP/ zOS PDS) ?

My intention is, that ReyFile simply uses something like a plain name,
looks up, if the
library exists (only the FIRST Time, of course) and then simply reads
(transparent to
the user, the member by simply using linein ), so that the user has
never to be aware
that he is now reading a JAR/ZIP/zOS PDS at all ....)

By convention, the '/' used for the Path is translated to '\' on Windows
System.
(first time again, only, as I do have a table of all currently accessed
'Files' in ReyFile
anyway....

Just checked with Walter Pachl, that the '/' might be NOT used in an
IBM zOS PDS ...

When someone could put light into this design question ....: You are
more than welcome.

Tom.
==============================================================

Kermit Kiser schrieb:

> Here is a code segment copied from the jEdit NetRexxScript plugin. The
> code uses a jar file but that is just a zip file with a manifest - the
> code should be the same, just put Zip in place of Jar:
>
> -- install the setup and sample scripts
>
> do
> jf=JarFile(getPluginJAR.getFile)
> entries = jf.entries()
> loop while entries.hasMoreElements()
> je=JarEntry entries.nextElement()
> if
> Rexx(je.getName).translate(fs,'/').pos('NetRexx'fs)>0 then
> copyjarentry(jf,je,setdir)
> -- another Java "gotcha" - jar entries have unix file separators
> thus requiring the translate above
> end
> catch err=Exception
> say "NetRexxScript.jar ==>" err
> end
>
> -- Kermit
>
> Quique Britto wrote:
>> Hi,
>>
>> I would like to use the Enumearation entries method to hold all the
>> zip entries in a zip file under netrexx but I don't know how, any
>> help will be appreciated.
>>
>> thks
>>
>>
>> .
>> snip
>>
>> -- query the filechooser to get user input
>> if returnedval = JFileChooser.APPROVE_OPTION then
>> do
>> zp = fc.getSelectedFile()
>> zf = ZipFile( zp )
>>
>> ?
>>
>> catch IOException
>> say "IO Error - problem opening archive"
>>
>> end
>>
>> .
>> snip
>> ------------------------------------------------------------------------
>>
>> _______________________________________________
>> Ibm-netrexx mailing list
>> [hidden email]
>>
>>
> ------------------------------------------------------------------------
>
> _______________________________________________
> Ibm-netrexx mailing list
> [hidden email]
>
>

Tom. (ths@db-123.com)