Figure 1: Converting legacy code to named indicatorsD PtrIndicators S * Inz(%Addr(*In)) D Indicators DS Based(PtrIndicators) D Exit 3 3N D Cancel 12 12N D Overflow 90 90N D Sfldspctl 91 91N D Sfldsp 92 92N D Sflend 93 93N D Sflclr 94 94N
D PtrIndicators S * Inz(%Addr(*In)) D Indicators DS Based(PtrIndicators) D Exit 3 3N D Cancel 12 12N D Overflow 90 90N D Sfldspctl 91 91N D Sfldsp 92 92N D Sflend 93 93N D Sflclr 94 94N