File S231PFA Virtual Field Logic

LANSA

File S231PFA Virtual Field Logic


Calculations before output to file
*************** Beginning of data *************************************************
     C*0N01FACTOR1+++++++OPCODE(E)+FACTOR2+++++++RESULT++++++++LEN++D+HILOEQ       
     C*0N01FACTOR1+++++++OPCODE(E)+EXTENDED-FACTOR2+++++++++++++++++++++++++++     
     C*                                                                            
     C* VC_USING FIELDS(S_231AN1 S_231AN2 S_231AN3)                                
     C* Note how this is required for ALL file fields referred to in this logic    
     C*                                                                            
     C* Set null capable fields that are default value (blank or zero) to null.    
     C*                                                                            
     C* %NULLIND is used to indicate to the file object whether null is required   
     C* Note the ILE tags used to tell the compiler to use RPGIV.                  
     C* Note the special treatment of the binary field - the compile listing       
     C* from a previous compile was used to determine the correct internal         
     C* field name. (@B0003)                                                       
     C*                                                                            
     C*                                                                            
     C* Field S_231AN1 - If blank, set the null indicator on                       
     C* and store it as a null                                                     
     C**ILE              IF        S_231AN1 = ' '                                  
     C**ILE              EVAL      %NULLIND(S_231AN1) = *ON                        
     C**ILE              ELSE                                                 
     C**ILE              EVAL      %NULLIND(S_231AN1) = *OFF                  
     C**ILE              ENDIF                                                
     C*                                                                       
     C* Field S_231AN2 - If zero, set the null indicator on                   
     C* and store it as a null                                                
     C**ILE              IF        S_231AN2 = 0                               
     C**ILE              EVAL      %NULLIND(S_231AN2) = *ON                   
     C**ILE              ELSE                                                 
     C**ILE              EVAL      %NULLIND(S_231AN2) = *OFF                  
     C**ILE              ENDIF                                                
     C*                                                                       
     C* Field S_231AN3 (binary) - If zero, set the null indicator on          
     C* and store it as a null                                                
     C**ILE              IF        S_231AN3 = 0                               
     C**ILE              EVAL      %NULLIND(@B0003) = *ON                     
     C**ILE              ELSE                                                 
     C**ILE              EVAL      %NULLIND(@B0003) = *OFF                    
     C**ILE              ENDIF                                                
****************** End of data ***********************************************