BEGIN PGM 247 MM 
Q339 = ABS Q339
FN 17: SYSWRITE ID 530 NR1 =+Q339
FN 17: SYSWRITE ID 420 NR0 IDX0 =+0
END PGM 247 MM 
