S220PFL Virtual Field Logic

LANSA

S220PFL Virtual Field Logic
Virtual Field conversion logic

Data Structure Specifications (I Specs):

*************** Beginning of data ***************************************************
     I* This data structure contains the text data (STXT)                            
     I* and the non-blank length of the text (SLEN)                                  
     I            DS                                                                 
     I                                        1 255 SDTAS1                           
     I                                    B   1   20SLEN                             
     I                                        3 255 STXT                             
****************** End of data ******************************************************

Calculations after input from file (C  specs):

*************** Beginning of data ***************************************************
     C* When moving data from the physical file to the program                       
     C* VC_USING FIELDS(S_220TXR S_220TXV)                                           
     C* (The line above will replace any references to the above fields with         
     C* shorter, LANSA generated internal field names)                               
     C*                                                                              
     C                     MOVE S_220TXR  S_220TXV                                   
****************** End of data ******************************************************

Calculations before output to file (C specs) :

*************** Beginning of data ***************************************************
     C* When moving data from the program to the physical file                       
     C* VC_USING FIELDS(S_220TXR S_220TXV)                                           
     C* (the line above will replace any references to the above fields with         
     C* shorter, LANSA generated internal field names)                               
     C*                                                                              
     C* Move the virtual field text data into STXT in the data structure             
     C                     MOVELS_220TXV  STXT                                       
     C* Find the non blank text length and put it in SLEN in the data structure      
     C           ' '       CHEKRSTXT      NUM     30                                 
     C                     Z-ADDNUM       SLEN                                       
     C* Move the data structure (containing the text and its length) into the        
     C* physical file field                                                          
     C                     MOVE SDTAS1    S_220TXR                                   
****************** End of data ******************************************************