Re: Read employee file

["Bill Parks" <WParks@xxxxxxxxxxxxxxxx>]

Here is another answer

FEMPFILE    UF    E           K        DISK

C           *LOVAL             SETLL       EMPFILE             (KEYED
BY EMPNO)
C           *IN99                  DOWEQ   *OFF
C                                       READ        EMPFILE
99
C           *IN99                   IFEQ           *OFF
C           EMPNO              IFLT            555
C                     (INSERT YOUR OPTIONS HERE)
C                                        ELSE
C                                        MOVE        *ON
*IN99
C                                        ENDIF
C                                        ENDIF
C                                        ENDDO

The SETLL operation is not needed if this is the first time in the
program that the file is being read.

Bill Parks
http://www.AllBusSys.com
"The harder you work the luckier you get"
                                                   Gary Player
-----Original Message-----
From: asm <asm@cyberspace.org>
To: RPG400-L@midrange.com <RPG400-L@midrange.com>
Date: Thursday, October 28, 1999 10:13 AM


>Hi ,
>pl. give me the code for the following problem ASAP,now itself , if
>possible.
>Read employee records from an emp file for employe no
>not greater than 555.
>
>abdul
>
>+---
>| This is the RPG/400 Mailing List!
>| To submit a new message, send your mail to RPG400-L@midrange.com.
>| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
>| To unsubscribe from this list send email to
RPG400-L-UNSUB@midrange.com.
>| Questions should be directed to the list owner/operator:
david@midrange.com
>+---

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---