API for subfile messages.

[Rowthu Ravichandra <Rowthu.Ravichandra@xxxxxxxxxxxxx>]

I have used API's for subfile messages. Interestingly, On one run I find the
messages displayed in the 24th line and on the other run, there are no
messages. I am attaching the source code for the RPGLE program I have used.
Can anyone explain why this happens?? I am now forced to write a CLP for the
same task.

 FItempf    uf a e           k disk                  
 Fitemdsp   cf   e             workstn               
 D@stk             s              4b 0               
 DPdate            s               d   datfmt(*usa)  
 D@len             s              4b 0               
 D@err             s              4b 0               
 C*                                                  
C     @AddItem      Begsr                            
C     *IN03         DowEq     *OFF                   
C                   write     msgctl                 
C                   Exfmt     itemmain               
 *                                                   
 *Clearing  Program Message Queue                    
 *                                                   
C                   MoveL     *BLANKS       @Key     
C                   call      'QMHRMVPM'    @Parm1   
 *                                                   
 *Validations                                        
 *                                                   
C                   If        #itmcod = *Blanks     
C                   move      'MSG0001'     @msgid  
C                   call      'QMHSNDPM'    @parm2  
C                   Iter                            
C                   Else                            
C                   Move      #itmcod       Itmcod                  
C     Itmcod        Chain     ItemRec                            90 
C                   If        *IN90 = *On                           
C                   Exsr      @Add                                  
C                   Exsr      @clear                                
C                   Else                                            
c                   move      'MSG0002'     @msgid                  
c                   call      'QMHSNDPM'    @parm2                  
C                   Exsr      @clear1                               
C                   Endif                                           
C                   Endif                                           
C                   enddo                           
*                
C     @Add          Begsr                           
C                   Eval      Desc = #Desc          
C                   Eval      Sdesc = #Sdesc        
C                   Eval      Uom = #Uom            
C                   Eval      Rtlprc = #Rtlprc      
C                   Eval      Wslprc = #Wslprc      
C                   If        (Desc <> *Blanks) and 
C                             (Sdesc <> *Blanks) and
C                             (Uom <> *Blanks) and  
C                             (Rtlprc <> *zeros) and
C                             (Wslprc <> *zeros)    
C                   Write     ITEMREC               
C                   Else                            
C                   move      'MSG0001'     @msgid  
C                   call      'QMHSNDPM'    @parm2  
C                   Endif                           
C                   Endsr                           

C     @Clear        Begsr                            
C                   Move      *Blanks       #Itmcod  
C                   Exsr      @Clear1                
C                   Endsr                            
 *                                                   
C     @Clear1       Begsr                            
C                   Move      *Blanks       #Desc    
C                   Move      *Blanks       #Sdesc   
C                   Move      *Blanks       #Uom     
C                   Move      *Zeros        #Rtlprc  
C                   Move      *Zeros        #Wslprc  
C                   Endsr                            
 *                                                   
C     *inzsr        begsr                            
C*                                                   
C     *Entry        Plist                            
C                   Parm                    #Opt              3 
C*                                                              
C                   Movel     Udate         Pdate               
C                   Movel     Pdate         #date               
C                   movel     '*'           @Pgmq               
C                   movel     '*DIAG'       @type               
C                   movel     '*LIBL'       @lib             10 
C                   move      @lib          @msgf            20 
C                   movel     'STOCKMSGF'   @MSGF               
C                   movel     '*ALL'        @rmv             10 
C                   move      *blanks       @key              4 
C     @parm1        plist                                       
C                   parm                    @pgmq               
C                   parm                    @stk                
C                   parm                    @key                
C                   parm                    @rmv                
C                   parm                    @err                
 *                                                              
C     @parm2        plist                                       
C                   parm                    @msgid            7 
C                   parm                    @msgf               
C                   parm                    @dta             80 
C                   parm                    @len                
C                   parm                    @type            10 
C                   parm                    @pgmq               
C                   parm                    @stk                
C                   parm                    @key                
C                   parm                    @err                
C                   Exsr      @AddItem 
C                   endsr 


Thanks in advance
Ravi Chandra
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---