*COMDECK  COMBGIN 
          TITLE  COMBRWE - COMMON FOR BEGIN/REVERT, WHILE/ENDW
 CSFPOS   BSS    1           POSITION INFO OF ACCSF, ENCSF
 CTPHC    BSS    1           COUNT PROCEDURE HEADER CARDS 
 DATAFIL  BSS    1           NAME OF DEFAULT DATA FILE
 FILENAM  BSS    1           NAME OF FILE OF PROCEDURE RESIDENCE
 FILENML  BSS    1           LENGTH OF FILE NAME
 SNFNAM   BSS    1           FILE SPECIAL NAME - NAME 
 SNFNML   BSS    1           FILE SPECIAL NAME - LENGTH OF NAME 
 PROCNAM  BSS    1           NAME OF PROCEDURE
 PROCSEQ  BSS    1           NZ IF PROC HAS SEQUENCE NUMBERS             CL0103 
 PROCWSA  BSS                PROCEDURE FILE WORK AREA 
 BRDATA   BSS                BEGIN/REVERT DATA INFORMATION
          BSS    V.CCCW      MAX WORDS READ BY READC
 LWSA     EQU    *-PROCWSA
          ERRNG  LWSA-L.BR
* 
  
 ENDWLAB  BSS    1           LABEL FOR ENDW 
  
*         PROCEDURE PARAMETER TABLE AREAS -- USED IN BEGIN PROCESSING 
  
 PPTCL    BSS    1           CURRENT LENGTH OF PPT
          BSS    LE.PPT      STORE INFORMATION ABOUT PROC 
 PPT      BSS    L.PPT       PROCEDURE PARAMETER TABLE
          BSS    LE.PPT      ROOM FOR COMMENT PARAMETER 
          BSS    LE.PPT      ALLOW FOR DUMMY PPT ENTRY
  
*         PATTERN VALUE TABLE AREA - BEGIN PROCESSING 
  
 PVTCL    BSS    1           CURRENT LENGTH OF PVT
 PVT      BSS    L.PVT
  
 FPSCL    BSS    1           CURRENT LENGTH OF FPS
 FPS      BSS    L.FPS       FORMAL PARAMETER SPECIFICATIONS
          BSS    V.CCCW      ROOM FOR CALL COMMENTS 
