× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. MIDRANGE-L
  3. February 2003

VARPG question (IBM product)

>I am trying to create a 'field' where the user will select one of two
>options, with the system possibly displaying a third.

For future reference this kind of question is best answered on IBM's VARPG
news group which you will find at news.software.ibm.com - failing that the
CODE400 list here at Midrange can sometimes work - but the bulk of VARPG
users are on the IBM group.

That said - the code below will hopefully give you an idea.  There are three
radio buttons on the window - 1 and 2 are defined as visible and have text
labels.  The third has its visible property deselected and no text.  The
Create event for the window is used to change the attributes of the third
button when it is needed.  I'm just using the seconds from the time to
determine if I need two buttons or three, but the rest of the logic should
show you how to go about this.  IBM's calendar sample is quite good at
showing how part attributes can be changed dynamically.  Anyway - here's the
code - hope it helps.

     C     MainWindow    BegAct    Create        MainWindow
     C                   Time                    RightNow
     C                   Extrct    RightNow:*S   Seconds
     C                   Eval      Buttons = %Int(%Rem(Seconds: 3)) + 1
     C                   If        Buttons = 3
      * Need the third button - make it visible etc and check it
     C     'Button3'     SetAtr    Visible       'Visible'
     C     'Button3'     SetAtr    'Here I am!'  'Label'
     C     'Button3'     SetAtr    Check         'Checked'

      * Otherwise make button 1 the default
     C                   Else
     C     'Button1'     SetAtr    Check         'Checked'
     C                   EndIf
     C                   EndAct

Jon Paris
Partner400



> -----Original Message-----
> From: midrange-l-bounces@midrange.com
> [mailto:midrange-l-bounces@midrange.com]On Behalf Of
> midrange-l-request@midrange.com
> Sent: Thursday, February 13, 2003 7:45 AM
> To: midrange-l@midrange.com
> Subject: MIDRANGE-L Digest, Vol 2, Issue 180
>
>
> Send MIDRANGE-L mailing list submissions to
>       midrange-l@midrange.com
>
> To subscribe or unsubscribe via the World Wide Web, visit
>       http://lists.midrange.com/mailman/listinfo/midrange-l
> or, via email, send a message with subject or body 'help' to
>       midrange-l-request@midrange.com
>
> You can reach the person managing the list at
>       midrange-l-owner@midrange.com
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of MIDRANGE-L digest..."
>
>
> Today's Topics:
>
>    1. Re: XML to 5250 (trevor perry)
>    2. UIM menus and job log entries (Vern Hamberg)
>    3. Re: Multiple FTP servers running listening on different
>       portw/different FTPA (Patrick Townsend)
>    4. Re: VARPG question (IBM product) (Pete Hall)
>    5. RE: Win2K and NetServer (Chris Bipes)
>    6. *** ADMIN: Hardware upgrade status (David Gibbs)
>    7.  (pedro.reis@valeo.com)
>    8. Re:  (Al Barsa)
>    9. R:  (Finucci Domenico)
>   10. RE: *** ADMIN: Hardware upgrade status (Chuck Lewis)
>
>
> ----------------------------------------------------------------------
>
> message: 1
> date: Wed, 12 Feb 2003 18:37:42 -0600
> from: "trevor perry" <trevorp@looksoftware.com>
> subject: Re: XML to 5250
>
> Jon,
>
> This was my point... If you know the 5250 data stream, you can generate
> anything from it..
>
> I know the guys who do. It is what we do. I bet the XML part is something
> that they can do..
>
> Trevor
>
> ----- Original Message -----
> From: "Jon Paris" <Jon.Paris@Partner400.com>
> To: <midrange-l@midrange.com>
> Sent: Wednesday, February 12, 2003 11:36 AM
> Subject: XML to 5250
>
>
> > Phil,
> >
> > You've described the exact scenario I'm looking for - so where's the
> product
> > <grin>
> >
> >  >> You just need to create the XSD to be able to describe all
> 'screens' -
> > and actually the original 5250 data stream definition is a pretty good
> place
> > to start.
> >
> > It is if you want to get into data stream - which I have
> neither the time
> or
> > desire to get into right now which is why I was hoping someone else had
> done
> > it.
> >
> > Does this sound like a good open-source project to anyone ?
> >
> > Jon Paris
> > Partner400
> >
> >
> > _______________________________________________
> > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> > To post a message email: MIDRANGE-L@midrange.com
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> > or email: MIDRANGE-L-request@midrange.com
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/midrange-l.
> >
> >
>
>
> ------------------------------
>
> message: 2
> date: Wed, 12 Feb 2003 20:18:27 -0600
> from: Vern Hamberg <vhamberg@centerfieldtechnology.com>
> subject: UIM menus and job log entries
>
> Need some help, y'all. I've made a UIM menu that runs a number of
> commands.
> When I select an option, I'd like to have the command in the job log and
> the command history, the same way that, say, the IBM menu CMDCMD
> does. The
> UIM documentation says that nothing is sent to the joblog, you need to do
> something like a SNDMSG to *REQUESTER.
>
> Anyone know a way with standard UIM to get the command into the job log
> and/or the F9 history?
>
> TIA
>
> Vern
>
>
>
> ------------------------------
>
> message: 3
> date: Wed, 12 Feb 2003 17:08:33 -0800
> from: "Patrick Townsend" <patownsend@patownsend.com>
> subject: Re: Multiple FTP servers running listening on different
>       portw/different FTPA
>
> Carl,
>
> You can manage this with the exit points for FTP. You need to use the new
> format available around V4R4. With the exit point you can override the FTP
> attributes.
>
> Patrick
> ----- Original Message -----
> From: "Carl Galgano" <cgalgano2@ediconsulting.com>
> To: "Midrange List" <MIDRANGE-L@midrange.com>
> Sent: Wednesday, February 12, 2003 12:27 PM
> Subject: Multiple FTP servers running listening on different
> portw/different
> FTPA
>
>
> > I have a box at V4R5.
> > I have my FTP attributes set to mimix a UNIX system (initial format
> > name=*PATH, Initial directory=*HOMDIR, Initial list
> format=*UNIX).  I have
> > several people that connect to the box and drop off files to
> their "home"
> > directory.  It works fine.  I have an forms application that uses a PC
> front
> > end and transfers files up to the AS/400 using FTP under the
> covers.  The
> > application will not work with the above parameters set on the CHGFTPA
> > command.  I need to set the parms to (initial format name=*LIB, Initial
> > directory=*CURLIB, Initial list format=*DFT), in order for it to work.
> >
> > Is there a way I can start another occurrence of the FTP
> server, listening
> > on another port that can use a different set of FTP attributes?
> >
> > Thanks,
> > cjg
> >
> > Carl J. Galgano
> > EDI Consulting Services, Inc.
> > 550 Kennesaw Avenue, Suite 800
> > Marietta, GA  30060
> > (770) 422-2995 - voice
> > (419) 730-8212 - fax
> > mailto:cgalgano@ediconsulting.com
> > http://www.ediconsulting.com
> > AS400 EDI, Networking, E-Commerce and Communications Consulting and
> > Implementation
> > http://www.icecreamovernight.com
> > Premium Ice Cream Brands shipped Overnight
> >
> > "You ain't gonna learn what you don't want to know" - rw
> >
> >
> > _______________________________________________
> > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> > To post a message email: MIDRANGE-L@midrange.com
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> > or email: MIDRANGE-L-request@midrange.com
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/midrange-l.
> >
> >
>
>
> ------------------------------
>
> message: 4
> date: Wed, 12 Feb 2003 19:00:13 -0600
> from: Pete Hall <pbhall@ameritech.net>
> subject: Re: VARPG question (IBM product)
>
> At 17:04 02/12/2003, Cyndi Bradberry wrote:
> >I am trying to create a 'field' where the user will select one of two
> >options, with the system possibly displaying a third.
> >
> >Basically, the user will be able to mark a record active or transmit, and
> >the system will change that to complete and then disable the update
> >features.
>
> Cyndi,
>
> I'm not a code400 user, but in case you don't get anything better, you
> could use either a radio button group, or a listbox. With the
> radio button
> group, you simply need to set the appropriate button's checked or value
> attribute. With a listbox, you need to set the selected attribute of the
> list item. To disable any control, usually you set the enabled
> attribute to
> false. Sorry I can't be more specific.
>
>
> Pete Hall
> pbhall@ameritech.net
> http://www.pbhall.us/
>
>
> ------------------------------
>
> message: 5
> date: Wed, 12 Feb 2003 16:09:38 -0800
> from: Chris Bipes <chris.bipes@cross-check.com>
> subject: RE: Win2K and NetServer
>
> Are you saying that none of your private server on your network
> have a local
> DNS entry and you are not running DNS in-house?  That is ok if you are
> running WINS and 9x or NT.  So what is your DNS setting on the 2$ box?
>
>
> -----Original Message-----
> From: kirkg@manageinc.com [mailto:kirkg@manageinc.com]
> Sent: Wednesday, February 12, 2003 2:12 PM
> To: Midrange Systems Technical Discussion
> Subject: RE: Win2K and NetServer
>
>
> OK... What if there is No Local DNS???
>
> ------------------------------
>
> message: 6
> date: Thu, 13 Feb 2003 03:47:14 -0600
> from: David Gibbs <david@midrange.com>
> subject: *** ADMIN: Hardware upgrade status
>
> Folks:
>
> Unforunately, the hardware upgrade is NOT going well.
>
> The new system arrived yesterday and, while I was transplanting the
> hardware, I noticed that the PCI slots for the devices were not
> the same as
> the old system.
>
> Turns out that they implemented a new standard for PCI hardware ... one
> based on 3.3 volts as apposed to 5 volts.
>
> Well, the end result is: the scsi card and raid controller that
> protect the
> data on the system are not compatible with the new system.  I'm not even
> sure I can find a SCSI card that supports 50 pin SCSI 2 devices. :(
>
> Obviously this is not acceptable ... so I called Dell and got an RMA to
> return the system.  I then transferred the main components of the server
> back to the old hardware.
>
> Murphy, being the optimist that he is, decided that he wasn't
> done with me
> ...  now the OLD hardware failed.  I could not get video sync and there
> were some troublesome beeps on power up.
>
> I did the standard troubleshooting steps, swapped memory around, removed
> cards for a bare configuration, nothing seemed to work.
>
> It was almost 9pm by this time, so I decided to transfer the components
> BACK to the new computer (which I figured would probably work)
> and brought
> the system up.  Luckily it did work, and the system came up with
> few issues.
>
> I have to review my options at the moment to see what the best course of
> action is ... I may have to use one of my other systems to run
> midrange.com
> until I can find a viable replacement for the new hardware.
>
> david
> --
> | Internet: david@midrange.com
> | WWW: http://david.fallingrock.net
> | AIM: MidrangeMan
> |
> | We're not in the middle of nowhere...
> |   we're on the outskirts of everywhere!
> |                     - DMRoth (adapted)
>
>
>
>
>
>
>
>
>
> ------------------------------
>
> message: 7
> date: Thu, 13 Feb 2003 11:40:42 +0000
> from: pedro.reis@valeo.com
>
> Hi midrangers,
>
> Is there a way to enable the  user switching several aplications,  when he
> begins using is profile  (INLPGM on wrkusrprf )?
>
> Thanks
>
>
>
>
>
> Cordialement,
> Best regards,
> -------------------------------------------------------------------
> Pedro Reis
> Information System
> e-mail: pedro.reis@valeo.com
> Phone: 351-258 350 725
> Fax: 351-258 350060
> --------------------------------------------------------------------
> VALEO - Electronics & Connective Systems
> Viana do Castelo - Portugal
> --------------------------------------------------------------------
>
> "This e-mail message is intended only for the use of the named
> recipient(s).
> The information contained therein may be confidential or privileged, and
> its
> disclosure or reproduction is strictly prohibited. If you are not
> the named
> recipient, please return it immediately to its sender at the above address
> and destroy it."
>
>
>
> ------------------------------
>
> message: 8
> date: Thu, 13 Feb 2003 07:11:19 -0500
> from: "Al Barsa" <barsa@barsaconsulting.com>
> subject: Re:
>
>
> Hi,
>
> A good menuing system will do what you want, and is generally not
> difficult
> to write.
>
> Al
>
> Al Barsa, Jr.
> Barsa Consulting Group, LLC
>
> 400>390
>
> 914-251-1234
> 914-251-9406 fax
>
> http://www.barsaconsulting.com
> http://www.taatool.com
>
>
>
>
>
>
>
>                       pedro.reis@valeo.com
>
>                       Sent by:                    To:
> midrange-l@midrange.com
>
>                       midrange-l-bounces@m        cc:
>
>                       idrange.com                 Subject:
>
>
>
>
>
>                       02/13/2003 06:40 AM
>
>                       Please respond to
>
>                       Midrange Systems
>
>                       Technical Discussion
>
>
>
>
>
>
>
>
>
> Hi midrangers,
>
> Is there a way to enable the  user switching several aplications,  when he
> begins using is profile  (INLPGM on wrkusrprf )?
>
> Thanks
>
>
>
>
>
> Cordialement,
> Best regards,
> -------------------------------------------------------------------
> Pedro Reis
> Information System
> e-mail: pedro.reis@valeo.com
> Phone: 351-258 350 725
> Fax: 351-258 350060
> --------------------------------------------------------------------
> VALEO - Electronics & Connective Systems
> Viana do Castelo - Portugal
> --------------------------------------------------------------------
>
> "This e-mail message is intended only for the use of the named
> recipient(s).
> The information contained therein may be confidential or privileged, and
> its
> disclosure or reproduction is strictly prohibited. If you are not
> the named
> recipient, please return it immediately to its sender at the above address
> and destroy it."
>
>
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L)
> mailing list
> To post a message email: MIDRANGE-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>
>
>
>
>
>
> ------------------------------
>
> message: 9
> date: Thu, 13 Feb 2003 13:47:16 +0100
> from: Finucci Domenico <Domenico.Finucci@Fiditalia.it>
> subject: R:
>
> There sould be a freeware menuing software @
> http://www.iseriesnetwork.com/resources/code/shareware/rtvList.cfm
> Search for "Program Add-ons" and you 'll find:
> ==> AS/400 Menu System
> Freeware   Free AS/400 menu and security system. Allows for
> custom menus for
> each of your users. Has several interface methods so that you can
> tailor how
> program is initiated. New version as of 12/02/2000.
> Submitted: 31 Mar 2000  "
> Sincerely
>
> Domenico Finucci
> Fiditalia , Milano, 02- 4301-2494
>
>
> -----Messaggio originale-----
> Da: pedro.reis@valeo.com [mailto:pedro.reis@valeo.com]
> Inviato: giovedl 13 febbraio 2003 12.41
> A: midrange-l@midrange.com
> Oggetto:
>
>
> Hi midrangers,
>
> Is there a way to enable the  user switching several aplications,  when he
> begins using is profile  (INLPGM on wrkusrprf )?
>
> Thanks
>
>
>
>
>
> Cordialement,
> Best regards,
> -------------------------------------------------------------------
> Pedro Reis
> Information System
> e-mail: pedro.reis@valeo.com
> Phone: 351-258 350 725
> Fax: 351-258 350060
> --------------------------------------------------------------------
> VALEO - Electronics & Connective Systems
> Viana do Castelo - Portugal
> --------------------------------------------------------------------
>
> "This e-mail message is intended only for the use of the named
> recipient(s).
> The information contained therein may be confidential or privileged, and
> its
> disclosure or reproduction is strictly prohibited. If you are not
> the named
> recipient, please return it immediately to its sender at the above address
> and destroy it."
>
>
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L)
> mailing list
> To post a message email: MIDRANGE-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>
> ------------------------------
>
> message: 10
> date: Thu, 13 Feb 2003 07:50:09 -0500
> from: "Chuck Lewis" <clewis@iquest.net>
> subject: RE: *** ADMIN: Hardware upgrade status
>
> WOW David - sometimes you just gotta LOVE computers, eh ? Not...
>
> What a nightmare. Didn't Murphy know that it was after 5 and he
> shouldn't be
> bugging you ?
>
> Keep us posted and good luck !
>
> Chuck
>
>
> -----Original Message-----
> From: David Gibbs Sent: Thursday, February 13, 2003 4:47 AM
>
> Folks:
>
> Unforunately, the hardware upgrade is NOT going well.
>
> The new system arrived yesterday and, while I was transplanting the
> hardware, I noticed that the PCI slots for the devices were not
> the same as
> the old system.
>
> Turns out that they implemented a new standard for PCI hardware ... one
> based on 3.3 volts as apposed to 5 volts.
>
> Well, the end result is: the scsi card and raid controller that
> protect the
> data on the system are not compatible with the new system.  I'm not even
> sure I can find a SCSI card that supports 50 pin SCSI 2 devices. :(
>
> Obviously this is not acceptable ... so I called Dell and got an RMA to
> return the system.  I then transferred the main components of the server
> back to the old hardware.
>
> Murphy, being the optimist that he is, decided that he wasn't
> done with me
> ...  now the OLD hardware failed.  I could not get video sync and there
> were some troublesome beeps on power up.
>
> I did the standard troubleshooting steps, swapped memory around, removed
> cards for a bare configuration, nothing seemed to work.
>
> It was almost 9pm by this time, so I decided to transfer the components
> BACK to the new computer (which I figured would probably work)
> and brought
> the system up.  Luckily it did work, and the system came up with
> few issues.
>
> I have to review my options at the moment to see what the best course of
> action is ... I may have to use one of my other systems to run
> midrange.com
> until I can find a viable replacement for the new hardware.
>
> david
>
>
>
>
> ------------------------------
>
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) digest list
> To post a message email: MIDRANGE-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>
>
> End of MIDRANGE-L Digest, Vol 2, Issue 180
> ******************************************
>

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.