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 ******************************************************