MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » October 2004

RE: CPYF question



fixed

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.







Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot 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 here. If you have questions about this, please contact