*DECK S$RTNFL 
          PROC S$RTNFL; 
  
#**       S$RTNFL - RETURN INTERNAL FILES                              #
#                                                                      #
#    CALLING SEQUENCE-                                                 #
#         S$RTNFL:                                                     #
#                                                                      #
#                                                                      #
#    DOES -                                                            #
#         RETURNS ALL OF SORT 5'S INTERNAL FILES (ZZZZZ1A-ZZZZZ3Z)     #
#         -EXCEPT- 'ZZZZZ3X'  AND 'ZZZZZ3Y'                            #
#         PLUS "CODE"                                                  #
#                                                                      #
          BEGIN 
  
          XREF PROC S$RTNZZ;
          ITEM FILENAME;
          ITEM  ZZZZZ3X = O"32323232323630000001";
          ITEM  ZZZZZ3Y = O"32323232323631000001";
  
          PROC ZZZLOOP(LFN);
          BEGIN 
          ITEM LFN; 
          ITEM I; 
          FOR I = 1 STEP 1 UNTIL 26 DO
              BEGIN 
              B<36,6>LFN = I; 
              IF NOT ( LFN EQ ZZZZZ3X OR LFN EQ ZZZZZ3Y ) THEN
                  S$RTNZZ(LFN); 
              END 
          END # ZZZLOOP # 
  
  
          # SET FILENAME = "ZZZZZ1-" AND RETURN ALL OF THEM            #
  
          FILENAME = O"32323232323400000001"; 
          ZZZLOOP(FILENAME);
  
          # SET FILENAME = "ZZZZZ2-" AND RETURN ALL OF THEM            #
  
          FILENAME = O"32323232323500000001"; 
          ZZZLOOP(FILENAME);
  
          # SET FILENAME = "ZZZZZ3-" AND RETURN ALL OF THEM            #
  
          FILENAME = O"32323232323600000001"; 
          ZZZLOOP(FILENAME);
          END 
  
          TERM
