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



thanks Norm,
that's been a great help!
cheers
Otis


>From: rpg400-l-request@midrange.com
>Reply-To: rpg400-l@midrange.com
>To: rpg400-l@midrange.com
>Subject: RPG400-L digest, Vol 1 #213 - 6 msgs
>Date: Fri, 23 Nov 2001 12:01:05 -0600
>
>Send RPG400-L mailing list submissions to
>       rpg400-l@midrange.com
>
>To subscribe or unsubscribe via the World Wide Web, visit
>       http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
>or, via email, send a message with subject or body 'help' to
>       rpg400-l-request@midrange.com
>
>You can reach the person managing the list at
>       rpg400-l-admin@midrange.com
>
>When replying, please edit your Subject line so it is more specific
>than "Re: Contents of RPG400-L digest..."
>
>
>Today's Topics:
>
>    1. RPG knowledge tests (otis binnie)
>    2. Change indicator %found or %eof (YJacqueline@guydegrenne.fr)
>    3. RE: Change indicator %found or %eof (McManus, Duncan)
>    4. Re: RPG knowledge tests (Norm Dennis)
>    5. Variable Subfilefields (Erik Gerrits)
>    6. RE: Variable Subfilefields (Njål Fisketjøn)
>
>--__--__--
>
>Message: 1
>From: "otis binnie" <odb_rpg@hotmail.com>
>To: RPG400-L@midrange.com
>Subject: RPG knowledge tests
>Date: Fri, 23 Nov 2001 02:20:28 +0000
>Reply-To: rpg400-l@midrange.com
>
>Hi All,
>Are any of you aware of any websites that list RPG knowledge tests on the
>AS400 that one can look through? The few I've seen are multiple-choice
>based
>and I'd like to be better prepared for upcoming selection tests.
>
>cheers
>Otis
>
>_________________________________________________________________
>Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp
>
>
>--__--__--
>
>Message: 2
>Subject: Change indicator %found or %eof
>To: rpg400-l@midrange.com
>From: YJacqueline@guydegrenne.fr
>Date: Fri, 23 Nov 2001 11:13:32 +0100
>Reply-To: rpg400-l@midrange.com
>
>Hello,
>
>My program is like this :
>
>C     CLEP31        SETLL          GCO31F06
>C     CLEP31        READE (E)      GCO31F06
>C                        DOW             %EOF(GCO31L06) =3D *OFF
>C                        IF                   %FOUND(GCO31L06)
>C              WRITE          SUBFILE
>C                        ENDIF
>C     CLEP31        READE (E)      GCO31F06
>C                        ENDDO
>
>In STRDBG, could you explain, how I can change the (*on or *off) for
>(%found or %eof).
>I'm not using indicator and I don't want to use it.
>
>Best regards.
>
>Yannick.Jacqueline
>Service Informatique
>T=E9l : 02-31-66-46-69
>E-Mail : yjacqueline@guydegrenne.fr
>Visitez notre site Web =E0 : http://www.guydegrenne.fr/
>
>
>
>--__--__--
>
>Message: 3
>From: "McManus, Duncan" <Duncan.McManus@natexismetals.com>
>To: "'rpg400-l@midrange.com'" <rpg400-l@midrange.com>
>Subject: RE: Change indicator %found or %eof
>Date: Fri, 23 Nov 2001 10:33:04 -0000
>Reply-To: rpg400-l@midrange.com
>
>
>If you have a file information data structure in the program, then it may
>b=
>e
>possible to change the status code for that file. As I haven't tried this,
>=
>I
>don't know whether this would be a good idea, or even if it would work.
>
>I am assuming that since you are in debug, that you have an error in the
>program? Could it be that there is a different file name on the EOF
>condition to the READE, and so this program (in it's present state) will
>either be an infinite loop or will not enter it at all.
>
>Also, %FOUND is not set on be the READE statement. Thus, I believe that it
>is useless in this case.
>
>Hope this helps
>Duncan McManus
>Natexis Metals
>
>
>
>-----Original Message-----
>From: YJacqueline@guydegrenne.fr [mailto:YJacqueline@guydegrenne.fr]
>Sent: 23 November 2001 10:14
>To: rpg400-l@midrange.com
>Subject: Change indicator %found or %eof
>
>
>Hello,
>
>My program is like this :
>
>C     CLEP31        SETLL          GCO31F06
>C     CLEP31        READE (E)      GCO31F06
>C                        DOW             %EOF(GCO31L06) =3D *OFF
>C                        IF                   %FOUND(GCO31L06)
>C              WRITE          SUBFILE
>C                        ENDIF
>C     CLEP31        READE (E)      GCO31F06
>C                        ENDDO
>
>In STRDBG, could you explain, how I can change the (*on or *off) for
>(%found or %eof).
>I'm not using indicator and I don't want to use it.
>
>Best regards.
>
>Yannick.Jacqueline
>Service Informatique
>T=E9l : 02-31-66-46-69
>E-Mail : yjacqueline@guydegrenne.fr
>Visitez notre site Web =E0 : http://www.guydegrenne.fr/
>
>
>_______________________________________________
>This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
>To post a message email: RPG400-L@midrange.com
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
>or email: RPG400-L-request@midrange.com
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/rpg400-l.
>
>
>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
>=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
>The integrity of this message cannot be guaranteed on the Internet.
>Natexis Metals Limited cannot therefore be considered responsible
>for the contents. Any unauthorised use or dissemination is prohibited.
>If you are not the intended recipient of this message please delete it
>and notify the sender.
>
>*** PLEASE NOTE AS FROM 28TH JUNE 2001, OUR EMAIL ***
>*** ADDRESS FORMAT WILL BE :
>                             firstname.surname@natexismetals.com
>
>
>--__--__--
>
>Message: 4
>From: "Norm Dennis" <wmss@iinet.net.au>
>To: <rpg400-l@midrange.com>
>Subject: Re: RPG knowledge tests
>Date: Fri, 23 Nov 2001 18:58:16 +0800
>Reply-To: rpg400-l@midrange.com
>
>Otis,
>
>http://www.as400education.com/
>http://www.rctclearn.net/html/as_400_university.html
>http://www.ibmuser.com/
>http://www.brainbench.com/xml/bb/homepage.xml
>http://www-1.ibm.com/certify/index.shtml
>
>Check the archive, this topic has been covered a number of times in the
>past few
>months.
>
>Norm
>
>----- Original Message -----
>From: "otis binnie" <odb_rpg@hotmail.com>
>To: <RPG400-L@midrange.com>
>Sent: Friday, 23 November 2001 10:20
>Subject: RPG knowledge tests
>
>
>Hi All,
>Are any of you aware of any websites that list RPG knowledge tests on the
>AS400 that one can look through? The few I've seen are multiple-choice
>based
>and I'd like to be better prepared for upcoming selection tests.
>
>cheers
>Otis
>
>_________________________________________________________________
>Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp
>
>_______________________________________________
>This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
>To post a message email: RPG400-L@midrange.com
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
>or email: RPG400-L-request@midrange.com
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/rpg400-l.
>
>
>
>
>--__--__--
>
>Message: 5
>From: "Erik Gerrits" <hjc.gerrits@quicknet.nl>
>To: <rpg400-l@midrange.com>
>Subject: Variable Subfilefields
>Date:   Fri, 23 Nov 2001 13:10:49 +0100
>Reply-To: rpg400-l@midrange.com
>
>Hi all,
>
>I need some help with the following problem:
>I have a input capable subfile containing all fields from a file to enter a
>new record the fast way.
>At this moment a numeric or an alphanumeric inputfield.
>I want the inputfields to be the same length and type as the corresponding
>fields in the file.
>For Example
>
>
>itemnumber             _______________(15A)
>Vendor         ______(6.0)
>Type                   __(2A)
>
>Does anybody know if this is possible, and if so, how I can do this
>
>Thanks,
>
>Erik Gerrits
>Senior Programmer
>N.I.S. Holland
>
>
>--__--__--
>
>Message: 6
>From: "Njål Fisketjøn" <n.f@figu.no>
>To: <rpg400-l@midrange.com>
>Subject: RE: Variable Subfilefields
>Date: Fri, 23 Nov 2001 13:19:43 +0100
>Reply-To: rpg400-l@midrange.com
>
>With "normal" DDS
>Make subfile page equal to subfile size.
>Make "every possible" field length and condition them by indicators.
>A simpler approach is to do like the WRKDBF utility and place a "NORMAL"
>attribute
>(x'20') where the field ends, but then you can see the full length.
>
>The "proper" way to do this, is either use DSM (Dynamic Screen Manager) or
>USRDFN keyword in DDS and 5250 data stream commands.
>
>
>
> > -----Original Message-----
> > From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
> > Behalf Of Erik Gerrits
> > Sent: 23. november 2001 13:11
> > To: rpg400-l@midrange.com
> > Subject: Variable Subfilefields
> >
> >
> > Hi all,
> >
> > I need some help with the following problem:
> > I have a input capable subfile containing all fields from a file
> > to enter a
> > new record the fast way.
> > At this moment a numeric or an alphanumeric inputfield.
> > I want the inputfields to be the same length and type as the
>corresponding
> > fields in the file.
> > For Example
> >
> >
> > itemnumber          _______________(15A)
> > Vendor              ______(6.0)
> > Type                        __(2A)
> >
> > Does anybody know if this is possible, and if so, how I can do this
> >
> > Thanks,
> >
> > Erik Gerrits
> > Senior Programmer
> > N.I.S. Holland
> >
> > _______________________________________________
> > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
>list
> > To post a message email: RPG400-L@midrange.com
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> > or email: RPG400-L-request@midrange.com
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
>
>
>
>--__--__--
>
>_______________________________________________
>This is the RPG programming on the AS400 / iSeries (RPG400-L) digest list
>To post a message email: RPG400-L@midrange.com
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
>or email: RPG400-L-request@midrange.com
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/rpg400-l.
>
>
>
>End of RPG400-L Digest


_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp



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.