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