COMBPFS 
COMMON
  
                                                                      # 
          CTEXT COMBPFS - *PF* ROUTINE RETURN CODE STATUS.
                                                                      # 
  
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
  
                             BEGIN  # COMBPFS # 
  
                                                                      # 
  
***       COMBPFS - *PF* ROUTINE RETURN CODE STATUS.
* 
*         *COMBPFS* CONTAINS A STATUS WORD FOR THE *PF* ROUTINE IN
*         *CPUREL* TO RETURN AN ERROR CODE TO.  THIS STATUS WORD
*         MUST BE USED BY ALL *SSEXEC* ROUTINES THAT USE THE
*         ROUTINE *PFD*, WHICH INTERFACES TO THE *PF* ROUTINE.
  
          USE    /APFSCOM/
 PFSTAT   BSS    1
          USE 
          COL    12 
                                                                      # 
  
           COMMON APFSCOM;
             BEGIN  # APFSCOM # 
             ITEM PFSTAT     I;      # *PF* RETURN CODE STATUS #
             END  # APFSCOM # 
  
           END  # COMBPFS # 
  
                                                                      # 
          COL    30 
          ENDX
                                                                      # 
  
                                               CONTROL LIST;
