BEGIN PGM INIT41X MM 
FN 9: IF +Q305 EQU +0 GOTO LBL 2
FN 18: SYSREAD Q1 = ID530 NR2 IDXQ305
FN 9: IF +Q1 EQU +0 GOTO LBL 2
FN 14: ERROR= 1085
LBL 2
END PGM INIT41X MM 
