*DECK SM5OFL
          PROC  SM5OFL(VALUE);
  
#**       SM5OFL -  SET RAW PARAMETER OF OWNFL                         #
#                                                                      #
#     CALLING SEQUENCE-                                                #
#         CALL SM5OFL(VALUE)                                           #
#                                                                      #
#     GIVEN-                                                           #
#         VALUE = INTEGER SPECIFYING LENGTH OF ALL RECORDS RETURNED    #
#          BY ANY OWNCODE PROCEDURE.                                   #
#                                                                      #
#     DOES-                                                            #
#         IF CALLED IN THE WRONG ORDER,                                #
#             ISSUE A DIAGNOSTIC, AND                                  #
#             RETURN.                                                  #
#         SAVE RAW PARAMETER OF TYPE "OWNFL".                          #
  
  
          BEGIN 
          ITEM  VALUE        I;        # RECORD LENGTH FROM ALL OWNS   #
  
          XREF
              BEGIN 
              PROC  S$ERROR;           # HANDLE A USER ERROR           #
              FUNC  S$INSEQ  B;        # TRUE IFF CALLED IN SEQUENCE   #
              PROC  S$SVREL;           # SAVE RAW PARAM. FROM RELOC.   #
              END 
  
*CALL A 
  
*CALL E$
  
*CALL RP$ 
  
*CALL SQ$ 
  
          CONTROL DISJOINT; 
  
          CONTROL INERT;
  
CONTROL EJECT;
  
#     IF CALLED IN THE WRONG ORDER,                                    #
#         ISSUE A DIAGNOSTIC, AND                                      #
#         RETURN.                                                      #
  
          IF NOT S$INSEQ(SQ$"SM5OFL") THEN
              BEGIN 
              S$ERROR(E$110);# CALL OUT OF SEQUENCE                    #
#***#         RETURN; 
              END 
  
#     SET LENGTH OF RECORDS FROM ANY OWNCODE PROCEDURE                 #
  
          RP$TYPE = RP$T"OWNFL";
          RP$VALUE = VALUE; 
          S$SVREL(RP$); 
  
          END # SM5OFL #
          TERM
