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