× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Thanks Tommy,
That did the trick.

On Wed, 27 Apr 2005 14:39:04 -0500, Holden Tommy wrote
> 0042.00  *       MAINLINE                               
> 0042.01 C                   EXSR      LOAD              
> 0042.02 C                   DOU       *IN12 = *ON       
> 0042.03 C                   WRITE     FOOTER            
> 0042.05 C                   EXFMT     RECCTL            
> 0042.09 C                   EXSR      RESPOND           
> 0042.13 C                   ENDDO                     
> 0043.23 C                   EVAL      *INLR = *ON     
> 0043.24 C                   RETURN
> 
> 0090.00  *       RESPOND SUB-ROUTINE                       
> 0091.00  **************************************************
> 0092.00 C     RESPOND       BEGSR                          
> 0093.00 C                   READC     RECSFL               
> 0094.00 C                   DOW       NOT %EOF             
> 0094.01 C     DCUSTNO       CHAIN     TOP1                 
> 0094.02 C                   EVAL      DCNUM = CUSTNO       
> 0094.03 C                   EVAL      DCNAME = ICMNAME     
> 0094.04 C                   EVAL      DHGSALES = HDGDSALES 
> 0094.05 C                   EVAL      DGSALES = GASES      
> 0094.06 C                   EVAL      DCYLSALES = CYLRENT  
> 0094.07 C                   EVAL      DSALES = TSALES      
> 0094.08 C                   EVAL      DDCOST = TCOST       
> 0094.09 C                   EVAL      DDMARGIN = TMARGIN   
> 0094.10 C                   EXFMT     DETAIL     
>         c                   eval      dselect=' '
>         c                   update    recsfl
> 0094.12 C                   READC     RECSFL               
> 0095.00 C                   ENDDO                          
> 0096.00 C                   ENDSR
> 
> Thanks,
> Tommy Holden
> 
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of dpalme@xxxxxxxxxxx
> Sent: Wednesday, April 27, 2005 2:30 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: select field in subfile
> 
> I am not performing any specific I/O to it.  Here is the source if 
> it helps
> 
> 0042.00  *       MAINLINE                               
> 0042.01 C                   EXSR      LOAD              
> 0042.02 C                   DOU       *IN12 = *ON       
> 0042.03 C                   WRITE     FOOTER            
> 0042.05 C                   EXFMT     RECCTL            
> 0042.09 C                   EXSR      RESPOND           
> 0042.10 C     1             CHAIN     RECCTL            
> 0042.11 C                   EVAL      DSELECT = *BLANKS 
> 0042.12 C                   UPDATE    RECCTL            
> 0042.13 C                   ENDDO                     
> 0043.23 C                   EVAL      *INLR = *ON     
> 0043.24 C                   RETURN
> 
> 0090.00  *       RESPOND SUB-ROUTINE                       
> 0091.00  **************************************************
> 0092.00 C     RESPOND       BEGSR                          
> 0093.00 C                   READC     RECSFL               
> 0094.00 C                   DOW       NOT %EOF             
> 0094.01 C     DCUSTNO       CHAIN     TOP1                 
> 0094.02 C                   EVAL      DCNUM = CUSTNO       
> 0094.03 C                   EVAL      DCNAME = ICMNAME     
> 0094.04 C                   EVAL      DHGSALES = HDGDSALES 
> 0094.05 C                   EVAL      DGSALES = GASES      
> 0094.06 C                   EVAL      DCYLSALES = CYLRENT  
> 0094.07 C                   EVAL      DSALES = TSALES      
> 0094.08 C                   EVAL      DDCOST = TCOST       
> 0094.09 C                   EVAL      DDMARGIN = TMARGIN   
> 0094.10 C                   EXFMT     DETAIL               
> 0094.12 C                   READC     RECSFL               
> 0095.00 C                   ENDDO                          
> 0096.00 C                   ENDSR                          
> -- 
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
>  mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To 
> subscribe, unsubscribe, or change list options, visit: 
> http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-
> L-request@xxxxxxxxxxxx Before posting, please take a moment to 
> review the archives at http://archive.midrange.com/rpg400-l.
> -- 
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
>  mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To 
> subscribe, unsubscribe, or change list options, visit: 
> http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-
> L-request@xxxxxxxxxxxx Before posting, please take a moment to 
> review the archives at http://archive.midrange.com/rpg400-l.


--
Open WebMail Project (http://openwebmail.org)


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.