MACRO 09000000 &NAME X5ERRL &A,&B,&C 18000000 .* MACRO GENERATES A CALL TO THE PHASE 5 ERROR LOGGING 18050000 .* ROUTINE X51 WITH THE ERROR NUMBER AS A PARAMETER 18100000 &NAME JCALL LOGERR 27000000 DC AL1(SEV&A,ERR&A,&B,0) (SEVERITY,ERROR NO.,FLAG,0) 36000000 AIF ('&C' EQ '').A100 45000000 B &C RECOVER OR ABORT RECORD 54000000 .A100 ANOP 63000000 MEND 72000000