*DECK REQPF 
          IDENT  REQPF
  
          LIST   -L          *CALL MACRO  FOLLOWS 
*CALL MACRO 
          LIST   L
          LIST   -L          *CALL NUMOPT FOLLOWS 
*CALL NUMOPT
          LIST   L
          LIST   F           LIST IF-SKIPPED LINES
  
  
  
  
          ENTRY   REQPF 
 REQPF    SUBR               ENTRY/EXIT 
  
          IFEQ   OS$NAME,SCOPE
          SA4     A1+1       (X4) = ADDRESS OF RC PARAMETER 
          BX6     X4
          SA2     X1         (X2) = 42/LFN,18/STUFF 
          SA6    TEMP        SAVE ADDRESS FOR RETURNING STATUS
          MX3     42
          BX6     X3*X2      (X6) = 42/LFN,18/0 
          SA6     PFLOC 
          REQUEST PFLOC 
          SA2     PFLOC 
          LX2    -9          RIGHT JUSTIFY BIT 9
          MX6    -5 
          BX6    -X6*X2      (X6) = STATUS CODE FROM REQUEST
          SA2    TEMP        (X2) = ADDRESS OF RETURN CODE PARAMETER
          SA5    PFL2 
          SA6     X2
          BX7    X5 
          SA7    PFLOC+1     RESTORE WORD 1 OF REQUEST BLOCK
          ENDIF 
  
          EQ     EXIT.
PFL2      DATA   22004400000B 
 PFLOC    DATA    0 
          DATA   22004400000B 
          DATA   0,0
TEMP      BSS    1
  
  
          END 
