COMAPFS 
COMMON
  
                                                                      # 
          CTEXT COMAPFS - *PF* ROUTINE RETURN CODE STATUS.
                                                                      # 
  
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
  
                             BEGIN  # COMAPFS # 
  
                                                                      # 
  
***       COMAPFS - *PF* ROUTINE RETURN CODE STATUS.
* 
*     COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
* 
*         *COMAPFS* CONTAINS A STATUS WORD FOR THE *PF* ROUTINE IN
*         *CPUREL* TO RETURN AN ERROR CODE TO.  THIS STATUS WORD
*         MUST BE USED BY ALL *MSSEXEC* 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  # COMAPFS # 
  
                                                                      # 
          COL    30 
          ENDX
                                                                      # 
  
                                               CONTROL LIST;
