I had problems assembling CARD with current maclibs because of changes in the expansion of FSCLOSE and FSERASE macros. In fixing them, I decided that I might as well explicitly use SVC 202 since it's used throughout the code. :READ CARD AUXFIX C1 - 04/11/92 17:00:15 UPDTFSCA * Use SVC 202 for FSCLOSE and FSERASE :READ CARD UPDTFSCA C2 - 04/11/92 17:24:08 ./ R 07594990 $ 7595980 990 04/11/92 17:24:08 * FSCLOSE FSCB=RWPLIST Use rdbuf plist to close file. *FSCA LA R1,RWPLIST *FSCA BAL R14,FSCLOSE *FSCA ./ R 13035990 13041980 $ 13036980 990 04/11/92 17:24:08 LOADRET DS 0H *FSCA *OADRET FSCLOSE FSCB=RWPLIST Close workfile if still open. *FSCA LA R1,RWPLIST *FSCA BAL R14,FSCLOSE *FSCA LOADRET1 DS 0H *FSCA *OADRET1 FSERASE FSCB=RWPLIST .... and erase it. *FSCA LA R1,RWPLIST *FSCA BAL R14,FSERASE *FSCA ./ I 22892970 $ 22893020 50 04/11/92 17:24:08 *--------------------------------------------------------------*FSCA * Hand-coded FSCLOSE and FSERASE to use SVC 202 instead of *FSCA * SVC 204, and thereby permit execution under CMS Release 4. *FSCA *--------------------------------------------------------------*FSCA FSCLOSE DS 0H *FSCA * FSCLOSE FSCB=(R1) *FSCA MVC 0(8,R1),=CL8'FINIS' *FSCA SVC 202 *FSCA DC AL4(1) *FSCA BR R14 *FSCA FSERASE DS 0H *FSCA * FSERASE FSCB=(R1) *FSCA MVC 0(8,R1),=CL8'ERASE' *FSCA SVC 202 *FSCA DC AL4(1) *FSCA BR R14 *FSCA ------------------------------------------------------------------------ Kent Fiala <[log in to unmask]> SAS Institute Inc., Cary NC 27513 USA 919-677-8000 x6646