*COMDECK  COMALL
          TITLE  COMALL - COMMON FOR ALL MODULES
          USE    /COMALL/ 
 OSNOS    IFEQ   HOST,NOS 
 OPL      XTEXT  COMSTCM
 OSNOS    ENDIF 
 OSNOS    IFEQ   HOST,NOS 
  
          PURGMAC SCLASS
  
 SCLASS   MACRO  NM,MN,DF,ST,TX 
 .SCL     RMT 
          CON    0L_NM+NM 
 .SCL     RMT 
 SCLASS   ENDM
  
*         COMMON DECK *COMSSCD* CONTAINS SERVICE CLASS INFORMATION. 
*         THIS DECK IS REQUIRED FOR SERVICE CLASS SYMBOL *SC* PROCESSING. 
  
 SCL$     EQU    1
  
 OPL      XTEXT  COMSSCD
  
*         COMMON DECK *COMSSFM* IS REQUIRED FOR THE *GETSSL* MACRO THAT 
*         IS USED IN SYSTEM SECURITY MODE SYMBOL *SSM* PROCESSING.
  
 OPL      XTEXT  COMSSFM
  
*         COMMON DECK COMSLFD IS REQUIRED FOR NOS FILE STATUS CODES 
*                REFERENCED IN THE *SETFS* MACRO. 
  
 OPL      XTEXT  COMSLFD
  
*         COMMON DECK *COMSQAC* IS REQUIRED FOR THE *QAC* PARAMETER 
*         BLOCK DEFINITIONS.  *QAC* IS CALLED TO OBTAIN THE *UJN*.
  
 OPL      XTEXT  COMSQAC
 OSNOS    ENDIF 
 MSGOPT   CON    MOJDT       NOMINAL DISPLAY OPTION OF MESSAGES 
 BGIN     BSSZ   1           1 = BEGIN PROCESSING FOR REPRIEVE
 CCDF     BSSZ   1           NEG, CC NOT PRINTED
 CCSKIP   BSSZ   1           1= SKIPPING CONTROL CARDS
 CCSKPF   DATA   C$"SD.SPF"$  PREFIX FOR SKIPPED CARDS
 FILADR   BSSZ   L.FM        AREA FOR FILINFO DATA
 MOREXP   BSSZ   1           1 = MORE EXPANSION NEEDED FOR THIS LINE
 MORLINE  BSSZ   1           1 = THIS IS CONTINUATION 
 PBCOND   BSSZ   1           1 = PROC BODY CONDITIONAL
 PFATT    BSSZ   1           LFN OF ATTACHED PROCEDURE FILE 
 OSNOS    IFEQ   HOST,NOS 
 PREFIX   BSSZ   1           1 = $ PREFIX ON NAME CALL
 OSNOS    ENDIF 
 PROCDAT  BSSZ   1           1 = PNAME .EQ. DATA,LFN
 JCI      BSSZ   2           AREA FOR GETJCI/SETJCI DATA
  
 SPP      BSSZ   2           AREA FOR SYSTEM PAGE PARAMETERS
  
 PROCESS  DATA   -1          STORE PROCESS IDENTIFIER 
                             0=DISPLAY, 1=IFE/WHILE, 2=SET
 OSNOS    IFEQ   HOST,NOS 
 RPVUBR   BSSZ   1                 1 = REPRIEVE RESUME USER BREAK 
 RPVRR    BSSZ   1                 1 = REPRIEVE RESUMED 
 OSNOS    ENDIF 
  
 RSTRICT  CON    0           1 = PROCEDURE HAS RESTRICTED PARAMETER(S)
 SUBS     DATA   8           UNDEFINED SUBSYSTEM CODE 
 DISCOL   CON    00B         COLON
 DISPER   CON    63B         PERCENT
  
  
  
 SDOVL    IFNE   IP.SDO,0 
*         ARGUMENT LIST FOR VDTGSL CALL 
  
 GSLARG   BSS    0
          VFD    12/0,18/0,2/0,4/0,24/SDMODL
          VFD    12/0,18/0,2/0,4/0,24/SDMODE
          BSSZ   1
  
  
  
  
 SDOVL    ENDIF 
  
  
  
*         SYMBOLIC NAME VALUES
* 
*         THE TABLE OF SYMBOLIC NAMES AND THEIR VALUES IS USED DURING 
*         THE EVALUATION OF AN EXPRESSION.  THE NAME OF UP TO SEVEN 
*         CHARACTERS IS STORED IN THE UPPER 42 BITS OF THE ENTRY. 
*         THE VALUE OR OFFSET IS IN THE LOWER 15 BITS.  THE NAMES 
*         MUST BEGIN WITH AN ALPHABETIC CHARACTERS BECAUSE THE
*         EXPRESSION EVALUATION WILL ASSUME IT IS NUMERIC 
*         IF IT BEGINS WITH A NUMERIC CHARACTER.
*         ANOTHER TABLE OF SYMBOLIC NAMES ALSO EXISTS.  IT IS USED
*         DURING THE PROCESSING OF A FILE FUNCTION.  THE TABLE (SNVFIL) 
*         IS LOCATED FOLLOWING THE FILE FUNCTION CODE IN CCLEVX 
* 
*         THE VALUES WITHIN THE LOWER 15 BITS ARE UNSIGNED.  FULL WORD
*         VALUES POINTED TO IN SNVWRD BY OFFSETS ARE SIGNED.  THE 
*         ONLY VALUES WHICH ARE STORED WITH A SIGN ARE THE REGISTERS
*         R1,R2,R3,R1G.  VALUES IN SNVWRD ARE 60 BITS.  THE ONLY
*         NAMES REQUIRING LARGE VALUES ARE MFL AND MFLL.
  
 SNVT     BSS 
          VFD    42/0LR1,1/1,2/0,15/SNVR1-SNVWRD
          VFD    42/0LR2,1/1,2/0,15/SNVR2-SNVWRD
          VFD    42/0LR3,1/1,2/0,15/SNVR3-SNVWRD
          VFD    42/0LR1G,1/1,2/0,15/SNVR1G-SNVWRD
          VFD    42/0LEF,1/1,2/0,15/SNVEF-SNVWRD
          VFD    42/0LEFG,1/1,2/0,15/SNVEFG-SNVWRD
          VFD    42/0LDSC,1/1,2/0,15/SNVDSC-SNVWRD
  
 SDOVL    IFNE   IP.SDO,0 
          VFD    42/0LSL,1/1,2/0,15/SNVSL-SNVWRD
 SDOVL    ENDIF 
  
 SNVJPP   VFD    42/0LPD,1/0,2/0,15/0  JOB DEFAULT *PD* 
 SNVJPS   VFD    42/0LPS,1/0,2/0,15/0  JOB DEFAULT *PS* 
 SNVJPL   VFD    42/0LPL,1/0,2/0,15/0  JOB DEFAULT *PL* (PS)
          VFD    42/0LPW,1/0,2/0,15/0  JOB DEFAULT *PW* 
  
 SNVSET   EQU    *           NAMES WHOSE VALUE MAY BE SET VIA 
                               THE SET VERB MUST PRECEDE THIS LINE
  
  
*         THE SENSE SWITCHES MUST BE IN CONSECUTIVE ENTRIES 
  
 SNVSSW   CON    0LSW1
          CON    0LSW2
          CON    0LSW3
          CON    0LSW4
          CON    0LSW5
          CON    0LSW6
          CON    0LTRUE+1 
          CON    0LT+1
          CON    0LFALSE
          CON    0LF
          VFD    42/0LFL,1/1,2/0,15/SNVFL-SNVWRD
          VFD    42/0LMFL,1/1,2/0,15/SNVMFL-SNVWRD
 OSNOS    IFEQ   HOST,NOS 
          VFD    42/0LCMM,1/1,2/0,15/SNVCMM-SNVWRD
          VFD    42/0LECM,1/1,2/0,15/SNVECM-SNVWRD
          VFD    42/0LCMN,1/1,2/0,15/SNVCMN-SNVWRD
          VFD    42/0LECN,1/1,2/0,15/SNVECN-SNVWRD
 SNVSSM   CON    0LSSM       OPERATING SYSTEM SECURITY MODE 
 OSNOS    ENDIF 
          VFD    42/0LMFLL,1/1,2/0,15/SNVMFLL-SNVWRD
          VFD    42/0LPNL,1/1,2/0,15/SNVPNL-SNVWRD
 SNVNWK   CON    0LNWK       NETWORK SYMBOL 
          CON    0LNONE      NO NETWORK CONNECTION
          CON    0LCCP+1     CCP CONNECTION 
          CON    0LCDCNET+2  CDCNET CONNECTION
 SNVCS    CON    0LCS 
          CON    0LNICS      NOT INTERACTIVE
          CON    0LDTCS+1    DETACHED 
          CON    0LOLCS+2    ONLINE 
 SNVTC    CON    0LCSET 
          CON    0LNORMAL    NORMAL 
          CON    0LASCII+1   ASCII
  
 OSNOSBE  IFNE   HOST,SC2 
 SNVHID   CON    0LHID
 OSNOSBE  ENDIF 
  
 SNVEM    CON    0LEM         ERROR MODE (FROM LAST MODE CARD)
          CON    0LTLE+SD.TLE 
          CON    0LARE+SD.ARE 
          CON    0LPPE+SD.PPE 
          CON    0LCPE+SD.CPE 
          CON    0LMNE+SD.PCE 
          CON    0LPCE+SD.PCE  PPU CALL ERROR 
          CON    0LODE+SD.ODE 
          CON    0LPSE+SD.PSE 
          CON    0LIDE+SD.IDE      IDLE DOWN
          CON    0LMXE+SD.MXE      MAX NO. OF ERR FLAGS 
          CON    0LTIE+SD.TIE  USER BREAK ONE 
          CON    0LTAE+SD.TAE  USER BREAK TWO 
          CON    0LITE+SD.ITE  SCP INVALID TRANSFER ADDRESS 
          CON    0LMLE+SD.MLE  MESSAGE LIMIT
          CON    0LSPE+SD.SPE  SPECIAL ERRORS 
          CON    0LDRE+SD.DRE  DEADSTART - RERUN
          CON    0LSVE+SD.SVE  SECURITY VIOLATION 
          CON    0LRAE+SD.RAE  RECOVERY ABORT 
          CON    0LJSE+SD.JSE  JOB STEP ABORT 
          CON    0LRCE+SD.RCE  JOB HUNG IN AUTO RECALL
          CON    0LSTE+SD.STE  SUSPENSION TIMEOUT 
          CON    0LECE+SD.ECE  ECS PARITY ERROR (NOS) 
          CON    0LESE+SD.ESE  EXIT(S) PROCESSING (NOS/BE AND SC2)
          CON    0LRSE+SD.RSE  RECOVERED SUBSYSTEM (LEVEL 3)
          CON    0LSLE+SD.SLE SERVICE LIMIT 
          CON    0LFLE+SD.FLE 
          CON    0LTKE+SD.TKE 
          CON    0LMSE+SD.TKE 
          CON    0LPEE+SD.PEE 
          CON    0LSYE+SD.SYE 
          CON    0LFSE+SD.FSE 
          CON    0LORE+SD.ORE 
          CON    0LSSE+SD.SSE 
          CON    0LSRE+SD.SRE 
          CON    0LRRE+SD.RRE 
          CON    0LOKE+SD.OKE 
          CON    0LSWE+SD.SWE 
  
 SNVOT    CON    0LOT          JOB ORIGIN TYPE
          CON    0LSYO+SD.SYO  SYSTEM ORIGIN
          CON    0LBCO+SD.BCO  BATCH ORIGIN 
          CON    0LEIO+SD.EIO  REMOTE BATCH ORIGIN
          CON    0LRBO+SD.RBO  REMOTE BATCH ORIGIN
          CON    0LTXO+SD.TXO  TERMINAL ORIGIN
          CON    0LIAO+SD.IAO  INTERACTIVE ORIGIN 
  
 SNVSYS   CON    0LSYS+IP.SYS  HOST SYSTEM IDENTIFIER 
          CON    0LCCL+1     CCL
          CON    0LSC2+2     SCOPE 2
          CON    0LSC3+3     SCOPE 3
          CON    0LNOSB+4    NOS/BE 
          CON    0LKR+5      KRONOS 
          CON    0LNOS+6     NOS 2.1
  
 OSNOS    IFEQ   HOST,NOS 
          VFD    42/0LVER,1/1,2/0,15/SNVVER-SNVWRD
 OSNOS    ELSE
 SNVVER   CON    0LVER+IP.VER 
 OSNOS    ENDIF 
          CON    0LVERCCL+IP.VCCL  DEVELOPMENT LEVEL
  
 SNVSPP   CON    0LSPD       SYSTEM PRINT DENSITY 
          CON    0LSPS       SYSTEM PAGE SIZE 
          CON    0LSPL       SYSTEM PAGE LENGTH (SIZE)
          CON    0LSPW       SYSTEM PRINT WIDTH 
  
 OSNOS    IFEQ   HOST,NOS 
 SNVSC    CON    0LSC         JOB SERVICE CLASS 
          LIST   G
  
 .SCL     HERE
  
          LIST   *
 OSNOS    ENDIF 
  
 SNVEIGHT BSS    0           EIGHT DIGIT VALUES FOLLOW
          VFD    42/0LDATE4,1/1,2/0,15/SNVDATE4-SNVWRD
 SNVSIX   BSS    0           SIX DIGIT VALUES FOLLOW
          VFD    42/0LDATE,1/1,2/0,15/SNVDATE-SNVWRD
 SNVFOUR  BSS    0           FOUR DIGIT VALUES FOLLOW 
          VFD    42/0LTIME,1/1,2/0,15/SNVTIME-SNVWRD
          VFD    42/0LYEAR4,1/1,2/0,15/SNVYEAR4-SNVWRD
 SNVTWO   BSS    0           TWO DIGIT VAUES FOLLOW 
          VFD    42/0LYEAR,1/1,2/0,15/SNVYEAR-SNVWRD
          VFD    42/0LMONTH,1/1,2/0,15/SNVMON-SNVWRD
          VFD    42/0LDAY,1/1,2/0,15/SNVDAY-SNVWRD
          CON    0LJAN+1
          CON    0LFEB+2
          CON    0LMAR+3
          CON    0LAPR+4
          CON    0LMAY+5
          CON    0LJUN+6
          CON    0LJUL+7
          CON    0LAUG+8
          CON    0LSEP+9
          CON    0LOCT+10 
          CON    0LNOV+11 
          CON    0LDEC+12 
 SNVZERO  BSS    0           END OF MINIMUM SIZE VALUE SYMBOLS
          VFD    42/0LDAYS,1/1,2/0,15/SNVDAYS-SNVWRD
          VFD    42/0LWEEKDAY,1/1,2/0,15/SNVDOW-SNVWRD
          CON    0LMON+1
          CON    0LTUE+2
          CON    0LWED+3
          CON    0LTHU+4
          CON    0LFRI+5
          CON    0LSAT+6
          CON    0LSUN+7
  
 OSNOS    IFEQ   HOST,NOS 
          VFD    42/0LFAMILY,1/1,2/0,15/SNVFNM-SNVWRD 
          VFD    42/0LPACK,1/1,2/0,15/SNVPAK-SNVWRD 
          VFD    42/0LUSER,1/1,2/0,15/SNVUSR-SNVWRD 
          VFD    42/0LJSN,1/1,2/0,15/SNVJSN-SNVWRD
          VFD    42/0LUJN,1/1,2/0,15/SNVUJN-SNVWRD
          VFD    42/0LPFDT,1/1,2/0,15/SNVDTY-SNVWRD 
          VFD    42/0LTN,1/1,2/0,15/SNVNTN-SNVWRD 
          VFD    42/0LUI,1/1,2/0,15/SNVUIX-SNVWRD 
 OSNOS    ENDIF 
  
 SDOVL    IFNE   IP.SDO,0 
          CON    0LLINE      LINE MODE
          CON    0LSCREEN+1  SCREEN MODE
 SDOVL    ENDIF 
          CON    0           END OF SYMBOL TABLE
  
 TLVL     BSS    0           RELEASE LEVELS FILLED IN BY *CCLPRS* 
 OSNOS    IFEQ   HOST,NOS 
          CON    0           SYSTEM LEVEL FILLED IN IF NOS
 OSNOS    ELSE
          CON    IP.VER      SYSTEM LEVEL - OTHER THAN NOS
 OSNOS    ENDIF 
          CON    IP.VCCL     CCL LEVEL
          CON    0           SCOPE 2 LEVEL
          CON    0           SCOPE 3 LEVEL
          CON    0           NOS/BE LEVEL 
          CON    0           KRONOS LEVEL 
          CON    0           NOS LEVEL
 TLVLL    EQU    *-TLVL 
  
 OSSC2    IFNE   HOST,SC2 
 TVXD     BSS    0
          VFD    60/2106           COLON
          VFD    60/2113           A         (UPPER CASE CHARACTERS)
          VFD    60/2114           B
          VFD    60/2115           C
          VFD    60/2116           D
          VFD    60/2117           E
          VFD    60/2118           F
          VFD    60/2119           G
          VFD    60/2120           H
          VFD    60/2121           I
          VFD    60/2122           J
          VFD    60/2123           K
          VFD    60/2124           L
          VFD    60/2125           M
          VFD    60/2126           N
          VFD    60/2127           O
          VFD    60/2128           P
          VFD    60/2129           Q
          VFD    60/2130           R
          VFD    60/2131           S
          VFD    60/2132           T
          VFD    60/2133           U
          VFD    60/2134           V
          VFD    60/2135           W
          VFD    60/2136           X
          VFD    60/2137           Y
          VFD    60/2138           Z
  
          VFD    60/2096           0
          VFD    60/2097           1
          VFD    60/2098           2
          VFD    60/2099           3
          VFD    60/2100           4
          VFD    60/2101           5
          VFD    60/2102           6
          VFD    60/2103           7
          VFD    60/2104           8
          VFD    60/2105           9
  
          VFD    60/2091           +
          VFD    60/2093           -
          VFD    60/2090           *
          VFD    60/2095           /
          VFD    60/2088           (
          VFD    60/2089           )
          VFD    60/2084           $
          VFD    60/2109           =
          VFD    60/2080           SPACE
          VFD    60/2092           ,
          VFD    60/2094           .
          VFD    60/2083           # (POUND SIGN) 
          VFD    60/2139           [ SQUARE BRACKET LEFT
          VFD    60/2141           ] SQUARE BRACKET RIGHT 
  
 TVXDPR   BSS    0
          VFD    60/2085           % PERCENT
          VFD    60/2082           " QUOTE
          VFD    60/2143           _ UNDERLINE
          VFD    60/2081           ! EXCLAMATION POINT
          VFD    60/2086           & AMPERSAND
          VFD    60/2087           ' APOSTROPHE - UP ARROW
          VFD    60/2111           ? QUESTION MARK
          VFD    60/2108           < LESS THAN
          VFD    60/2110           > GREATER THAN 
          VFD    60/2112           @ AT SIGN
          VFD    60/2140           BACK SLASH 
          VFD    60/2142           ^ CIRCUMFLEX 
          VFD    60/2107           ; SEMI COLON 
  
*         THIS TABLE IS FOR LOWER CASE CHARACTERS 
  
 TVXD76   BSS    0
          VFD    60/0 
          VFD    60/2145           A LOWER CASE 
          VFD    60/2146           B
          VFD    60/2147           C
          VFD    60/2148           D
          VFD    60/2149           E
          VFD    60/2150           F
          VFD    60/2151           G
          VFD    60/2152           H
          VFD    60/2153           I
          VFD    60/2154           J
          VFD    60/2155           K
          VFD    60/2156           L
          VFD    60/2157           M
          VFD    60/2158           N
          VFD    60/2159           O
          VFD    60/2160           P
          VFD    60/2161           Q
          VFD    60/2162           R
          VFD    60/2163           S
          VFD    60/2164           T
          VFD    60/2165           U
          VFD    60/2166           V
          VFD    60/2167           W
          VFD    60/2168           X
          VFD    60/2169           Y
          VFD    60/2170           Z
  
          VFD    60/2171           LEFT BRACE 
          VFD    60/2172           VERTICAL LINE
          VFD    60/2173           RIGHT BRACE
          VFD    60/2174           TILDE
  
 TVXDAT   VFD    60/2112           @ AT SIGN     7401B
 TVXDCF   VFD    60/2142           ^ CIRCUMFLEX  7402B
 TVXDCL   VFD    60/2106           : COLON       7404B
 TVXDGA   VFD    60/2144           GRAVE ACCENT  7407B
 OSSC2    ENDIF 
  
