*COMDECK FUNCTIONS
               ,  ABSVALOF   # S    ABSOLUTE VALUE OF FIXED            #
               ,  ALLBITOF   #   **NOT USED**                          #
               ,  ANTYPEOF   # S    DNAT ANTYPE FIELD                  #
               ,  ARITH1     # S    BCP(REG)+ITEMLENGTH(REG)           #
               ,  ARITH2     # S    6*BCP(REG)                         #
               ,  ARITH3     # S    6*ITEMLENGTH(REG)                  #
               ,  ARITH4     # S    5555B/100B**(2*FIXED(PARAM))       #
               ,  ARITH5     # S    10 - BCP(REG) + ITEMLENGTH(REG)    #
               ,  ARITH6     # S    10 - BCP(REG)                      #
               ,  ARITH7     # S    60-6*FIXED                         #
               ,  ARITH8     # S    6*FIXED                            #
               ,  ARITH9     # S    FIXED (MOD 60)                     #
               ,  ARITH10    # S    6 * (BCP(REG) + ITEMLENGTH(REG))   #
               ,  ARITH11    # S    60 - FIXED                         #
               ,  ARITH12    # S    (BCP(REG) + ITEMLENGTH(REG)) - 10  #
               ,  ARITH13    # S    6*(BCP(REG) + ITEMLENGTH(REG)) - 60#
               ,  ARITH14    # S    (BCP(REG)+ITEMLENGTH(REG)) - 20    #
               ,  ARITH15    # S    120 - 6*FIXED                      #
               ,  ARITH16    # S    6*(BCP(REG)+ITEMLENGTH(REG))-120   #
               ,  ARITH17    # S    FIXED-FIXED/10*10                  #
               ,  ARITH18    # S    6*(FIXED - FIXED/10*10)            #
               ,  ARITH19    # S    60 - 6*(FIXED-FIXED/10*10)         #
               ,  ARITH20    # S    <FIXED>R000                        #
               ,  ARITH21    # S    [(FIXED-1MOD 10] + 1               #
               ,  ARITH22    # S    (FIXED+9)/10                       #
               ,  ARITH4N    # S D  3333B/100B**(2*FIXED(PARAM))       #
               ,  AUXDNPOF   # S    AUXTABLE ENTRY DNAT POINTER        #
               ,  AUXFNPOF   # S    AUXTABLE ENTRY FNAT POINTER        #
               ,  AUXNXTOF   # S                                       #
               ,  AUXRCVOF   # S                                       #
               ,  AUXREFOF   # S                                       #
               ,  BCPOF      # S D  DNAT CHARACTER POSITION FIELD      #
               ,  BINVALOF   #     **NOT USED**                        #
               ,  BYTLENOF   # S D  DNAT ITEM LENGTH FIELD             #
               ,  CCTBIT     # S D  CCT BIT VALUE                      #
               ,  CCTWORD    # S D  CCT WORD VALUE                     #
               ,  CLASSOF    # S    NUM. ITEM CLASSED AS BIN, IND, FP  #
               ,  CONSTOF    # S    REFERENCE TO A *CONST* VALUE       #
               ,  DEPNAMOF   # S    AUXT DEP NAME IN SUBORD-OCC-DEP    #
               ,  DMFUTOF    # S    CDCS -FILE USAGE- TABLE ENTRY      #
               ,  DMIORDOF   # S    SS ITEM ORDINAL                    #
               ,  DMLOSZOF   # S    SUB-SCHEMA LOADER OMIT TABLE SIZE  #
               ,  DMLOWDOF   # S    SUB-SCHEMA LOADER OMIT TABLE ENTRY #
               ,  DMPLTSTR   # S    SS LOADER OMIT TABLE -PLTSTR- PNTR #
               ,  DMPRGID    # S    PROGRAM-ID WITH ZERO FILL          #
               ,  DMRELOF    # S    -WORD1- OF SS -RELATIONS- TABLES   #
               ,  DMRELOOF   # S    SS RELATION ORDINAL                #
               ,  DMRORDOF   # S    SUB-SCHEMA RECORD ORDINAL          #
               ,  DNATOF     # S D  EVAL-DNAT INDEX, STORE-2 WRD ENTRY #
               ,  EQUALS     # S    DIRECT VALUE OF PARAMETER          #
               ,  FIGVALOF   # S    1 = LOVAL, 2 = HIVAL, 0 = NEITHER  #
               ,  FNLINAG    # S    TEST FOR LINAGE                    #
               ,  FNALTK     # S    RETURNS ALTERNATE KEY POINTER      #
               ,  FNBLKNB    # S     GET FNATBLOCKNBR (DA HOME BLOCK NB#
               ,  FINDDP     # S    FIND PNAT FOR NEXT DECLARATIVE PROC#
               ,  FNDNATOF   # S    DNAT POINTER IN FNAT               #
               ,  FNELEMR    # S    ELEMENTARY RECORD FOR FILE TEST    #
               ,  FNFOOF     # S    FILE ORGANIZATION IN FNAT          #
               ,  FNLABTS    # S    LABEL RECORD TEST                  #
               ,  FNKNBOF    # S    FNAT ALTERNATE OR PRIME KEY NUMBER #
               ,  FNMRLOF    # S    FNAT (FIT) MRL FIELD               #
               ,  FNRLKOF    # S    FNAT RELATIVE KEY DNAT POINTER     #
               ,  FNRRCOF    # S    GET RERUN COUNT FROM FNAT          #
               ,  FNRTOF     # S    FNAT RECORD TYPE FIELD             #
               ,  FNVLREC    # S    GET VARIABLE LENGTH RECORD DATA    #
               ,  GCODEOF    # S D  GTEXT CODE FIELD                   #
               ,  GETDCCT    # S    GET I-O DECLARATIVE COUNT          #
               ,  GPTROF     # S D  GTEXT POINTER FIELD                #
               ,  GSCODEOF   # S D  GTEXT SUBCODE FIELD                #
               ,  IMPNMOF    # S    IMPLEMENTOR NAME, BINARY ZERO FILL #
               ,  INTLENOF   # S    (NUMLENOF,REG) - (POINTOF,REG)     #
               ,  JUSTOF     # S D  DNAT JUSTIFIED FIELD               #
               ,  LATALLOF   # S    LATALL BIT                         #
               ,  LDROMIT    #   D  ADD AN -OMIT-ENTRY TO LDSET TABLE  #
               ,  LDRUSE     #   D  ADD A -USE- ENTRY TO LDSET TABLE   #
               ,  LDSIGNOF   # S D  DNAT LEADING SIGN FIELD            #
               ,  LEVELOF    # S D  DNAT LEVEL FIELD                   #
               ,  LITREFOF   # S D  ADDRESS, LENGTH OF LITERAL         #
               ,  LNGOFFOF   # S D  DNAT LONG OFFSET FIELD             #
               ,  LOCLAB     # S    NEXT LOCAL LABEL NUMBER            #
               ,  MAJMSCOF   # S D  DNAT MAJOR MSEC FIELD              #
               ,  MNVALOF    # S    GET VALUE OF MNEMONIC NAME         #
               ,  MXOCC1OF   #     **NOT USED**                        #
               ,  MXOCC2OF   #     **NOT USED**                        #
               ,  MXOCC3OF   #     **NOT USED**                        #
               ,  NUMLENOF   # S D  DNAT NUMERIC LENGTH FIELD          #
               ,  OCCLN1OF   #  **NOT USED**                           #
               ,  OCCLN2OF   #  **NOT USED**                           #
               ,  OCCLN3OF   #  **NOT USED**                           #
               ,  PALTEROF   # S    PNAT MAY-BE-ALTERED BIT            #
               ,  PARANAM    # S    PARAGRAPH NAME FETCH FOR TRACE     #
               ,  PEQUOF     # S    PNAT EQUATE                        #
               ,  PFSSECOF   # S    FIRST NON-DECLARATIVE SECTION      #
               ,  PKINDOF    # S    0 = PROCEDURE HDR, 1 = SECTION HDR #
               ,  PLOCALOF   # S    LOCAL LABEL NO. FOR PERFORM EXIT   #
               ,  PLTQUOTE   # S    QUOTED LITERAL                     #
               ,  PNXSECOF   # S    NEXT SECTION                       #
               ,  POINTOF    # S D  DNAT POINT LOCATION FIELD          #
               ,  PPERFBOF   # S    = 1 IFF BEGINNING OF PERFORM RENAGE#
               ,  PPERFEOF   # S    1 IF END OF PERFORM RANGE          #
               ,  PSEGNOOF   # S    SEGMENT NUMBER                     #
               ,  PSGENTOF   # S    ORD OF ENTRY IND FOR SEGMENTAION   #
               ,  PSGEXTOF   # S    ORD OF EXIT IND FOR SEGMENTATION   #
               ,  RCTENTOF   # S    REF COUNT TABLE ENTRY              #
               ,  REFOF      # S    = 1 IFF GCODE LEGAL                #
               ,  REGPTROF   # S D  REGDNATADDR FIELD                  #
               ,  REGWIXOF   # S D  REGWORDINDX FIELD                  #
               ,  ROOTLNOF   # S    NON-OCC. LEN OF VARIABLE-LEN GRP   #
               ,  ROUNDOF    # S    COMP-2 ROUNDING VALUE              #
               ,  SCHAROF    # S D  DNAT SEPARATE SIGN FIELD           #
               ,  SEQUENCE   #      ASSEMBLER SEQUENCE NUMBER          #
               ,  SETSYOF    # S    REFERENCE TO *SETSY* DECLARATION   #
               ,  SHL30OF    # S    SHIFT FIXED CELL LEFT 30 BITS      #
               ,  SIGNOF     # S D  DNAT SIGN FIELD                    #
               ,  SBDPTHOF   # S    DNAT SUBSCRIPT DEPTH               #
               ,  SHOLITOF   #  S    VALUE OF SHORT LITERAL            #
               ,  SMBYTLOF   # S    SORT/MERG - KEY BYTE LENGTH        #
               ,  SMFBYTOF   # S    SORT/MERGE - KEY BYTE NUMBER       #
               ,  SMKCNTOF   # S    SORT/MERGE -  NUMBER OF KEYS       #
               ,  SMLGTHOF   # S    SORT/MERGE - MINIMUM AREA REQUIRED #
               ,  SMSEQOF    # S    SORT/MERGE - ASCENDING/DESCENDING  #
               ,  SMSIGNOF   # S    SORT/MERGE - KEY SIGN              #
               ,  SMTYPOF    # S    SORT/MERGE - KEY TYPE              #
               ,  SPACESOF   # S    LIT VALUE: 1 = SPACES, 0 = OTHER   #
               ,  STATICOF   # S   CALL STATIC LITERAL                 #
               ,  SUBLOCOF   # S D  SUBSCRIPT LOCATION                 #
               ,  SUBLVLOF   # S    SUBSC LVL FROM AUX ENTRY           #
               ,  SUBMSCOF   #    D  DNAT SUBMSEC FIELD                #
               ,  SUBOCCLN   # S    SUBORD OCCURS DEP AUXT LENGTH      #
               ,  SUBSCOF    # S    SPECIAL CASE SUBSCRIPT             #
               ,  SUBTYPOF   # S D  SUBSCRIPT TYPE                     #
               ,  SYNCHOF    # S    DNAT SYNCH BIT                     #
               ,  TREGOF     # S D  VIRTUAL REGISTER ASSIGNED TO TEMP  #
               ,  TREGP1OF   # S    VIRTUAL REG. AFTER TREGOF          #
               ,  TYPEOF     # S D  DNAT TYPE FIELD                    #
               ,  VREFOF     # S D  VIRTUAL REGISTER TBL REF **********#
               ,  VREGOF     # S    NEXT VIRTUAL REGISTER NUMBER       #
               ,  VREGP1OF   # S    VIRTUAL REGISTER + 1  (FOR D.P.)   #
               ,  WRDOFFOF   # S D  DNAT WORD OFFSET FIELD (MODIFIED)  #
               ,  ZEROSOF    # S    LAT -LATZEROS- FIELD               #
               ,  SUBOFFOF   # S D  SUBSCRIPT OFFSET                   #
               ,  PSGALTOF   # S   ALTER INDEX                         #
               ,  RFLENTYP   # S D REFERENCE MODIFIER LENGTH TYPE      #
               ,  RFLENVAL   # S D REFERENCE MODIFIER LENGTH VALUE     #
               ,  RFLCPTYP   # S D REFERENCE MODIFIER LCP TYPE         #
               ,  RFLCPVAL   # S D REFERENCE MODIFIER LCP VALUE        #
               ,  SUBNUMOF   # S D SUBSCRIPT TABLE INDEX               #
               ,  BITLENOF   # S   BIT LENGTH BOOLEAN ITEM             #
               ,  AUXMAXOC   # S   MAXOCCURS FIELD OF AUXTABLE ENTRY   #
               ,  AUXOCCLN   # S   OCCURENCE LENGTH FROM AUXTABLE ENTRY#
               ,  PARNAM0    # S   PARAGRAPH NAME FETCH FOR CID 0 FILLD#
               ;  #M$FUNC#
