MACRO 00001000 EXCPW 00002000 ENTRY EXCPW 00003000 EXCPW DS 18D EXCP WORK AREA 00004000 MEND 00005000