Re:

asm <asm@cyberspace.org> on 10/28/99 09:47:34 AM

Please respond to RPG400-L@midrange.com

To:   RPG400-L@midrange.com
cc:    (bcc: Arlene M Soderlund/NFCNA.COM)
Subject:



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

 FEMPFILE UF  E           K        DISK
 C           *LOVAL    SETLLEMPFILE
 C           *IN01     DOUEQ*ON
 C                     READ EMPFILE                  01
 C           *IN01     IFEQ *OFF
 C                        UPDATRFILE
 C                     END
 C                     END
 C                     SETON                     LR



 FFILE    IF  E           K        DISK
 FQPRINT  O   F     132     OF     PRINTER
 C                     EXSR HSKPG
 C           *INLR     DOWEQ*OFF
 C           *INLR     IFEQ *OFF
 C           CONDTN    IFEQ TRUE
 C                     MOVE TRUE      FIELD
 C                     ELSE
 C                     MOVE FALSE     FIELD
 C                     END
 C           *INOF     IFEQ *ON
 C                     EXCPTHEADNG
 C                     END
 C                     EXCPTDETAIL
 C           KEY       READEFILE                     LR
 C                     ENDIF
 C                     ENDDO
 C                     EXCPTENDPRT
 C**************************************************************
 C*   SUBROUTINE NAME      - HOUSEKEEPING
 C**************************************************************
 C           HSKPG     BEGSR
 C           KEY       KLIST
 C                     KFLD           RGENCT
 C                     KFLD           RGENKY
  C           KEY       SETLLFILE
  C           KEY       READEFILE                     LR
 C                     EXCPTHEADNG
 C           *INLR     IFEQ *OFF
 C                     ELSE
 C                     EXCPTNOPRNT
 C                     END
 C                     ENDSR
 OQPRINT  E   02           HEADNG
 O                                    4 'DATE'
 O                         UDATE Y   15
 O                         R002N     83
 O                                  125 'PAGE'
 O                         PAGE     132
 O        E 1              HEADNG
 O                                    4 'TIME'
 O                         TTIME     15 '  :  :  '
 O                                  125 'CO'
 O                         PCO      132
 O        E 1              HEADNG
 O                                    6 'REPORT'
 O        E 1              DETAIL
 O                         EMPNO     11
 O        E 1              DETAIL
 O        E 1              ENDPRT
 O                                   70 '** END OF REPORT **'
 O        E 1              NOPRNT
 O                                   70 'NO RECORDS MATCH YOUR '
 O                                   88 'SELECTION CRITERIA.'






+---
| 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
+---