|
Change your file so that the records contain MI , MIa, MIb, MIc. What I experienced is that using your third example, all 4 records would get printed. I only want the record where the third character is blank. I don't want the a,b,c records. Paul Nelson Arbor Solutions, Inc. 708-670-6978 Cell pnelson@xxxxxxxxxx jsilberberg@xxxxxxxxxxxxxx Sent by: midrange-l-bounces@xxxxxxxxxxxx 10/07/2004 05:26 PM Please respond to Midrange Systems Technical Discussion To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx> cc: Subject: RE: CPYF question Okay, First I restarted this thread. Second I built a three record test bed PF called VATTBL.. * . . . + . . . . 1 . . . . + . . . . 2 . . . . + *...+....1....+....2....+ D9858396 96998440 7BF140D5 9640D4C9 40404040 40404040 40 *Recoord #1 No MI * D9858396 9984407B F240D4C9 40404040 40404040 D4C94040 40 *Record #2 MI MI * D9858396 998440F3 40D4C940 D9898788 A3404040 404040D4 C9 *Record 3 MI Right MI * Then I compiled the code... 0001.00 PGM 041007 0002.00 041007 0003.00 DCL &VAR5 *CHAR ( 5 ) VALUE( ' MI') 041007 0004.00 DCL &A *CHAR ( 1 ) VALUE( '''' ) 041007 0005.00 041007 0006.00 CPYF FROMFILE(VATTBL) TOFILE(*PRINT) INCREL((*IF + 041007 0007.00 TXSUF *EQ &VAR5)) 041007 0008.00 041007 0009.00 ENDPGM 041007 This prints Record Number #3................... The Logclpgm shows the code executing on a V4R5 box as 600 - CPYF FROMFILE(VATTBL) TOFILE(*PRINT) INCREL((*IF TXSUF *EQ ' MI')) 0001.00 PGM 0002.00 0003.00 DCL &VAR5 *CHAR ( 5 ) VALUE( 'MI ') 0004.00 DCL &A *CHAR ( 1 ) VALUE( '''' ) 0005.00 0006.00 CPYF FROMFILE(VATTBL) TOFILE(*PRINT) INCREL((*IF + 0007.00 TXSUF *EQ &VAR5)) 0008.00 0009.00 ENDPGM This prints Record Number #2................................................ The Logclpgm shows the code executing on a V4R5 box as 600 - CPYF FROMFILE(VATTBL) TOFILE(*PRINT) INCREL((*IF TXSUF *EQ 'MI')) So I am lost as to what the issue is and Why if the CLP adds the appropriate trim & quotes, your are forcing them into the mix in your code.. Did I enter this thread to late and miss something ..... JMS.. -- This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/midrange-l or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.
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.