MACRO 00050002 OUTBUFM 00100002 OUTBUF DSECT 00150002 SPACE 00200002 CNTLCHAR DS CL1 00250002 ADDR DS CL6 00300002 DS CL4 A/1 00350002 FIELD1 DS CL35 00400002 DS CL3 A/1 00450002 FIELD2 DS CL35 00500002 DS CL3 00550002 ASTR1 DS CL1 00600002 EBCDIC DS CL32 00650002 ASTR2 DS CL1 00700002 DS CL12 00750002 AOUTBUF DSECT @Z40MI3F 00755000 ACTLCHAR DS CL1 @Z40MI3F 00760000 AADDR DS CL6 @Z40MI3F 00765000 DS CL1 @Z40MI3F 00770000 AFIELD1 DS CL33 @Z40MI3F 00775000 AFIELD2 DS CL33 @Z40MI3F 00780000 AFIELD3 DS CL33 @Z40MI3F 00785000 AFIELD4 DS CL33 @Z40MI3F 00790000 AEBCDIC DS CL65 @Z40MI3F 00795000 EJECT 00800002 MEND 00850002