we have used multiple pfiles in LF for close to 2 decades.
most of our db consists of these type of files.
0001.00      A                                      UNIQUE
0002.00      A          R PC1PIPT0                  PFILE(PCPPIPT0)
0003.00      A          K SOS1
0004.00      A          K PANO20
0005.00      A          R PC1PIST0                  PFILE(PCPPIST0)
0006.00      A          K SOS1
0007.00      A          K PANO20
0008.00      A          K STNO
0009.00      A          K ALTLOC
0010.00      A          R PC1PINT0                  PFILE(PCPPINT0)
0011.00      A          K SOS1
0012.00      A          K PANO20
0013.00      A          K *NONE
0014.00      A          K *NONE
0015.01      A          K NTLNNO
0016.00      A          R PC1PIAS0                  PFILE(PCPPIAS0)
0016.01      A          K SOS1
0016.02      A          K PANO20
0019.00      A          K *NONE
0020.00      A          K *NONE



           SELECT PART-FILE  ASSIGN TO DATABASE-PCLPICM0
                  ORGANIZATION IS INDEXED
                  ACCESS IS RANDOM
                  RECORD KEY IS EXTERNALLY-DESCRIBED-KEY
                  FILE STATUS IS FILE-STATUS.


       FD  PART-FILE
           LABEL RECORDS ARE STANDARD.

       01  PART-RECORD.
           COPY DDS-ALL-FORMATS OF PCLPICM0.

        01  FORMAT-NAME                 PIC X(10).
            88  FORMAT-PC1PIPT0                     VALUE 'PC1PIPT0 '.
            88  FORMAT-PC1PIST0                     VALUE 'PC1PIST0 '.
            EJECT
          MOVE  PANO16 OF STORE-RECORD TO  PANO16 OF PC1PIPT0.

          READ  PART-FILE  FORMAT IS 'PC1PIPT0'
                INVALID KEY
              GO TO 055-READ-STORE-FILE.

          MOVE  DS1    OF PART-RECORD TO  SR-DS1.

          MOVE  SOS    OF STORE-RECORD TO  SOS    OF PC1PIST0
                                                  OF PART-RECORD.
          MOVE  PANO16 OF STORE-RECORD TO  PANO16 OF PC1PIST0
                                                  OF PART-RECORD.
          MOVE  STNO   OF STORE-RECORD TO  STNO   OF PC1PIST0
                                                  OF PART-RECORD.
          MOVE  ALTLOC OF STORE-RECORD TO  ALTLOC OF PC1PIST0
                                                  OF PART-RECORD.

          READ  PART-FILE  FORMAT IS 'PC1PIST0'
                INVALID KEY
              GO TO 055-READ-STORE-FILE.

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



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