*DECK CB5TEXT 
          IDENT  CB5TEXT
 CB5TEXT  TITLE  CB5TEXT - COMPILER AND OBJECT ROUTINE ASSEMBLY TEXT
          STEXT 
**        CB5TEXT - TEXT WITH ERROR MESSAGES USED BY D00 CALLS
* 
*         THIS TEXT CONTAINS ASSEMBLY OPTION DEFINITIONS AND OBJECT 
*         TIME ERROR MESSAGES WHICH WILL BE OUTPUT BY D00.
* 
*         THIS TEXT MUST BE USED AS AN S OR G TEXT IN ASSEMBLING THE
*         COBOL 5 OBJECT ROUTINES.  IT REQUIRES S=IPTEXT TO BE
*         ASSEMBLED ITSELF. 
* 
*         LIST ERRORS IN ALPHA ORDER - A COMMENT CARD INDICATING
*         WHICH ROUTINE CALLS THE ERROR MUST PRECEEDE IT.  PUNCH THE
*         DECK NAME(S) STARTING IN COLUMN 18, SEPARATED BY COMMA SPACE. 
* 
*         EACH TAG STARTS WITH # TO PROVIDE EASY IDENTIFICATION 
*         THE FIRST THREE CHARS SHOULD BE THE FIRST THREE OF THE DECK 
*         OR A UNIQUE IDENTIFIER BASED ON THE DECK
* 
*         THE FIRST SECTION IS THE ASSEMBLY OPTION DEFINITIONS. 
  
*      INSERTION CHARACTER
 SUBST    EQU    1R'
* 
 ERRNO    SET    5370B       BIAS BY RANDOM NBR TO AVOID CONFLICTS
          MACRO  MSG,TAG,DIAG 
 TAG      EQU    ERRNO
 TAG      MICRO  1,,^_DIAG_^
 ERRNO    SET    ERRNO+1
          ENDM
          LIST   F
 PASSLOC  TITLE  GENERAL MACROS 
 PASSLOC  SPACE  5
**        PASSLOC - DEFINE A *PASSLOC* TABLE FOR FDL
* 
*         THIS MACRO INITIALIZES TABLE PROCESSING AND MUST BE FOLLOWED
*         BY AT LEAST A *PL.END*. 
* 
*         UNDER NORMAL CONDITIONS, THIS WILL BE FOLLOWED BY ONE OR
*         MORE *PL.ENTRY*S TO DEFINE THE ENTRY POINTS DESIRED.
* 
          MACRO  PASSLOC,NAME 
 PASSLOC  RMT 
 NAME     VFD    12/0024B,12/PL.WC,36/0 
          RMT 
 PL.EPT   MICRO  1,, A
 PL.WC    SET    0
 PASSLOC  ENDM
 PL.ENTRY SPACE  5
**        PL.ENTRY - DEFINE AN ENTRY POINT/EXTERNAL REF IN A PASSLOC
*         TABLE.
*                THIS HAS THE FOLLOWING FORM: 
*         TAG    PL.ENTRY    NAME,EXT 
*            OR 
*         TAG    PL.ENTRY    NAME,WEXT
*            OR 
*         TAG    PL.ENTRY    NAME 
* 
*         *NAME* IS THE NAME OF ENTRY/EXTERNAL REFERENCED, THIS 
*         MUST BE IN ALPHANUMERIC ORDER 
*                IF *NAME* IS UNDEFINED IN THIS PROGRAM, IT IS ASSUMED
*                TO BE RESIDENT IN THE CAPSULE
*         *EXT* IS SPECIFIED IF *NAME* IS A PROGRAM EXTERNAL. 
*         *WEXT* IS SPECIFIED IF *NAME* IS A PROGRAM WEAK EXTERNAL
*         THE SEQUENCE MUST TERMINATE WITH A *PL.END* 
* 
*         EXAMPLE:  
* 
*         SAM    PASSLOC
*                PL.ENTRY    BILL 
*                PL.ENTRY    JOE,EXT
*         JOHN   PL.ENTRY    TOM
*                PL.END 
* 
 PL.ADDR  MICRO  1,,*1*      LOCATION OF ADDRESS FIELD IN TABLE 
*                            USE AS:   SAI  TAG+"PL.ADDR" 
* 
          MACRO  PL.ENTRY,LOC,ENAM,X
          IFC    EQ,*X*EXT*,1 
          EXT    ENAM 
          IFC    GE, "PL.EPT" ENAM ,1 
A         ERR    PASSLOC NAMES MUST BE IN ALPHANUMERIC ORDER
 PL.EPT   MICRO  1,, ENAM 
 PASSLOC  RMT 
 LOC      VFD    42/0L_ENAM,18/0
 EDEF     IF     DEF,ENAM 
          VFD    42/0,18/ENAM 
 EDEF     ELSE
 EDEF1    IFC    EQ,*X*WEXT*
          VFD    42/0,18/=Y_ENAM
 EDEF1    ELSE
          DATA   0           ADDRESS IN CAPSULE 
 EDEF1    ENDIF 
 EDEF     ENDIF 
          RMT 
 PL.WC    SET    PL.WC+2
 PL.ENTRY ENDM
 PL.END   SPACE  5
**        PL.END - TERMINATE *PASSLOC* SEQUENCE 
* 
* 
 PL.END   MACRO 
 PASSLOC  HERE
 PL.END   ENDM
 ASSEMOP  TITLE  ASSEMBLY OPTIONS 
          IPARAMS 
          PURGMAC  CEQU 
          MACRO  CEQU,NAME,VALUE
          IF     -DEF,NAME,1
 NAME     EQU    VALUE
 CEQU     ENDM
COBLVL    SPACE  4
**        COBLVL MICRO -  LEVEL OF COBOL COMPILER 
* 
*         LEVEL OF COBOL COMPILER 
*         3 TO 5 CHARS LONG;  IF -ML- IS NOT SPECIFIED, IT BECOMES
*                -JDATE- INSTEAD. 
* 
* CHOICE =
COBLVL    MICRO  1,3,*871*
COBVER    SPACE  4
**        COBVER MICRO -  COBOL VERSION NUMBER
* 
*         COBOL VERSION NUMBER
*         EXACTLY 3 CHARACTERS LONG   (E.G. *5.0*)
* 
* CHOICE =
 COBVER   MICRO  1,3, 5.3 
 COMMENTS SPACE  4
**        COMMENT MICROS - DEFINE THE SYSTEM LEVEL FOR PREFIX TABLES
* 
 COMRTN   MICRO  1,,* * 
 SUBSYS   MICRO  1,,* * 
          SPACE  4
**        COPYRIGHT STATEMENT 
*         CALLED IN THE FOLLOWING ROUTINES
*                SFETS
*                C$INIT 
 COPYRT   MICRO  1,,*COPYRIGHT CONTROL DATA CORP. 1976,1977,1978,1979,
,1980,1981,1982 
DEBUG     SPACE  4
**        DEBUG -  DEBUG OPTIONS
* 
*         EXAMPLE-
* A       IFNZ   DEBUGA 
*         ...                ASSEMBLE DEBUG CODE
* A       ENDIF 
* 
*         NOTE-  SYMBOLS DEBUG<N> (N = DIGIT) ARE USED AS AN
*         ABBREVIATION FOR A COMBINATION OF SEVERAL DEBUG TYPES.
* 
* CHOICES = 
* DEBUGA  EQU    0           MEANS *NOTE* CODE IS DEACTIVATED 
* DEBUGA  EQU    1           MEANS *NOTE* CODE IS ASSEMBLED 
* OPTIONS = 
* DEFAULTS =
 DEBUGA   CEQU   0           MEANS *NOTE* CODE IS DEACTIVATED 
  
  
* CHOICES = 
* DEBUGB  EQU    0           MEANS EGO COMMAND IN LABEL IS NOT ASSEMBLED
* DEBUGB  EQU    1           MEANS EGO COMMAND IN LABEL IS ASSEMBLED
* OPTIONS = 
* DEFAULT = 
 DEBUGB   CEQU   0           LABEL COMMAND ASSEMBLED WITHOUT EGO
  
  
  
* CHOICES = 
* DEBUGC EQU 0               MEANS MISC. DEBUG CODE IS NOT ASSEMBLED
* DEBUGC EQU 0   1           MEANS MISC. DEBUG CODE IS ASSEMBLED
* OPTION =
* DEFAULT = 
 DEBUGC   CEQU   0           MISC. DEBUG CODE NOT ASSEMBLED 
  
 DEF.CS   SPACE  4
**        DEF.CS - DEFINE NUMBER OF NATIVE COLLATING SEQUENCE 
* 
*         DEF.CS =  5        CDC-64    (DEFAULT)
*                   7        ASCII-64 
* 
*         THE VALUE IS SET FROM IP.CSET 
* 
 A        IFEQ   IP.CSET,IP.C63 
 B        IFNE   IP.CSET,IP.C64.2 
 DEF.CS   EQU    5
 B        ELSE
 DEF.CS   EQU    7
 B        ENDIF 
 A        ELSE
 B        IFNE   IP.CSET,IP.C64.2 
 DEF.CS   EQU    5           SET DEFAULT CDC-64 
 B        ELSE
 DEF.CS   EQU    7
 B        ENDIF 
 A        ENDIF 
  
  
  
  
**        DEFINE COLLATING SEQUENCE DEFS                               *
*                                                                      *
*         IF CHANGES ARE MADE TO THESE DEFS ALSO CHANGE DEFS IN DNATVALS
*                                                                      *
*         CS.STND1  EQU   2  MEANS STANDARD-1 COLLATING SEQUENCE       *
*         CS.ASCII  EQU   7  MEANS ASCII-64 COLLATING SEQUENCE         *
*         CS.EBCDC  EQU   9  MEANS EBCDIC COLLATING SEQUENCE           *
*                                                                      *
 CS.STND1 EQU    2           STANDARD-1 
 CS.NTV   EQU    3           NATIVE 
 CS.CD64  EQU    5           CDC-64 
 CS.ASCII EQU    7           ASCII-64 
 CS.UNI   EQU    8           UNIVAC 
 CS.EBCDC EQU    9           EBCDIC 
OP.BDP    SPACE  4
**        OP.BDP -  GENERATE BDP INSTRUCTIONS IN OBJECT CODE
* 
*         EXAMPLE-
* OP.BDP  IFEQ   OP.BDP,OP.YES
*         ...                WORRY ABOUT BDP CODE FOR OBJECT CODE 
* OP.BDP  ELSE
*         ...                WORRY ABOUT NON-BDP CODE 
* OP.BDP  ENDIF 
* 
* CHOICES = 
 OP.YES   EQU    1           GENERATE BDP INSTRUCTIONS IN OBJECT CODE 
 OP.NO    EQU    0           DO NOT GENERATE BDP INSTRUCTIONS 
* OPTION =
  
* DEFAULT = 
 CMU      IFEQ   IP.CMU,OP.NO      CMU OR NO
 OP.BDP   CEQU   OP.NO       DO NOT GENERATE BDP INSTRUCTIONS 
 CMU      ELSE
 OP.BDP   CEQU   OP.YES 
 CMU      ENDIF 
  
  
 OP.DCS   SPACE  5
**        OP.DCS  - CDCS (CYBER DATA CONTROL SYSTEM) OPTIONS
* 
*         * * * * WARNING * * * * 
* 
*         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*         *      CHANGING THIS FLAG DOES ONLY HALF OF THE JOB.    * 
*         *      THE FLAG -CB5$CDCS- IN THE COMMON DECK -ASSEMOP- * 
*         *      MUST BE CHANGED TO MATCH.  FAILURE TO DO SO WILL * 
*         *      LEAD TO UNPREDICTABLE RESULTS.                   * 
*         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* 
* 
* CHOICES = 
 OP.NO    CEQU   0           NONE SELECTED
 OP.DCS1  EQU    1           CDCS VERSION 1 (INTERCEPT OF NORMAL I-O) 
 OP.DCS2  EQU    2           CDCS VERSION 2 
* OPTIONS = 
 OP.DCS   CEQU   OP.NO       CDCS INACTIVE
 OP.COLSQ SPACE  4
**        OP.MCS - MCS (MESSAGE CONTROL SYSTEM) OPTIONS 
* 
*                USED BY MCS OBJECT ROUTINES
*                USED IN THE CALLSS MACRO 
*                OP.MCS1 IS SUBSYSTEM ID FOR NOS/BE 
*                OP.MCS2 IS SUBSYSTEM ID FOR NOS
* 
 OP.MCS1  EQU    2           CALSS SSID FOR NOS/BE
 OP.MCS2  EQU    7765B
  
  
  
 TAF      SPACE  4,15 
**        OP.TAF - TAF ( TRANSACTION FACILITY ) OPTIONS.
* 
*                USED BY SELECTED COBOL5 OBJECT ROUTINES TO SUPPORT 
*                TERMINAL I-O IN THE TAF ENVIRONMENT ONLY - NOS ONLY. 
  
  
 OP.TAF   CEQU   OP.NO       DEFAULT NO TAF 
          SPACE  4,15 
**        OP.PD - PRINT DENSITY 
*                3  DOUBLE SPACE 6 LINES PER INCH 
*                4  DOUBLE SPACE 8 LINES PER INCH 
*                6  SINGLE SPACE 6 LINES PER INCH 
*                8  SINGLE SPACE 8 LINES PER INCH 
* 
 OP.PD    EQU    IP.PD
**        OP.PS - PAGE SIZE 
* 
 OP.PS    EQU    IP.PS
**        OP.COLSQ - DEFINE PROGRAM COLLATING SEQUENCE
* 
*         OPTIONS=
 OP.C64   EQU    1           CDC-64  (DEFAULT)
 OP.ASCII EQU    2           ASCII-64 
* 
*         THIS VALUE IS SET FROM IP.CSET
 A        IFEQ   IP.CSET,IP.C63 
 OP.CH63  EQU    OP.YES 
 C        IFNE   IP.CSET,IP.C64.2 
 OP.COLSQ EQU    OP.C64 
 C        ELSE
 OP.COLSQ EQU    OP.ASCII 
 C        ENDIF 
 A        ELSE
 B        IFNE   IP.CSET,IP.C64.2 
 OP.COLSQ EQU    OP.C64      SET CDC-64 
 B        ELSE
 OP.COLSQ EQU    OP.ASCII    SET ASCII-64 
 B        ENDIF 
 A        ENDIF 
 OP.CH63  SPACE  4
**        OP.CH63 - 63 CHARACTER SET FLAG 
*                SET EQUAL TO OP.YES IF 63 CHARACTER SET SYSTEM 
*         MAKES CDC-64 AND ASCII-64 REALLY CDC-63 AND ASCII-63. 
* 
 OP.CH63  CEQU   OP.NO       DEFAULT SETTING..SET YES IN OP.COLSQ 
OP.MODEL  SPACE  4
**        OP.MODEL -  MODEL OF MACHINE FOR OBJECT CODE
* 
* CHOICES = 
 OP.6400  EQU    1           6400 TYPE (UNIFIED) CPU
 OP.6600  EQU    2           6600 TYPE (NON-UNIFIED) CPU
*                            - INCLUDES 7000 TYPES ALSO 
* OPTION =
  
* DEFAULT = 
          IFEQ   OP.BDP,OP.YES,1
 OP.MODEL CEQU   OP.6400     ASSUME 6400 TYPE CPU IF CMU ON 
          IFC    NE,*"MODEL"*74*   OR 
          IFC    NE,*"MODEL"*76*   OR 
          IFC    NE,*"MODEL"*176*  OR 
          IFC    NE,*"MODEL"*175*  THEN 
 OP.MODEL CEQU   OP.6400
          ELSE                     ELSE 
 OP.MODEL CEQU   OP.6600
          ENDIF 
  
**        OP.BETA - CYBER 176 
* 
* CHOICES 
*         OP.YES - CYBER 176 - RJ BREAKS STACK
*         OP.NO  - NOT CYBER 176 - JP BREAKS STACK
* 
          IFC    EQ,*"MODEL"*176* 
 OP.BETA  EQU    OP.YES 
          ELSE
 OP.BETA  EQU    OP.NO
          ENDIF 
          SPACE  3
 OP.DIREC SPACE  4
**        OP.DIREC - DIRECT ACCESS ECS/LCM AVAILABLE
* 
*                OR.... ARE RX AND WX LEGAL INSTRUCTIONS
* 
* CHOICES=
*         OP.NO              RX (014JK) AND WX(015JK) ILLEGAL OP CODES
*         OP.YES             RX AND WX ARE LEGAL
* OPTION= 
  
* DEFAULT=
 OP.DIREC CEQU   OP.NO       RX AND WX ARE ILLEGAL
 OSID     SPACE  4
**        OSID MICRO - OPERATING SYSTEM IDENTIFICATION
* 
 OSID     MICRO  1,10,*"OS.ID"* 
OSNAME    SPACE  4
**        OSNAME MICRO -  NAME OF OPERATING SYSTEM
* 
*         NAME OF OPERATING SYSTEM
*         EXACTLY 6 CHARACTERS LONG   (E.G. *SCOPE *) 
* 
* DEFAULT=
 OSNAME   MICRO  1,6,*"OS.NAME"*
* CHOICE =
  
OSVER     SPACE  4
**        OSVER MICRO -  OPERATING SYSTEM VERSION 
* 
*         VERSION OF OPERATING SYSTEM 
*         EXACTLY 4 CHARACTERS LONG   (E.G. *3.4 *) 
* 
* DEFAULT=
 OSVER    MICRO  1,4,*"OS.VER"* 
* CHOICE =
  
 COB5LIB  SPACE  4
**        COB5LIB MICRO - DEFAULT COBOL5 SYSTEM LIBRARY NAME
* 
*         SUPPLIES THE NAME THAT IS PLACED IN LDSET DIRECTIVES IF 
*                THE COMPILER IS LOADED FROM THE SYSTEM.
*         MAY BE 1 TO 7 CHARACTERS IN LENGTH
* 
* CHOICE= 
 COB5LIB  MICRO  1,,*COBOL5*
 SORTLIB  SPACE  4
**        SORTLIB MICRO - DEFAULT SORT SYSTEM LIBRARY NAME. 
*                ALSO SELECTS DEFAULT SORT VERSION
*                IF SRTLIB, SORT4 IS DEFAULT
*                IF SRT5LIB, SORT5 IS DEFAULT 
* 
*                SAME USAGE AS COB5LIB....
* 
*                MAY BE 1 TO 7 CHARACTERS IN LENGTH.
* 
 SORTLIB  MICRO  1,,*SRT5LIB* 
 SPACESZ  SPACE  4
**        SPACESZ - EQU OF SIZE OF C.SPACE (OR C.BLANK) OT OBJECT TIME
* 
 SPACESZ  EQU    150
 STKSIZ   SPACE  4
**        STKSIZ MICRO - DEFINE STACK ENTRY SIZE FOR CBENTRY, ETC.
* 
 STKSIZ   MICRO  1,,*5* 
 OBJTIME  TITLE  OBJECT TIME DIAGNOSTICS
*         OBJECT TIME DIAGNOSTICS 
*                CBADVAN
 #ADVRMB  MSG    (RECORDING MODE BINARY ON ADVANCING FILE)
 #ADVRTZ  MSG    (RECORD TYPE NOT PRINTABLE ON AN ADVANCING FILE) 
*                CBACCMN
 #ATENAC  MSG    (AT END WHILE TRYING TO ACCEPT FROM FILE)
*                CBCOMIO
 #COMCRM  MSG    (CRM ERROR NUMBER ') 
 #COMDPF  MSG    (ATTEMPT TO OPEN FILE WITH SAME NAME AS AN OPEN FILE)
 #COMFIL  MSG    (INTERNAL FILE NAME = ') 
 #COMFNE  MSG    (FILE OPENED INPUT OR I-O DOES NOT EXIST)
 #COMLCK  MSG    (ATTEMPT TO OPEN A LOCKED FILE)
 #COMNDC  MSG    (NO EXCEPTION PROCESS PROVIDED)
 #COMSTO  MSG    (COBOL SYSTEM ERROR - IO STACK OVERFLOW) 
 #COMSTU  MSG    (COBOL SYSTEM ERROR - IO STACK UNDERFLOW)
*                CBDAOC 
 #DAOC1   MSG    (HOME BLOCK COUNT NOT SPECIFIED FOR NEW DA FILE) 
*                CBOMM
 #MMERR2  MSG    (C.GETBK GIVEN ILLEGAL BLOCK TYPE) 
 #MMERR3  MSG    (UNKNOWN BLOCK OR BAD POINTER ADDR)
 #MMERR4  MSG    (GROW REQUEST ON FIXED SIZE BLOCK) 
*                CBMSG
 #CBMSG1  MSG    (CALLED FROM ' AT SOURCE LINE ') 
 #CBMSG2  MSG    (JOB ABORTED)
*                CBRLOC 
 #RLMSG1  MSG    (MULTI-VOLUME VERSION 4 RELATIVE FILE ILLEGAL) 
 #RLMSG2  MSG    (RECORD LENGTH ON OLD RELATIVE FILE DIFF THAN PROGRAM) 
 #RLMSG3  MSG    (RELATIVE FILE HEADER NOT VALID) 
 #RLMSG4  MSG    (OLD RELATIVE FILE EMPTY - NO HEADER)
*                CBWRMSG
 #RWMS1   MSG    (RWCS ERROR IN SPACING ROUTINE)
 #RWMS2   MSG    (RWCS ERROR IN BODY-NEXT-GROUP ROUTINE)
 #RWMS3   MSG    (RWCS ERROR IN BODY-PAGING ROUTINE)
 #RWMS4   MSG    (THE REPORT WAS NOT INITIATED SO THE RWCS INITIATED IT 
,BEFORE PROCESSING THIS GENERATE) 
 #RWMS5   MSG    (THE REPORT HEADING AND THE FIRST PAGE HEADING OVERLAP 
,SO THE PAGE HEADING IS SUPPRESSED BY THE RWCS) 
 #RWMS6   MSG    (THE REPORT FOOTING AND THE LAST PAGE FOOTING OVERLAP S
,O THE REPORT FOOTING IS SUPPRESSED BY THE RWCS)
 #RWMS7   MSG    (THE REPORT IS ALREADY INITIATED SO THIS INITIATE IS IG
,NORED BY THE RWCS) 
 #RWMS8   MSG    (THE REPORT IS NOT INITIATED SO THIS TERMINATE IS IGNOR
,ED BY THE RWCS)
*                CBSEG
 #SEGM1   MSG    (LOADER ERROR LOADING COBOL SEGMENT) 
*                CBSETCS
 #SETMSG1 MSG    (SET CODE-SET ON ACTIVE FILE)
*                CBSORT 
 #SRTM1   MSG    (E N D   C O B O L   M E R G E)
 #SRTM2   MSG    (E N D   C O B O L   S O R T)
 #SRTM3   MSG    (' MRL EXCEEDS SORT FILE MRL)
 #SRTM4   MSG    (' MRL LESS THAN SORT FILE MRL)
 #SRTM5   MSG    (' RECORDS RELEASED) 
 #SRTM6   MSG    (' RECORDS RETURNED) 
 #SRTM7   MSG    (-RELEASE- USED IMPROPERLY)
 #SRTM8   MSG    (-RETURN- USED IMPROPERLY) 
 #SRTM9   MSG    (SORT/MERGE WITHIN SORT/MERGE) 
 #SRTM10  MSG    (S T A R T   C O B O L   M E R G E)
 #SRTM11  MSG    (S T A R T   C O B O L   S O R T)
 #SRTM14  MSG    (-RELEASE- RECORD-NAME NOT IN CURRENT SD)
 #SRTM15  MSG    (-RETURN- FILE-NAME NOT CURRENT SD)
*                CBXLATE
 #XLATMSG MSG    (UNIVAC TRANSLATE TABLE -C.XTAB- NOT IN CORE)
*                GSUBSC 
 #SUBOVF  MSG    (SUBSCRIPT OUT OF RANGE) 
*                ANY I-O ROUTINE
 #DLRWSQ  MSG    (DELETE OR REWRITE ON SEQ ACCESS FILE WITH NO VALID REA
,D PRECEEDING)
*                ALL INPUT-OUTPUT 
 #IOMSG1  MSG    (READ ... NEXT WITH UNDEFINED CURRENT REC POINTER) 
*                CGABORT
 #GETCAB  MSG    (SOURCE STATEMENT SYNTAX ERROR)
*                CGSTART
 #GSTABT  MSG    (STOP RUN NOT ENCOUNTERED IN PROGRAM)
*                CBAN2EC, CBEC2EC AND CBEC2AN 
 #ECSERR  MSG    (ECS TRANSFER ERROR) 
*         CBSQWR
 #RLERR   MSG    (REWRITE RL DOES NOT EQUAL OLD RL) 
 #RTERR   MSG    (ILLEGAL RECORD TYPE FOR REWRITE)
*                CBDMRDR
 #DMREL1  MSG    (INVALID RELATION-NAME)
 #DMREL2  MSG    (-AT END- NOT ON ROOT AREA)
*                CBIOST, CBSORT 
 #PRMERR  MSG    (INVALID PARAMETER TO ') 
*         GBRANCH 
 #CALLOV  MSG    (CALL CAUSED OVERFLOW, NO ON OVERFLOW SPECIFIED) 
*         CBCALL
 #CALL1   MSG    (CALLED PROGRAM NOT IN FDL FILE) 
 #CNCL1   MSG    (CANCEL FOR STATIC ROUTINE IGNORED)
 #CNCL2   MSG    (CANCEL FOR ROUTINE WHICH HAS NOT TAKEN EXIT)
 #CNCL3   MSG    (CANCELLED PROGRAM NOT IN FDL FILE)
*         CDCS2              CBDMLOK, CBCOMIO 
 #DMLOK1  MSG    (DEADLOCK CONDITION, AND NO DEADLOCK DECLARATIVE)
*         CBGETEP 
 #GETEP1  MSG    (ERROR IN C.GETEP CALL - FATAL)
 #PARAM1  MSG    (REFERENCE TO LINKAGE SECTION ITEM NOT IN USING LIST)
 #PARAM2  MSG    (PARAMETER MISMATCH) 
 #OBNC    MSG    (PRE 446 BINARY CANNOT BE EXECUTED)
  
*                C.FILE 
 #CBFE1   MSG    (C.FILE CALL - LFN NOT LEGAL FILE NAME - NAME IS ')
 #CBFE2   MSG    (C.FILE CALL - PARAMETER DATA ITEM NOT ALPHANUMERIC) 
 #CBFE3   MSG    (C.FILE CALL - ILLEGAL PARAMETER STARTING IN CHAR ') 
 #CBFE4   MSG    (C.FILE CALL - FILE ORG NOT DIRECT AND TRC SPECIFIED)
 #CBFE5   MSG    (C.FILE CALL - COMMA REQUIRED HERE - IN CHAR ')
 #CBFE6   MSG    (C.FILE CALL - = SIGN REQUIRED HERE - IN CHAR ') 
 #OPNMF   MSG    (MULTI-FILE FILE NOT ASSIGNED TO MAGNETIC TAPE)
 #GOTOERR MSG    (UNALTERED GO TO EXECUTED) 
*                CBRLSQ,CBRLRA
 #RDOPF   MSG    (READ ON FILE OPENED FOR OUTPUT) 
*         CBPERF
 #PRFMSG  MSG    (ILLEGAL EXIT FROM PERFORM)
 #SRTM12  MSG    (RETURN EXECUTED AFTER AT END DETECTED)
 #COMOPW  MSG    (ATTEMPT TO OPEN FILE OPENED BY ACCEPT OR DISPLAY AND P
,ROCESSING DIRECTION DIFFERS) 
 #RFMSG   MSG    (ILLEGAL REFERENCE MODIFICATION) 
*         CBDTCMP 
 #CBDTC1  MSG    (C.DTCMP - PARAMETER NOT ALPHANUMERIC OR LESS THAN 8 CH
,ARACTERS IN LENGTH)
*         C$DELFL 
 #DLFLOP  MSG    (DELETE FILE ON OPEN FILE - IGNORED) 
 #CLOSF1  MSG    (FILE ' NOT CLOSED AT STOP RUN AND CANNOT BE CLOSED) 
 #CLOSF2  MSG    (FILE ' NOT CLOSED AT STOP RUN OR CANCEL - CLOSED BY CO
,BOL) 
 #RLPRUM  MSG    (RELATIVE FILE CREATED WITH PRUF=YES BUT RE-OPENED AS
,NON PRUF)
 #TAFOVF MSG     (CALLS NESTED TOO DEEP IN TAF TASK)
 #OPRLBG  MSG    (MRL OR FL SET IN FILE STATEMENT IS LARGER THAN RECORD 
,AREA - TRUNCATED TO RECORD AREA SIZE)
 #DMRLS   MSG    (MAX RECORD LENGTH OF FILE ' REFERENCED IN A DISPLAY ST
,ATEMENT MUST EXCEED 1 CHARACTER) 
 #CLUOF   MSG    (CLOSE ISSUED ON AN UNOPEN FILE) 
          END 
