|
That worked Hans, thanks. Seems kinda messy. Isn't there a way to just say "I want this file qualified" and allow a different qualification within the QUALIFIED keyword if necessary? I couldn't find QUALIFIED on the F spec in V5R2 documentation so maybe that is coming out in V5R3. . . ?? For example: FLiblPF IF E K DISK Qualified - default would be Qualified(*File) or FLiblPF IF E K DISK Qualified('LIBL.') or FLiblPF IF E K DISK Qualified(*RcrdFmt) Aaron Bartell -----Original Message----- From: Hans Boldt [mailto:boldt@xxxxxxxxxx] Sent: Monday, August 25, 2003 9:18 AM To: rpg400-l@xxxxxxxxxxxx Subject: Re: Extname and Prefix There are two problems. The following program fixes both: ---------------------------------------------------------------- FLiblPF IF E K DISK Prefix('LBL.') D Lbl E DS Qualified ExtName(LiblPF) /Free *InLR = *On; /End-Free ---------------------------------------------------------------- That is, first, if a literal, the PREFIX parm must be upper-case. Second, the data structure has the same name as the record. Cheers! Hans
As an Amazon Associate we earn from qualifying purchases.
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.