ROUTINE DIRECTORY   18 -OCT- 08 
                        OF MGG,SYS       7 : 39  AM

%         % 77        % 88        % 99        %99R      %ACTJOB   %ADM      %AMON
%APILIB   %APILOG   %APISERV  %APIVER3  %BCSR     %CALC     %CALCN    %CALCS
%CHKSUM   %CURSOR   %D        %D1       %DATA     %DATAR    %DBSYNC   %DEBUG

>d ^%RS

                    MSM - Routine Save Utility
                         18 -OCT- 08    7 : 40  AM

Enter output device <HFS>:   Host File Server
File Name >: Dat.rsa
Enter size of save medium (if applicable):
Enter comment for dump header :

Routine selector: %DAT*

           2  routines Selected

Routine selector:

Saving ...
%DATA
<NOPGM>*XECUTE*CNT1+ 10 ^%RS::: 4 : 3 :
  1 ) ERR+ 1 ^%RS:: ZQ  1 
  0 ) *XECUTE*:: d ^%RS
<NOPGM>*XECUTE*CNT1+ 10 ^%RS::: 4 : 3 : d ^%RS
>

....
....
%CURSOR:  %CURSOR ;BFH;  31 -OCT- 00   13 : 26 
%D:       %D ;BPS;CONVERTS $H TO DD-MMM-YY; [  02 / 01 / 1999    1 : 11  PM ]
Routine: %D1 not found.
Routine: %DATA not found.
Routine: %DATAR not found.
....
....