Re: KINFDS - question

[boothm@xxxxxxxxxxxxxxxxx]

Chris, this worked for me:

0010.00 FESKISU    IF   E             DISK    INFDS(INFDS) 
0011.00 FESKISU1   IF   E           K DISK    Rename(RESKISU:RESKISU1) 
0012.00 F                                     INFDS(DB1) BLOCK(*NO) 
0013.00 FESKISU2   IF   E           K DISK    Rename(RESKISU:RESKISU2) 
0014.00 F                                     INFDS(DB2) BLOCK(*NO) 
0015.00 FESKISU3   IF   E           K DISK    Rename(RESKISU:RESKISU3) 
0016.00 F                                     INFDS(DB3) BLOCK(*NO) 
0017.00  *  .................................................. 
.... 
0024.00  * INFDS for database file. FileSize will contain the number 
0025.00  * of records in the file when the file is opened. 
0026.00 DINFDS            DS 
0027.00 D FILESIZE              156    159B 0 
0028.00 
0029.00  * Get the record Number, to know which record to update/process:
0030.00 D DB1             DS 
0031.00 D DB1RRN                397    400B 0 
0032.00 D DB2             DS 
0033.00 D DB2RRN                397    400B 0 
0034.00 D DB3             DS 
0035.00 D DB3RRN                397    400B 0         
_______________________
Booth Martin
boothm@earth.goddard.edu
http://www.spy.net/~booth
_______________________




"Chris Beck" <CBeck@good-sam.com>
Sent by: owner-rpg400-l@midrange.com
03/02/2000 12:20 PM
Please respond to RPG400-L

 
        To:     <RPG400-L@midrange.com>
        cc: 
        Subject:        KINFDS - question


This is the way part of my F spec looks.  But I need to have in it a 
KINFDS INFDS   so i can use the status field in the information data 
structure.  But it won't let me use two kinfds's  it says keyword already 
used or something like that. 

FCLK907MMCF  E                    WORKSTN     KINFDS WSDS 
F SFLRN KSFILE SFL 
F KNUM        1 

Any suggestions??


Thanks Chris


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