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