*DECK NPREGHH 
PRGM NPREGHH; 
  XREF LABEL RJMAIN;
  BEGIN 
  GOTO RJMAIN;
  END 
TERM
