Description: Zeros the result field and subtracts factor 1 from it (negative move).
Legacy RPG400 Example:
C Value Z-SUB Result
C Z-SUB 100 Amount 50
C Z-SUB 100 Amount 50
Modern RPGLE Example:
dcl-s Amount packed(5:0);
Amount = -100;
Amount = -100;