*COMDECK PFMESS 
          CTEXT - PFMESS  MESSAGES AND FDB RETURN CODES 
****
*         PFMESS COMDECK
* 
* 
*         FDB RETURN CODES(COMMON)
*         PFMESSS  COMDECK
*         (WORD 5, BITS  17-9)
* 
*         MESS NUMBERS ARE EQUAL TO THESE RETURN CODES
*         CODES GREATER THAN 67B ARE FATAL
* 
*                                  SYMBOLIC RETURN CODE RCXXX 
*                                  XXX=RETURN CODE VALUE
* 
RC000     EQU    000B              PF REQUEST SUCCESSFUL
RC001     EQU    001B              PFN/ID ERROR 
RC002     EQU    002B              LFN ALREADY IN USE 
RC003     EQU    003B              UNKNOWN LFN
RC004     EQU    004B              NO ROOM FOR EXTRA CYCLE
RC005     EQU    005B              RBTC FULL
RC006     EQU    006B              NO LFN OR PFN
RC007     EQU    007B              PFD DEVICE UNAVAILABLE 
RC010     EQU    010B              LATEST INDEX NOT WRITTEN 
RC011     EQU    011B              FILE NOT ON PF DEVIC 
RC012     EQU    012B              FILE NOT CATALOGUED, SN=XXXXXXX
RC013     EQU    013B              ARCHIVE RETRIEVAL ABORTED
RC014     EQU    014B              BAD LPF COMMUNICATION
RC015     EQU    015B              CY NO. LIMIT REACHED 
RC016     EQU    016B              PFD ALMOST FULL
RC017     EQU    017B              OP ON NON-PF 
RC020     EQU    020B              FUNCTION ATTEMPT ON NON-LOCAL FILE 
RC021     EQU    021B              IMPROPER ARCHIVE RETRIEVAL CALL
RC022     EQU    022B              FILE NEVER OPENED
RC023     EQU    023B              CYCLE INCOMPLETE 
RC024     EQU    024B              PF ALREADY ATTACHED
 RC025    EQU    25B               FILE ARCHIVED
RC026     EQU    026B              ILLEGAL CHARACTER IN FDB PARAMETER 
RC027     EQU    027B              ILLEGAL LFN
RC030     EQU    030B              FILE DUMPED
RC031     EQU    031B              ILLEGAL FUNCTION CODE
RC032     EQU    032B              PURGE ATTEMPT IGNORED - USE RB PARAME
RC033     EQU    033B              SHRINK NEEDS EXCL.ACCESS 
RC034     EQU    034B              FDB IS TOO LARGE 
RC035     EQU    035B              FILE ALREADY IN SYSTEM 
 RC036    EQU    36B               NO APF SPACE 
 RC037    EQU    37B               PERMISSION CONFLICTS 
RC040     EQU    040B              ILLEGAL SETNAME
RC041     EQU    041B              SET NOT MOUNTED AT THIS C.P. 
RC042     EQU    042B              RBT CHAIN TOO LARGE
RC070     EQU    070B              PFM STOPPED BY SYSTEM
RC071     EQU    071B              SECURITY VIOLATION 
RC072     EQU    072B              FDB ADDRESS INVALID
RC073     EQU    073B              I/O ERROR ON PFD/PFC READ/WRITE
RC074     EQU    074B              ST PARAMETER ILLEGAL WITH USER SETS
          IF     DEF,CATALOG,1
RC075     EQU    075B 
****
          TITLE  PF MESSAGES AND RETURN CODES(COMMON) 
****
* 
* 
*         MESSAGES (COMMON) 
* 
*         TO REDUCE PROGRAM SIZE AT THE SAME TIME CENTRALIZE
*         THE LOCATION OF THE MESSAGES SOME OF THE MESSAGES 
*         ARE CONDITIONALLY ASSEMBELED
  
          IFNONE  (LOA,CATALOG2,QFILE),1
MESS3     DIS    ,*LFN IS*
          IFNONE  (CATALOG2,EXTEND,LOA,RENAME,QFILE),1
MESS4     DIS    ,*PFN IS*
  
          IFNONE  (ATTACH,LOA,CATALOG2,EXTEND,QFILE),1
MESS6     DIS    ,*INVALID CYCLE NUMBER IGNORED*
  
          IFNONE  (LOA,RENAME,CATALOG2,ATTACH,EXTEND,QFILE),1 
MESS13    DIS    ,*PF CYCLE NO. = 000*
  
RML       IFANY  (ATTACH,CATALOG) 
RMLMSG    RMT 
MESS14    DIS    ,*I/O ERROR* 
MESS17    DIS    ,*LABEL NOT FOUND* 
RMLMSG    RMT 
RML       ENDIF 
  
          IF     -DEF,ONEPD,1 
          IF     -DEF,ATTACH,1
MESS16    DIS    ,*PFM SYS ERR, CODE XX*
  
          IFANY  (CATALOG2),1 
MESS30    DIS    ,*RP = "IPPFRP" DAYS*
  
          IFANY  (ATTACH,SETP),1
MESS31    DIS    ,*BAD POSITION-IGNORED*
  
CATALOG   IFANY  (CATALOG)
MESS1     DIS    ,*NEWCYCLE CATALOG*
MESS2     DIS    ,*INITIAL CATALOG* 
3PCMSG    RMT 
MESS5     DIS    ,*FILE NOT ON PF DEFAULT SET*
3PCMSG    RMT 
8PCMSG    RMT 
MESS7A    DIS    ,*NOT SAAM FILE-FO PARAMETER IGNORED*                  T43B  20
8PCMSG    RMT 
MESS8     DIS    ,*CY NO. ALREADY IN USE* 
CATALOG   ENDIF 
  
RENAME    IFANY  (RENAME) 
MESS7     DIS    ,*ID-PFN PAIR ALREADY EXISTS,IGNORED*
MESSR8    DIS    ,*INACTIVE CYCLE, NO PFN,ID,CY CHANGES MADE* 
MESSR30   DIS    ,*RETENTION TOO LONG,MAX USED* 
RENAME    ENDIF 
  
MESS92    IFNONE  (QFILE) 
          IF     -DEF,ONEPD,1 
          IF     -DEF,ATTACH,1
MESS92    DIS    ,*PF ABORT*
MESS92    ENDIF 
          ENDX
